(* 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[     87110,       1899]
NotebookOptionsPosition[     83374,       1772]
NotebookOutlinePosition[     83782,       1789]
CellTagsIndexPosition[     83739,       1786]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:044b\
", " ", "\:043b\:0438\:043d"}], "-", 
    RowBox[{
    "\:0439", " ", "\:043c\:043e\:0434\:0435\:043b\:0438", " ", 
     "\:041b\:0410"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"a1", "=", 
    RowBox[{"{", 
     RowBox[{"0.3230", ",", "0.4970", ",", "0.5110"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"a2", "=", 
    RowBox[{"{", 
     RowBox[{"0.7050", ",", "1.6740", ",", "2.3810"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"a3", "=", 
    RowBox[{"{", 
     RowBox[{"0.7720", ",", "2.2650", ",", "3.0420"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"a4", "=", 
    RowBox[{"{", 
     RowBox[{"0.1022", ",", "0.1247", ",", "0.1302"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"a5", "=", 
    RowBox[{"{", 
     RowBox[{"0.4254", ",", "1.7379", ",", "2.5529"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"a6", "=", 
    RowBox[{"{", 
     RowBox[{"1.5198", ",", "0.7965", ",", "0.7391"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"a7", "=", 
    RowBox[{"{", 
     RowBox[{"0.0327", ",", "0.0451", ",", "0.0470"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"b1", "=", 
    RowBox[{"{", 
     RowBox[{"1.8500", ",", "2.5220", ",", "2.7250"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"b2", "=", 
    RowBox[{"{", 
     RowBox[{"2.2220", ",", "5.7440", ",", "8.3700"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"b3", "=", 
    RowBox[{"{", 
     RowBox[{"1.3890", ",", "3.6660", ",", "4.9240"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"b4", "=", 
    RowBox[{"{", 
     RowBox[{"0.1730", ",", "0.0721", ",", " ", "0.0598"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"b6", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.0780"}], ",", "0.0240", ",", "0.0590"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"b7", "=", 
    RowBox[{"{", 
     RowBox[{"0.0174", ",", "0.0436", ",", "0.0174"}], "}"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5160849190391197`*^9, 3.5160849588573976`*^9}, {
  3.5160850226340456`*^9, 3.516085030441492*^9}, {3.516085068057644*^9, 
  3.5160851789219847`*^9}, {3.516085217050165*^9, 3.516085973833932*^9}, {
  3.516086098680951*^9, 3.516086105950564*^9}, {3.516377782996093*^9, 
  3.5163777831832933`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.323`", ",", "0.497`", ",", "0.511`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172748047*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.705`", ",", "1.674`", ",", "2.381`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172763672*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.772`", ",", "2.265`", ",", "3.042`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172794922*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.1022`", ",", "0.1247`", ",", "0.1302`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172810547*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.4254`", ",", "1.7379`", ",", "2.5529`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172841797*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.5198`", ",", "0.7965`", ",", "0.7391`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172857422*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0327`", ",", "0.0451`", ",", "0.047`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172888672*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.85`", ",", "2.522`", ",", "2.725`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172919922*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.222`", ",", "5.744`", ",", "8.37`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172935547*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.389`", ",", "3.666`", ",", "4.924`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172951172*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.173`", ",", "0.0721`", ",", "0.0598`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172982422*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.078`"}], ",", "0.024`", ",", "0.059`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591172998047*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0174`", ",", "0.0436`", ",", "0.0174`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5163744923441124`*^9, 3.5163746297023535`*^9, {3.516374736468941*^9, 
   3.5163748065442643`*^9}, 3.516374848789139*^9, 3.5163754987618804`*^9, 
   3.5163755386199503`*^9, 3.516375864239322*^9, {3.5163759477618685`*^9, 
   3.5163759664039016`*^9}, 3.5163759993667593`*^9, 3.516376521187676*^9, 
   3.5163765926670017`*^9, 3.5163768387482343`*^9, 3.5163769424032164`*^9, 
   3.5163770359565806`*^9, 3.516377258958972*^9, {3.516377329845497*^9, 
   3.516377352387536*^9}, 3.5163774931309834`*^9, 3.516377527014243*^9, 
   3.516377587339549*^9, 3.5163776214724092`*^9, {3.516377788580902*^9, 
   3.516377803010928*^9}, 3.5163779142703233`*^9, {3.516378053656568*^9, 
   3.51637808349942*^9}, 3.516417858364227*^9, {3.5164179489535856`*^9, 
   3.5164179648188133`*^9}, 3.5164180471557584`*^9, 3.516591173029297*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "\:0412\:044b\:0431\:043e\:0440", " ", 
      "\:0440\:0435\:0436\:0438\:043c\:0430", " ", "1"}], ".."}], "3"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"rezh", "=", "3"}]}]], "Input",
 CellChangeTimes->{{3.51608603511084*^9, 3.516086077277714*^9}, {
  3.5163747311961317`*^9, 3.5163748030654583`*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{{3.516374765843793*^9, 3.516374806700265*^9}, 
   3.516374848976339*^9, 3.5163754989490805`*^9, 3.516375538807151*^9, 
   3.5163758644265223`*^9, {3.516375947949069*^9, 3.516375966575502*^9}, 
   3.51637599953836*^9, 3.5163765213592763`*^9, 3.516376592838602*^9, 
   3.516376838919834*^9, 3.516376942590417*^9, 3.5163770361281805`*^9, 
   3.5163772591461725`*^9, {3.516377330017097*^9, 3.5163773525591364`*^9}, 
   3.5163774932869835`*^9, 3.5163775271702433`*^9, 3.516377587495549*^9, 
   3.516377621612809*^9, {3.5163777887681026`*^9, 3.5163778031669283`*^9}, 
   3.516377914426324*^9, {3.5163780537969685`*^9, 3.516378083655421*^9}, 
   3.516417858489027*^9, {3.5164179490783863`*^9, 3.516417964943614*^9}, 
   3.5164180472805586`*^9, 3.516591173107422*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0435",
     " ", "\:0447\:0438\:0441\:043b\:0430", " ", "\:0410\:041f", " ", 
    "\:043a\:0440\:0435\:043d\:0430", " ", "\:0441", " ", 
    "\:0416\:041e\:0421"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tr", "=", "4"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "\:0437\:0430\:0434\:0430\:0434\:0438\:043c", " ", 
     "\:0432\:0440\:0435\:043c\:044f", " ", 
     "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\
\:044f", " ", "4", "\:0441"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"myu", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"18", "-", 
       RowBox[{
        RowBox[{"b1", "[", 
         RowBox[{"[", "rezh", "]"}], "]"}], "*", "tr"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b3", "[", 
        RowBox[{"[", "rezh", "]"}], "]"}], "*", "tr"}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"ii", "=", 
    RowBox[{"108", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b3", "[", 
        RowBox[{"[", "rezh", "]"}], "]"}], "*", "tr", "*", "tr"}], ")"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"nyu", "=", 
    RowBox[{"216", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b3", "[", 
        RowBox[{"[", "rezh", "]"}], "]"}], "*", "tr", "*", "tr", "*", "tr"}], 
      ")"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.516086085920129*^9, 3.5160860874801316`*^9}, {
  3.5160861654178686`*^9, 3.5160861924371157`*^9}, {3.5160862636512413`*^9, 
  3.5160865646537695`*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{
  3.516374492671713*^9, 3.516374629951954*^9, {3.5163747366873417`*^9, 
   3.5163748067470646`*^9}, 3.516374849007539*^9, 3.516375498995881*^9, 
   3.516375538838351*^9, 3.5163758644577227`*^9, {3.5163759479802694`*^9, 
   3.516375966622302*^9}, 3.5163759995851603`*^9, 3.5163765214060764`*^9, 
   3.5163765928854017`*^9, 3.5163768389666348`*^9, 3.5163769426372166`*^9, 
   3.516377036174981*^9, 3.516377259192973*^9, {3.516377330063897*^9, 
   3.516377352590337*^9}, 3.516377493318184*^9, 3.5163775272170434`*^9, 
   3.5163775875423493`*^9, 3.5163776216596093`*^9, {3.516377788814903*^9, 
   3.516377803213728*^9}, 3.5163779144731236`*^9, {3.516378053843768*^9, 
   3.5163780836866207`*^9}, 3.516417858520227*^9, {3.516417949125186*^9, 
   3.5164179649904137`*^9}, 3.5164180473273582`*^9, 3.516591173138672*^9}],

Cell[BoxData["0.3604792851340373`"], "Output",
 CellChangeTimes->{
  3.516374492671713*^9, 3.516374629951954*^9, {3.5163747366873417`*^9, 
   3.5163748067470646`*^9}, 3.516374849007539*^9, 3.516375498995881*^9, 
   3.516375538838351*^9, 3.5163758644577227`*^9, {3.5163759479802694`*^9, 
   3.516375966622302*^9}, 3.5163759995851603`*^9, 3.5163765214060764`*^9, 
   3.5163765928854017`*^9, 3.5163768389666348`*^9, 3.5163769426372166`*^9, 
   3.516377036174981*^9, 3.516377259192973*^9, {3.516377330063897*^9, 
   3.516377352590337*^9}, 3.516377493318184*^9, 3.5163775272170434`*^9, 
   3.5163775875423493`*^9, 3.5163776216596093`*^9, {3.516377788814903*^9, 
   3.516377803213728*^9}, 3.5163779144731236`*^9, {3.516378053843768*^9, 
   3.5163780836866207`*^9}, 3.516417858520227*^9, {3.516417949125186*^9, 
   3.5164179649904137`*^9}, 3.5164180473273582`*^9, 3.516591173169922*^9}],

Cell[BoxData["1.3708367181153533`"], "Output",
 CellChangeTimes->{
  3.516374492671713*^9, 3.516374629951954*^9, {3.5163747366873417`*^9, 
   3.5163748067470646`*^9}, 3.516374849007539*^9, 3.516375498995881*^9, 
   3.516375538838351*^9, 3.5163758644577227`*^9, {3.5163759479802694`*^9, 
   3.516375966622302*^9}, 3.5163759995851603`*^9, 3.5163765214060764`*^9, 
   3.5163765928854017`*^9, 3.5163768389666348`*^9, 3.5163769426372166`*^9, 
   3.516377036174981*^9, 3.516377259192973*^9, {3.516377330063897*^9, 
   3.516377352590337*^9}, 3.516377493318184*^9, 3.5163775272170434`*^9, 
   3.5163775875423493`*^9, 3.5163776216596093`*^9, {3.516377788814903*^9, 
   3.516377803213728*^9}, 3.5163779144731236`*^9, {3.516378053843768*^9, 
   3.5163780836866207`*^9}, 3.516417858520227*^9, {3.516417949125186*^9, 
   3.5164179649904137`*^9}, 3.5164180473273582`*^9, 3.516591173201172*^9}],

Cell[BoxData["0.6854183590576767`"], "Output",
 CellChangeTimes->{
  3.516374492671713*^9, 3.516374629951954*^9, {3.5163747366873417`*^9, 
   3.5163748067470646`*^9}, 3.516374849007539*^9, 3.516375498995881*^9, 
   3.516375538838351*^9, 3.5163758644577227`*^9, {3.5163759479802694`*^9, 
   3.516375966622302*^9}, 3.5163759995851603`*^9, 3.5163765214060764`*^9, 
   3.5163765928854017`*^9, 3.5163768389666348`*^9, 3.5163769426372166`*^9, 
   3.516377036174981*^9, 3.516377259192973*^9, {3.516377330063897*^9, 
   3.516377352590337*^9}, 3.516377493318184*^9, 3.5163775272170434`*^9, 
   3.5163775875423493`*^9, 3.5163776216596093`*^9, {3.516377788814903*^9, 
   3.516377803213728*^9}, 3.5163779144731236`*^9, {3.516378053843768*^9, 
   3.5163780836866207`*^9}, 3.516417858520227*^9, {3.516417949125186*^9, 
   3.5164179649904137`*^9}, 3.5164180473273582`*^9, 3.516591173216797*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:043c\:0446\:0430", " ", 
    "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
    "\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0433\:043e", " ", 
    "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"MatrixForm", "[", 
    RowBox[{"MurKrap0", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"s", "+", 
           RowBox[{"b1", "[", 
            RowBox[{"[", "rezh", "]"}], "]"}]}], ")"}], ",", "0", ",", 
         RowBox[{"b3", "[", 
          RowBox[{"[", "rezh", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"myu", ",", 
         RowBox[{"nyu", "/", "s"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0441", " ", 
     "\:0437\:0430\:0434\:0430\:043d\:043d\:044b\:043c", " ", 
     "\:0443\:0433\:043b\:043e\:043c", " ", 
     "\:043a\:0440\:0435\:043d\:0430"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"MurKrap", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"s", "+", 
           RowBox[{"b1", "[", 
            RowBox[{"[", "rezh", "]"}], "]"}]}], ")"}], ",", "0", ",", 
         RowBox[{"b3", "[", 
          RowBox[{"[", "rezh", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "s", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"myu", ",", 
         RowBox[{"(", 
          RowBox[{"ii", "+", 
           RowBox[{"nyu", "/", "s"}]}], ")"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.516086623450273*^9, 3.516086650875121*^9}, 
   3.5160876413072233`*^9, {3.5160876946437173`*^9, 3.5160877272009745`*^9}, {
   3.5160884451454353`*^9, 3.516088454708252*^9}, {3.51608849320912*^9, 
   3.516088511663952*^9}, 3.5160893877642913`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"2.725`", "\[InvisibleSpace]", "+", "s"}], "0", "4.924`"},
     {
      RowBox[{"-", "1"}], "0", "0"},
     {"0.3604792851340373`", 
      FractionBox["0.6854183590576767`", "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.5163744927965136`*^9, 3.5163746300143547`*^9, {3.516374736796542*^9, 
   3.516374806871865*^9}, 3.516374849069939*^9, 3.5163754990426807`*^9, 
   3.516375538900751*^9, 3.516375864504523*^9, {3.516375948027069*^9, 
   3.5163759666691017`*^9}, 3.51637599963196*^9, 3.5163765214528766`*^9, 
   3.5163765929322023`*^9, 3.5163768390290346`*^9, 3.5163769426840167`*^9, 
   3.516377036221781*^9, 3.516377259239773*^9, {3.5163773301106973`*^9, 
   3.5163773526371365`*^9}, 3.516377493364984*^9, 3.5163775272638435`*^9, 
   3.5163775875891495`*^9, 3.5163776217064095`*^9, {3.516377788939703*^9, 
   3.5163778032605286`*^9}, 3.5163779145199237`*^9, {3.5163780539061685`*^9, 
   3.516378083749021*^9}, 3.516417858723027*^9, {3.516417949171986*^9, 
   3.5164179650372143`*^9}, 3.516418047374159*^9, 3.516591173357422*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"2.725`", "\[InvisibleSpace]", "+", "s"}], "0", "4.924`"},
     {
      RowBox[{"-", "1"}], "s", "0"},
     {"0.3604792851340373`", 
      RowBox[{"1.3708367181153533`", "\[InvisibleSpace]", "+", 
       FractionBox["0.6854183590576767`", "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.5163744927965136`*^9, 3.5163746300143547`*^9, {3.516374736796542*^9, 
   3.516374806871865*^9}, 3.516374849069939*^9, 3.5163754990426807`*^9, 
   3.516375538900751*^9, 3.516375864504523*^9, {3.516375948027069*^9, 
   3.5163759666691017`*^9}, 3.51637599963196*^9, 3.5163765214528766`*^9, 
   3.5163765929322023`*^9, 3.5163768390290346`*^9, 3.5163769426840167`*^9, 
   3.516377036221781*^9, 3.516377259239773*^9, {3.5163773301106973`*^9, 
   3.5163773526371365`*^9}, 3.516377493364984*^9, 3.5163775272638435`*^9, 
   3.5163775875891495`*^9, 3.5163776217064095`*^9, {3.516377788939703*^9, 
   3.5163778032605286`*^9}, 3.5163779145199237`*^9, {3.5163780539061685`*^9, 
   3.516378083749021*^9}, 3.516417858723027*^9, {3.516417949171986*^9, 
   3.5164179650372143`*^9}, 3.516418047374159*^9, 3.516591173388672*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 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"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"w", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"Det", "[", "MurKrap0", "]"}], "/", 
     RowBox[{"Det", "[", "MurKrap", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.51608775893143*^9, 3.5160877890550833`*^9}, 
   3.516087819646737*^9, {3.516089305552147*^9, 3.5160893120729585`*^9}, {
   3.5163733133390303`*^9, 3.5163733494530935`*^9}, 3.516373385661757*^9}],

Cell[BoxData[
 FractionBox["3.375`", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1.5`", "\[InvisibleSpace]", "+", "s"}], ")"}], "3"]]], "Output",
 CellChangeTimes->{
  3.5163744928589134`*^9, 3.5163746300611544`*^9, {3.516374736858942*^9, 
   3.5163748069498653`*^9}, 3.5163748491167393`*^9, 3.516375499120681*^9, 
   3.516375538947551*^9, 3.516375864551323*^9, {3.5163759480738697`*^9, 
   3.516375966700302*^9}, 3.51637599967876*^9, 3.5163765214996767`*^9, 
   3.516376592979002*^9, 3.5163768390758348`*^9, 3.516376942730817*^9, 
   3.5163770362685814`*^9, 3.5163772592865725`*^9, {3.5163773301574974`*^9, 
   3.516377352683937*^9}, 3.516377493411784*^9, 3.5163775273106437`*^9, 
   3.5163775876359496`*^9, 3.5163776217532096`*^9, {3.516377789017703*^9, 
   3.516377803307328*^9}, 3.516377914566724*^9, {3.5163780539373684`*^9, 
   3.516378083795821*^9}, 3.5164178593938284`*^9, {3.5164179492187862`*^9, 
   3.516417965084014*^9}, 3.5164180474209585`*^9, 3.516591173669922*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Wt", "=", 
  RowBox[{
   RowBox[{"Det", "[", "MurKrap0", "]"}], "/", 
   RowBox[{"Det", "[", "MurKrap", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.516374249442481*^9, 3.51637427453653*^9}, 
   3.516374607909116*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["3.375`", 
   RowBox[{"s", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "6.75`"}], "-", 
      FractionBox["3.375`", "s"], "-", 
      RowBox[{"4.5`", " ", "s"}], "-", 
      SuperscriptBox["s", "2"]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.5163744929057136`*^9, 3.5163746301079545`*^9, {3.5163747369057417`*^9, 
   3.5163748069810653`*^9}, 3.516374849147939*^9, 3.516375499167481*^9, 
   3.5163755389787507`*^9, 3.516375864582523*^9, {3.5163759481050696`*^9, 
   3.5163759667471027`*^9}, 3.51637599970996*^9, 3.516376521530877*^9, 
   3.5163765930102024`*^9, 3.5163768391070347`*^9, 3.516376942762017*^9, 
   3.516377036299781*^9, 3.516377259317773*^9, {3.5163773301886973`*^9, 
   3.5163773527307367`*^9}, 3.516377493458584*^9, 3.5163775273418436`*^9, 
   3.5163775876671495`*^9, 3.5163776217844095`*^9, {3.5163777890645037`*^9, 
   3.5163778033385286`*^9}, 3.516377914597924*^9, {3.516378053968569*^9, 
   3.516378083827021*^9}, 3.516417859503029*^9, {3.5164179492655864`*^9, 
   3.5164179651152143`*^9}, 3.516418047467759*^9, 3.516591173716797*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041f\:0435\:0440\:0435\:0439\:0434\:0435\:043c", " ", "\:043e\:0442", 
    " ", "s", " ", "\:043a", " ", 
    "\:043a\:043e\:043c\:043f\:043b\:0435\:043a\:0441\:043d\:043e\:0439", " ",
     "\:0444\:043e\:0440\:043c\:0435"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"wk", "=", 
   RowBox[{"w", "/.", 
    RowBox[{"s", "\[Rule]", 
     RowBox[{"I", "*", "omega"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.5160879222637167`*^9, 3.5160879667549953`*^9}, {
  3.516088011917074*^9, 3.5160880449579325`*^9}}],

Cell[BoxData[
 FractionBox["3.375`", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1.5`", "\[InvisibleSpace]", "+", 
     RowBox[{"\[ImaginaryI]", " ", "omega"}]}], ")"}], "3"]]], "Output",
 CellChangeTimes->{
  3.5163744929369135`*^9, 3.5163746301547546`*^9, {3.516374736936942*^9, 
   3.5163748070278654`*^9}, 3.5163748491947393`*^9, 3.516375499214281*^9, 
   3.516375539025551*^9, 3.516375864629323*^9, {3.51637594815187*^9, 
   3.516375966778302*^9}, 3.5163759997567606`*^9, 3.5163765215620766`*^9, 
   3.516376593057002*^9, 3.516376839138235*^9, 3.5163769427932167`*^9, 
   3.5163770363309813`*^9, 3.516377259364573*^9, {3.5163773302198973`*^9, 
   3.516377352761937*^9}, 3.5163774934897842`*^9, 3.5163775273886433`*^9, 
   3.5163775877139497`*^9, 3.5163776218312097`*^9, {3.5163777891113033`*^9, 
   3.5163778033853283`*^9}, 3.516377914644724*^9, {3.5163780540153685`*^9, 
   3.5163780838738213`*^9}, 3.516417859534229*^9, {3.5164179492967863`*^9, 
   3.5164179651464148`*^9}, 3.516418047514559*^9, 3.516591173763672*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"Abs", "[", "wk", "]"}], ")"}], "^", "2"}]}]], "Input",
 CellChangeTimes->{{3.5160881542985244`*^9, 3.5160881791025677`*^9}, {
  3.5160882708931293`*^9, 3.5160882833419514`*^9}}],

Cell[BoxData[
 FractionBox["11.390625`", 
  SuperscriptBox[
   RowBox[{"Abs", "[", 
    RowBox[{"1.5`", "\[InvisibleSpace]", "+", 
     RowBox[{"\[ImaginaryI]", " ", "omega"}]}], "]"}], "6"]]], "Output",
 CellChangeTimes->{
  3.5163744929837136`*^9, 3.5163746302015543`*^9, {3.516374736983742*^9, 
   3.516374807074665*^9}, 3.5163748492415395`*^9, 3.516375499261081*^9, 
   3.5163755390723515`*^9, 3.516375864660523*^9, {3.5163759481830697`*^9, 
   3.5163759668251023`*^9}, 3.51637599978796*^9, 3.5163765216088767`*^9, 
   3.5163765930882025`*^9, 3.5163768391850348`*^9, 3.5163769428400173`*^9, 
   3.516377036377781*^9, 3.516377259395773*^9, {3.516377330266698*^9, 
   3.5163773528087373`*^9}, 3.516377493520984*^9, 3.5163775274198437`*^9, 
   3.5163775877451496`*^9, 3.5163776218624096`*^9, {3.516377789158104*^9, 
   3.5163778034165287`*^9}, 3.5163779146759243`*^9, {3.516378054046569*^9, 
   3.516378083905021*^9}, 3.516417859612229*^9, {3.5164179493279867`*^9, 
   3.5164179651932144`*^9}, 3.516418047561359*^9, 3.516591173810547*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fvhod", "=", "1", " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0432\:0445\:043e\:0434\:043d\:043e\:0439", " ", 
    "\:0441\:043f\:0435\:043a\:0442\:0440"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.5160882915163655`*^9, 3.5160882979903765`*^9}, {
  3.516089737672906*^9, 3.5160897458785205`*^9}, {3.516343688283702*^9, 
  3.516343691169707*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.5163744930149136`*^9, 3.5163746302327547`*^9, {3.5163747370305424`*^9, 
   3.5163748071058655`*^9}, 3.5163748492883396`*^9, 3.516375499323481*^9, 
   3.516375539103551*^9, 3.516375864707323*^9, {3.51637594822987*^9, 
   3.5163759668563023`*^9}, 3.5163759998503604`*^9, 3.5163765216400766`*^9, 
   3.5163765931194024`*^9, 3.516376839216235*^9, 3.5163769428712173`*^9, 
   3.5163770364089813`*^9, 3.5163772594269733`*^9, {3.5163773302978973`*^9, 
   3.516377352839937*^9}, 3.516377493552184*^9, 3.5163775274666443`*^9, 
   3.5163775877919497`*^9, 3.5163776218936095`*^9, {3.5163777892049036`*^9, 
   3.516377803463329*^9}, 3.5163779147071238`*^9, {3.5163780540933685`*^9, 
   3.516378083936221*^9}, 3.516417859643429*^9, {3.5164179493591866`*^9, 
   3.5164179652244143`*^9}, 3.516418047608159*^9, 3.516591173857422*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fvihod", "=", 
  RowBox[{"f", "*", "fvhod"}]}]], "Input",
 CellChangeTimes->{{3.5160883009387817`*^9, 3.5160883169444103`*^9}, {
  3.516343695818515*^9, 3.5163436974097176`*^9}, {3.51637293901157*^9, 
  3.516372942537176*^9}}],

Cell[BoxData[
 FractionBox["11.390625`", 
  SuperscriptBox[
   RowBox[{"Abs", "[", 
    RowBox[{"1.5`", "\[InvisibleSpace]", "+", 
     RowBox[{"\[ImaginaryI]", " ", "omega"}]}], "]"}], "6"]]], "Output",
 CellChangeTimes->{
  3.5163744930617137`*^9, 3.516374630279555*^9, {3.5163747370773425`*^9, 
   3.516374807152665*^9}, 3.5163748493351393`*^9, 3.516375499370281*^9, 
   3.5163755391503515`*^9, 3.5163758647385235`*^9, {3.51637594826107*^9, 
   3.5163759668875027`*^9}, 3.5163759998971605`*^9, 3.5163765216868773`*^9, 
   3.5163765931662025`*^9, 3.5163768392630353`*^9, 3.516376942902417*^9, 
   3.5163770364401817`*^9, 3.5163772594581733`*^9, {3.516377330344698*^9, 
   3.516377352871137*^9}, 3.5163774935989847`*^9, 3.5163775274978437`*^9, 
   3.5163775878231497`*^9, 3.5163776219404097`*^9, {3.5163777892517033`*^9, 
   3.516377803494529*^9}, 3.516377914753924*^9, {3.516378054124569*^9, 
   3.5163780839830217`*^9}, 3.5164178596902294`*^9, {3.516417949405987*^9, 
   3.5164179652712145`*^9}, 3.516418047654959*^9, 3.516591173904297*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "\:0421\:041f\:0415\:041a\:0422\:0420", " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{"fvihod", ",", 
    RowBox[{"{", 
     RowBox[{"omega", ",", "0", ",", "5"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.51608832249802*^9, 3.516088395911749*^9}, 
   3.516088542208806*^9, 3.5160886380709743`*^9, {3.5160888670325766`*^9, 
   3.5160889096206512`*^9}, {3.516088962567144*^9, 3.5160889928155975`*^9}, {
   3.516089595806257*^9, 3.516089623199905*^9}, {3.51634370432053*^9, 
   3.516343706348533*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nc01/8XB3A+H1spPn0bEiqltDSoJM+XDymrVJRKg0RlhFKIjMxSZiiR
kcrIHsnISpkJoYxkVdYbH3vk53f/uedxzj3n3j/uueeuNbhx4gqNjY2Nk52N
7f857J4B107DuwrO8/8PCiV14hqnxc/g/p6bplMLni/Nvy8ufg18p9RSuxcs
4J+ZzNdkhfqvMV9LFhxW8EiMU9wW6mk55UEL3koZPp43dsRYVGPYuQW3CoT/
m210gXr3WXXGgiVe8cpOz7jh5pncurx/FEwPWptNiHmh6o7n3nMLTqtvfzmq
5I3WY/p3+uYoTJtotAwb+4Dp/i/AfMER7C1eE4f8oHBi2+OuWQrKVX4bxhv9
8deuxkhzwX9CDheOXguEgna7aOwMBW/DOT3WzBOk5VzPmpimUDdzNXBI7Cme
Kvs/NpuicPuTqDSV8gxJiZlfAicpCAfUVwwoPUfwDsPxxAkKBlKE3mf8AmZS
OtM5YxRoM3ZfRu0joOxb8SNxlEJ9u86a0UOR+PFd+nUgi4JNAn/2SGMU4qVW
8e8fpqDm38M1EhENGSG7VxMUBRGbQu3hay/xzddNJnaQQoHSnSFqJgar9jD3
dvdR4G7ukBwQi0V4xz2+wm4KTQV51v1/YqEqU3l/RReFuFchxX0pcYg+Lcuh
30HhqNXRi71KCWBmx22oaqMQxPs+6LdxEqy74hX4Gimk31GzurkyGU3qXUpT
9RSe9+5dxbJPhlx339XmWgrmNULGI4dSEOGrIW5bTUHo+WfacGMqdnYuiRP+
SGFGIDPWQj4N++r6haKLKHQ5R2sNRaSh58HtbNECCpnG98Kpa+lof0mrod5T
OLt7j9zgTAbcEz2eTSVRiCx/Ydknlo3p3B3RScEURkMypH56Z6OoeURDMpCC
inFFZ+1UNm7VEi1fXwr99Amd93XvEehQeU/Wi8K+g0flvDxyoX8siNTbUqhJ
mqVJUh9Q2C5df053YV7wXli8vQAmxiJO/ScpHNgYKOdhWACdyaf/zI9ReDwa
y7L7WgAZNq4nqioU9vh9u2IQX4gzriKrTu2m4Fi+VW3nxWLYfzh2pp6PwpuU
rI3xT4rhOmem7c5JoTaESd9QWYzhY1SaFNvC/hrr5q7cX4L+gA+f1MYGUU53
3c7G+IjbFpN6f9sGsfxgs9CX0lJ4/XyiG5s0iMQkr2bT7eVgF/iT5nx4EL1C
vd5q+uVYX27ewqc4CMnbagqbAssRKqd5wUtuEBHy/JGdU+WoeGEdZLRtEP5l
3kZnP1bAgENgPEpoELc7fYYP61UhhRbnubV5AC/4K+4LHqqBV1yCSLXhAIzx
9Wm/VR3uLpl9+1GvH2xR4++bH9ZBaHf5kKR2P0I4RFrKX9bBwjM81UW9H5/L
jERjG+pglsD6tVauH5u0Z6OuyNUjefqOLM+Kfvy5KpnQxv4NsWyb5u596cN1
f4f8Gt8GqBVOtBgf6IN59+bO9MTvkNjUlVfM3gu+ta6SP/e1Y0tgotnGdb/x
eGmFVOSlTkhnTCdL6HbBoFn7A72yB80hrJJ9Br9g+dHV4IZkL4LnrAL2n25F
isWikytVB9DqkmL6pKQJkXdNeqVPD2FwicqHDdfr4fJi9vho/zBmStR+WA/U
QEv6neUW1jD0So5FtbbXQLTwpp/B1DBSM1f4aNbX4H1Hb00N5whsnd5VHsqp
wciG78feio4AAe98gr1qYJCQoWmkNYL4pVs78iRroJhtrtqUNoLdXenPOOqr
wVbXTnLtWDiR66Dhzl8J17/5kXbOLBTWuV03Ha0AL1sYbb8nC7M3/lCXWysg
tO1MScYTFhqOnxXwSKrABo+vh5OSWVh+lefNc+0KqB0oOhrVwwLdQTlxLrIc
AdHRep4nRgGBjUJnVMuw8ZaRjbbUGOq753jtPpdim9zPky+kx/A6vn1ldmYp
9rDp7uiVHYNp8fApzphSML1VexyVxuD8T4/50bkUF15u1Y7XGwN/6R1ax4FS
BNWP7KD5jGHs2hpPz9SP4JRx/J3EGoPjKpUk7dgSdI0Fn+LPG0f7p7RTSjlF
iFLcfbO1eBxX5NI9T8cX4eKjap+k8nF8jW2l2YYW4YcEZ9nJpnFs8JeM67xb
hK8nrQ48Z43jJ/HMP3WwCPkpGuLbpCYg5/i0Ib6oEMFm7L1HgyfQPyy96mtD
AdS6rzv4W06iYb/LCmGVfKg4rE9QtpnEjj/Hpqq35oP5X8uP8XuT+DmzVewp
Ix9yhzT3nfOeRJyz07jprzxIxexgrX89iaCxjYKC9/LAf2X0akbLJCy8Q2bl
c3JR2eWg3XR4CpFbS+0ylHNwtMt3i6joNGRdVWRqfd+hcktXvZ7ENA5tuKmW
7/AO6jf33guVmkbKTY+A7OvvcITWVrNy7zS6UxIDWpXfgSm+5TZDaxoNv88s
/jGVBRm9jwU8LtNgLIrgCjXKgkj9lA6rexoWgttNKbVM9BYbOH1+O4PbQbTT
D+TTIebXdP1x+gyGQlx7Q7ekQ/vCUR3tnBn4Frcp5AqnI39yv1T75xnESohM
bppKg/82wfqJzhk8KU3WSslMw4HgD5KSwrPoGmdrtNqTBu/rIl/c3GexT/lY
v6FcKrYLNqxRujiHvev5NBzNktHzqMflyZU5PHb9/q3iUjLC+CZ+/zaZg8X6
z7nrtJOxiGNlqrfNHLQH1J0ouWT0jp9RafCbg/0BZRadNxkxLa3m10rmIPLE
1Wfd0SSIvOn+4LP5HzbIbMnn/fYWfBjTb2H9QxZf+/P9wvGwUdzEkzn9D1rj
Z9+V0ePRo3Qu0Yd9Hrdti6PMBuJQdKRwmrlkHjdcL4UNFcTB7sSjgFipeSxt
XC//62oc+q5s+Hhbfx6b84Q7z+fGotJbZ5Pgl3kY0A8OaFq+weGBsxPrdNjI
+FhAt+OSVwhfdr/OUZeNbFLLyKufi8HogfiklnNs5JxP39d9/TGIeDBjHGTA
RoqGzGy2l8VgWvJ5E68FGzlcsvdQ9f0YJBi0Zg89YCM+tjtRP/MSS5su2ucX
sBHpHS1CL8aj0VRkyH52KzuppOsKOi6LwpDiD2GHHexkpcH61N3cUeAuPLYn
Yhc76QhyGxyZioTsBznjnn3spCwse7nfz0gE5iytsjrETvzJxh3q8ZE4lp4b
8vACO3ESmfybqByJ0phl0nm+7KQqdKf61L0IZHiWXBAfYyeKTMvgBLFwvFGr
WOkxudBfL0llEU84ni2qrR2YYSef5VV3OQ2Fwcn3p0oOjUZaLTysXxaGQSNk
evuppTRSQPdPbjEMQ8dr6fmHW2jkhMnw8dnE5xD49PzFhD6NKFd4n753PBRG
nNbt1dU0cpJT7ONQRQiExcoaZ77SyApNDsM170NQvW/Nl03faGTgv47lum9C
IGv6Mc+lmUYe5yh7TbiGgKvuv1DZPzRieWuxbqtCCGIiMnXC2emE92GjrVxG
MLoOTJab7aET7rR96X3xQbhsdTdj0TM6YXH37qnJD4TsrraMzWF0IuyXdulW
ciD4RkimSgSdTObsclsfFYhkS64sp1d0spPHMjDKLRCzFn7vRlPp5Of7G7Xr
NAMRdON1TksFnRwu2rRKoi0AZaZ1hQlzdOLnqJo9wB2AHcZbqjX0Ocgp1V+J
dTZ+aLsmduOtIQdpVhk3HTHxg7cpY6nAVQ6SvyY1ZfVFP/y1nDn+xZyDaAmt
jHu08FdG21d8O27PQVo+a+gMCvlhhb9J66lgDiKeYfDqWZIv5nPj+y9VcZAs
Hd5vRe0++CK0ld96PydRbVccjFn9CApmZn9D5TnJWuWDm7h4HiHxU+KnInCS
JRfURKxHvfHYfqfrUhVOcp5RSnOs8oZGj+xc/AlO0t+dYa/o5I3ybEWqw4ST
/Bza9uv2n4f4eOl0nVY4J7E9duHMyeIHyEl0Cd1K5yLU/LiXZYQnuDR0hIO5
uMjrwV7tiseeOP5X8ik734KN5MluB0/8Xl8V1LCUi+yar1PZdtYTjKcr/J1E
uYiT6sn8z8s8YXI/wbN+Pxf5Hrzxi7+3B1brNljbW3CRTtUZ27Xu7rjLLqVV
2cpFGt/GyOeEu6JHmb9p4y8u8tIxJtLd1xVanv0Xnbu4CN0jb07PxRUSS5Ju
yPZxkfvNh25LGbmiUmSPT8QkF9GJHzU+vN0VovsUqm8xuMmp3w8NnAvuo8j8
hMYaVW4izQr9l9XvAr4WuyPm6dzkb/hOuXMGzpC9E7vYJ4ub7JFff/r6aWfo
CzXVJr1fqLf7Ju2s4Yx3R2TODxdwkwRdV1qprDOMMijLW1ULFjhvE8/vjMLH
hqF2PdzkVWikZ3um08K9OjrovpKHmDcILa4QckL3q7WBL+x5iJ9X0Ku2fAf0
u/6aojvxkL15/+6NxzlgxCDy4tX7PKQuKlt3TbAD2MTWbtn5gIfEvLZpC77h
AOFg8aKiYB4ilpX3XWGtA7Q8xIa6U3lI32LFP6oe9sg1XqOx9S8PUfvHocd+
4S4CN63iyNbhJZ2OL8vu7baF3oWNrzt1eclqyTiXZRK2kAjcrSagx0ty/Vra
05fZIn1e0/eyAS/59tXQ9L9xG9Q3uIgI3OAlUg+K2rSzbcBw699z2ZOX6A/u
ly9VtIH/rw9XFufwEp/uWg/5s3fg+8zok744H3HOz+f7/toaZwPPVy/6zUfW
Pdf/9ifLCpPKMVMv8vlJeK7O2jJuC3R2M22KPBYRu3WLd5bVmiDq4M7VVfqL
iXFy0K+6QWO8dbMWNN4mQPgFW/jrvhvCQ+eyOn1MgCTcoo23MQ0g0xIZ61G1
hJxflalpmXURIZtD31apLyVHBF5ti/55Do4Fj0LUs5eSv26pF7Zo6EJztU5M
uYQgmf9um8RS1YGi+adzgl6C5I4+T//TlhN4IWIgUTkmSOzzYnZVBmpBovh1
0NFzQiTr8KXlWXc04butSKo2X4hwda0MXKehBiMWx9cyKQaJVFTO7FA7DIOU
EXEvHwYxm/M/zNmoDFOXk7NqfgwiJshbV1ypDOuT6Y2LAhiER1N6m2eRMjzH
rB/7BjFIokKxwrpEZSTun5oJDmMQhnrXjVA3ZUwVzje8imcQiSPfv4fLKMO3
dtGjkk8MsmIlrabmqRKeRZtddS9jkLUVOTJMXyVE36pWOlLBIOKm7pPv3JWQ
udx3uqKaQeyVP3hk3lRCy1nG1bpvDNKWdMZ8WFMJkp2rlDo6GWSCZFtcpitB
Ot1O9GU3gzRce/rf5mkm5Nyap678ZpDtkec7WENMaEiGJf/tZRCXouCekDYm
rEzERYeHGcRymQ3E3zNhL+88lcpiENf5xWUCKUy4Le6ovzXGIP3BVZdob5gI
SYp+ODnJIA+WrUicfMJElBOH8ftpBolfq3l+xpuJ+ONXmPazDBIkxSlAd2Ui
fV3pGoV/DCJULJy35C4T+ayNU/PzDNKRaGK81oqJ/wGQ6/cp
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{546., Automatic},
  PlotRange->{{0, 5}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.516374493108514*^9, 3.516374630326355*^9, {3.5163747371241426`*^9, 
   3.5163748071994658`*^9}, 3.51637484938194*^9, 3.516375499417082*^9, 
   3.516375539197151*^9, 3.516375864785323*^9, {3.51637594830787*^9, 
   3.5163759669343023`*^9}, 3.5163759999439607`*^9, 3.516376521733677*^9, 
   3.516376593197403*^9, 3.5163768393098354`*^9, 3.516376942949217*^9, 
   3.5163770364869814`*^9, 3.5163772595049734`*^9, {3.5163773303914976`*^9, 
   3.5163773529179373`*^9}, 3.5163774936457844`*^9, 3.5163775275446444`*^9, 
   3.5163775878699503`*^9, 3.5163776219872103`*^9, {3.516377789298504*^9, 
   3.516377803541329*^9}, 3.5163779147851243`*^9, {3.5163780541557693`*^9, 
   3.516378084014221*^9}, 3.51641786009583*^9, {3.5164179494527864`*^9, 
   3.516417965302415*^9}, 3.516418047686159*^9, 3.516591174169922*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p", "=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{"fvihod", ",", 
    RowBox[{"{", 
     RowBox[{"omega", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5160898890711718`*^9, 3.5160899559640894`*^9}, {
  3.516343711824143*^9, 3.516343713181345*^9}}],

Cell[BoxData["0.8835729338221299`"], "Output",
 CellChangeTimes->{
  3.516374493155314*^9, 3.5163746303731546`*^9, {3.5163747371709423`*^9, 
   3.5163748072462654`*^9}, 3.5163748494287395`*^9, 3.5163754994638815`*^9, 
   3.516375539259551*^9, 3.5163758648165236`*^9, {3.51637594835467*^9, 
   3.5163759669655027`*^9}, 3.516376000006361*^9, 3.5163765217804775`*^9, 
   3.5163765932442026`*^9, 3.516376839356635*^9, 3.516376943011617*^9, 
   3.5163770365337815`*^9, 3.516377259551773*^9, {3.5163773304382977`*^9, 
   3.5163773529647374`*^9}, 3.5163774936925845`*^9, 3.516377527591444*^9, 
   3.51637758791675*^9, 3.51637762203401*^9, {3.516377789345304*^9, 
   3.516377803588129*^9}, 3.5163779148475246`*^9, {3.516378054218169*^9, 
   3.516378084061022*^9}, 3.516417860673031*^9, {3.516417949499587*^9, 
   3.5164179653648148`*^9}, 3.5164180477485595`*^9, 3.516591174607422*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"omega0", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"shag", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"While", "[", 
  RowBox[{
   RowBox[{"shag", "\[GreaterEqual]", 
    RowBox[{"10", "^", 
     RowBox[{"-", "5"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"NIntegrate", "[", 
           RowBox[{"fvihod", ",", 
            RowBox[{"{", 
             RowBox[{"omega", ",", "0", ",", "omega0"}], "}"}]}], "]"}], "-", 
          RowBox[{"0.95", "*", "p"}]}], ")"}], "<", "0"}], ",", 
       RowBox[{"omega0", "=", 
        RowBox[{"omega0", "+", "shag"}]}]}], "]"}], ",", 
     RowBox[{"omega0", "=", 
      RowBox[{"omega0", "-", "shag"}]}], ",", 
     RowBox[{"shag", "=", 
      RowBox[{"shag", "/", "10"}]}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"omega0", "=", 
  RowBox[{"omega0", "-", 
   RowBox[{"shag", "*", "5"}]}]}]}], "Input",
 CellChangeTimes->{{3.5163435178690023`*^9, 3.5163436794072857`*^9}, {
  3.5163437220577607`*^9, 3.516343761947031*^9}, {3.5163438643456106`*^9, 
  3.5163438797740383`*^9}, {3.516372786427702*^9, 3.516372865644641*^9}}],

Cell[BoxData["1.7243850000000005`"], "Output",
 CellChangeTimes->{
  3.5163744936701145`*^9, 3.5163746308723555`*^9, {3.5163747377013435`*^9, 
   3.5163748077766666`*^9}, 3.5163748499435406`*^9, 3.5163754999942827`*^9, 
   3.5163755397899523`*^9, 3.5163758653469243`*^9, {3.516375948853871*^9, 
   3.5163759674959035`*^9}, 3.5163760005367613`*^9, 3.516376522295278*^9, 
   3.516376593774604*^9, 3.516376839871436*^9, 3.516376943526418*^9, 
   3.5163770370641823`*^9, 3.5163772600821743`*^9, {3.5163773309686985`*^9, 
   3.516377353495138*^9}, 3.516377494207385*^9, 3.5163775281218452`*^9, 
   3.516377588447151*^9, 3.5163776225644107`*^9, {3.5163777898601046`*^9, 
   3.51637780410293*^9}, 3.516377915362325*^9, {3.51637805473297*^9, 
   3.5163780845758224`*^9}, 3.5164178612970324`*^9, {3.5164179499675875`*^9, 
   3.5164179658640156`*^9}, 3.51641804823216*^9, 3.516591175076172*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p95", "=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{"fvihod", ",", 
    RowBox[{"{", 
     RowBox[{"omega", ",", "0", ",", "omega0"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5163436706244707`*^9, 3.5163436719036727`*^9}, {
   3.5163728835690727`*^9, 3.5163729252991457`*^9}, 3.516373024967721*^9}],

Cell[BoxData["0.8393931907982323`"], "Output",
 CellChangeTimes->{
  3.516374493826115*^9, 3.516374631028356*^9, {3.5163747378261433`*^9, 
   3.516374807901467*^9}, 3.516374850068341*^9, 3.5163755001346827`*^9, 
   3.5163755399147525`*^9, 3.5163758654717245`*^9, {3.516375948978671*^9, 
   3.5163759676051035`*^9}, 3.516376000661562*^9, 3.516376522404478*^9, 
   3.516376593883804*^9, 3.5163768399962363`*^9, 3.516376943635618*^9, 
   3.5163770371733828`*^9, 3.5163772601913743`*^9, {3.516377331062299*^9, 
   3.5163773536043386`*^9}, 3.5163774943009853`*^9, 3.5163775282154455`*^9, 
   3.5163775885407515`*^9, 3.516377622658011*^9, {3.516377789953705*^9, 
   3.51637780421213*^9}, 3.5163779154559255`*^9, {3.5163780548265705`*^9, 
   3.5163780846694226`*^9}, 3.516417861328232*^9, {3.5164179500143876`*^9, 
   3.5164179658952155`*^9}, 3.5164180482945604`*^9, 3.516591175123047*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041f\:0415\:0420\:0418\:041e\:0414", " ", 
    "\:041a\:0412\:0410\:041d\:0422\:041e\:0412\:0410\:041d\:0418\:042f"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Tkvant", "=", 
   RowBox[{"0.1", "*", 
    RowBox[{"Pi", "/", "omega0", " ", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"\:0433\:0434\:0435", " ", "1"}], " ", "-", " ", 
       RowBox[{
       "\:043f\:043e\:043f\:0440\:0430\:0432\:043e\:0447\:043d\:044b\:0439", 
        " ", "\:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\
\:0442"}]}], "*)"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.516373076057811*^9, 3.5163731523195453`*^9}, {
  3.516591167576172*^9, 3.516591168841797*^9}}],

Cell[BoxData["0.18218626661620185`"], "Output",
 CellChangeTimes->{
  3.516374493857315*^9, 3.516374631075156*^9, {3.516374737872944*^9, 
   3.516374807948267*^9}, 3.516374850115141*^9, 3.516375500165883*^9, 
   3.5163755399615526`*^9, 3.5163758655029244`*^9, {3.516375949025471*^9, 
   3.516375967651904*^9}, 3.516376000708362*^9, 3.5163765224512787`*^9, 
   3.516376593930604*^9, 3.5163768400274363`*^9, 3.5163769436824183`*^9, 
   3.516377037220183*^9, 3.516377260222574*^9, {3.516377331109099*^9, 
   3.5163773536511383`*^9}, 3.516377494347786*^9, 3.516377528262245*^9, 
   3.516377588571951*^9, 3.516377622704811*^9, {3.516377790000505*^9, 
   3.51637780424333*^9}, 3.5163779155027256`*^9, {3.51637805487337*^9, 
   3.516378084716223*^9}, 3.516417861375032*^9, {3.5164179500611877`*^9, 
   3.516417965957616*^9}, 3.51641804834136*^9, 3.516591175169922*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ht", "=", 
  RowBox[{"InverseLaplaceTransform", "[", 
   RowBox[{
    RowBox[{"Wt", "/", "s"}], ",", "s", ",", "t"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5163731554551506`*^9, 3.516373156203952*^9}, {
   3.5163731948256216`*^9, 3.5163732020172343`*^9}, 3.516374013039666*^9, 
   3.516374301290577*^9, 3.5163744371980157`*^9, {3.516374549580613*^9, 
   3.51637462187114*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "3.375`"}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "1.5`"}], " ", "t"}]], " ", 
  RowBox[{"(", 
   RowBox[{"0.2962962962962963`", "\[InvisibleSpace]", "-", 
    RowBox[{"0.2962962962962963`", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"1.5`", " ", "t"}]]}], "+", 
    RowBox[{"0.4444444444444444`", " ", "t"}], "+", 
    RowBox[{"0.33333333333333337`", " ", 
     SuperscriptBox["t", "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.516374493904115*^9, 3.516374631121956*^9, {3.5163747379197435`*^9, 
   3.516374807979467*^9}, 3.516374850161941*^9, 3.5163755002126827`*^9, 
   3.516375539992753*^9, 3.5163758655497246`*^9, {3.5163759490722713`*^9, 
   3.516375967698704*^9}, 3.5163760007551622`*^9, 3.5163765224980783`*^9, 
   3.516376593977404*^9, 3.516376840074237*^9, 3.5163769437136183`*^9, 
   3.516377037251383*^9, 3.5163772602693744`*^9, {3.516377331155899*^9, 
   3.516377353697939*^9}, 3.5163774943945856`*^9, 3.5163775283090453`*^9, 
   3.5163775886187515`*^9, 3.516377622751611*^9, {3.516377790047305*^9, 
   3.5163778042901297`*^9}, 3.5163779155339255`*^9, {3.5163780549045706`*^9, 
   3.5163780847474227`*^9}, 3.5164178616090326`*^9, {3.516417950139188*^9, 
   3.5164179660044155`*^9}, 3.5164180483881607`*^9, 3.516591175310547*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ht", ",", "1", ",", "0.95", ",", "1.05"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1.1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.516373215277258*^9, 3.51637321657206*^9}, 
   3.516373247928115*^9, {3.5163736000529337`*^9, 3.5163736189289665`*^9}, {
   3.516374016674472*^9, 3.5163740438965197`*^9}, {3.5163748121602745`*^9, 
   3.5163748452011323`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt13k0Vd8XAHBTKuNDmXnveaaQolHF3okGlQwpSUREhSLkayghZEpShkoi
JCVKI2VImUmIpFKGMr1rHiu/01q/+89dn3XuPWfvu8899x6m/UkzRy4ODo73
nBwc/87Ko6FZ3Q6Rehz/P8qbGLv2M46B6B7tA3QbU735d6+DGYz/4Dj/cyFb
4/N6QnFP8/jaguCoCdvVQPqm3s2SaPoCxkV4/FcvtmBFvp4G5RAz73QJhKjA
F2UvSvS+CKX8/d0aB4mGqoF2dbV6ipmL187OXYU8GbaTWvVHPRddL9cpehLo
hkX/sR3r1Hvc3HlnfMsNUNtxytNA8Jfe7IldHSNOt+BRXLzT5VPDeqmcHRen
DG+Dh83eB5b1E3oGdZeVJlvToPrK7oXn1v7W+5W4rXT82B1I985eeOMbJ0Q5
/LEem8sAgfNK9trACytXPp4eic4CukG7SrUBPzTNOccP07OBO8lF+3wADbwr
5FdS+ffA9nnnX9WnYiB9pblmaMt9SNyqsCjEVAJe20Q4DbY8gO9H3Jdl7pUB
ezXkHnB6CG7OMy8uldOBa863Ydw/D1hN01/EzRWgudNCbtwwHzo+PVqwfF4R
fO7zvxhtfQSctqLLH4uqg1FcL+9o6mO4zTCYqTurCbI+pXtHjhVA9QOnT2US
WsA+dCNtWPsJVA/ZH44SWwUlW84MU3NP4GNaK3xdtQbilpnpUeVPoUClNaf+
v3XgILw8ih39DCi3TcdO9urAws8/VIboL+Cy8HeOsXUAbSWvvAZ/vQDt+HV1
7sKb4V5m4puB/JegJ5InYJKoD8Yexrb9W4oAhUxLVw8aAsNy2YM+gVdg6J+y
Quv5NhjV5Zn71fIKfqjoR5+7vgOuLX557adTMShny0X9zN4NBWeMPE5LlkCg
SE5Pb8seuNG/TmrMvwRCVt5uPi9oCm7vRZ1GDUuh21MzVek/cxC9Uck10loG
f+UZEibDljAn9DT71KY34O/vI3rllBV0n083GU59A3mcdVOc8wfhqdPZFOpY
OdDTvicwttnCrfYThifry8GgJtXsWuBhCN99YJCt/RZcjNamCznagdWq1RvY
c29h3ahG9gODI7Alk/nd9fA7UHJvos2DA2hICYcPlb8DmcP0ZZJbHOHv376W
wegKcN0auGb0sBPcrr7lPkCvgr3XlNwd/pyA8cQnat+iqmDhZiEznr2usNWp
puvDTBUMNJ3c71/gBoPcUxYvm6pBN+ZnVkbVKViva7zhYlgt/KJ1vDHrOQ2R
/A5j/uO1wBW10lXphSd8/fTf/VN2daCyfevC1XFeEOKdIW+5sR4cqx/uUN17
Bt4//M2lQjWAokmz9z5JPxCFxTaCmu+hJiC1ekzcHzYqx28Ic3gPhUI7fAVl
AiBmPHvMt/E9GG3P+tS46hysvtziaJ/TCO4OfjzqzefhXLWGkZZtEwhW3J7V
aAyFu/nPlHOuNkHu9yjB6oAw+JCoz61U2wSnDm7SM10eDopOlkWSOs1Q2SJw
TenqRajmDtHkEGsBbv3v3uLhUSCu+1m04d1HuL8VFNXOXgZUPEpt//MRDocV
CikNXoZj/CM1ZataweAk2/rWwTgo+sR74WlqK0wXL7cUgytg7609ddO3Df57
Wao5L3EVch9e/Oyi2Q5J7tnuv0WSoF+0P8rIrh2UFTqrRC4lgYq3kZ5qfDs0
MEUZ3oLJkLqJ/3bXTDscjFrNry50HeKqoo5avf0Mn3/EBAL9Jnh3XRrZZv0F
ajaWSv4sToVb/DXBIoad0FRcJJBzPQP0dP2sA206wf/1u7l37AzocFNfQ53p
JPPtaV6QfiZIfojsrb3XCc1TT7taBzLhcuKuHeG07/AdDXazDe9CsFK90Pzn
76DkExzkIpEDTtCYNOjRBVNzEjdWXcsDjrTJl58ju0CgMUTYuDIPEnlkO6rv
dEGy8/mpB7N5UFl1VD77YxekDxQv1T2cD6p7f6c5buiGXpFjPJc1H8EvZ5X7
Xzl7oGFCbbKx9TEcjwt4/T62Fwwmjgc/sXoGbj3Lugpy++BBVwqDTSuGTptP
i0qr+iBrOO/tjf3FYN4WrlnX3QeOen5qoSnFsL7m53890v1AH/rvTbB4CXDn
Z9DEw/ohlGfY2TqzBBL9mXpnbAdgXmPm68aaUigVk0rSoQ1BAf/L+I2q5cDH
DFH5tn4Y5geb8pNZVRBDq1G7fXgM/pwPL7oU2gj2n/cWc9dOgtZcFf0nrRXc
34bYn1SZBfbqNba6Th2Qf0rAXHLHH9i/5Npz3kudcNvvRP/K/RwYds7FZ3nf
Dwi69dt0fJATs6MMaQ0/uoGjqROLfLnxU5ZSFNf1XlD2POqzV20B2j8sNLXa
+Au6JxL28b/ixVTOKHuri32QtnnV6S9veNGhXf9ufEwf2EbXX3pYzYtqfDfs
aq70QbvigirzNl5svy23RjOlDxrNPTbeGOPFBp/u8KpHffA6fxdjudpCfNaC
2paf+yDBlbPfOGEh5ihqq3Qu6wejnuMBce6L0GE6Ye9IUT9sDWDdN/BZhAd8
T/BhaT/oL+1onzy7CCWP2hREvu2HDYa71x+MWoSH7uX1S9X3g1rGijFW1iLk
WOfJL/qtH/gdx52fdCzCPD1Hdw+OAajtDtjbtm0x8jUc9PyLA2DcHasuL8+H
bWNPbiW+IO3q3c3Winx47zXDfbRoAHaeXnf2uhofbvN4M7yjZAC2c319L7mO
Dy3sEuZH3g2APkPdW8yED0X7SgKUmwdgjfXbkkVBfKhs1CKowB4A2eYZi7Ee
PjybWsLpwhiE/jf2gZUP+NFd69nDmLODQL/cdjymgB/dqo6aJZ8fhL02xhZ7
C/nxm4zM1fSQQXg9raPWWcmPrz+HcTyMGIS45SLNU138WH1MLCn72iBsTChW
UZEWwPviV2RX5A5C1HHZhguhAsgaiXx04fMgaIp8lNtiK4if7m/Mz18xBL3R
vUFXHQXxZfsPfV7tIbjJN/Xz5wlB1BHNFD2weggEeCQfRfkIYrPw6KmZ9UPQ
P3lg68fLghiemrZNSX8IMjq+uB0rF0S2kOhetb1DIHu3p/jSMiEcMW0MG/Ee
Aj6YsOsYE0I/8bMdD58Ngc9m1UVPZ4Vwve/JsLcvyPhbDuZe4hTGp28fuH8q
HIKy7aWz+sLCKLBNefHv4iHwNYu+kq0mjD7BZ5w0KodgwFHprbedMJo08Mxt
aBuC2igLVZEGYfS6Z64iOTUE24asphQsaGj807ls6Uo2pCwJbjpnScNDGq94
XmmxYXxjzsOOgzQMFBHrtF/FhtSIOadr9jQ0bJl0vLeWDbMqN9oWn6LhQq8f
Naq6bLhv/+XFcAQNG2a9fnXtYAOtzdb/dQkNIz7mhFrZs6GtzIHTSkMERWol
fAIvsWF4c7t0wAoRZCjSOYtj2bCwdM/qVG0R9A+gh/++zIa1xRuceteLYM/5
2TjPeDbEF9LqPAxFcKgxKs8yiQ17CooSI21EkKPH9MFIGhveZSxZ+SpWBOeb
Pe+eeMKGJ+HlNowJETSTeCub2cqGu0Y1kmHTIjjXu8KnuI0NyQIfPgzNiaA+
42Fr6yc2BMZ+21rIJYo15xmZCzrYsCtxVnMfTRSTlFQTLDrZ8CNr5Xykuih2
xlf5Vvxig1DFjVtTdqJ4tHLw8fQ0G44u8OqsrxfFx4PKMS/FKZCmV7XONYqi
z7VwoSgJCurXyzWotoiiQqlLh7UkBWtd3r4K+iyKf5hD9r+lKOBtWnp97S9R
9OUQVFslR0FG6lOLFE4x7DkUIRXIoqB743S162oxdDewWnl9BQVHPPyeCCSL
oYfnx7ujhqQ/7a9Plt0UQxO3LXsSt1LAN4pPt6aKYXaa3DHdbRTkufM+C8wU
w4TTLdMXtlPw+9Tl5+OPxJCr7Ug8bScF105mFXbUiKFiYriMgAkFVS5Npff/
iOHj6Jp9tw5QsMJJvX6X3RK0k7kzsesEBV+P0U8+cFiCB3+ELvhKHOUiRhNy
XoJD++ai3Vwo6HOfM21wW4J0qdN8Ma4UpPvXtJj6L8HafWdfvztJgUTciS/7
Eki7easP3ZOC+aKcwcN1S9B6/qKZuz8FDaIa/F46SzEm1McyN5ICPVfXvuub
lqK5he5eqSgKcityK8qAtH/xHQkmjvHXCqFtXYrGeF3EMpqCXb1r/+SYLcUw
4BqZi6Gg+sVm6seJpfiqdvkp7TgK3h7e32SSshTLyxWCrBMpKMwNuq7BLY4n
T7fUFKSTeuyykE7gFUdxo84EkTsUmPapJHHyiWP7Yg4+N+KfrLprH2niGF9b
+V0pgwKxJIm4QHlxhHf/OV/OpOBE8P3wZh1x/KO7Q8oymwIZy49e/qfEMeU9
Szszl4KjE3fHe0+Lo01+08Fp4vw4v9OmZ8TRtuL4GqOHFGyrY7grnxXHqdgz
M4PEp/VPuLyPFMf3ibJ1mvkU1GhwHFHMIv2v2v0j/TEFfpxqJrVfxLGCZ/8T
i+cU9Brwtyl/F0dGtsiSm8Qm4YO257vF0ZwuqdlNrCj88OTaAXF8cZ/nqvsL
CmplV19KnRZHxydr1lx8SYH8er16TzEJ3NcsNpFTREGZm9kuuR0SOJ3UK1la
QuZXh+92twIJ1Pe95L+2ksy/M9mCl55JoB7dsfA4sZ1o24eHLyXwTkJDdQrx
8+1rDo2USGDu+4XWvFUk/yeUu2edBL66f25XE3FpjMN1314JdFAbDXeoocj6
Z8wOlZTEIqf9IY71FNzp8H+cJSOJO4I0WPHEDWdyfCrlJTE19GxCGbFy7iJu
PiVJHOXS5KQ3UNAk/UYiWksSc5a87Wgh1hxft/mKkSQ2+pc1b2ykoCeTGX/L
XxI/VO0r7WuiYDDk+wx3oCQKiNV8FG+mYNT+tq1zsCRa0n2KtxBz0JnqWhGS
eNRRhf8msXQCo6wsQRJpfmdjd7eQ5xtGH+55JIlX/fPOZH6koMhJbpdGnyQ6
MSJa1n+i4I3hl/zYQUmsvLg07TBxNeumxAQliRvv9G0NJ279Jtv1apLk68Mj
3Uo8ul/Wdw+PFMr8UO33aKdAdbvMXQ+6FC5d/9Us/TMF8apSPC8spDD4eJrB
ry8UWNsoZ3VZSuGmqk8Ci7+S+savMhKylsIFv+2fLiMumN8de8ReCjtjPz04
Ttz8MUhW6KQUbtY8oDVALHZhcPWRcCmsHLZP6/1GQdz3YkfBQincSmf3VHyn
IDb5aIUdQxqXPM7w1Omh4Ix30Gl/ljQKX7jTbkZsY5ZCT1CWxoJKpWUuxBp8
H8/UakjjzjTuwBTiqv8MVdfpSKP7bU8Jrl4KuA4oXhQwk0aVMq35cmIviR9G
z4KlcevdZ3obfpF8xv5MNoZK4+CUU4cJsUGDVPrgRWl08ZVydCIWDTOdY8ZK
42h4zbp44tzJkpyoG9Iob+nTPUj8q+WWgP0TabSNUDyR3EeBVfyheoGf0qgc
JnC/t58C2cd8Mif6pdFPiAr6Tfyt8ZlT1ZA06oq93iI6QJH9qihn6Lg06gv6
BOsSu0W8WzXPKYMrUwr+xBEHBa5IGpGVQXejFkpnkIJsF06Hj2YyGFPaauUz
RIFLZG7e6n0yWFb/JCGSWPPewT9xB2Qw+4FQaQrxo59Pru05LINBzwI+lRMX
2R+vqnSVwdXdR1k0NgXvLZs0C8Nl8NnSdvV04mmDjJlbr2XwhLPxpUKKAv/C
W8HlpTLYxgw9VEPMoZ0s2FdO4nv8XPYz8UL6JaZ2jQx+rTN0myUWn/HZUd4q
g6cNz9uuH6Zg1YNdSb+GZXDU+XBoPrHb0vH1WixZ/HPMST9phMy/SHaZhbIs
/tYb2ZFF7MXVt8t3mSyKP5Y2eELsT305/GaFLGoJnaU1EkdWVYRbbJJF5U3f
+BaNUnA34HrbfxayKDxxP/Y0cVePvk9ZmCwGbt6zavMYBfq36tPUImVxJnZ/
vjFxqqVVXVyMLJZ8smdaE9vUuCscuSqLg29ftnoTt+el1nKnEwtPp+QQf/D7
yzB8LYuKGkXpouNkfRJ5WVUxLouLvpt0fyRm1hiOr5iWxRd9tFc/iANDGuUT
52SxWuLsRTax3tSv085ccpjy4fKfBRMUvOyQkF9Mk8P6mzPmq4kfZXl5GKnL
4XDdf+UxxGm6WjJ1dnLI82rnwo2TZDxjvuA5BzmE40KvDIh/2Hb1L3OWQ1ET
q2PGxKygqy9D3eSwqTA/w474zruZA+gnh9KcB3LDiDP2lCU+jpfDb926Cz8Q
37UzF0+ukEODBHuxw1MUVHponK2slsOT4vQcZ+JfwQt6J+vk0A69NrgTq2Y+
e2LeLIcmKUIYRJzdL2Mh+F0O7VWbf6YT3zvdfSVwVg7L74Xl9RA/uOAl4rRc
HvvCuayPTJP1btOhoAsr5XHZ9S8Nx4k1xg3G0lfJ45+BmE0exPfsl7R06sjj
M/VLHOeJ78LjRKut8ij7t2RVCvGdmWG6sa08NlD3d7USJ7u6aK65LI+BPmFe
BjOkXop7b5nHy6OlbDFtJ7FUx0aaR4I8jlYkZpgSJxrxj+belEcBLaMiG+Kr
KveeqN4j/Y3uTPEhjv3+c5PsG3nMz2Pr5BCHWRzZyT0hj4zXT6f4Z0k99nRY
O07L4zfhpaaixEU7LNwq5uTx80hNuiTxqO62y5FcdOTIsVmjRGytrN4qRqPj
IouWxXrE2lOj9orqdIzO6gggLwh8TQzyNbSj46qXd4qriWfi5iKzHOh4X6vO
5D3xkmjPm4ud6fj8m0xHC/GO80dL6tzoWMDe8r2TuOCYEe8+fzLeqGPmJHHE
BtG4owl0nPouzmTOUbCm43Z2WB0d6deVOTyIaZrO0w/f07FXSzXGm3jwnOa2
tiY6vm7KlfAjvsMq7FZtp+N2X2u5EOIlJ5rp1b10tNuUP3aVeNafeycvBwPn
y0cbnhN/4l9bul2KgSmbko/MEb9bnfSrQ5qBnM7Gx+eJCw79FnaXZeCTtXyu
3L/J831YZpNEZ+CrJXeP8hNvN9/zu0+JgbzOP9VkiJ8nO6+L1Gagpu2rWR3i
xGXXH9TtZOApuf2NnsTjY1szgnczUDtl7X0f4j2vR2/o7GFguvZEkD8xr7lR
VIYZA0sHGIohxF7+M8cDDjDw0+y9NVeIzRr2qy53YuAbml5SHrGA15L0qCAG
Tk+zzv0idoaSZP0QBlpEzHwZIH6z2CVu+gIDo/NX6lDEvilvzjtcZGD/3w/d
E8R9FR6HN8UycJGzqQj3H5K/dKPc4E0Gih86UyZLfK4kOnHnCwamLs9P2U3c
/6UkfuYlA3WqZIJNiPfNjcVmFTFw4eQZB3NijbVWF7lLSP55IvIHiNtylH0L
3zHI+q3g6kCsnVB8UL2ZgYK3TwX4Eve6jsjzUww0zK/0u0NsGqko82KYgXvo
xjxZxEV390s4jTJw2y3FiGziK12vhN9MkHj/NkTnEuOBCA6/3wyMeObq9Zw4
2YD1o38xE3NHVCpriHfLWGRUKzLxUL18zDBxYrdmyUFlJjaJ990aJe5+sOjz
oAoTz9/OfDhO7I9FNGF1Jgac4a6aJr7vyPI312Litct+XRx/yf9b3ohZhy4T
2QXSL2jEFQYxHOx9TCxebzOuSSwq5CxzzpKJ4V+MKlcS27RuXkuzYqLoUqdk
beLJYxMntA8xcZ3JGp21xMqXrFu9jzBRnmVlp0sc8kktd/4kE7MVdxzaSbzZ
reKgyEUmXtQPFT5KPNvWt7U8golWL70anIgLtghon4li4uSGoOhj//qTMl30
5RITGftmuV2JBcrbC+5eY2KNf0r7aeI2KbYg3mGit5TLyvPEp94uKXErZmKU
7OHIZGK1letymKVMPG5wT/QGcVfygWvNZUw0v7078SbxvlMpLhveMdFzPjMl
lXiTjKoUbx0TtflaEjKJF7lv9LjZTq63StF9RHxL1l6xdoLkd/WifSXxhlXq
mvZTTKS3Jd2uIm7eMb5uepqJ+uFO36r/3X8mdKfibyb6rcL9df/ia7zn4c+l
gPwRi9d/IMbQsRINYQU06RYq/kz8gwo5FK2qgBXvNg4MEfvzGjux1BRQuMOE
hyIWl5Nwf6GugEEbdsgOExsZZYf0aCrgIf1f20eJH92py9Fdo4Bpu//GTxIH
HxCfHdqsgAd2Bcz8JVZ8k3XN+KAChtWqzAnNk/2oxvSdDmsF3BLVMSRM7HNt
++PjNgo40XzrG4245lhfQ6idAjo/tigRJfagqS8udlLAU2aJ3uLExYdy/VZ4
KuDNzC3P5IitpgsO06IV8LGg1SV1Yh77BSdTYhQw60uSowZxbo1FgEasAu5V
4tm4nJjz1mTS9isKeMz+YJcm8V3D9U2BSQrIsFBX0yaeiCs0HMlQwN5knsvr
iWOXl6l9eK2Ai5JoVQb/rl9/cHFQiQIu2ax5zfBfPFvGf2qVKaBGuav9VmL2
AeWMy28V8JXwvultxDtDI+imtQoYfrpHaicx7zezJe8/kXi5qlebEvvFdv2p
G1fAd1/rGqyJ4677dwRMKiBrf2fQIeJ7mUsLl08rYH/wyjU2xG1F23yi5xTw
k050gi3x2r6c0V1cLLx529jcnnh4s+fPGmEWvhtOy3IiPjrG01ilxsLiqdFK
d2Kbewb11hosnAl4b+VBvM8upIZazsKzAtKD/7y1gfvdUi0WeseNCXgSK+dw
FdqtY+EFs/fbvIl77DkyZraw8IrxwzRfYocPcz7LDrHwc8Xn4SBi64sbvYts
WDiaauweTLwX/U7vOczC1Em9kX82yJ119TrCQm5WMhVCrBgxY196jIWMR9t7
Q4m7Nk/tOuDNQo3kycIIYvv8UcbFSyxsip/jjyN2CTL/bXSZhY9StSL+2cu8
oFXgCgtzzdoWXiEOn/CKib3GwnPqvpzx/+qvMzOXcJOFrjJM9lXimdL5j5k5
LPwodOFB0r/6fhCILq9gYe3amspU4uR0V+fQKhYGhePa28TpnvVbttew8Pse
nfR/fioeO1tTz8Iet2d+acQdVmLOTS0sbJSYUL5DrNIlteVHFwvH3YaOZhGv
LPCVv9PDQp0T7bX/vOHC5xnHnyx8ZmGufZd4l8rNvL5+FmrN98/9s8cJhvzI
CAsPVRVfvEfsv+n8zKMxFmYflh785wuCP5o9J1i4dYDHOIc48WF6JPl24akP
kbT7xGmBPE4vZ1l4Z9ky93/OMXXU9//NQo9jlo3/XKDwTk7vLwsbBKW1HhC/
HlOemZ9noWacW+w//w9h8Db/
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQPbcuic0wpduOAQw+2LPffqT+Vn6nPYy/8NT8wtfy
J+H8des7b+fo3YLz0+0vznxT9BjOz3uq+XjLupdwPpdii/p9iw9wfp/Aaa2F
CZ/h/KTbIfuZz3yD8wuPtiTlq/+C8zcW8ARLeP5FuKc6+5VBOIMDjN80/0/g
lzeMcD7D5QcOe6qY4Xy1krSKEC1WOP/J1+lh3HvZ4Hyvp1m1kwo54Hy/JxO0
5eS44PxXh5MaTqzlhvP1BK/JOsfzwvlc9l8T73zmg/Pd30Z9VwoVgPNvHEph
jNIRhPO3dhyJU/iK4Kexlj44d04Izk8uqt7KM0sYztdP1z7nkygC558X0uEu
tRSF83eva5qtwywG51czagWcuYvgc92p8sjbIg7nP12mOGV+jQScP0VDkmVn
qCScP2FW2vFEBSk4P2pK7Dme5wj+D5elP+fvk4bzHz91qjjULgPnL7I1lD6b
KAvnr20tFUzXlYPz20OTvZm/IvimdxaubD8rD+fP0Jy99qy3Apxff6B3hvdO
BN9XOnTpKRVFON8x73i0YCeCP18mSeXMVwRf5fDyaX7RSgj/6R7SurQPwU/7
zHLxpJYynJ+08ZNCZz+CP+EST++R4wj+vs9qP///R/ABztbzWg==
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQPbcuic0wpdsuDQze2bPffqT+Vn6nPYy/8NT8wtfy
J+H8des7b+fo3YLz0+0vznxT9BjOz3uq+XjLupdwPpdii/p9iw9wfp/Aaa2F
CZ/h/KTbIfuZz3yD8wuPtiTlq/+C8zcW8ARLeP5FuKc6+5VBOIMDjN80/0/g
lzeMcD7D5QcOe6qY4Xy1krSKEC1WOP/J1+lh3HvZ4Hyvp1m1kwo54Hy/JxO0
5eS44PxXh5MaTqzlhvP1BK/JOsfzwvlc9l8T73zmg/Pd30Z9VwoVgPNvHEph
jNIRhPO3dhyJU/iK4Kexlj44d04Izk8uqt7KM0sYztdP1z7nkygC558X0uEu
tRSF83eva5qtwywG51czagWcuYvgc92p8sjbIg7nP12mOGV+jQScP0VDkmVn
qCScP2FW2vFEBSk4P2pK7Dme5wj+D5elP+fvk4bzHz91qjjULgPnL7I1lD6b
KAvnr20tFUzXlYPz20OTvZm/IvimdxaubD8rD+fP0Jy99qy3Apxff6B3hvdO
BN9XOnTpKRVFON8x73i0YCeCP18mSeXMVwRf5fDyaX7RSgj/6R7SurQPwU/7
zHLxpJYynJ+08ZNCZz+CP+EST++R4wj+vs9qP///R/AB/zZvUQ==
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQPbcuic0wpdvu7BkQ+GDPfvuR+lv5nfYw/sJT8wtf
y5+E89et77ydo3cLzk+3vzjzTdFjOD/vqebjLetewvlcii3q9y0+wPl9Aqe1
FiZ8hvOTbofsZz7zDc4vPNqSlK/+C87fWMATLOH5F+Ge6uxXBuEMDjB+0/w/
gV/eMML5DJcfOOypYobz1UrSKkK0WOH8J1+nh3HvZYPzvZ5m1U4q5IDz/Z5M
0JaT44LzXx1OajixlhvO1xO8Jusczwvnc9l/TbzzmQ/Od38b9V0pVADOv3Eo
hTFKRxDO39pxJE7hK4Kfxlr64Nw5ITg/uah6K88sYThfP137nE+iCJx/XkiH
u9RSFM7fva5ptg6zGJxfzagVcOYugs91p8ojb4s4nP90meKU+TUScP4UDUmW
naGScP6EWWnHExWk4PyoKbHneJ4j+D9clv6cv08azn/81KniULsMnL/I1lD6
bKIsnL+2tVQwXVcOzm8PTfZm/orgm95ZuLL9rDycP0Nz9tqz3gpwfv2B3hne
OxF8X+nQpadUFOF8x7zj0YKdCP58mSSVM18RfJXDy6f5RSsh/Kd7SOvSPgQ/
7TPLxZNaynB+0sZPCp39CP6ESzy9R44j+Ps+q/38/x/BBwDRVOw9
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{533., Automatic},
  PlotRange->{{0, 10}, {0, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.516374493935315*^9, 3.5163746311531563`*^9, {3.516374737950944*^9, 
   3.516374808026267*^9}, 3.5163748502243414`*^9, 3.516375500275083*^9, 
   3.516375540055153*^9, 3.5163758656121244`*^9, {3.516375949119071*^9, 
   3.516375967745504*^9}, 3.516376000801962*^9, 3.516376522560478*^9, 
   3.5163765940242043`*^9, 3.5163768401366367`*^9, 3.516376943776019*^9, 
   3.5163770373137827`*^9, 3.5163772603161745`*^9, {3.516377331202699*^9, 
   3.5163773537447386`*^9}, 3.5163774944413857`*^9, 3.5163775283558455`*^9, 
   3.516377588665551*^9, 3.5163776227984114`*^9, {3.5163777900941052`*^9, 
   3.5163778043369303`*^9}, 3.516377915596326*^9, {3.5163780549669704`*^9, 
   3.516378084809823*^9}, 3.5164178616714325`*^9, {3.516417950185988*^9, 
   3.516417966051216*^9}, 3.5164180484505606`*^9, 3.516591175419922*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"hf", "[", "t_", "]"}], "=", 
  RowBox[{"Abs", "[", "ht", "]"}]}]], "Input",
 CellChangeTimes->{{3.516374890534812*^9, 3.5163749181312604`*^9}}],

Cell[BoxData[
 RowBox[{"3.375`", " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "1.5`"}], " ", 
    RowBox[{"Re", "[", "t", "]"}]}]], " ", 
  RowBox[{"Abs", "[", 
   RowBox[{"0.2962962962962963`", "\[InvisibleSpace]", "-", 
    RowBox[{"0.2962962962962963`", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"1.5`", " ", "t"}]]}], "+", 
    RowBox[{"0.4444444444444444`", " ", "t"}], "+", 
    RowBox[{"0.33333333333333337`", " ", 
     SuperscriptBox["t", "2"]}]}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.516375500321883*^9, 3.5163755401019526`*^9, 3.516375865658925*^9, {
   3.5163759491658716`*^9, 3.516375967792304*^9}, 3.5163760008487625`*^9, 
   3.516376522607279*^9, 3.516376594071004*^9, 3.516376840183437*^9, 
   3.5163769438228188`*^9, 3.5163770373605833`*^9, 3.516377260362975*^9, {
   3.5163773312494993`*^9, 3.5163773537915387`*^9}, 3.516377494488186*^9, 
   3.5163775284026456`*^9, 3.5163775887123513`*^9, 3.5163776228452115`*^9, {
   3.5163777901409054`*^9, 3.5163778043837304`*^9}, 3.5163779156431255`*^9, {
   3.51637805501377*^9, 3.5163780848566227`*^9}, 3.516417861702633*^9, {
   3.516417950232788*^9, 3.516417966098016*^9}, 3.516418048481761*^9, 
   3.516591175482422*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:0412\:0440\:0435\:043c\:044f", " ", 
    "\: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[{"k", "=", "10000"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"\:043a\:043e\:043b", "-", 
      RowBox[{
      "\:0432\:043e", " ", 
       "\:043f\:0440\:043e\:043c\:0435\:0436\:0443\:0442\:043a\:043e\:0432"}]}\
], ",", " ", 
     RowBox[{
     "\:0433\:0434\:0435", " ", "\:043d\:0430\:0445\:043e\:0434\:0438\:043c", 
      " ", "\:0440\:0435\:0448\:0435\:043d\:0438\:0435"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dt", "=", 
     RowBox[{"10", "/", "k"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hust", "=", 
     RowBox[{"hf", "[", "10000", "]"}]}], 
    RowBox[{"(*", 
     RowBox[{
     "\:0443\:0441\:0442\:0430\:043d\:043e\:0432\:0438\:0432\:0448\:0435\:0435\
\:0441\:044f", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435"}], 
     "*)"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hmax", "=", 
     RowBox[{"hf", "[", "0", "]"}]}], 
    RowBox[{"(*", 
     RowBox[{
     "\:0437\:0430\:0434\:0430\:0434\:0438\:043c", " ", 
      "\:043d\:0430\:0447\:0430\:043b\:044c\:043d\:043e\:0435", " ", 
      RowBox[{
      "\:043c\:0430\:043a\:0441", ".", " ", 
       "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435"}]}], "*)"}], ";"}], 
   "\[IndentingNewLine]", 
   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", " ", "h", 
       RowBox[{"(", "t", ")"}]}], "=", 
      RowBox[{
       RowBox[{"0.95", " ", "\:0438", " ", "h", 
        RowBox[{"(", "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", 
         RowBox[{"(", "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[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", 
      RowBox[{"k", "+", "1"}]}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Sign", "[", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{
               RowBox[{"hf", "[", 
                RowBox[{"dt", "*", 
                 RowBox[{"(", 
                  RowBox[{"i", "-", "1"}], ")"}]}], "]"}], "-", "hust"}], 
              "]"}], "-", "0.05"}], "]"}], "\[NotEqual]", 
           RowBox[{"Sign", "[", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{
               RowBox[{"hf", "[", 
                RowBox[{"dt", "*", 
                 RowBox[{"(", "i", ")"}]}], "]"}], "-", "hust"}], "]"}], "-", 
             "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", "++"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sigmaper", "=", 
     RowBox[{"Round", "[", 
      RowBox[{
       RowBox[{"100", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"hmax", "-", "hust"}], ")"}], "/", "hust"}]}], ",", 
       "0.01"}], "]"}]}], ";"}], " ", 
   RowBox[{
   "(*", "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Treg = \>\"", ",", "Treg", ",", "\"\< \:0441\>\""}], "]"}], 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Sigma = \>\"", ",", "sigmaper", ",", "\"\< %\>\""}], "]"}], 
   " "}]}]], "Input",
 CellChangeTimes->{{3.5163749539645233`*^9, 3.516374954245324*^9}, {
  3.5163749848681774`*^9, 3.51637529920793*^9}, {3.5163753388475995`*^9, 
  3.516375545998763*^9}, {3.5164180254405203`*^9, 3.516418028732126*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Treg = \"\>", "\[InvisibleSpace]", "4.1975`", 
   "\[InvisibleSpace]", "\<\" \:0441\"\>"}],
  SequenceForm["Treg = ", 4.1975, " \:0441"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5163755012266846`*^9, 3.5163755409911547`*^9, 3.516375866548126*^9, {
   3.516375950055073*^9, 3.5163759686815057`*^9}, 3.516376001753564*^9, 
   3.51637652349648*^9, 3.5163765949758053`*^9, 3.5163768410726385`*^9, 
   3.5163769447120204`*^9, 3.5163770382653847`*^9, 3.5163772612521763`*^9, {
   3.5163773321387005`*^9, 3.5163773546963406`*^9}, 3.5163774953773875`*^9, 
   3.5163775293074474`*^9, 3.516377589617153*^9, 3.5163776237500134`*^9, {
   3.5163777910301065`*^9, 3.5163778052885323`*^9}, 3.516377916532327*^9, {
   3.516378055902972*^9, 3.5163780857458243`*^9}, 3.5164178627010345`*^9, {
   3.51641795116879*^9, 3.516417967049618*^9}, 3.5164180493865623`*^9, 
   3.516591176216797*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Sigma = \"\>", "\[InvisibleSpace]", "0", 
   "\[InvisibleSpace]", "\<\" %\"\>"}],
  SequenceForm["Sigma = ", 0, " %"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5163755012266846`*^9, 3.5163755409911547`*^9, 3.516375866548126*^9, {
   3.516375950055073*^9, 3.5163759686815057`*^9}, 3.516376001753564*^9, 
   3.51637652349648*^9, 3.5163765949758053`*^9, 3.5163768410726385`*^9, 
   3.5163769447120204`*^9, 3.5163770382653847`*^9, 3.5163772612521763`*^9, {
   3.5163773321387005`*^9, 3.5163773546963406`*^9}, 3.5163774953773875`*^9, 
   3.5163775293074474`*^9, 3.516377589617153*^9, 3.5163776237500134`*^9, {
   3.5163777910301065`*^9, 3.5163778052885323`*^9}, 3.516377916532327*^9, {
   3.516378055902972*^9, 3.5163780857458243`*^9}, 3.5164178627010345`*^9, {
   3.51641795116879*^9, 3.516417967049618*^9}, 3.5164180493865623`*^9, 
   3.516591176248047*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"\:041a\:043e\:043b", "-", 
    RowBox[{
    "\: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"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Nkvant", "=", 
   RowBox[{"Ceiling", "[", 
    RowBox[{"Treg", "/", "Tkvant"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5163756536545525`*^9, 3.5163756544657536`*^9}, {
  3.5163757406559052`*^9, 3.5163758443336873`*^9}, {3.516375944875864*^9, 
  3.516375945031864*^9}, {3.5163759898039427`*^9, 3.5163759960907536`*^9}}],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{
  3.5163758667041264`*^9, {3.5163759502422733`*^9, 3.5163759688687057`*^9}, 
   3.516376001893964*^9, 3.5163765236680803`*^9, 3.516376595163006*^9, 
   3.5163768412286386`*^9, 3.5163769448524203`*^9, 3.5163770384057846`*^9, 
   3.516377261392576*^9, {3.516377332279101*^9, 3.5163773548523407`*^9}, 
   3.516377495517788*^9, 3.516377529432247*^9, 3.516377589741953*^9, 
   3.5163776238904133`*^9, {3.5163777911705074`*^9, 3.5163778053665323`*^9}, 
   3.5163779166415277`*^9, {3.516378056043372*^9, 3.5163780858706245`*^9}, 
   3.516417862747834*^9, {3.5164179512779903`*^9, 3.516417967158818*^9}, 
   3.5164180494957623`*^9, 3.516591176294922*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Stextrop", "=", "3"}], 
  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[{"Masotklon", "=", 
   RowBox[{"{", "}"}]}], 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0441\:0441\:0438\:0432", " ", 
    "\:043e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:0439"}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hizm", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "Stextrop", "}"}]}], "]"}]}], 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:0430\:0441\:0441\:0438\:0432", " ", 
    "\:043f\:043e\:0441\:043b\:0435\:0434\:043d\:0438\:0445", " ", 
    "\: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\:0445\
", " ", "\:043f\:0440\:0438", " ", 
    "\:044d\:043a\:0441\:0442\:0440\:0430\:043f\:043e\:043b\:044f\:0446\:0438\
\:0438"}], "*)"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5163760323296175`*^9, 3.5163761120613575`*^9}, {
   3.5163761944919024`*^9, 3.51637629556448*^9}, {3.516376478911602*^9, 
   3.516376482858409*^9}, {3.5163771007434945`*^9, 3.5163771481363773`*^9}, 
   3.516377436658884*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", 
     RowBox[{"Stextrop", "-", "1"}]}], ",", 
    RowBox[{"i", "<=", "Nkvant"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Ttek", "=", 
       RowBox[{"Tkvant", "*", "i"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"hTtek", "=", 
       RowBox[{"hf", "[", "Ttek", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"hizm", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"hf", "[", 
        RowBox[{"Ttek", "-", 
         RowBox[{"Tkvant", "*", "2"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"hizm", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "=", 
       RowBox[{"hf", "[", 
        RowBox[{"Ttek", "-", 
         RowBox[{"Tkvant", "*", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"hizm", "[", 
        RowBox[{"[", "3", "]"}], "]"}], "=", 
       RowBox[{"hf", "[", 
        RowBox[{"Ttek", "-", 
         RowBox[{"Tkvant", "*", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "\:042d\:043a\:0441\:0442\:0440\:0430\:043f\:043e\:043b\:044f\:0446\
\:0438\:044f", " ", "\:041c\:0435\:0442\:043e\:0434", " ", 
        "\:0410\:0434\:0430\:043c\:0441\:0430"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"hextrop", "=", 
       RowBox[{
        RowBox[{"hizm", "[", 
         RowBox[{"[", "3", "]"}], "]"}], "+", 
        RowBox[{"Tkvant", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"23", "*", 
             RowBox[{"hizm", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "-", 
            RowBox[{"16", "*", 
             RowBox[{"hizm", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "+", 
            RowBox[{"5", "*", 
             RowBox[{"hizm", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "/", "12"}]}]}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"Masotklon", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"Masotklon", ",", 
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"hf", "[", 
            RowBox[{"Ttek", "+", "Tkvant"}], "]"}], "-", "hextrop"}], "]"}]}],
         "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5163763045188956`*^9, 3.5163763836110344`*^9}, {
   3.5163764362767267`*^9, 3.5163764572119637`*^9}, {3.516376577332175*^9, 
   3.5163765815909824`*^9}, {3.516376919034375*^9, 3.5163769345252028`*^9}, {
   3.516377230988123*^9, 3.5163772464633503`*^9}, 3.5163773480819287`*^9, {
   3.5163774539125147`*^9, 3.5163774570481205`*^9}, {3.516377487109373*^9, 
   3.516377487624174*^9}, 3.5163775230050364`*^9, {3.5163775575902967`*^9, 
   3.516377573861125*^9}, 3.516377612876794*^9, {3.516377799344921*^9, 
   3.5163777997973223`*^9}, {3.516377893756287*^9, 3.516377909403115*^9}, {
   3.5163779812568407`*^9, 3.516378015920102*^9}, {3.516378050988963*^9, 
   3.516378064888588*^9}, {3.5164179455059795`*^9, 3.516417961870408*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 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", " ", 
    "\:0443\:0433\:043b\:0430", " ", "\:043a\:0440\:0435\:043d\:0430", " ", 
    "\: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[{"Matozh", "=", 
   RowBox[{"Mean", "[", "Masotklon", "]"}], " "}]}]], "Input",
 CellChangeTimes->{{3.5163766231806555`*^9, 3.516376754570486*^9}, {
  3.5163770222129564`*^9, 3.5163770244125605`*^9}}],

Cell[BoxData["0.08565554200786919`"], "Output",
 CellChangeTimes->{
  3.5163768412910385`*^9, 3.5163769449148207`*^9, 3.516377038468185*^9, 
   3.5163772614549766`*^9, {3.516377332341501*^9, 3.5163773549147406`*^9}, 
   3.5163774958141885`*^9, 3.5163775296038475`*^9, 3.516377589804353*^9, 
   3.516377623952813*^9, {3.5163777912329073`*^9, 3.516377805428932*^9}, 
   3.5163779167039275`*^9, {3.5163780561057725`*^9, 3.516378085964225*^9}, 
   3.5164178628414345`*^9, {3.51641795134039*^9, 3.516417967221218*^9}, 
   3.5164180495893626`*^9, 3.516591176357422*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  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[{"sigma", "=", 
   RowBox[{"StandardDeviation", "[", "Masotklon", "]"}], " "}]}]], "Input",
 CellChangeTimes->{{3.51637672255923*^9, 3.516376738954859*^9}, 
   3.516377323402685*^9}],

Cell[BoxData["0.057854670189078854`"], "Output",
 CellChangeTimes->{
  3.516376841322239*^9, 3.516376944946021*^9, 3.516377038499385*^9, 
   3.5163772614861765`*^9, {3.5163773324975014`*^9, 3.516377354945941*^9}, 
   3.516377495970188*^9, 3.5163775296662474`*^9, 3.5163775898511534`*^9, 
   3.5163776239840136`*^9, {3.516377791264107*^9, 3.516377805475732*^9}, 
   3.5163779167351274`*^9, {3.5163780561369724`*^9, 3.5163780860110245`*^9}, 
   3.5164178633718357`*^9, {3.51641795138719*^9, 3.516417967268018*^9}, 
   3.5164180496205626`*^9, 3.516591176419922*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041f\:041e\:0420\:041e\:0413", " ", 
    "\:0421\:0420\:0410\:0411\:0410\:0422\:042b\:0412\:0410\:041d\:0418\:042f\
"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   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[{"Porog", "=", 
    RowBox[{"Matozh", "+", 
     RowBox[{"b", "*", "sigma", " "}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.51637675677009*^9, 3.5163768082813807`*^9}, {
   3.516376860369872*^9, 3.5163768651454806`*^9}, {3.5163770298881702`*^9, 
   3.516377030683771*^9}, 3.516377764806461*^9}],

Cell[BoxData["0.25921955257510576`"], "Output",
 CellChangeTimes->{
  3.5163768413690386`*^9, 3.5163769449928207`*^9, 3.5163770385305853`*^9, 
   3.516377261532977*^9, {3.5163773325443015`*^9, 3.516377354977141*^9}, 
   3.5163774960169888`*^9, 3.516377529697448*^9, 3.516377589882354*^9, 
   3.5163776239996133`*^9, {3.516377791295307*^9, 3.5163778055069323`*^9}, 
   3.516377916766328*^9, {3.516378056183772*^9, 3.516378086042225*^9}, 
   3.5164178634030356`*^9, {3.5164179514183903`*^9, 3.516417967299218*^9}, 
   3.5164180496361628`*^9, 3.516591176451172*^9}]
}, Open  ]]
},
WindowSize->{1078, 750},
WindowMargins->{{87, Automatic}, {Automatic, 34}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 2398, 67, 292, "Input"],
Cell[2968, 91, 934, 14, 30, "Output"],
Cell[3905, 107, 934, 14, 30, "Output"],
Cell[4842, 123, 934, 14, 30, "Output"],
Cell[5779, 139, 937, 14, 30, "Output"],
Cell[6719, 155, 937, 14, 30, "Output"],
Cell[7659, 171, 937, 14, 30, "Output"],
Cell[8599, 187, 936, 14, 30, "Output"],
Cell[9538, 203, 933, 14, 30, "Output"],
Cell[10474, 219, 933, 14, 30, "Output"],
Cell[11410, 235, 934, 14, 30, "Output"],
Cell[12347, 251, 936, 14, 30, "Output"],
Cell[13286, 267, 953, 15, 30, "Output"],
Cell[14242, 284, 937, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15216, 303, 403, 11, 52, "Input"],
Cell[15622, 316, 807, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16466, 332, 1625, 44, 112, "Input"],
Cell[18094, 378, 861, 12, 30, "Output"],
Cell[18958, 392, 879, 12, 30, "Output"],
Cell[19840, 406, 879, 12, 30, "Output"],
Cell[20722, 420, 879, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21638, 437, 2280, 59, 92, "Input"],
Cell[23921, 498, 1614, 34, 81, "Output"],
Cell[25538, 534, 1681, 35, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27256, 574, 677, 15, 52, "Input"],
Cell[27936, 591, 984, 16, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28957, 612, 239, 6, 31, "Input"],
Cell[29199, 620, 1116, 21, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30352, 646, 573, 13, 52, "Input"],
Cell[30928, 661, 1030, 17, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31995, 683, 252, 6, 31, "Input"],
Cell[32250, 691, 1039, 17, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33326, 713, 367, 8, 31, "Input"],
Cell[33696, 723, 870, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34603, 740, 250, 5, 31, "Input"],
Cell[34856, 747, 1043, 17, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35936, 769, 683, 15, 52, "Input"],
Cell[36622, 786, 6659, 113, 371, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43318, 904, 306, 7, 31, "Input"],
Cell[43627, 913, 876, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44540, 930, 1253, 33, 112, "Input"],
Cell[45796, 965, 884, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46717, 982, 333, 7, 31, "Input"],
Cell[47053, 991, 882, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47972, 1008, 743, 18, 52, "Input"],
Cell[48718, 1028, 861, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49616, 1045, 403, 8, 31, "Input"],
Cell[50022, 1055, 1339, 25, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51398, 1085, 564, 13, 31, "Input"],
Cell[51965, 1100, 12711, 215, 356, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64713, 1320, 178, 4, 31, "Input"],
Cell[64894, 1326, 1234, 24, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66165, 1355, 4943, 131, 232, "Input"],
Cell[CellGroupData[{
Cell[71133, 1490, 935, 16, 23, "Print"],
Cell[72071, 1508, 916, 16, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[73036, 1530, 777, 15, 52, "Input"],
Cell[73816, 1547, 696, 10, 30, "Output"]
}, Open  ]],
Cell[74527, 1560, 1563, 36, 72, "Input"],
Cell[76093, 1598, 3120, 74, 212, "Input"],
Cell[CellGroupData[{
Cell[79238, 1676, 886, 17, 52, "Input"],
Cell[80127, 1695, 563, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80727, 1708, 578, 13, 52, "Input"],
Cell[81308, 1723, 562, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81907, 1736, 886, 23, 72, "Input"],
Cell[82796, 1761, 562, 8, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)