(* 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[ 100248, 2228] NotebookOptionsPosition[ 95843, 2079] NotebookOutlinePosition[ 96187, 2094] CellTagsIndexPosition[ 96144, 2091] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"c1", "=", "0.82"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c2", "=", "11.0"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c3", "=", "8.8"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c4", "=", "1.2"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c5", "=", "0.3"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c6", "=", "7.3"}], ";"}], TraditionalForm]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"OmegaA", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"c1", "*", "c4"}], "+", "c2"}], "]"}]}], TraditionalForm]], "Input"], Cell[BoxData["3.4617914437470088`"], "Output", CellChangeTimes->{3.5011601993504534`*^9, 3.501162176871561*^9, 3.501171774566518*^9, 3.501173829558057*^9, 3.501174464111351*^9, 3.5011772006678734`*^9, 3.501177443838782*^9, 3.5012664578736296`*^9, 3.5012672784295626`*^9, 3.5013059837890444`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"TA", "=", RowBox[{"1", "/", "OmegaA"}]}], TraditionalForm]], "Input"], Cell[BoxData["0.2888677773487157`"], "Output", CellChangeTimes->{3.5011601993694544`*^9, 3.5011621768915625`*^9, 3.501171774585519*^9, 3.5011738295750575`*^9, 3.5011744641323524`*^9, 3.5011772006818743`*^9, 3.501177443857783*^9, 3.5012664578926306`*^9, 3.501267278448564*^9, 3.5013059838060455`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"Tv", "=", RowBox[{"1", "/", "c4"}]}], TraditionalForm]], "Input"], Cell[BoxData["0.8333333333333334`"], "Output", CellChangeTimes->{3.501160199389456*^9, 3.501162176911564*^9, 3.50117177460452*^9, 3.501173829594059*^9, 3.5011744641553535`*^9, 3.5011772006958747`*^9, 3.5011774438767843`*^9, 3.501266457913632*^9, 3.5012672784695654`*^9, 3.5013059838250465`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"Kc", "=", RowBox[{"c3", "*", RowBox[{"c4", "/", RowBox[{"(", RowBox[{ RowBox[{"c1", "*", "c4"}], "+", "c2"}], ")"}]}]}]}], TraditionalForm]], "Input"], Cell[BoxData["0.8811748998664887`"], "Output", CellChangeTimes->{3.5011601994094567`*^9, 3.5011621769345646`*^9, 3.501171774623521*^9, 3.50117382961306*^9, 3.501174464177355*^9, 3.5011772007088757`*^9, 3.5011774438957853`*^9, 3.501266457931633*^9, 3.5012672784895663`*^9, 3.501305983847048*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"ash", "=", RowBox[{"2", "*", RowBox[{ RowBox[{"(", RowBox[{"c1", "+", "c5", "-", "c4"}], ")"}], "/", "c3"}]}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"-", "0.0181818181818182`"}]], "Output", CellChangeTimes->{3.5011601994294577`*^9, 3.501162176958566*^9, 3.5011717746425223`*^9, 3.501173829633061*^9, 3.5011744641983557`*^9, 3.5011772007238765`*^9, 3.5011774439157863`*^9, 3.501266457950634*^9, 3.5012672785085673`*^9, 3.501305983869049*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"bsh", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c1", "+", "c4", "+", "c5"}], ")"}], "^", "2"}], "-", RowBox[{"4", "*", RowBox[{"(", RowBox[{ RowBox[{"c1", "*", "c4"}], "+", "c2"}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"c3", "^", "2"}], ")"}]}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"-", "0.5495041322314049`"}]], "Output", CellChangeTimes->{3.5011601994504595`*^9, 3.501162176982568*^9, 3.5011717746615233`*^9, 3.501173829652062*^9, 3.5011744642213573`*^9, 3.501177200739877*^9, 3.501177443935787*^9, 3.501266457968635*^9, 3.5012672785275683`*^9, 3.50130598389205*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"mu", "=", RowBox[{ RowBox[{ RowBox[{"-", "ash"}], "/", "2"}], "+", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ash", "^", "2"}], ")"}], "/", "4"}], "-", "bsh"}], "]"}]}]}], TraditionalForm]], "Input"], Cell[BoxData["0.7504321104681859`"], "Output", CellChangeTimes->{3.5011601995494647`*^9, 3.5011621770035686`*^9, 3.5011717746815243`*^9, 3.5011738296710634`*^9, 3.501174464244359*^9, 3.501177200754878*^9, 3.5011774439557886`*^9, 3.501266457986636*^9, 3.50126727854657*^9, 3.5013059839150515`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"Kcsh", "=", RowBox[{"Kc", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"mu", "*", "Kc"}]}], ")"}]}]}], TraditionalForm]], "Input"], Cell[BoxData["0.5304250213385504`"], "Output", CellChangeTimes->{3.5011601995804663`*^9, 3.50116217702557*^9, 3.5011717747035255`*^9, 3.501173829694064*^9, 3.5011744642663603`*^9, 3.501177200771879*^9, 3.50117744397879*^9, 3.501266458005637*^9, 3.501267278565571*^9, 3.501305983940053*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"TAsh", "=", RowBox[{"TA", "/", RowBox[{"Sqrt", "[", RowBox[{"1", "+", RowBox[{"mu", "*", "Kc"}]}], "]"}]}]}], TraditionalForm]], "Input"], Cell[BoxData["0.22411970500652373`"], "Output", CellChangeTimes->{3.5011601996794724`*^9, 3.5011621770455713`*^9, 3.501171774726527*^9, 3.501173829716066*^9, 3.5011744642883615`*^9, 3.50117720079088*^9, 3.501177444000791*^9, 3.501266458024638*^9, 3.501267278585572*^9, 3.501305983961054*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"iv", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"Kcsh", "*", "Tv"}], ")"}]}]}], TraditionalForm]], "Input"], Cell[BoxData["2.2623367143800044`"], "Output", CellChangeTimes->{3.5011601997024736`*^9, 3.5011621770695724`*^9, 3.5011717747495284`*^9, 3.5011738297400675`*^9, 3.5011744643083625`*^9, 3.5011772008088813`*^9, 3.5011774440217924`*^9, 3.501266458043639*^9, 3.501267278606573*^9, 3.501305983983055*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"nu", "=", RowBox[{"0.075", "/", RowBox[{"(", RowBox[{"Kcsh", "*", RowBox[{"Tv", "^", "2"}]}], ")"}]}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.5010069690983653`*^9, 3.501006969822407*^9}, { 3.5011738238707314`*^9, 3.5011738243597593`*^9}, 3.501174460334135*^9}], Cell[BoxData["0.20361030429420038`"], "Output", CellChangeTimes->{3.501160199724475*^9, 3.501162177089574*^9, 3.50117177477353*^9, 3.5011738297640686`*^9, 3.5011744643303633`*^9, 3.5011772008268824`*^9, 3.5011774440457935`*^9, 3.50126645806264*^9, 3.501267278627574*^9, 3.5013059840050564`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"Tnu", "=", RowBox[{"iv", "/", "nu"}]}], TraditionalForm]], "Input"], Cell[BoxData["11.111111111111112`"], "Output", CellChangeTimes->{3.501160199746476*^9, 3.501162177108575*^9, 3.501171774794531*^9, 3.50117382978607*^9, 3.5011744643523645`*^9, 3.501177200844883*^9, 3.501177444067795*^9, 3.5012664580816417`*^9, 3.5012672786505756`*^9, 3.501305984029058*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"M1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"s", "+", "c1"}], ",", RowBox[{ RowBox[{"c5", "*", "s"}], "+", "c2"}], ",", "0", ",", "c3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"s", "+", "c4"}], ",", "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"}]}], "}"}]}], "}"}]}], "]"}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"0.82`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"11.`", "\[InvisibleSpace]", "+", RowBox[{"0.3`", " ", "s"}]}], "0", "8.8`"}, { RowBox[{"-", "1"}], RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s"}], "0", "0"}, { RowBox[{"-", "1"}], "0", "s", "0"}, {"0.7504321104681859`", "0", FractionBox[ RowBox[{"0.20361030429420038`", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"11.111111111111112`", " ", "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", CellChangeTimes->{3.5011601997924786`*^9, 3.5011621771285763`*^9, 3.501171774848534*^9, 3.501173829810071*^9, 3.5011744643743663`*^9, 3.5011772008658843`*^9, 3.5011774440917964`*^9, 3.5012664581036425`*^9, 3.501267278673577*^9, 3.501305984087061*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"M2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"s", "+", "c1"}], ",", RowBox[{ RowBox[{"c5", "*", "s"}], "+", "c2"}], ",", "0", ",", "c3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"s", "+", "c4"}], ",", "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"}]}], "}"}]}], "}"}]}], "]"}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"0.82`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"11.`", "\[InvisibleSpace]", "+", RowBox[{"0.3`", " ", "s"}]}], "0", "8.8`"}, { RowBox[{"-", "1"}], RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s"}], "0", "0"}, { RowBox[{"-", "1"}], "0", "0", "0"}, {"0.7504321104681859`", "0", FractionBox[ RowBox[{"0.20361030429420038`", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"11.111111111111112`", " ", "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", CellChangeTimes->{3.50116019981748*^9, 3.5011621771505775`*^9, 3.5011717748755355`*^9, 3.5011738298350725`*^9, 3.5011744644003677`*^9, 3.5011772008858857`*^9, 3.5011774441167974`*^9, 3.501266458123644*^9, 3.501267278696578*^9, 3.501305984113063*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"W", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Det", "[", "M2", "]"}], "/", RowBox[{"Det", "[", "M1", "]"}]}], "]"}]}], TraditionalForm]], "Input"], Cell[BoxData[ FractionBox[ RowBox[{"19.908563086544042`", " ", RowBox[{"(", RowBox[{"0.08999999999999997`", "\[InvisibleSpace]", "+", "s"}], ")"}], " ", RowBox[{"(", RowBox[{"1.2`", "\[InvisibleSpace]", "+", "s"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"0.09840743806228511`", "\[InvisibleSpace]", "+", "s"}], ")"}], " ", RowBox[{"(", RowBox[{"0.6495372523931325`", "\[InvisibleSpace]", "+", "s"}], ")"}], " ", RowBox[{"(", RowBox[{"33.638117383644925`", "\[InvisibleSpace]", "+", RowBox[{"8.17585788166462`", " ", "s"}], "+", SuperscriptBox["s", "2"]}], ")"}]}]]], "Output", CellChangeTimes->{3.5011601998584824`*^9, 3.5011621771715784`*^9, 3.5011717749435396`*^9, 3.501173829878075*^9, 3.5011744644253693`*^9, 3.5011772009248877`*^9, 3.5011774441588*^9, 3.501266458161646*^9, 3.5012672787195797`*^9, 3.5013059841720657`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"h", "=", RowBox[{"Simplify", "[", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"W", "/", "s"}], ",", "s", ",", "t"}], "]"}], "]"}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"0.9999999999999998`", "\[InvisibleSpace]", "-", RowBox[{ RowBox[{"(", RowBox[{"0.25385109324566113`", "\[InvisibleSpace]", "+", RowBox[{"0.2980218427086895`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4.08792894083231`"}], "-", RowBox[{"4.114238004582448`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{"0.25385109324566113`", "\[InvisibleSpace]", "-", RowBox[{"0.2980218427086895`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4.08792894083231`"}], "+", RowBox[{"4.114238004582448`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", RowBox[{"0.5958112704562757`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.6495372523931325`"}], " ", "t"}]]}], "+", RowBox[{"0.10351345694759813`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.09840743806228511`"}], " ", "t"}]]}]}]], "Output", CellChangeTimes->{3.5011601999324865`*^9, 3.5011621772145805`*^9, 3.501171775108549*^9, 3.5011738299490795`*^9, 3.5011744644753723`*^9, 3.5011772009908915`*^9, 3.501177444229804*^9, 3.5012664582276497`*^9, 3.5012672787645817`*^9, 3.501305984397079*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"hf", "[", "t_", "]"}], "=", RowBox[{"Abs", "[", "h", "]"}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"Abs", "[", RowBox[{"0.9999999999999998`", "\[InvisibleSpace]", "-", RowBox[{ RowBox[{"(", RowBox[{"0.25385109324566113`", "\[InvisibleSpace]", "+", RowBox[{"0.2980218427086895`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4.08792894083231`"}], "-", RowBox[{"4.114238004582448`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", RowBox[{ RowBox[{"(", RowBox[{"0.25385109324566113`", "\[InvisibleSpace]", "-", RowBox[{"0.2980218427086895`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "4.08792894083231`"}], "+", RowBox[{"4.114238004582448`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}], "-", RowBox[{"0.5958112704562757`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.6495372523931325`"}], " ", "t"}]]}], "+", RowBox[{"0.10351345694759813`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.09840743806228511`"}], " ", "t"}]]}]}], "]"}]], "Output", CellChangeTimes->{3.501160199957488*^9, 3.501162177233582*^9, 3.5011717751355505`*^9, 3.501173830016083*^9, 3.5011744644993734`*^9, 3.5011772010098925`*^9, 3.5011774442548056`*^9, 3.501266458246651*^9, 3.501267278786583*^9, 3.5013059845250864`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"Plot", "[", RowBox[{"h", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1.8"}], "}"}]}]}], "]"}], TraditionalForm]], "Input", CellChangeTimes->{{3.500989418979556*^9, 3.5009895181692295`*^9}, { 3.5009895542082906`*^9, 3.500989554514308*^9}, {3.500997335724368*^9, 3.5009973363114014`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nc81e8XAPBLskfZ99oqUTJKMuKcrG76UqGQNDTsEFGJVCIrq5IGGggl Iwkloyj9UolKlJFx7U82kd/jr3vfr/u8nvt6zjnPc46Ck5fVUXYajabKRqMt firGzt9Pkc03JF9p5XUZBsXcKnKeLrGAm3gdO7ydoPJU7gNll1TQ4P+wenPJ eUjU7toncCUTDqoo2GxWToQaDR9nTpcnIGywx3d6bxqcFVt4vpBWCK8Hzwue jHgI1xNMDediiuHDvLu31EQePBGKrp4+UwZT/PJCg6uewdvoBuaE8yvw7pXb 51JRBlQof++p7EownN0r8/VbBQRVP1GZSquG0tvbHXZR1XAdJ3PHYmohWNci ePpQHbzTu1gy6PwRBP2C7HKqv0DOZpHgjU8+Qb7qL4vdB5rgT8uRVL/sz/Bx UFdFf+wrBDO4O0fTvsDy6rUZ9+eb4XWJ/ZL1txvh6Mu28Gc+LcBrn7PSJ6kJ DA649kk1t0JSkqXzSMw3YOrtKzE61wa/tNMuq0V8h1a9odD4/e2w8uufLM/Q ZjB6RksynWyHPNFrgwNnWqBAzrf7h1AnTBb2CKz1bwUa9ebyx/hOMLDWUXfz +QnGVjvDc/h/Q118iw/LuQ3O0gpHioZ+w+Ub198larbDI49f/aY2XaDqAns3 PGkHIeG1HUFPu+DjJlZ/g2oHmBlGht0W7IYTXPGBJ7I7INr5P+0up24Q+6bL L6zcCVkpctw387vheUbn7fz0TnjhGf6X4283/DPVKqfSfsPMjeajUud64K7Y T8s42S5Q37lJyK60B0y6L7Wp3+6CiIYGBfc/PcB6qub9kd4NaVyp/rdW9kJU 6DeaV1I3zPWmeKrZ9IKaTUi8oFgPfBZ4nOQc0gsNK1QUcxN6wLyi2fNyVi9I Vp8xHorphSyv52qBY71QlrCiMZqPBeqZ8nnVoizY7/S/I6oRLMj1c3vbvoEF D9hkw9xD+8A+N3GVswcLtn6uEedj7weNjVK2GmEs6E/zysw+1w8BA/HjMSks 0MTKt31nBuALQ8824z0LGoXc7COmB2Dj2ztzWe0sONUm3K/sPwipNtuoL+Ms KA8+wufiMwSey07PCEr1gflLLsse5xEYYjcvqjnUB5oLThPi1Ah83rH1npxf H0TLH6hfsZmCIJPOTJOwPvBzKj1p85qCNz5JuurZfWDS4/26qPEP2PuGiZf8 6YPOoZ+HTk2MgfGKUVP50H74eiWqKE53HK4lW1d8ut4Pdeq6PFlB41Aao2eR kNUPBT5X85qXToCVe2i0wcd+OD9hvqAnPgkrhdYltTIGQH6++Pa89jQItCg/ cMgbANGUo5RY4DT0fCmSy6gaAG4QMVF7NQ3vC2ddPzcOwEjI8YH9W2fgmFjI bCWJQznHKr0K21kY19MKbTYcBEf+hG8XTs3BhZqs+y1Vg7DzMay99WIO8vme MqIaBsHEcii4kDYPVXsNj/B1DoJqHFOp6/I8XPNmTw2mDcGcyIKfafI/OPrz 7IiW/hB8ENDm4XCkYUyW0Q2th0PQsF34Rv1ZGmpulGnTezoE3yOGlZJv03DS sNRDpmIIupZmmqi10rDOsM/g9Dey37xEiJ0DGwq6KLfc4BiGNcMzk4/s2fF5 u3n0T7th0FD9eingNDv+z7Fl4ZfTMGi7FYgaJbOjAou3stpjGIx63NZ/+86O UeuX5OiEDIP9rxZPNrslmH2+XuJH+jBcrn/ZtXsPB7oXgrnJ4DBc4b/pK+/P gTxreYXujw/DVXN/9oFrHFj5y0e9f24YUmvU5EOaOPBe7tbI9QIj8Kw81SHb Zimy5EYTClRHoDv3fMM/K050NNxedJ/UTf+g46F3JziRJW+b/+D4CFBr9KjE BE5Mpe/Ijj85AnMZowIqDZyYE/tjv8bFERBNPbzNehcXRmvzmIbdGQGjWNOK zB3ceDAtYPhl/QiEmD/NajjOjd+7PO1ONY5A+dIVifMx3MjW3LRP8ccI6J2l HbP+Hzf68dCaTbtHYINrGd8CkweH/My5Ps6OwEpjTds9RrxY4qqqGbacAqd/ qXj+EC86da0M7BOhIK1EcM2jEF6MFH9UYypOgbTG4BzbK148rVuc1cegQEwm 895jfT68lDYd0b6CAs4p6WGOjfwYnvriXLIWBSYFUd/UbfhRKaGh76o2BRc8 Zyv2+vLj8cIjByN1KPj3+1tiXj4/LuRa5x0m92bqU4LuPjUBHOT1CPlsTAEr m/tS4WpBjPAOiMvYRYHSsYDjv8wEkRst0rdZU3BEoceW55gguuia5fTaUNCe VL3mwANBjL08Uy5qR0FzaPAnXgUh3Jcf46G1n4Kj6rMCmgLLcG+8Vd5VVwr+ awlPl5Rdhp884x/xuFOgFS5mQFNfhq5sqbdOe1DA0abh8XHnMoxSmYs096Lg 3hXnOs+ry3D7BxGtAj8K2oYaw7KllqPkP4UDD4IpqEl2kk1QXY5SH3s7689R kGtKFZ02WI5vIvvXToRQEHyHr5t5YDnSd/kabLxI4mlhZNx7bzk+t+LJCA2n wP7Rk4UVa4RxKVv5IbdYCtDOIIlPXxhFJxLj98RRoMzxXm1suzCuc3+8CeIp mHbocazyJOsv/BbkTKTgOp/Mi4P5wsj42j/ndp38X3G2NbNKGCs2aI7pJ5Hz H9YZUP8ijEFNHo95bpDzllkzFsbJ/gZZCbeSKfjiFnnqjo4IGirOSd+8TUGp uOSyS9tEkKfUWcPqDjl/VXqmx14RDIgX2MGVQsEJRuVX/bMiyDnb9tEllYJl dVNaP16J4HetwFqeexRYqBz9I75VFNl4NoXWZVAwG3Wy7OceUZydOFBjkUnB w+FLlx4cE8XMmys764k5nmbQ14eJYunAo5d1D8n/G7K2WLwRxRjB/PtZ2RS4 3J3mE20SxegMupV0Dqk/Dp6vP7pEMaVmhjOG2PudipsLhxja6Ickuzwi9WLj nnDRWAzb1LeOc+dS0PgscJ+5tRg63vRy9SA+T49WWn5YDP1EvAXriVt/PSpN uSCGXtNP/kY9oSDRdbizpFIM2etc+0fzKKCd89lAgTjSDuWv8Skk+e04P/9s hziqWVh9KSF2MEmoDTogjvMVqydoTyl4xlPowHdOHM9ybSyKJPa4On5RqVwc Gxo7kqOLKGBMcVgOfRDHcrGgc++Ia+3FJJ/+FEeX4qp/HM8oUJTTfrRlXhwZ PdXNAcTNWQGN+zZLYA5fobtFMQVh/JdTVvwngZZ185fPEWt53XDpd5DAP0s7 HfOI47RK5gICJTAiqGSz4HMKDJPe1RhGSWDckmILfeKBmea4pbck8OE7p5XO xGavZlcmlkpga5i/RhnxuALfiH2dBEquuOvxm/huqFSJ/A8JfO6/EMhbQsHc ts0WuTMSOL0zSGE3cUFj0Ml3OpLIO/Gko5X44aUjTp3bJHEdfrn7jzhFe/uO v3slUdysQ1aulILIG5Iq64IkcXXJqgP7iEO2LYiZXZHEgJ0TKqeJ/We72Q+k Eq/vrLhKfHhfYWtcpSRmyTYceku8V+Dmu6wGSaSfZ/i2E+8sD3lW9VsSqyT4 DkwRb5a3jBtfSkdZf1qTQhkF6z9rBQlI0HHt7tmjG4mVL0i5KSnTseZDWNtW YtEulrGdOR3T7L4luxLzXvuo4eNAx+s5xh2niGlmz2QiPej43SJRNpx4cvI2 7/0gOq5XX7L7KvFg5sWpsit0ZCnVhqcRd9q5dTWmEvPzluYQf+fZ9Xkoj45P GoaGi4jrSzeVc1bRkboVpfKK+I27bI7cF+KvYx61xC+kl97Q6aJjpo3ai3ri gg8Dobsm6Jh8UI/RRPwwuMHHjZOBHt8FI38Qp6iX7L8owUA0vinYRny1PXX7 bWUG1rKqsjuJI+PDdIp0GSjJOnaomzjEyHNVvTkDLSz3bewl9h+zFu51YGCj qo8Ki9jjgd7CggcD45+446KddisMSgYzsGw9b9DiejtO7mbNWAaesVvSubif ZfHwG/M0BlrLcp74TWzi0lRwOJ+Bu0ZL1NuJ9egvUs9WMfBPbblMK7FG3b3o a18Y2Kn62PAb8erAiNO5XWQ/R/Frn4llVb2P1U4wkGYfuuL9Yn5+7rFu55TC 4onTg9WL+bligDMSUlg0fmK0bDE/sHKdsIoUnhPr2lS4mJ8RXsZaPSn0U9F/ lbWYn7Q/nCbbpZB9dVtk6mI+2F+1n/SUwrjf4dOXF/NRmP7hSrAUxo7qpJ4l fn0kujQzVgrpebGJXsT5NfZXm/Ol8PGg4XHrxfgH4PnRKik8WCdkb7IYf+XV x/kapXDPpoCbWovxjhzfajAphYH3ilREFuOt36K1h0savU2+BLItxnuwUsFL Uhql2kTXjZB6dbKM/ZumJ42rHXYULda3vvCaJxznpPHzL7drfsT1bHvffYiV RoWUjov7iQ/+ifh9PU0abdXze7YSh37qk1CpksacmIhl9MX1V7JCLJbKoGL9 TqUicv8O8qlYXY+SwfelPI1N5D6Pztp5HLgtg/DmUlMxcWj/5TDlxzJY0Tt4 NJk46x2rtLReBnP8L+o6LK4Pf7iibbksTt6TbGom70soh/LE6huyqF/2jfGa vE/i47ZCfx7KYnakc3Eq8cPf4SqlJbIofVN15gzxh6pex/9aZLFp8xEfjcX1 5zNrvGXl0DB1pW0Sef+y5pVulDyQwxfN19j2kPfS+W/CnXQ7eVx+au2plHxS z5aD1acPyuM5DhqbH3HFXdN+Cxd5DJJOt9tGLMmc1p4MkMc3PVsCxsh7/faq 4yezJHn8637hkimxipryElaTPBZU/Q3qIO/9wMGXLmusFTCrdsJonvQPr5re DU8sFNG8QUmnM53kby/nqnmPlbiL/77vHOmfh2sDj2m6KOFSRRlRySgKKrno u9ztldG/2tdCgPR7zeUh1/v81iBv2qHBrhMUHBgzULX0UMVHtq8CT7mQeSrl jfRUjBqqv92uvIbMIwVX9FoarDTQEF98XCDzi2+pwc47/2niMuqDv4EFBeV1 6aMRDutRrcJP4I4p6X9bdV+62m3A0QyxH2uBglsPNYvc3bQwqyNkvoXMU3Fj L897B2zEFmmug2akU3Vnn/R3OaGN0sbJzrFqFFSbJdy4cGETXk6ufjOiQu7L jh+dsSE6mC9dMM6tRMECPmNLO62LDVnD/2IVKQiXmLJoCNdD525lxdVyJD57 D1dNXdTH0162HmbSZN46r3UErm3G/UIzt/zoFIgkJv+IuGuAwlKt3JNkXkxf tuZ07S1DXDtvO/ZDlOTrhJzp6hxAziu6wnXC5L7Ip0kb2CBaSkRV8pH58+XZ WZrLJ8RXcr2+wUIUKGznmlthuwWPtA8pTQtQ8PSjSlRz4xaMKP79NJefguia fxryjkaoXruk2p2P9GvfPreDrUZ4uybT1IGXgrNiskKK9sb4JpjzvQsPqS+V pXV+7cbIFXv/7RluMq+Os9Er95vg4JXcvnwuCjI18oNTek2QzuW5ZoiT1ItT tuW8pylmSfxTAOKWbSUFuwdMMXiIpfNoKQUN98+sA18z5L5rtUKaeLpw12bF UTO0/fUi5h4HiefzE0Vhx7fiOMW2R5t4u4aZ6dmJrShZpCD0vyWk3zuqu7r7 MnFWIdrhBLHwYZeyOyeZeFXX9Zc38X6XuwKfApioPNZ/yIt48oRIgdZZJvao t7h5EK+8PDU7H8pExjLn0GPEIQWvouOuM9GrYbhpL7Ee1868ohImNtV+o4yX LM4LEeysMiZuuVcZbkT8eXmVDaOciVEnt8ptIXaR1poJrmKi7cyqnYbESZqS Rsz35HfZ1SU6xOMO7V9+tDJx4uJC5jpiPERXEmhjYvP1CKYqcdQxq1PQwcR1 Z3L61hAr+ryWftDNxMmconXKxLvCHh71HF5c3/pCkfh2VEdxKsVECy5ZJwVi VhyDt2GUiY8MJ7jkF89zKzpXe4qJgQuHd8sQ/y/tDc11hoktXH/npIglMv5Z 3frLRI4mpXQGsVPOpvQP80wsUOq1oBPn5nlPLSwwseKF/pQE8f8B5rwHaQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 50}, {0, 1.8}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{3.50116019999549*^9, 3.5011621772595835`*^9, 3.5011717752975597`*^9, 3.5011738301130886`*^9, 3.501174464531375*^9, 3.5011772010458946`*^9, 3.5011774442978077`*^9, 3.5012664582816534`*^9, 3.501267278813585*^9, 3.501305984785101*^9}] }, Open ]], Cell[BoxData[ FormBox["", TraditionalForm]], "Input", CellChangeTimes->{{3.5009897164255686`*^9, 3.5009897439581437`*^9}, 3.500998746068035*^9}], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"kol", "=", "10000"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"dt", "=", RowBox[{"50", "/", "kol"}]}], ";"}], TraditionalForm]}], "Input", CellChangeTimes->{{3.500989543144658*^9, 3.500989544297724*^9}, { 3.5009904474583817`*^9, 3.5009904479664106`*^9}, {3.500990960117704*^9, 3.500990960362718*^9}, {3.500991016447926*^9, 3.5009910189200673`*^9}, 3.500991062434556*^9, {3.5010072002155848`*^9, 3.501007205996915*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Ust", "=", RowBox[{"hf", "[", "10000", "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"hmax", "=", RowBox[{"hf", "[", "0", "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ 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", "++"}]}]}], "]"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"sigma", "=", RowBox[{"Round", "[", RowBox[{ RowBox[{"100", "*", RowBox[{ RowBox[{"(", RowBox[{"hmax", "-", "Ust"}], ")"}], "/", "Ust"}]}], ",", "0.01"}], "]"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "Treg", ",", "\"\< \:0441.\>\""}], "]"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "sigma", ",", "\"\<%.\>\""}], "]"}], TraditionalForm]}], "Input", CellChangeTimes->{{3.5009884502351465`*^9, 3.500988451232204*^9}, { 3.500988484509107*^9, 3.5009885170519686`*^9}, 3.5009885614485083`*^9, 3.5009893753640614`*^9, {3.5009897507085295`*^9, 3.500989757405913*^9}, { 3.5009899243834634`*^9, 3.500989930586818*^9}, {3.5009903014290295`*^9, 3.5009903145177774`*^9}, {3.5009904236280184`*^9, 3.5009904608381467`*^9}, {3.500998284438631*^9, 3.5009982911320143`*^9}, { 3.5009983217697663`*^9, 3.5009983517944837`*^9}, {3.500998522056222*^9, 3.500998532943845*^9}, {3.500998671622777*^9, 3.500998822416402*^9}, { 3.5009988740213537`*^9, 3.5009988911053305`*^9}, {3.5009993418501115`*^9, 3.5009993643343973`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Treg=\"\>", "\[InvisibleSpace]", "2.3125`", "\[InvisibleSpace]", "\<\" \:0441.\"\>"}], SequenceForm["Treg=", 2.3125, " \:0441."], Editable->False]], "Print", CellChangeTimes->{3.5011602005925245`*^9, 3.5011621778236156`*^9, 3.501171775872593*^9, 3.501173830683121*^9, 3.501174465094407*^9, 3.501177201601927*^9, 3.5011774448658404`*^9, 3.501266458833685*^9, 3.501267279384618*^9, 3.5013059853871355`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Sigma=\"\>", "\[InvisibleSpace]", "4.59`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["Sigma=", 4.59, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011602005925245`*^9, 3.5011621778236156`*^9, 3.501171775872593*^9, 3.501173830683121*^9, 3.501174465094407*^9, 3.501177201601927*^9, 3.5011774448658404`*^9, 3.501266458833685*^9, 3.501267279384618*^9, 3.501305985388136*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Soch", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{"koefstep", "=", RowBox[{ RowBox[{"(", RowBox[{"1.1", "-", "0.9"}], ")"}], "/", RowBox[{"(", RowBox[{"Soch", "-", "2"}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.501008969384775*^9, 3.5010090008615756`*^9}, { 3.5011576868837485`*^9, 3.5011576874787827`*^9}, {3.5011593776774564`*^9, 3.5011593779194703`*^9}, {3.5011651650564756`*^9, 3.501165165788518*^9}, { 3.501167565955799*^9, 3.501167566741844*^9}, {3.501169053209865*^9, 3.5011690582741547`*^9}, {3.5011774354763036`*^9, 3.50117743629535*^9}, { 3.5012664471570168`*^9, 3.501266449565154*^9}, {3.5012672709721365`*^9, 3.5012672717961836`*^9}, {3.5013080278789597`*^9, 3.501308028263982*^9}}], Cell[BoxData["0.05000000000000002`"], "Output", CellChangeTimes->{ 3.5011690665876303`*^9, 3.5011696340870895`*^9, 3.501171775928596*^9, 3.501173830736124*^9, 3.5011744651164083`*^9, 3.501177201624928*^9, 3.501177444917844*^9, 3.501266458893688*^9, {3.501267275604401*^9, 3.5012672794166193`*^9}, 3.501305985409137*^9, 3.5013080305181103`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ocen", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VTsr", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"VSsr", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "Soch"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", "Soch"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "<", "Soch"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"For", "[", RowBox[{ RowBox[{"l", "=", "1"}], ",", RowBox[{"l", "<", "Soch"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"For", "[", RowBox[{ RowBox[{"m", "=", "1"}], ",", RowBox[{"m", "<", "Soch"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"c1c", "=", RowBox[{"c1", "*", RowBox[{"(", RowBox[{"0.9", "+", RowBox[{"koefstep", "*", RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"c2c", "=", RowBox[{"c2", "*", RowBox[{"(", RowBox[{"0.9", "+", RowBox[{"koefstep", "*", RowBox[{"(", RowBox[{"j", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"c3c", "=", RowBox[{"c3", "*", RowBox[{"(", RowBox[{"0.9", "+", RowBox[{"koefstep", "*", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"c4c", "=", RowBox[{"c4", "*", RowBox[{"(", RowBox[{"0.9", "+", RowBox[{"koefstep", "*", RowBox[{"(", RowBox[{"l", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"c5c", "=", RowBox[{"c5", "*", RowBox[{"(", RowBox[{"0.9", "+", RowBox[{"koefstep", "*", RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", FormBox[ RowBox[{"M1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"s", "+", "c1c"}], ",", RowBox[{ RowBox[{"c5c", "*", "s"}], "+", "c2c"}], ",", "0", ",", "c3c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"s", "+", "c4c"}], ",", "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"}]}], "}"}]}], "}"}]}], TraditionalForm], ";", "\[IndentingNewLine]", FormBox[ RowBox[{"M2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"s", "+", "c1c"}], ",", RowBox[{ RowBox[{"c5c", "*", "s"}], "+", "c2c"}], ",", "0", ",", "c3c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"s", "+", "c4c"}], ",", "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"}]}], "}"}]}], "}"}]}], TraditionalForm], ";", "\[IndentingNewLine]", FormBox[ RowBox[{"W", "=", RowBox[{ RowBox[{"Det", "[", "M2", "]"}], "/", RowBox[{"Det", "[", "M1", "]"}]}]}], TraditionalForm], ";", "\[IndentingNewLine]", FormBox[ RowBox[{"h", "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"W", "/", "s"}], ",", "s", ",", "t"}], "]"}]}], TraditionalForm], ";", "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"hf", "[", "t_", "]"}], "=", RowBox[{"Abs", "[", "h", "]"}]}], TraditionalForm], ";", "\[IndentingNewLine]", RowBox[{ FormBox[ RowBox[{ RowBox[{ RowBox[{"Ust", "=", RowBox[{"hf", "[", "10000", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hmax", "=", RowBox[{"hf", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"q", "=", "1"}], ",", RowBox[{"q", "<", RowBox[{"kol", "+", "1"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Sign", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"hf", "[", RowBox[{"dt", "*", RowBox[{"(", RowBox[{"q", "-", "1"}], ")"}]}], "]"}], "-", "Ust"}], "]"}], "-", "0.05"}], "]"}], "\[NotEqual]", RowBox[{"Sign", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"hf", "[", RowBox[{"dt", "*", RowBox[{"(", "q", ")"}]}], "]"}], "-", "Ust"}], "]"}], "-", "0.05"}], "]"}]}], ",", RowBox[{"Treg", "=", RowBox[{"dt", "*", RowBox[{"(", RowBox[{"q", "-", "0.5"}], ")"}]}]}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"hmax", "<", RowBox[{"hf", "[", RowBox[{"dt", "*", "q"}], "]"}]}], ",", RowBox[{"hmax", "=", RowBox[{"hf", "[", RowBox[{"dt", "*", "q"}], "]"}]}]}], "]"}]}], "}"}], ";", RowBox[{"q", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sigma", "=", RowBox[{"Round", "[", RowBox[{ RowBox[{"100", "*", RowBox[{ RowBox[{"(", RowBox[{"hmax", "-", "Ust"}], ")"}], "/", "Ust"}]}], ",", "0.01"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], TraditionalForm], RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Treg", ">", "5"}], "||", " ", RowBox[{"sigma", ">", "5"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\<\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\ \:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \ \:04411=\>\"", ",", "c1c", ",", "\"\<, c2=\>\"", ",", "c2c", ",", "\"\<, c3=\>\"", ",", "c3c", ",", "\"\<, c4=\>\"", ",", "c4c", ",", "\"\<, c5=\>\"", ",", "c5c", ",", "\"\< \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\ \:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\ \:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\ \:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\ \:0441\:0443, \:0442.\:043a. Treg=\>\"", ",", "Treg", ",", "\"\< c, Sigma=\>\"", ",", "sigma", ",", "\"\<%.\>\""}], "]"}], ",", RowBox[{"ocen", "++"}], ",", RowBox[{"VTsr", "=", RowBox[{"Append", "[", RowBox[{"VTsr", ",", "Treg"}], "]"}]}], ",", RowBox[{"VSsr", "=", RowBox[{"Append", "[", RowBox[{"VSsr", ",", "sigma"}], "]"}]}]}], "}"}]}], "]"}]}]}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}]}]}], "]"}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"l", "++"}]}]}], "]"}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ver", "=", RowBox[{ RowBox[{"(", RowBox[{"ocen", "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"Soch", "-", "1"}], ")"}], "^", "5"}], ")"}]}], ")"}], "*", "100."}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tregsr", "=", RowBox[{"Mean", "[", "VTsr", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sigmasr", "=", RowBox[{"Mean", "[", "VSsr", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\<\:0412\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0441\:0442\:044c \ \:0442\:043e\:0433\:043e, \:0447\:0442\:043e \:0441\:0438\:0441\:0442\:0435\ \:043c\:0430 \:0441\:0430\:043c\:043e\:043b\:0435\:0442 \[Dash] \:0440\:0430\ \:0441\:0441\:0447\:0438\:0442\:0430\:043d\:043d\:044b\:0439 \:0430\:0432\ \:0442\:043e\:043f\:0438\:043b\:043e\:0442 \:043d\:0430 \:0434\:0430\:043d\ \:043d\:043e\:043c \:0440\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\:043b\ \:0435\:0442\:0430 \:043d\:0435 \:0431\:0443\:0434\:0435\:0442 \:0443\:0434\ \:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0442\:044c \:0437\ \:0430\:0434\:0430\:043d\:043d\:044b\:043c \:0445\:0430\:0440\:0430\:043a\ \:0442\:0435\:0440\:0438\:0441\:0442\:0438\:043a\:0430\:043c \:043f\:0435\ \:0440\:0435\:0445\:043e\:0434\:043d\:043e\:0433\:043e \:043f\:0440\:043e\ \:0446\:0435\:0441\:0441\:0430 \:0440\:0430\:0432\:043d\:0430 \>\"", ",", "Ver", ",", "\"\<%.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Ver", ">", "0"}], ",", RowBox[{"Print", "[", RowBox[{ "\"\<\:041f\:0440\:0438 \:044d\:0442\:043e\:043c \:043d\:0430\:0438\:0431\ \:043e\:043b\:0435\:0435 \:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\ \:0435 \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\ \:0440\:043e\:0432\:0430\:043d\:0438\:044f \[Dash] \>\"", ",", "Tregsr", ",", "\"\<\:0441, \:0430 \:043d\:0430\:0438\:0431\:043e\:043b\:0435\:0435 \ \:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0435 \:043f\:0435\:0440\ \:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\ \:0435 - \>\"", ",", "sigmasr", ",", "\"\<%. \:0414\:043b\:044f \:0440\:0435\:0448\:0435\:043d\:0438\:044f \ \:044d\:0442\:043e\:0439 \:043f\:0440\:043e\:0431\:043b\:0435\:043c\:044b \ \:0441\:043b\:0435\:0434\:0443\:0435\:0442 \:0443\:043c\:0435\:043d\:044c\ \:0448\:0438\:0442\:044c \:0447\:0438\:0441\:043b\:043e nu(\:043f\:0435\:0440\ \:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0435 \:0447\:0438\:0441\ \:043b\:043e \:0410\:041f \: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), \:043b\:0438\:0431\ \:043e \:0443\:0432\:0435\:043b\:0438\:0447\:0438\:0442\:044c \:0447\:0438\ \:0441\:043b\:043e iv(\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\ \:043d\:043e\:0435 \:0447\:0438\:0441\:043b\:043e \:0410\:041f \:043f\:043e \ \:0441\:0438\:0433\:043d\:0430\:043b\:0443 \:0443\:0433\:043b\:0430 \:0442\ \:0430\:043d\:0433\:0430\:0436\:0430), \:043b\:0438\:0431\:043e \:0443\:043c\ \:0435\:043d\:044c\:0448\:0430\:0442\:044c nu \:0438 \:0443\:0432\:0435\:043b\ \:0438\:0447\:0438\:0432\:0430\:0442\:044c iv \:043e\:0434\:043d\:043e\:0432\ \:0440\:0435\:043c\:0435\:043d\:043d\:043e, \:043d\:043e \:043d\:0430 \:043c\ \:0435\:043d\:044c\:0448\:0438\:0435 \:0432\:0435\:043b\:0438\:0447\:0438\ \:043d\:044b, \:0447\:0435\:043c \:0432 \:043f\:0435\:0440\:0432\:044b\:0445 \ \:0434\:0432\:0443\:0445 \:0441\:043b\:0443\:0447\:0430\:044f\:0445, \:0442.\ \:0435. \:0442\:0430\:043a\:0438\:043c \:043e\:0431\:0440\:0430\:0437\:043e\ \:043c \:0441\:0434\:0432\:043d\:0443\:0442\:044c Tnu \:0435\:0449\:0451 \ \:0434\:0430\:043b\:044c\:0448\:0435 \:043e\:0442 Tv - \:0443\:0432\:0435\ \:043b\:0438\:0447\:0438\:0442\:044c Tnu.\>\""}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5010072301142945`*^9, 3.5010072306113234`*^9}, { 3.5010074889631*^9, 3.5010076004494762`*^9}, 3.5010077512611027`*^9, { 3.501008033460243*^9, 3.5010082920950365`*^9}, {3.5010083832402496`*^9, 3.5010084014522915`*^9}, {3.501009006169879*^9, 3.501009029647222*^9}, { 3.5011577968710394`*^9, 3.501157800621254*^9}, {3.501157873949448*^9, 3.501157887253209*^9}, {3.5011579298636465`*^9, 3.501157967374792*^9}, { 3.5011580402249584`*^9, 3.501158080707274*^9}, {3.5011582846639395`*^9, 3.5011584570968027`*^9}, {3.5011595037356663`*^9, 3.5011596326970425`*^9}, {3.5011596964906917`*^9, 3.5011597011399574`*^9}, {3.501159797716481*^9, 3.5011598220748744`*^9}, { 3.501160050886962*^9, 3.501160057341331*^9}, {3.501160099237727*^9, 3.5011601286114073`*^9}, {3.5011607644717765`*^9, 3.5011607682069902`*^9}, {3.501162156255382*^9, 3.5011621694511366`*^9}, { 3.501162732525343*^9, 3.5011628245536065`*^9}, {3.501163483790313*^9, 3.501163547274944*^9}, {3.5011637074361043`*^9, 3.5011638203615637`*^9}, { 3.501163862892996*^9, 3.501163864510089*^9}, {3.501163976892516*^9, 3.501163986705078*^9}, {3.501164175198859*^9, 3.501164179116083*^9}, { 3.501167057329707*^9, 3.501167058846794*^9}, {3.501169440624024*^9, 3.5011695887504964`*^9}, {3.5011699904544725`*^9, 3.501169994382697*^9}, { 3.501170346088814*^9, 3.501170358048498*^9}, {3.5011711894400506`*^9, 3.501171256004858*^9}, {3.501171289701785*^9, 3.501171294595065*^9}, 3.501171382010065*^9, {3.501171427408662*^9, 3.5011715043810644`*^9}, 3.501171702679406*^9, {3.5011741459361525`*^9, 3.5011742599996767`*^9}, { 3.501176032907081*^9, 3.5011761023280516`*^9}, {3.5011768909481583`*^9, 3.5011769277892656`*^9}, {3.5011769960971727`*^9, 3.5011771925574093`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.27`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.8125`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.18`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 0.27, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 8.8125, " c, Sigma=", 5.18, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016529917*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.3`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.8125`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.18`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\ \:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\ \:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\ \:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\ \:043a. Treg=", 8.8125, " c, Sigma=", 5.18, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306016897938*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.33`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.8175`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.19`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 0.33, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 8.8175, " c, Sigma=", 5.19, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.5013060174619703`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.27`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.5475`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.03`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 0.27, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.5475, " c, Sigma=", 5.03, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.5013060180300026`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.3`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.5575`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.04`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\ \:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\ \:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\ \:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\ \:043a. Treg=", 7.5575, " c, Sigma=", 5.04, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306018594035*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.738`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.33`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.5675`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.04`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.738, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 0.33, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.5675, " c, Sigma=", 5.04, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306019154067*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.27`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.9125`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.21`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 0.27, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 8.9125, " c, Sigma=", 5.21, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.5013060618035064`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.3`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.9125`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.21`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\ \:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\ \:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\ \:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\ \:043a. Treg=", 8.9125, " c, Sigma=", 5.21, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.5013060623745394`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.33`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "8.9125`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.21`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 0.33, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 8.9125, " c, Sigma=", 5.21, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.5013060629405713`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.27`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.7225`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.0600000000000005`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 0.27, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.7225, " c, Sigma=", 5.0600000000000005`, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.5013060635046034`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.3`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.7275`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.0600000000000005`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\ \:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\ \:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\ \:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\ \:043a. Treg=", 7.7275, " c, Sigma=", 5.0600000000000005`, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306064072636*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.82`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.33`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.7375`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.0600000000000005`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.82, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 0.33, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.7375, " c, Sigma=", 5.0600000000000005`, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306064636668*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.27`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "9.0075`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.23`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 0.27, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 9.0075, " c, Sigma=", 5.23, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306107338111*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.3`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "9.0075`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.23`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\ \:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\ \:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\ \:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\ \:043a. Treg=", 9.0075, " c, Sigma=", 5.23, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306107927144*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.08`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.33`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "9.0075`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.23`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.08, ", c5=", 0.33, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 9.0075, " c, Sigma=", 5.23, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.5013061085281787`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.27`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.8725000000000005`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.08`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 0.27, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.8725000000000005`, " c, Sigma=", 5.08, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306109108212*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.3`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.8775`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.08`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 0.3, " \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\ \:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\ \:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\ \:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\ \:043a. Treg=", 7.8775, " c, Sigma=", 5.08, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.5013061097042465`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\ \:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=\"\>", "\[InvisibleSpace]", "0.902`", "\[InvisibleSpace]", "\<\", c2=\"\>", "\[InvisibleSpace]", "12.100000000000001`", "\[InvisibleSpace]", "\<\", c3=\"\>", "\[InvisibleSpace]", "7.920000000000001`", "\[InvisibleSpace]", "\<\", c4=\"\>", "\[InvisibleSpace]", "1.2`", "\[InvisibleSpace]", "\<\", c5=\"\>", "\[InvisibleSpace]", "0.33`", "\[InvisibleSpace]", "\<\" \:043d\:0435 \:0443\:0434\:043e\:0432\:043b\ \:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442 \:0442\:0440\:0435\:0431\ \:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \:043f\:0435\:0440\:0435\ \:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\:0440\:043e\:0446\:0435\ \:0441\:0441\:0443, \:0442.\:043a. Treg=\"\>", "\[InvisibleSpace]", "7.8825`", "\[InvisibleSpace]", "\<\" c, Sigma=\"\>", "\[InvisibleSpace]", "5.09`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0420\:0435\:0436\:0438\:043c \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\ \:0446\:0438\:0435\:043d\:0442\:0430\:043c\:0438 \:04411=", 0.902, ", c2=", 12.100000000000001`, ", c3=", 7.920000000000001, ", c4=", 1.2, ", c5=", 0.33, " \:043d\:0435 \ \:0443\:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0435\:0442\ \:0442\:0440\:0435\:0431\:043e\:0432\:0430\:043d\:0438\:044f\:043c \:043a \ \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:043c\:0443 \:043f\ \:0440\:043e\:0446\:0435\:0441\:0441\:0443, \:0442.\:043a. Treg=", 7.8825, " c, Sigma=", 5.09, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.501306110275279*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0412\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0441\:0442\ \:044c \:0442\:043e\:0433\:043e, \:0447\:0442\:043e \:0441\:0438\:0441\:0442\ \:0435\:043c\:0430 \:0441\:0430\:043c\:043e\:043b\:0435\:0442 \[Dash] \:0440\ \:0430\:0441\:0441\:0447\:0438\:0442\:0430\:043d\:043d\:044b\:0439 \:0430\ \:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442 \:043d\:0430 \:0434\:0430\ \:043d\:043d\:043e\:043c \:0440\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\ \:043b\:0435\:0442\:0430 \:043d\:0435 \:0431\:0443\:0434\:0435\:0442 \:0443\ \:0434\:043e\:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0442\:044c \ \:0437\:0430\:0434\:0430\:043d\:043d\:044b\:043c \:0445\:0430\:0440\:0430\ \:043a\:0442\:0435\:0440\:0438\:0441\:0442\:0438\:043a\:0430\:043c \:043f\ \:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:0433\:043e \:043f\:0440\ \:043e\:0446\:0435\:0441\:0441\:0430 \:0440\:0430\:0432\:043d\:0430 \"\>", "\[InvisibleSpace]", "7.4074074074074066`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0412\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0441\:0442\:044c \:0442\ \:043e\:0433\:043e, \:0447\:0442\:043e \:0441\:0438\:0441\:0442\:0435\:043c\ \:0430 \:0441\:0430\:043c\:043e\:043b\:0435\:0442 \[Dash] \:0440\:0430\:0441\ \:0441\:0447\:0438\:0442\:0430\:043d\:043d\:044b\:0439 \:0430\:0432\:0442\ \:043e\:043f\:0438\:043b\:043e\:0442 \:043d\:0430 \:0434\:0430\:043d\:043d\ \:043e\:043c \:0440\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\:043b\:0435\ \:0442\:0430 \:043d\:0435 \:0431\:0443\:0434\:0435\:0442 \:0443\:0434\:043e\ \:0432\:043b\:0435\:0442\:0432\:043e\:0440\:044f\:0442\:044c \:0437\:0430\ \:0434\:0430\:043d\:043d\:044b\:043c \:0445\:0430\:0440\:0430\:043a\:0442\ \:0435\:0440\:0438\:0441\:0442\:0438\:043a\:0430\:043c \:043f\:0435\:0440\ \:0435\:0445\:043e\:0434\:043d\:043e\:0433\:043e \:043f\:0440\:043e\:0446\ \:0435\:0441\:0441\:0430 \:0440\:0430\:0432\:043d\:0430 ", 7.4074074074074066`, "%."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.5013061222429633`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:041f\:0440\:0438 \:044d\:0442\:043e\:043c \:043d\:0430\:0438\ \:0431\:043e\:043b\:0435\:0435 \:0432\:0435\:0440\:043e\:044f\:0442\:043d\ \:043e\:0435 \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\ \:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f \[Dash] \"\>", "\[InvisibleSpace]", "8.316388888888888`", "\[InvisibleSpace]", "\<\"\:0441, \:0430 \:043d\:0430\:0438\:0431\:043e\ \:043b\:0435\:0435 \:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0435 \ \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\ \:0430\:043d\:0438\:0435 - \"\>", "\[InvisibleSpace]", "5.133888888888889`", "\[InvisibleSpace]", "\<\"%. \:0414\:043b\:044f \:0440\:0435\:0448\:0435\ \:043d\:0438\:044f \:044d\:0442\:043e\:0439 \:043f\:0440\:043e\:0431\:043b\ \:0435\:043c\:044b \:0441\:043b\:0435\:0434\:0443\:0435\:0442 \:0443\:043c\ \:0435\:043d\:044c\:0448\:0438\:0442\:044c \:0447\:0438\:0441\:043b\:043e nu(\ \:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0435 \ \:0447\:0438\:0441\:043b\:043e \:0410\:041f \: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), \ \:043b\:0438\:0431\:043e \:0443\:0432\:0435\:043b\:0438\:0447\:0438\:0442\ \:044c \:0447\:0438\:0441\:043b\:043e iv(\:043f\:0435\:0440\:0435\:0434\:0430\ \:0442\:043e\:0447\:043d\:043e\:0435 \:0447\:0438\:0441\:043b\:043e \:0410\ \:041f \:043f\:043e \:0441\:0438\:0433\:043d\:0430\:043b\:0443 \:0443\:0433\ \:043b\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\:0430), \:043b\:0438\:0431\ \:043e \:0443\:043c\:0435\:043d\:044c\:0448\:0430\:0442\:044c nu \:0438 \ \:0443\:0432\:0435\:043b\:0438\:0447\:0438\:0432\:0430\:0442\:044c iv \:043e\ \:0434\:043d\:043e\:0432\:0440\:0435\:043c\:0435\:043d\:043d\:043e, \:043d\ \:043e \:043d\:0430 \:043c\:0435\:043d\:044c\:0448\:0438\:0435 \:0432\:0435\ \:043b\:0438\:0447\:0438\:043d\:044b, \:0447\:0435\:043c \:0432 \:043f\:0435\ \:0440\:0432\:044b\:0445 \:0434\:0432\:0443\:0445 \:0441\:043b\:0443\:0447\ \:0430\:044f\:0445, \:0442.\:0435. \:0442\:0430\:043a\:0438\:043c \ \:043e\:0431\:0440\:0430\:0437\:043e\:043c \:0441\:0434\:0432\:043d\:0443\ \:0442\:044c Tnu \:0435\:0449\:0451 \:0434\:0430\:043b\:044c\:0448\:0435 \ \:043e\:0442 Tv - \:0443\:0432\:0435\:043b\:0438\:0447\:0438\:0442\:044c Tnu.\ \"\>"}], SequenceForm[ "\:041f\:0440\:0438 \:044d\:0442\:043e\:043c \:043d\:0430\:0438\:0431\:043e\ \:043b\:0435\:0435 \:0432\:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0435 \ \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\ \:043e\:0432\:0430\:043d\:0438\:044f \[Dash] ", 8.316388888888888, "\:0441, \:0430 \:043d\:0430\:0438\:0431\:043e\:043b\:0435\:0435 \:0432\ \:0435\:0440\:043e\:044f\:0442\:043d\:043e\:0435 \:043f\:0435\:0440\:0435\ \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435\ - ", 5.133888888888889, "%. \:0414\:043b\:044f \:0440\:0435\:0448\:0435\:043d\:0438\:044f \:044d\ \:0442\:043e\:0439 \:043f\:0440\:043e\:0431\:043b\:0435\:043c\:044b \:0441\ \:043b\:0435\:0434\:0443\:0435\:0442 \:0443\:043c\:0435\:043d\:044c\:0448\ \:0438\:0442\:044c \:0447\:0438\:0441\:043b\:043e nu(\:043f\:0435\:0440\:0435\ \:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0435 \:0447\:0438\:0441\:043b\ \:043e \:0410\:041f \: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), \:043b\:0438\:0431\:043e \ \:0443\:0432\:0435\:043b\:0438\:0447\:0438\:0442\:044c \:0447\:0438\:0441\ \:043b\:043e iv(\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\ \:043e\:0435 \:0447\:0438\:0441\:043b\:043e \:0410\:041f \:043f\:043e \:0441\ \:0438\:0433\:043d\:0430\:043b\:0443 \:0443\:0433\:043b\:0430 \:0442\:0430\ \:043d\:0433\:0430\:0436\:0430), \:043b\:0438\:0431\:043e \:0443\:043c\:0435\ \:043d\:044c\:0448\:0430\:0442\:044c nu \:0438 \:0443\:0432\:0435\:043b\:0438\ \:0447\:0438\:0432\:0430\:0442\:044c iv \:043e\:0434\:043d\:043e\:0432\:0440\ \:0435\:043c\:0435\:043d\:043d\:043e, \:043d\:043e \:043d\:0430 \:043c\:0435\ \:043d\:044c\:0448\:0438\:0435 \:0432\:0435\:043b\:0438\:0447\:0438\:043d\ \:044b, \:0447\:0435\:043c \:0432 \:043f\:0435\:0440\:0432\:044b\:0445 \:0434\ \:0432\:0443\:0445 \:0441\:043b\:0443\:0447\:0430\:044f\:0445, \:0442.\:0435. \ \:0442\:0430\:043a\:0438\:043c \:043e\:0431\:0440\:0430\:0437\:043e\:043c \ \:0441\:0434\:0432\:043d\:0443\:0442\:044c Tnu \:0435\:0449\:0451 \ \:0434\:0430\:043b\:044c\:0448\:0435 \:043e\:0442 Tv - \:0443\:0432\:0435\ \:043b\:0438\:0447\:0438\:0442\:044c Tnu."], Editable->False]], "Print", CellChangeTimes->{3.5011772331357307`*^9, 3.5011776523407073`*^9, 3.5012665311438203`*^9, 3.5012673099993687`*^9, 3.5013061222559643`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mver", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "7.41"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5.12"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4.14"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.501267440643841*^9, 3.501267529640931*^9}, { 3.5012686667519703`*^9, 3.5012686685350723`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "7.41`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5.12`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4.14`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.501267532079071*^9, 3.5012686693281174`*^9, 3.501306122345969*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{"Mver", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.501267572324373*^9, 3.5012676011170197`*^9}, 3.5012678045516553`*^9, {3.501267926722643*^9, 3.5012679304308553`*^9}, { 3.5012679623746824`*^9, 3.501267985918029*^9}, {3.5012682701052837`*^9, 3.501268273068453*^9}, {3.501268677776601*^9, 3.501268727703457*^9}, { 3.501269419392019*^9, 3.501269422945222*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{3., 7.41}, {5., 5.12}, {7., 4.14}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{3., 0}, PlotRange->{{3., 7.}, {0, 10}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{{3.501267594018614*^9, 3.501267601711054*^9}, 3.5012678059587355`*^9, 3.501267931319906*^9, {3.501267972407256*^9, 3.501267986695073*^9}, 3.501268274044509*^9, 3.501268700226885*^9, 3.5012694241792927`*^9, 3.501306122485977*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeorVer", "=", "4.08"}]], "Input", CellChangeTimes->{{3.5012700537913046`*^9, 3.5012700674660864`*^9}}], Cell[BoxData["4.08`"], "Output", CellChangeTimes->{3.5012700686321535`*^9, 3.5013061225079784`*^9}] }, Open ]], Cell[TextData[StyleBox["\:0413\:0438\:043f\:0435\:0440 - \:0433\:0440\:0435\ \:043a\:043e - \:043b\:0430\:0442\:0438\:043d\:0441\:043a\:0438\:0439 \:043a\ \:0432\:0430\:0434\:0440\:0430\:0442 :", FontSize->18]], "Text", CellChangeTimes->{{3.5013071099124546`*^9, 3.5013071316947007`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Soch", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{"koefstep", "=", RowBox[{ RowBox[{"(", RowBox[{"1.1", "-", "0.9"}], ")"}], "/", RowBox[{"(", RowBox[{"Soch", "-", "2"}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.5013194805027647`*^9, 3.5013194817279673`*^9}}], Cell[BoxData["0.05000000000000002`"], "Output", CellChangeTimes->{3.5013195800997243`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"c1v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"c1", "*", RowBox[{"(", RowBox[{"0.9", "+", RowBox[{"koefstep", "*", RowBox[{"(", "i", ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"Soch", "-", "2"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"c2v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"c2", "*", RowBox[{"(", RowBox[{"0.9", "+", RowBox[{"koefstep", "*", RowBox[{"(", "i", ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"Soch", "-", "2"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"c3v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"c3", "*", RowBox[{"(", RowBox[{"0.9", "+", RowBox[{"koefstep", "*", RowBox[{"(", "i", ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"Soch", "-", "2"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"c4v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"c4", "*", RowBox[{"(", RowBox[{"0.9", "+", RowBox[{"koefstep", "*", RowBox[{"(", "i", ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"Soch", "-", "2"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"c5v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"c5", "*", RowBox[{"(", RowBox[{"0.9", "+", RowBox[{"koefstep", "*", RowBox[{"(", "i", ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"Soch", "-", "2"}]}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5013067082614813`*^9, 3.501306822503016*^9}, { 3.5013068899958763`*^9, 3.501306990126603*^9}, {3.501307480003623*^9, 3.5013074885561123`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.738`", ",", "0.779`", ",", "0.82`", ",", "0.861`", ",", "0.902`"}], "}"}]], "Output", CellChangeTimes->{{3.50130681225443*^9, 3.5013068237850895`*^9}, 3.5013068965932536`*^9, {3.501306929420131*^9, 3.501306959413847*^9}, 3.501306991341673*^9, 3.501307489681176*^9, 3.5013080430848293`*^9, 3.5013195827829294`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "9.9`", ",", "10.450000000000001`", ",", "11.`", ",", "11.55`", ",", "12.100000000000001`"}], "}"}]], "Output", CellChangeTimes->{{3.50130681225443*^9, 3.5013068237850895`*^9}, 3.5013068965932536`*^9, {3.501306929420131*^9, 3.501306959413847*^9}, 3.501306991341673*^9, 3.501307489681176*^9, 3.5013080430848293`*^9, 3.5013195827829294`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "7.920000000000001`", ",", "8.360000000000001`", ",", "8.8`", ",", "9.240000000000002`", ",", "9.680000000000001`"}], "}"}]], "Output", CellChangeTimes->{{3.50130681225443*^9, 3.5013068237850895`*^9}, 3.5013068965932536`*^9, {3.501306929420131*^9, 3.501306959413847*^9}, 3.501306991341673*^9, 3.501307489681176*^9, 3.5013080430848293`*^9, 3.5013195827829294`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.08`", ",", "1.1400000000000001`", ",", "1.2`", ",", "1.26`", ",", "1.32`"}], "}"}]], "Output", CellChangeTimes->{{3.50130681225443*^9, 3.5013068237850895`*^9}, 3.5013068965932536`*^9, {3.501306929420131*^9, 3.501306959413847*^9}, 3.501306991341673*^9, 3.501307489681176*^9, 3.5013080430848293`*^9, 3.5013195827829294`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.27`", ",", "0.28500000000000003`", ",", "0.3`", ",", "0.315`", ",", "0.33`"}], "}"}]], "Output", CellChangeTimes->{{3.50130681225443*^9, 3.5013068237850895`*^9}, 3.5013068965932536`*^9, {3.501306929420131*^9, 3.501306959413847*^9}, 3.501306991341673*^9, 3.501307489681176*^9, 3.5013080430848293`*^9, 3.5013195827829294`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", "Soch"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", "Soch"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"c1c", "=", RowBox[{"c1v", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c2c", "=", RowBox[{"c2v", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c3c", "=", RowBox[{"c3v", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c4c", "=", RowBox[{"c4v", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c5c", "=", RowBox[{"c5v", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"c1v", "=", RowBox[{"RotateLeft", "[", RowBox[{"c1v", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c4v", "=", RowBox[{"RotateLeft", "[", RowBox[{"c4v", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c5v", "=", RowBox[{"RotateLeft", "[", RowBox[{"c5v", ",", "4"}], "]"}]}], ";"}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5013071720260077`*^9, 3.501307268212509*^9}, { 3.501307306626706*^9, 3.501307425525507*^9}, {3.501307497952649*^9, 3.501307644171013*^9}, {3.5013077145600386`*^9, 3.501307731480006*^9}, 3.50130777629657*^9, {3.5013078542360277`*^9, 3.501307964091311*^9}, { 3.50130801477721*^9, 3.501308017852386*^9}, {3.501308058590716*^9, 3.5013080587097225`*^9}, {3.501319322893766*^9, 3.5013193472922087`*^9}}] }, WindowSize->{1356, 633}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 615, 20, 126, "Input"], Cell[CellGroupData[{ Cell[1185, 44, 172, 6, 30, "Input"], Cell[1360, 52, 305, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1702, 61, 108, 3, 30, "Input"], Cell[1813, 66, 309, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2159, 75, 104, 3, 30, "Input"], Cell[2266, 80, 304, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2607, 89, 217, 8, 30, "Input"], Cell[2827, 99, 304, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3168, 108, 199, 7, 30, "Input"], Cell[3370, 117, 324, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3731, 127, 421, 14, 30, "Input"], Cell[4155, 143, 319, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4511, 153, 301, 11, 30, "Input"], Cell[4815, 166, 306, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5158, 175, 186, 6, 30, "Input"], Cell[5347, 183, 299, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5683, 192, 194, 6, 30, "Input"], Cell[5880, 200, 301, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6218, 209, 158, 5, 30, "Input"], Cell[6379, 216, 309, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6725, 225, 333, 8, 30, "Input"], Cell[7061, 235, 304, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7402, 244, 106, 3, 30, "Input"], Cell[7511, 249, 300, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7848, 258, 851, 27, 30, "Input"], Cell[8702, 287, 1372, 35, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10111, 327, 851, 27, 30, "Input"], Cell[10965, 356, 1371, 35, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12373, 396, 207, 6, 30, "Input"], Cell[12583, 404, 911, 22, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13531, 431, 232, 7, 30, "Input"], Cell[13766, 440, 1446, 35, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15249, 480, 140, 4, 30, "Input"], Cell[15392, 486, 1502, 36, 38, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16931, 527, 446, 11, 30, "Input"], Cell[17380, 540, 6683, 115, 247, "Output"] }, Open ]], Cell[24078, 658, 150, 3, 30, "Input"], Cell[24231, 663, 527, 12, 50, "Input"], Cell[CellGroupData[{ Cell[24783, 679, 2957, 80, 126, "Input"], Cell[CellGroupData[{ Cell[27765, 763, 473, 9, 23, "Print"], Cell[28241, 774, 455, 9, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28745, 789, 778, 15, 52, "Input"], Cell[29526, 806, 358, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29921, 816, 16877, 346, 792, "Input"], Cell[CellGroupData[{ Cell[46823, 1166, 1825, 29, 23, "Print"], Cell[48651, 1197, 1819, 28, 23, "Print"], Cell[50473, 1227, 1827, 29, 23, "Print"], Cell[52303, 1258, 1825, 29, 23, "Print"], Cell[54131, 1289, 1817, 28, 23, "Print"], Cell[55951, 1319, 1823, 29, 23, "Print"], Cell[57777, 1350, 1825, 29, 23, "Print"], Cell[59605, 1381, 1819, 28, 23, "Print"], Cell[61427, 1411, 1825, 29, 23, "Print"], Cell[63255, 1442, 1852, 29, 23, "Print"], Cell[65110, 1473, 1844, 28, 23, "Print"], Cell[66957, 1503, 1850, 29, 23, "Print"], Cell[68810, 1534, 1825, 29, 23, "Print"], Cell[70638, 1565, 1819, 28, 23, "Print"], Cell[72460, 1595, 1827, 29, 23, "Print"], Cell[74290, 1626, 1848, 29, 23, "Print"], Cell[76141, 1657, 1819, 28, 23, "Print"], Cell[77963, 1687, 1823, 29, 23, "Print"], Cell[79789, 1718, 2151, 32, 23, "Print"], Cell[81943, 1752, 4925, 69, 81, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[86917, 1827, 390, 11, 31, "Input"], Cell[87310, 1840, 333, 10, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[87680, 1855, 525, 10, 31, "Input"], Cell[88208, 1867, 593, 13, 255, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88838, 1885, 128, 2, 31, "Input"], Cell[88969, 1889, 100, 1, 30, "Output"] }, Open ]], Cell[89084, 1893, 290, 4, 34, "Text"], Cell[CellGroupData[{ Cell[89399, 1901, 327, 9, 52, "Input"], Cell[89729, 1912, 91, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89857, 1918, 1891, 58, 112, "Input"], Cell[91751, 1978, 374, 8, 30, "Output"], Cell[92128, 1988, 398, 8, 30, "Output"], Cell[92529, 1998, 422, 8, 30, "Output"], Cell[92954, 2008, 384, 8, 30, "Output"], Cell[93341, 2018, 386, 8, 30, "Output"] }, Open ]], Cell[93742, 2029, 2097, 48, 252, "Input"] } ] *) (* End of internal cache information *)