(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.2'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[    257431,       6512]*)
(*NotebookOutlinePosition[    258110,       6535]*)
(*  CellTagsIndexPosition[    258066,       6531]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[TextData[{
  StyleBox["\:0412\:044b\:0432\:043e\:0434 \:0443\:0440\:0430\:0432\:043d\
\:0435\:043d\:0438\:0439 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \
\:041b\:0410 \:0442\:0438\:043f\:0430 \"\:0441\:0430\:043c\:043e\:043b\:0435\
\:0442\"\n",
    FontSize->36,
    FontWeight->"Bold"],
  StyleBox["\:0414\:043e\:043f\:0443\:0449\:0435\:043d\:0438\:044f:\n1) \
\:041a\:043e\:043d\:0441\:0442\:0440\:0443\:043a\:0446\:0438\:044f \:041b\
\:0410 \:0430\:0431\:0441\:043e\:043b\:044e\:0442\:043d\:043e \:0436\:0435\
\:0441\:0442\:043a\:0430\:044f (\:041b\:0410 - \:0442\:0432\:0435\:0440\:0434\
\:043e\:0435 \:0442\:0435\:043b\:043e);\n2) \:0410\:0442\:043c\:043e\:0441\
\:0444\:0435\:0440\:0430 \:0441\:043f\:043e\:043a\:043e\:0439\:043d\:0430\
\:044f (W=0 - \:0441\:043a\:043e\:0440\:043e\:0441\:0442\:044c \:0432\:0435\
\:0442\:0440\:0430);\n3) \:041c\:0430\:0441\:0441\:0430 \:041b\:0410 \:043f\
\:043e\:0441\:0442\:043e\:044f\:043d\:043d\:0430\:044f \:0442.\:043a. \:0437\
\:0430\:0434\:0430\:043d\:043d\:043e\:0435 \:0432\:0440\:0435\:043c\:044f \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:044b\:0445 \:043f\:0440\
\:043e\:0446\:0435\:0441\:0441\:043e\:0432 \:043c\:0435\:043d\:044c\:0448\
\:0435 60 \:0441;\n4) \:0417\:0435\:043c\:043b\:044f \:043f\:043b\:043e\:0441\
\:043a\:0430\:044f \:0438 \:043d\:0435 \:0432\:0440\:0430\:0449\:0430\:0435\
\:0442\:0441\:044f;\n5) \:0423\:0433\:043e\:043b \:0442\:0430\:043d\:0433\
\:0430\:0436\:0430 \:043d\:0435 \:0440\:0430\:0432\:0435\:043d +/-90 \:0433\
\:0440\:0430\:0434\:0443\:0441\:043e\:0432;\n6) \
\:0421\:043f\:0430\:0440\:0432\:0435\:0434\:043b\:0438\:0432\:0430 \:0433\
\:0438\:043f\:043e\:0442\:0435\:0437\:0430 \:0441\:0442\:0430\:0446\:0438\
\:043e\:043d\:0430\:0440\:043d\:043e\:0441\:0442\:0438 (\:0441\:043e\:0433\
\:043b\:0430\:0441\:043d\:043e \:044d\:0442\:043e\:0439 \:0433\:0438\:043f\
\:043e\:0442\:0435\:0437\:0435, \:0430\:044d\:0440\:043e\:0434\:0438\:043d\
\:0430\:043c\:0438\:0447\:0435\:0441\:043a\:0430\:044f \:0441\:0438\:043b\
\:0430 \:0438 \:0430\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\
\:0447\:0435\:0441\:043a\:0438\:0439 \:043c\:043e\:043c\:0435\:043d\:0442 \
\:0432 \:043d\:0435\:0441\:0442\:0430\:0446\:0438\:043e\:043d\:0430\:0440\
\:043d\:043e\:043c \:0440\:0435\:0436\:0438\:043c\:0435 \:043f\:043e\:043b\
\:0435\:0442\:0430 \:043f\:043e\:043b\:043d\:043e\:0441\:0442\:044c\:044e \
\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:044f\:044e\:0442\:0441\:044f \
\:0432\:0435\:043b\:0438\:0447\:0438\:043d\:0430\:043c\:0438 \:043f\:0430\
\:0440\:0430\:043c\:0435\:0442\:0440\:043e\:0432 \:0432 \:0434\:0430\:043d\
\:043d\:044b\:0439 \:043c\:043e\:043c\:0435\:043d\:0442 \:0432\:0440\:0435\
\:043c\:0435\:043d\:0438).",
    FontSize->18,
    FontWeight->"Bold"],
  StyleBox["\n\:0421\:0438\:0441\:0442\:0435\:043c\:044b \:043a\:043e\:043e\
\:0440\:0434\:0438\:043d\:0430\:0442 \:0438 \:043c\:0430\:0442\:0440\:0438\
\:0446\:044b \:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430",
    FontSize->36,
    FontWeight->"Bold"]
}], "Text",
  CellChangeTimes -> {{3.4964223859290233`*^9, 3.496422441451199*^9}, \
{3.496422514102354*^9, 3.4964225156204414`*^9}, {3.496422556601785*^9, \
3.496422568910489*^9}, {3.4964270720950565`*^9, 3.496427248697158*^9}, \
{3.496427412645535*^9, 3.4964274323866644`*^9}, {3.4964275151103954`*^9, \
3.4964275223358088`*^9}, {3.4964276114889083`*^9, 3.4964276119689355`*^9}, \
{3.4964277249904003`*^9, 3.49642782096789*^9}, {3.496428617357441*^9, \
3.4964286488232403`*^9}, {3.4964289789451222`*^9, 3.496429013386092*^9}, \
3.49642958138958*^9, {3.4975856138554587`*^9, 3.497585636163498*^9}, \
3.497588524348574*^9, 3.497591868033391*^9, {3.4981973509964037`*^9, \
3.498197351829451*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      M1 = {{Cos[Bteta[t]], \(-Sin[Bteta[t]]\), 0}, {Sin[Bteta[t]], 
            Cos[Bteta[t]], 0}, {0, 0, 
            1}}]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\ \
\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430\ \:043d\:0430\ \:0443\:0433\
\:043e\:043b\ \:043d\:0430\:043a\:043b\:043e\:043d\:0430\ \:0442\:0440\:0430\
\:0435\:043a\:0442\:043e\:0440\:0438\:0438*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975855745277896`*^9, 3.497585575338991*^9}, \
3.4975856759903708`*^9}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(Bteta\\)\\\" is similar to existing symbol \
\\\"\\!\\(Beta\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(Cos[Bteta[t]]\), \(-Sin[Bteta[t]]\), "0"},
            {\(Sin[Bteta[t]]\), \(Cos[Bteta[t]]\), "0"},
            {"0", "0", "1"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      M2 = {{Cos[BPsi[t]], 0, Sin[BPsi[t]]}, {0, 1, 0}, {\(-Sin[BPsi[t]]\), 
            0, Cos[BPsi[
                t]]}}]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\
\ \:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430\ \:043d\:0430\ \
\:0443\:0433\:043e\:043b\ \:043f\:0443\:0442\:0438*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975857196704473`*^9, 3.497585725052457*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(Cos[BPsi[t]]\), "0", \(Sin[BPsi[t]]\)},
            {"0", "1", "0"},
            {\(-Sin[BPsi[t]]\), "0", \(Cos[BPsi[t]]\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      M = M2 . M1]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\ \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430\ \:043e\:0442\ \:0442\:0440\
\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439\ \:0441\:0438\:0441\
\:0442\:0435\:043c\:044b\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\
\:0442\ \:043a\ \:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439\ \
\:0441\:0438\:0441\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\
\:0438\:043d\:0430\:0442\ *) \)\)\)], "Input",
  CellChangeTimes -> {{3.497585747329296*^9, 3.4975857579529147`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(Cos[BPsi[t]]\ Cos[Bteta[t]]\), \(\(-Cos[BPsi[t]]\)\ Sin[
                  Bteta[t]]\), \(Sin[BPsi[t]]\)},
            {\(Sin[Bteta[t]]\), \(Cos[Bteta[t]]\), "0"},
            {\(\(-Cos[Bteta[t]]\)\ Sin[BPsi[t]]\), \(Sin[BPsi[t]]\ Sin[
                  Bteta[t]]\), \(Cos[BPsi[t]]\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      ReplaceAll[
        M, {BPsi[t] \[Rule] 0, 
          Bteta[t] \[Rule] 
            0}]]\)\(\ \)\( (*\:041f\:0440\:043e\:0432\:0435\:0440\:043a\:0430\
\ \:043f\:043e\:0434\:0441\:0442\:0430\:043d\:043e\:0432\:043a\:043e\:0439\ \
\:043d\:0443\:043b\:0435\:0432\:044b\:0445\ \:0443\:0433\:043b\:043e\:0432\ \
\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:043e\:0432 . \ \:0414\:043e\:043b\
\:0436\:043d\:0430\ \:043f\:043e\:043b\:0443\:0447\:0438\:0442\:044c\:0441\
\:044f\ \:0435\:0434\:0438\:043d\:0438\:0447\:043d\:0430\:044f\ \:043c\:0430\
\:0442\:0440\:0438\:0446\:0430*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497585808185003*^9, 3.4975858125530105`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"1", "0", "0"},
            {"0", "1", "0"},
            {"0", "0", "1"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      MM1 = {{Cos[LPsi[t]], 0, Sin[LPsi[t]]}, {0, 1, 0}, {\(-Sin[LPsi[t]]\), 
            0, Cos[LPsi[
                t]]}}]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\
\ \:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430\ \:043d\:0430\ \
\:0443\:0433\:043e\:043b\ \:0440\:044b\:0441\:043a\:0430\:043d\:0438\:044f*) \
\)\)\)], "Input",
  CellChangeTimes -> {{3.497585868011108*^9, 3.4975858690095096`*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(LPsi\\)\\\" is similar to existing symbol \\\
\"\\!\\(BPsi\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(Cos[LPsi[t]]\), "0", \(Sin[LPsi[t]]\)},
            {"0", "1", "0"},
            {\(-Sin[LPsi[t]]\), "0", \(Cos[LPsi[t]]\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      MM2 = {{Cos[LTeta[t]], \(-Sin[LTeta[t]]\), 0}, {Sin[LTeta[t]], 
            Cos[LTeta[t]], 0}, {0, 0, 
            1}}]\)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\ \:043f\
\:043e\:0432\:043e\:0440\:043e\:0442\:0430\ \:043d\:0430\ \:0443\:0433\:043e\
\:043b\ \:0442\:0430\:043d\:0433\:0430\:0436\:0430*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975858784163265`*^9, 3.497585902362368*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(Cos[LTeta[t]]\), \(-Sin[LTeta[t]]\), "0"},
            {\(Sin[LTeta[t]]\), \(Cos[LTeta[t]]\), "0"},
            {"0", "0", "1"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      MM3 = {{1, 0, 0}, {0, Cos[LGamma[t]], \(-Sin[LGamma[t]]\)}, {0, 
            Sin[LGamma[t]], 
            Cos[LGamma[
                t]]}}]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\
\ \:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430\ \:043d\:0430\ \
\:0443\:0433\:043e\:043b\ \:043a\:0440\:0435\:043d\:0430*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497585920864001*^9, 3.4975859218312025`*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(LGamma\\)\\\" is similar to existing symbol \
\\\"\\!\\(Gamma\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"1", "0", "0"},
            {"0", \(Cos[LGamma[t]]\), \(-Sin[LGamma[t]]\)},
            {"0", \(Sin[LGamma[t]]\), \(Cos[LGamma[t]]\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      MM = MM1 . MM2 . 
          MM3]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\ \:043f\
\:0435\:0440\:0435\:0445\:043e\:0434\:0430\ \:043e\:0442\ \:0441\:0432\:044f\
\:0437\:0430\:043d\:043d\:043e\:0439\ \:0441\:0438\:0441\:0442\:0435\:043c\
\:044b\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442\ \:043a\ \
\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439\ \:0441\:0438\
\:0441\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\
\:0430\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497585956276063*^9, 3.497585957477265*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(Cos[LPsi[t]]\ Cos[
                  LTeta[t]]\), \(Sin[LGamma[t]]\ Sin[LPsi[t]] - 
                Cos[LGamma[t]]\ Cos[LPsi[t]]\ Sin[LTeta[t]]\), \(Cos[
                    LGamma[t]]\ Sin[LPsi[t]] + 
                Cos[LPsi[t]]\ Sin[LGamma[t]]\ Sin[LTeta[t]]\)},
            {\(Sin[
                LTeta[t]]\), \(Cos[LGamma[t]]\ Cos[
                  LTeta[t]]\), \(\(-Cos[LTeta[t]]\)\ Sin[LGamma[t]]\)},
            {\(\(-Cos[LTeta[t]]\)\ Sin[
                  LPsi[t]]\), \(Cos[LPsi[t]]\ Sin[LGamma[t]] + 
                Cos[LGamma[t]]\ Sin[LPsi[t]]\ Sin[LTeta[t]]\), \(Cos[
                    LGamma[t]]\ Cos[LPsi[t]] - 
                Sin[LGamma[t]]\ Sin[LPsi[t]]\ Sin[LTeta[t]]\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      SM1 = {{Cos[Alpha[t]], \(-Sin[Alpha[t]]\), 0}, {Sin[Alpha[t]], 
            Cos[Alpha[t]], 0}, {0, 0, 
            1}}]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\ \
\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430\ \:043d\:0430\ \:0443\:0433\
\:043e\:043b\ \:0430\:0442\:0430\:043a\:0438*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975860746594715`*^9, 3.497586076203874*^9}, \
{3.500196391583495*^9, 3.5001963937136173`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(Cos[Alpha[t]]\), \(-Sin[Alpha[t]]\), "0"},
            {\(Sin[Alpha[t]]\), \(Cos[Alpha[t]]\), "0"},
            {"0", "0", "1"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      SM2 = {{Cos[Betta[t]], 0, Sin[Betta[t]]}, {0, 1, 
            0}, {\(-Sin[Betta[t]]\), 0, 
            Cos[Betta[
                t]]}}]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\
\ \:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430\ \:043d\:0430\ \
\:0443\:0433\:043e\:043b\ \:0441\:043a\:043e\:043b\:044c\:0436\:0435\:043d\
\:0438\:044f*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497586102879921*^9, 3.497586103893923*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(Betta\\)\\\" is similar to existing symbols \
\\!\\({Beta, Bteta}\\). \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(Cos[Betta[t]]\), "0", \(Sin[Betta[t]]\)},
            {"0", "1", "0"},
            {\(-Sin[Betta[t]]\), "0", \(Cos[Betta[t]]\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      SM = Transpose[
          SM2 . SM1]]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\ \
\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430\ \:043e\:0442\ \:0441\:043a\
\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439\ \:0441\:0438\:0441\:0442\
\:0435\:043c\:044b\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442\ \
\:043a\ \:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439\ \:0441\:0438\
\:0441\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\
\:0430\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975861303983693`*^9, 3.4975861317399716`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(Cos[Alpha[t]]\ Cos[Betta[t]]\), \(Sin[
                Alpha[t]]\), \(\(-Cos[Alpha[t]]\)\ Sin[Betta[t]]\)},
            {\(\(-Cos[Betta[t]]\)\ Sin[Alpha[t]]\), \(Cos[
                Alpha[t]]\), \(Sin[Alpha[t]]\ Sin[Betta[t]]\)},
            {\(Sin[Betta[t]]\), "0", \(Cos[Betta[t]]\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[TextData[StyleBox["\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\
\:0435\:0441\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\
\:0438\:044f \:043f\:043e\:0441\:0442\:0443\:043f\:0430\:0442\:0435\:043b\
\:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\
\:044f",
  FontSize->36,
  FontWeight->"Bold"]], "Text",
  CellChangeTimes -> {{3.4975865797415586`*^9, 3.4975865934071827`*^9}, \
3.4975885334901905`*^9, 3.4975918722576327`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(R\)\(=\)\({L[t], H[t], 
        dZ[t]}\)\( (*\:0420\:0430\:0434\:0438\:0443\:0441\ \:0432\:0435\:043a\
\:0442\:043e\:0440\ \:0446\:0435\:043d\:0442\:0440\:0430\ \:043c\:0430\:0441\
\:0441\ \:041b\:0410, \ 
        L[t]\  - \ \:0434\:0430\:043b\:044c\:043d\:043e\:0441\:0442\:044c\ \
\:043f\:043e\:043b\:0435\:0442\:0430, \ 
        H[t]\  - \ \:0432\:044b\:0441\:043e\:0442\:0430\ \:043f\:043e\:043b\
\:0435\:0442\:0430, \ 
        dZ[t]\  - \ \:0431\:043e\:043a\:043e\:0432\:043e\:0435\ \:043e\:0442\
\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:0435*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975865978531904`*^9, 3.497586611596814*^9}}],

Cell[BoxData[
    \({L[t], H[t], dZ[t]}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(vg\)\(=\)\({vgx[t], vdy[t], 
        vgz[t]}\)\(\ \)\( (*\:0412\:0435\:043a\:0442\:043e\:0440\ \
\:0437\:0435\:043c\:043d\:043e\:0439\ \:0441\:043e\:043a\:0440\:043e\:0441\
\:0442\:0438\ \:0446\:0435\:043d\:0442\:0440\:0430\ \:043c\:0430\:0441\:0441\ \
\:041b\:0410\ \:0432\ \:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\
\:0439\ \:0441\:0438\:0441\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\
\:0434\:0438\:043d\:0430\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497586627290442*^9, 3.497586639052863*^9}}],

Cell[BoxData[
    \({vgx[t], vdy[t], vgz[t]}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[D[R, t]]\)\(\[Equal]\)\(MatrixForm[
        vg]\)\(\ \)\( \
(*\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\:0435\:0441\:043a\
\:043e\:0435\ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435\ \:0434\
\:0432\:0438\:0436\:0435\:043d\:0438\:044f\ \:0446\:0435\:043d\:0442\:0440\
\:0430\ \:043c\:0430\:0441\:0441\ \:0441\:0430\:043c\:043e\:043b\:0435\:0442\
\:0430\ \:0432\ \:0432\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439\ \
\:0444\:043e\:0440\:043c\:0435*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975866526248865`*^9, 3.497586653748089*^9}}],

Cell[BoxData[
    RowBox[{
      TagBox[
        RowBox[{"(", "\[NoBreak]", 
          TagBox[GridBox[{
                {
                  RowBox[{
                    SuperscriptBox["L", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}]},
                {
                  RowBox[{
                    SuperscriptBox["H", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}]},
                {
                  RowBox[{
                    SuperscriptBox["dZ", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}]}
                },
              RowSpacings->1,
              ColumnAlignments->{Left}],
            Column], "\[NoBreak]", ")"}],
        Function[ BoxForm`e$, 
          MatrixForm[ BoxForm`e$]]], "\[Equal]", 
      TagBox[
        RowBox[{"(", "\[NoBreak]", 
          TagBox[GridBox[{
                {\(vgx[t]\)},
                {\(vdy[t]\)},
                {\(vgz[t]\)}
                },
              RowSpacings->1,
              ColumnAlignments->{Left}],
            Column], "\[NoBreak]", ")"}],
        Function[ BoxForm`e$, 
          MatrixForm[ BoxForm`e$]]]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      vzem = {vk[t], 0, 
          0}]\)\(\ \)\( (*\:0412\:0435\:043a\:0442\:043e\:0440\ \:0437\:0435\
\:043c\:043d\:043e\:0439\ \:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438\ \
\:0432\ \:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439\ \
\:0441\:0438\:0441\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\
\:0438\:043d\:0430\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975866786301327`*^9, 3.497586679597334*^9}, \
{3.4975949269213495`*^9, 3.497594928786456*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {\(vk[t]\)},
              {"0"},
              {"0"}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      vg = M . vzem]\)\(\ \)\( (*\:041f\:0440\:043e\:0435\:0446\:0438\:0440\
\:0443\:0435\:043c\ \:0432\:0435\:043a\:0442\:043e\:0440\ \:0437\:0435\:043c\
\:043d\:043e\:0439\ \:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438\ \:043d\
\:0430\ \:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:044b\:0435\ \:043e\
\:0441\:0438\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442*) \
\)\)\)], "Input",
  CellChangeTimes -> {{3.4975866854161444`*^9, 3.4975867008757715`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {\(Cos[BPsi[t]]\ Cos[Bteta[t]]\ vk[t]\)},
              {\(Sin[Bteta[t]]\ vk[t]\)},
              {\(\(-Cos[Bteta[t]]\)\ Sin[BPsi[t]]\ vk[t]\)}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[D[R, t]]\)\(\[Equal]\)\(MatrixForm[
        vg]\)\(\ \)\( \
(*\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\:0435\:0441\:043a\
\:043e\:0435\ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435\ \:0434\
\:0432\:0438\:0436\:0435\:043d\:0438\:044f\ \:0446\:0435\:043d\:0442\:0440\
\:0430\ \:043c\:0430\:0441\:0441\ \:0441\:0430\:043c\:043e\:043b\:0435\:0442\
\:0430\ \:0432\ \:0432\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439\ \
\:0444\:043e\:0440\:043c\:0435*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975867435886464`*^9, 3.4975867445714483`*^9}}],

Cell[BoxData[
    RowBox[{
      TagBox[
        RowBox[{"(", "\[NoBreak]", 
          TagBox[GridBox[{
                {
                  RowBox[{
                    SuperscriptBox["L", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}]},
                {
                  RowBox[{
                    SuperscriptBox["H", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}]},
                {
                  RowBox[{
                    SuperscriptBox["dZ", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}]}
                },
              RowSpacings->1,
              ColumnAlignments->{Left}],
            Column], "\[NoBreak]", ")"}],
        Function[ BoxForm`e$, 
          MatrixForm[ BoxForm`e$]]], "\[Equal]", 
      TagBox[
        RowBox[{"(", "\[NoBreak]", 
          TagBox[GridBox[{
                {\(Cos[BPsi[t]]\ Cos[Bteta[t]]\ vk[t]\)},
                {\(Sin[Bteta[t]]\ vk[t]\)},
                {\(\(-Cos[Bteta[t]]\)\ Sin[BPsi[t]]\ vk[t]\)}
                },
              RowSpacings->1,
              ColumnAlignments->{Left}],
            Column], "\[NoBreak]", ")"}],
        Function[ BoxForm`e$, 
          MatrixForm[ BoxForm`e$]]]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(ukpd1 = 
      D[R[\([\)\(1\)\(]\)], t] \[Equal] vg[\([\)\(1\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.497586747972254*^9, 3.4975867484402547`*^9}, \
{3.4975867910595293`*^9, 3.497586816362774*^9}}],

Cell[BoxData[
    RowBox[{
      RowBox[{
        SuperscriptBox["L", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], 
      "\[Equal]", \(Cos[BPsi[t]]\ Cos[Bteta[t]]\ vk[t]\)}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(ukpd2 = 
      D[R[\([\)\(2\)\(]\)], t] \[Equal] vg[\([\)\(2\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.497586828187595*^9, 3.497586838343213*^9}}],

Cell[BoxData[
    RowBox[{
      RowBox[{
        SuperscriptBox["H", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], 
      "\[Equal]", \(Sin[Bteta[t]]\ vk[t]\)}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(ukpd3 = 
      D[R[\([\)\(3\)\(]\)], t] \[Equal] vg[\([\)\(3\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.49758684244602*^9, 3.4975868521492367`*^9}}],

Cell[BoxData[
    RowBox[{
      RowBox[{
        SuperscriptBox["dZ", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], 
      "\[Equal]", \(\(-Cos[Bteta[t]]\)\ Sin[BPsi[t]]\ vk[t]\)}]], "Output"]
}, Open  ]],

Cell[TextData[StyleBox["\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\
\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \
\:043f\:043e\:0441\:0442\:0443\:043f\:0430\:0442\:0435\:043b\:044c\:043d\:043e\
\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f",
  FontSize->36,
  FontWeight->"Bold"]], "Text",
  CellChangeTimes -> {{3.497586871571271*^9, 3.497586886360097*^9}, \
3.497588536719396*^9, 3.4975918746797714`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(v\)\(=\)\({vx[t], vy[t], 
        vz[t]}\)\(\ \)\( (*\:0412\:0435\:043a\:0442\:043e\:0440\ \:0432\:043e\
\:0437\:0434\:0443\:0448\:043d\:043e\:0439\ \:0441\:043a\:043e\:0440\:043e\
\:0441\:0442\:0438\ \:041b\:0410\ \:0432\ \
\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439\ \:0441\:0438\:0441\
\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\
\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975869047369294`*^9, 3.4975869127241435`*^9}}],

Cell[BoxData[
    \({vx[t], vy[t], vz[t]}\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(Clear[fx, fy, fz]\)], "Input",
  CellChangeTimes -> {{3.497586936732586*^9, 3.497586938198988*^9}, \
{3.497598985694498*^9, 3.497599008476801*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(f\)\(=\)\({fx, fy, 
        fz}\)\(\ \)\( (*\:0412\:0435\:043a\:0442\:043e\:0440\ \:0440\:0435\
\:0437\:0443\:043b\:044c\:0442\:0438\:0440\:0443\:044e\:0449\:0435\:0439\ \
\:0441\:0438\:043b, \ \:0434\:0435\:0439\:0441\:0442\:0432\:0443\:044e\:0449\
\:0438\:0445\ \:043d\:0430\ \:041b\:0410\ \:0432\ \:043f\:043e\:043b\:0435\
\:0442\:0435, \ \:0432\ \
\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439\ \:0441\:0438\:0441\
\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\
\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497586936732586*^9, 3.497586938198988*^9}, \
{3.497598985694498*^9, 3.497599008476801*^9}}],

Cell[BoxData[
    \({fx, fy, fz}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(w\)\(=\)\({wx[t], wy[t], 
        wz[t]}\)\(\ \)\( (*\:0412\:0435\:043a\:0442\:043e\:0440\ \:0443\:0433\
\:043b\:043e\:0432\:043e\:0439\ \:0441\:043a\:043e\:0440\:043e\:0441\:0442\
\:0438\ \:041b\:0410\ \:0432\ \
\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439\ \:0441\:0438\:0441\
\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\
\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497586955577419*^9, 3.4975869566538205`*^9}}],

Cell[BoxData[
    \({wx[t], wy[t], wz[t]}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
        massa*\((D[v, t] + Cross[w, v])\)]\)\(\[Equal]\)\(MatrixForm[
        f]\)\(\ \)\( (*\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\
\:043a\:043e\:0435\ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435\ \
\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f\ \:0446\:0435\:043d\:0442\
\:0440\:0430\ \:043c\:0430\:0441\:0441\ \:0441\:0430\:043c\:043e\:043b\:0435\
\:0442\:0430\ \:0432\ \:0432\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439\ \
\:0444\:043e\:0440\:043c\:0435*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497586961287029*^9, 3.497586961645829*^9}, \
{3.4975870859000473`*^9, 3.4975871127944946`*^9}}],

Cell[BoxData[
    RowBox[{
      TagBox[
        RowBox[{"(", "\[NoBreak]", 
          TagBox[GridBox[{
                {
                  RowBox[{"massa", " ", 
                    RowBox[{"(", 
                      RowBox[{\(vz[t]\ wy[t]\), "-", \(vy[t]\ wz[t]\), "+", 
                        RowBox[{
                          SuperscriptBox["vx", "\[Prime]",
                            MultilineFunction->None], "[", "t", "]"}]}], 
                      ")"}]}]},
                {
                  RowBox[{"massa", " ", 
                    RowBox[{"(", 
                      
                      RowBox[{\(\(-vz[t]\)\ wx[t]\), "+", \(vx[t]\ wz[t]\), 
                        "+", 
                        RowBox[{
                          SuperscriptBox["vy", "\[Prime]",
                            MultilineFunction->None], "[", "t", "]"}]}], 
                      ")"}]}]},
                {
                  RowBox[{"massa", " ", 
                    RowBox[{"(", 
                      RowBox[{\(vy[t]\ wx[t]\), "-", \(vx[t]\ wy[t]\), "+", 
                        RowBox[{
                          SuperscriptBox["vz", "\[Prime]",
                            MultilineFunction->None], "[", "t", "]"}]}], 
                      ")"}]}]}
                },
              RowSpacings->1,
              ColumnAlignments->{Left}],
            Column], "\[NoBreak]", ")"}],
        Function[ BoxForm`e$, 
          MatrixForm[ BoxForm`e$]]], "\[Equal]", 
      TagBox[
        RowBox[{"(", "\[NoBreak]", 
          TagBox[GridBox[{
                {"fx"},
                {"fy"},
                {"fz"}
                },
              RowSpacings->1,
              ColumnAlignments->{Left}],
            Column], "\[NoBreak]", ")"}],
        Function[ BoxForm`e$, 
          MatrixForm[ BoxForm`e$]]]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(udpd1 = \((massa*\((D[v, t] + 
                  Cross[w, v])\))\)[\([\)\(1\)\(]\)] \[Equal] 
        f[\([\)\(1\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.497587158346575*^9, 3.4975872255514927`*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(udpd1\\)\\\" is similar to existing symbol \
\\\"\\!\\(ukpd1\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    RowBox[{
      RowBox[{"massa", " ", 
        RowBox[{"(", 
          RowBox[{\(vz[t]\ wy[t]\), "-", \(vy[t]\ wz[t]\), "+", 
            RowBox[{
              SuperscriptBox["vx", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], 
      "\[Equal]", "fx"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(udpd2 = \((massa*\((D[v, t] + 
                  Cross[w, v])\))\)[\([\)\(2\)\(]\)] \[Equal] 
        f[\([\)\(2\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.4975872367367125`*^9, 3.497587247251131*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(udpd2\\)\\\" is similar to existing symbol \
\\\"\\!\\(ukpd2\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    RowBox[{
      RowBox[{"massa", " ", 
        RowBox[{"(", 
          RowBox[{\(\(-vz[t]\)\ wx[t]\), "+", \(vx[t]\ wz[t]\), "+", 
            RowBox[{
              SuperscriptBox["vy", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], 
      "\[Equal]", "fy"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(udpd3 = \((massa*\((D[v, t] + 
                  Cross[w, v])\))\)[\([\)\(3\)\(]\)] \[Equal] 
        f[\([\)\(3\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.497587250839137*^9, 3.497587262242757*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(udpd3\\)\\\" is similar to existing symbol \
\\\"\\!\\(ukpd3\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    RowBox[{
      RowBox[{"massa", " ", 
        RowBox[{"(", 
          RowBox[{\(vy[t]\ wx[t]\), "-", \(vx[t]\ wy[t]\), "+", 
            RowBox[{
              SuperscriptBox["vz", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], 
      "\[Equal]", "fz"}]], "Output"]
}, Open  ]],

Cell[TextData[StyleBox["\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\
\:0435\:0441\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\
\:0438\:044f \:0432\:0440\:0430\:0449\:0430\:0442\:0435\:043b\:044c\:043d\
\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f",
  FontSize->36,
  FontWeight->"Bold"]], "Text",
  CellChangeTimes -> {{3.497587293021611*^9, 3.497587305735634*^9}, \
3.4975885385601993`*^9, 3.497591876629883*^9}],

Cell[CellGroupData[{

Cell[BoxData[
    \(proekc = \(\({D[LGamma[t], t], 0, 
          0}\)\(+\)\(Transpose[MM2 . MM3] . {0, D[LPsi[t], t], 
            0}\)\(+\)\(Transpose[MM3] . {0, 0, 
            D[LTeta[t], 
              t]}\)\(\ \)\( \
(*\:041f\:0440\:043e\:0435\:0446\:0438\:0440\:0443\:0435\:043c\ \:0443\:0433\
\:043b\:043e\:0432\:044b\:0435\ \:0441\:043a\:043e\:0440\:043e\:0441\:0442\
\:0438\ \:0440\:044b\:0441\:043a\:0430\:043d\:0438\:044f, \ \
\:0442\:0430\:043d\:0433\:0430\:0436\:0430\ \:0438\ \:043a\:0440\:0435\:043d\
\:0430\ \:043d\:0430\ \:043e\:0441\:0438\ \
\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439\ \:0441\:0438\:0441\
\:0442\:0435\:043c\:044b\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\
\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497587314456049*^9, 3.497587333722083*^9}}],

Cell[BoxData[
    RowBox[{"{", 
      RowBox[{
        RowBox[{
          RowBox[{
            SuperscriptBox["LGamma", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "+", 
          RowBox[{\(Sin[LTeta[t]]\), " ", 
            RowBox[{
              SuperscriptBox["LPsi", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}]}], ",", 
        RowBox[{
          RowBox[{\(Cos[LGamma[t]]\), " ", \(Cos[LTeta[t]]\), " ", 
            RowBox[{
              SuperscriptBox["LPsi", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{\(Sin[LGamma[t]]\), " ", 
            RowBox[{
              SuperscriptBox["LTeta", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}]}], ",", 
        RowBox[{
          RowBox[{\(-Cos[LTeta[t]]\), " ", \(Sin[LGamma[t]]\), " ", 
            RowBox[{
              SuperscriptBox["LPsi", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{\(Cos[LGamma[t]]\), " ", 
            RowBox[{
              SuperscriptBox["LTeta", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}]}]}], 
      "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(ukvd1 = w[\([\)\(1\)\(]\)] \[Equal] proekc[\([\)\(1\)\(]\)]\)], "Input",\

  CellChangeTimes -> {{3.4975873614433317`*^9, 3.4975873621609325`*^9}, \
{3.497587394203389*^9, 3.4975874210510364`*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(ukvd1\\)\\\" is similar to existing symbol \
\\\"\\!\\(ukpd1\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    RowBox[{\(wx[t]\), "\[Equal]", 
      RowBox[{
        RowBox[{
          SuperscriptBox["LGamma", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "+", 
        RowBox[{\(Sin[LTeta[t]]\), " ", 
          RowBox[{
            SuperscriptBox["LPsi", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(ukvd2 = w[\([\)\(2\)\(]\)] \[Equal] proekc[\([\)\(2\)\(]\)]\)], "Input",\

  CellChangeTimes -> {{3.4975874306918535`*^9, 3.4975874397710695`*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(ukvd2\\)\\\" is similar to existing symbol \
\\\"\\!\\(ukpd2\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    RowBox[{\(wy[t]\), "\[Equal]", 
      RowBox[{
        RowBox[{\(Cos[LGamma[t]]\), " ", \(Cos[LTeta[t]]\), " ", 
          RowBox[{
            SuperscriptBox["LPsi", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}], "+", 
        RowBox[{\(Sin[LGamma[t]]\), " ", 
          RowBox[{
            SuperscriptBox["LTeta", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(ukvd3 = w[\([\)\(3\)\(]\)] \[Equal] proekc[\([\)\(3\)\(]\)]\)], "Input",\

  CellChangeTimes -> {{3.497587445402679*^9, 3.4975874553086967`*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(ukvd3\\)\\\" is similar to existing symbol \
\\\"\\!\\(ukpd3\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    RowBox[{\(wz[t]\), "\[Equal]", 
      RowBox[{
        RowBox[{\(-Cos[LTeta[t]]\), " ", \(Sin[LGamma[t]]\), " ", 
          RowBox[{
            SuperscriptBox["LPsi", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}], "+", 
        RowBox[{\(Cos[LGamma[t]]\), " ", 
          RowBox[{
            SuperscriptBox["LTeta", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output"]
}, Open  ]],

Cell[TextData[StyleBox["\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\
\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \
\:0432\:0440\:0430\:0449\:0430\:0442\:0435\:043b\:044c\:043d\:043e\:0433\:043e\
 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f",
  FontSize->36,
  FontWeight->"Bold"]], "Text",
  CellChangeTimes -> {{3.497587484622348*^9, 3.4975875020163784`*^9}, \
3.497588540697403*^9, 3.4975918781949725`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      TI = {{Ixx, \(-Ixy\), \(-Ixz\)}, {\(-Iyx\), 
            Iyy, \(-Iyz\)}, {\(-Izx\), \(-Izy\), 
            Izz}}]\)\(\ \)\( (*\:0422\:0435\:043d\:0437\:043e\:0440\ \:0438\
\:043d\:0435\:0440\:0446\:0438\:0438*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975875047619834`*^9, 3.4975875185680075`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"Ixx", \(-Ixy\), \(-Ixz\)},
            {\(-Iyx\), "Iyy", \(-Iyz\)},
            {\(-Izx\), \(-Izy\), "Izz"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Ixz = \(Izx = \(Iyz = \(\(Izy\)\(=\)\(0\)\(\ \)\( (*\:041e\:0441\:044c\ \
OZ\ \:043f\:0435\:0440\:043f\:0435\:043d\:0434\:0438\:043a\:0443\:043b\:044f\
\:0440\:043d\:0430\ \:043f\:043b\:043e\:0441\:043a\:043e\:0441\:0442\:0438\ \
\:0441\:0438\:043c\:043c\:0435\:0442\:0440\:0438\:0438\ XOY*) \)\)\)\)\)], \
"Input",
  CellChangeTimes -> {{3.4975875343864355`*^9, 3.4975875353224373`*^9}}],

Cell[BoxData[
    \(0\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Iyx = Ixy\)], "Input",
  CellChangeTimes -> {{3.497587556834875*^9, 3.4975875683476954`*^9}}],

Cell[BoxData[
    \(Ixy\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(MatrixForm[TI]\)], "Input",
  CellChangeTimes -> {{3.4975875883313303`*^9, 3.4975875892049313`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"Ixx", \(-Ixy\), "0"},
            {\(-Ixy\), "Iyy", "0"},
            {"0", "0", "Izz"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      K = TI . w]\)\(\ \)\( (*\:0413\:043b\:0430\:0432\:043d\:044b\:0439\ \
\:043c\:043e\:043c\:0435\:043d\:0442\ \:043a\:043e\:043b\:0438\:0447\:0435\
\:0441\:0442\:0432\ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f\ \:0432\ \
\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439\ \:0441\:0438\:0441\
\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\
\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.49758760528856*^9, 3.4975876064897623`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {\(Ixx\ wx[t] - Ixy\ wy[t]\)},
              {\(\(-Ixy\)\ wx[t] + Iyy\ wy[t]\)},
              {\(Izz\ wz[t]\)}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[BoxData[
    \(Clear[Mx, My, Mz]\)], "Input",
  CellChangeTimes -> {{3.497587624102193*^9, 3.497587643352627*^9}, \
{3.4975990178283362`*^9, 3.4975990337062445`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(M\)\(=\)\({Mx, My, 
        Mz}\)\(\ \)\( \
(*\:0420\:0435\:0437\:0443\:043b\:044c\:0442\:0438\:0440\:0443\:044e\:0449\
\:0438\:0439\ \:043c\:043e\:043c\:0435\:043d\:0442\ \:0430\:044d\:0440\:043e\
\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\:043a\:0438\:0445\ \
\:0441\:0438\:043b\ \:0438\ \:0442\:044f\:0433\:0438\ \:0432\ \:0441\:0432\
\:044f\:0437\:0430\:043d\:043d\:043e\:0439\ \:0441\:0438\:0441\:0442\:0435\
\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442 \
\((\:041c\:043e\:043c\:0435\:043d\:0442\ \:0441\:0438\:043b\:044b\ \:0442\
\:044f\:0436\:0435\:0441\:0442\:0438, \ \:0446\:0435\:043d\:0442\:0440\:043e\
\:0431\:0435\:0436\:043d\:044b\:0445\ \:0438\ \:043a\:043e\:0440\:0438\:043e\
\:043b\:0438\:0441\:043e\:0432\:044b\:0445\ \:0441\:0438\:043b\ \:0438\:043d\
\:0435\:0440\:0446\:0438\:0438\ \:0432\:043e\:043a\:0440\:0443\:0433\ \:0446\
\:0435\:043d\:0442\:0440\:0430\ \:043c\:0430\:0441\:0441\ \:041b\:0410\ \
\:0440\:0430\:0432\:0435\:043d\ \:043d\:0443\:043b\:044e)\)*) \)\)\)], "Input",\

  CellChangeTimes -> {{3.497587624102193*^9, 3.497587643352627*^9}, \
{3.4975990178283362`*^9, 3.4975990337062445`*^9}}],

Cell[BoxData[
    \({Mx, My, Mz}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(lchudvd = \(\(D[K, t]\)\(+\)\(Cross[w, 
          K]\)\(\ \)\( (*\:041f\:043e\:043b\:043d\:0430\:044f\ \:043f\:0440\
\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f\ \:043f\:043e\ \:0432\
\:0440\:0435\:043c\:0435\:043d\:0438\ \:0433\:043b\:0430\:0432\:043d\:043e\
\:0433\:043e\ \:0432\:0435\:043a\:0442\:043e\:0440\:0430\ \:043c\:043e\:043c\
\:0435\:043d\:0442\:0430\ \:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\
\:0432\ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497587684006298*^9, 3.4975877116963468`*^9}}],

Cell[BoxData[
    RowBox[{"{", 
      RowBox[{
        RowBox[{\(Ixy\ wx[t]\ wz[t]\), "-", \(Iyy\ wy[t]\ wz[t]\), 
          "+", \(Izz\ wy[t]\ wz[t]\), "+", 
          RowBox[{"Ixx", " ", 
            RowBox[{
              SuperscriptBox["wx", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "-", 
          RowBox[{"Ixy", " ", 
            RowBox[{
              SuperscriptBox["wy", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}]}], ",", 
        RowBox[{\(Ixx\ wx[t]\ wz[t]\), "-", \(Izz\ wx[t]\ wz[t]\), 
          "-", \(Ixy\ wy[t]\ wz[t]\), "-", 
          RowBox[{"Ixy", " ", 
            RowBox[{
              SuperscriptBox["wx", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{"Iyy", " ", 
            RowBox[{
              SuperscriptBox["wy", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}]}], ",", 
        RowBox[{\(\(-Ixy\)\ wx[t]\^2\), "-", \(Ixx\ wx[t]\ wy[t]\), 
          "+", \(Iyy\ wx[t]\ wy[t]\), "+", \(Ixy\ wy[t]\^2\), "+", 
          RowBox[{"Izz", " ", 
            RowBox[{
              SuperscriptBox["wz", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}]}]}]}], 
      "}"}]], "Output"]
}, Open  ]],

Cell["\<\
\:041f\:043e\:043b\:043d\:0430\:044f \:043f\:0440\:043e\:0438\:0437\:0432\
\:043e\:0434\:043d\:0430\:044f \:0433\:043b\:0430\:0432\:043d\:043e\:0433\
\:043e \:0432\:0435\:043a\:0442\:043e\:0440\:0430 \:043c\:043e\:043c\:0435\
\:043d\:0442\:0430 \:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432 \
\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0440\:0430\:0432\:043d\
\:0430 \:0433\:043b\:0430\:0432\:043d\:043e\:043c\:0443 \:043c\:043e\:043c\
\:0435\:043d\:0442\:0443 \:0432\:043d\:0435\:0448\:043d\:0438\:0445 \:0441\
\:0438\:043b, \:0434\:0435\:0439\:0441\:0442\:0432\:0443\:044e\:0449\:0438\
\:0445 \:043d\:0430 \:0442\:0435\:043b\:043e.\
\>", "Text",
  CellChangeTimes -> {{3.497587731243181*^9, 3.4975877421788006`*^9}, \
3.4975885477954154`*^9, 3.497591881210145*^9, {3.4981973432989635`*^9, \
3.4981973438329935`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(udvd1 = M[\([\)\(1\)\(]\)] == lchudvd[\([\)\(1\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.4975877461880074`*^9, 3.4975877801180673`*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(udvd1\\)\\\" is similar to existing symbols \
\\!\\({udpd1, ukvd1}\\). \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    RowBox[{"Mx", "\[Equal]", 
      RowBox[{\(Ixy\ wx[t]\ wz[t]\), "-", \(Iyy\ wy[t]\ wz[t]\), 
        "+", \(Izz\ wy[t]\ wz[t]\), "+", 
        RowBox[{"Ixx", " ", 
          RowBox[{
            SuperscriptBox["wx", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}], "-", 
        RowBox[{"Ixy", " ", 
          RowBox[{
            SuperscriptBox["wy", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(udvd2 = M[\([\)\(2\)\(]\)] == lchudvd[\([\)\(2\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.497587804064109*^9, 3.49758781606053*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(udvd2\\)\\\" is similar to existing symbols \
\\!\\({udpd2, ukvd2}\\). \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    RowBox[{"My", "\[Equal]", 
      RowBox[{\(Ixx\ wx[t]\ wz[t]\), "-", \(Izz\ wx[t]\ wz[t]\), 
        "-", \(Ixy\ wy[t]\ wz[t]\), "-", 
        RowBox[{"Ixy", " ", 
          RowBox[{
            SuperscriptBox["wx", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}], "+", 
        RowBox[{"Iyy", " ", 
          RowBox[{
            SuperscriptBox["wy", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(udvd3 = M[\([\)\(3\)\(]\)] == lchudvd[\([\)\(3\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.497587823985344*^9, 3.4975878333609605`*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(udvd3\\)\\\" is similar to existing symbols \
\\!\\({udpd3, ukvd3}\\). \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    RowBox[{"Mz", "\[Equal]", 
      RowBox[{\(\(-Ixy\)\ wx[t]\^2\), "-", \(Ixx\ wx[t]\ wy[t]\), 
        "+", \(Iyy\ wx[t]\ wy[t]\), "+", \(Ixy\ wy[t]\^2\), "+", 
        RowBox[{"Izz", " ", 
          RowBox[{
            SuperscriptBox["wz", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      polnsyst = {ukpd1, ukpd2, ukpd3, udpd1, udpd2, udpd3, ukvd1, ukvd2, 
          ukvd3, udvd1, udvd2, 
          udvd3}]\)\(\ \)\( (*\:041f\:043e\:043b\:043d\:0430\:044f\ \:0441\
\:0438\:0441\:0442\:0435\:043c\:0430\ \:0443\:0440\:0430\:0432\:043d\:0435\
\:043d\:0438\:0439\ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f\ \:041b\
\:0410*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975879099726954`*^9, 3.4975880393437223`*^9}, \
{3.4975880725717807`*^9, 3.497588096439823*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["L", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(Cos[BPsi[t]]\ Cos[Bteta[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["H", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(Sin[Bteta[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["dZ", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(\(-Cos[Bteta[t]]\)\ Sin[BPsi[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{"massa", " ", 
                    RowBox[{"(", 
                      RowBox[{\(vz[t]\ wy[t]\), "-", \(vy[t]\ wz[t]\), "+", 
                        RowBox[{
                          SuperscriptBox["vx", "\[Prime]",
                            MultilineFunction->None], "[", "t", "]"}]}], 
                      ")"}]}], "\[Equal]", "fx"}]},
              {
                RowBox[{
                  RowBox[{"massa", " ", 
                    RowBox[{"(", 
                      
                      RowBox[{\(\(-vz[t]\)\ wx[t]\), "+", \(vx[t]\ wz[t]\), 
                        "+", 
                        RowBox[{
                          SuperscriptBox["vy", "\[Prime]",
                            MultilineFunction->None], "[", "t", "]"}]}], 
                      ")"}]}], "\[Equal]", "fy"}]},
              {
                RowBox[{
                  RowBox[{"massa", " ", 
                    RowBox[{"(", 
                      RowBox[{\(vy[t]\ wx[t]\), "-", \(vx[t]\ wy[t]\), "+", 
                        RowBox[{
                          SuperscriptBox["vz", "\[Prime]",
                            MultilineFunction->None], "[", "t", "]"}]}], 
                      ")"}]}], "\[Equal]", "fz"}]},
              {
                RowBox[{\(wx[t]\), "\[Equal]", 
                  RowBox[{
                    RowBox[{
                      SuperscriptBox["LGamma", "\[Prime]",
                        MultilineFunction->None], "[", "t", "]"}], "+", 
                    RowBox[{\(Sin[LTeta[t]]\), " ", 
                      RowBox[{
                        SuperscriptBox["LPsi", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]},
              {
                RowBox[{\(wy[t]\), "\[Equal]", 
                  RowBox[{
                    RowBox[{\(Cos[LGamma[t]]\), " ", \(Cos[LTeta[t]]\), " ", 
                      RowBox[{
                        SuperscriptBox["LPsi", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}], "+", 
                    RowBox[{\(Sin[LGamma[t]]\), " ", 
                      RowBox[{
                        SuperscriptBox["LTeta", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]},
              {
                RowBox[{\(wz[t]\), "\[Equal]", 
                  RowBox[{
                    
                    RowBox[{\(-Cos[LTeta[t]]\), " ", \(Sin[LGamma[t]]\), " ", 
                      
                      RowBox[{
                        SuperscriptBox["LPsi", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}], "+", 
                    RowBox[{\(Cos[LGamma[t]]\), " ", 
                      RowBox[{
                        SuperscriptBox["LTeta", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]},
              {
                RowBox[{"Mx", "\[Equal]", 
                  
                  RowBox[{\(Ixy\ wx[t]\ wz[t]\), "-", \(Iyy\ wy[t]\ wz[t]\), 
                    "+", \(Izz\ wy[t]\ wz[t]\), "+", 
                    RowBox[{"Ixx", " ", 
                      RowBox[{
                        SuperscriptBox["wx", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}], "-", 
                    RowBox[{"Ixy", " ", 
                      RowBox[{
                        SuperscriptBox["wy", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]},
              {
                RowBox[{"My", "\[Equal]", 
                  
                  RowBox[{\(Ixx\ wx[t]\ wz[t]\), "-", \(Izz\ wx[t]\ wz[t]\), 
                    "-", \(Ixy\ wy[t]\ wz[t]\), "-", 
                    RowBox[{"Ixy", " ", 
                      RowBox[{
                        SuperscriptBox["wx", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}], "+", 
                    RowBox[{"Iyy", " ", 
                      RowBox[{
                        SuperscriptBox["wy", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]},
              {
                RowBox[{"Mz", "\[Equal]", 
                  
                  RowBox[{\(\(-Ixy\)\ wx[t]\^2\), "-", \(Ixx\ wx[t]\ wy[t]\), 
                    "+", \(Iyy\ wx[t]\ wy[t]\), "+", \(Ixy\ wy[t]\^2\), "+", 
                    RowBox[{"Izz", " ", 
                      RowBox[{
                        SuperscriptBox["wz", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[TextData[StyleBox["\:0423\:0442\:043e\:0447\:043d\:0438\:043c \:0437\
\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:0438 \:0434\:043b\
\:044f \:0441\:0438\:043b \:0438 \:043c\:043e\:043c\:0435\:043d\:0442\:043e\
\:0432",
  FontSize->18,
  FontWeight->"Bold"]], "Text",
  CellChangeTimes -> {{3.497600305575991*^9, 3.497600306522045*^9}, \
{3.49760039017583*^9, 3.4976004402396936`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
    \(Clear[Cy]\), "\[IndentingNewLine]", 
    \(Cy[Alpha[t], Mah[t], ugolstrel, ugolVobr, dzak[t], 
        drv[t]] = \(\(D[
          Cy[Alpha[t], Mah[t], ugolstrel, ugolVobr, dzak[t], drv[t]], 
          Alpha[t]]\)\(*\)\((Alpha[t] - 
            Alpha0)\)\(\ \)\( (*\:041a\:043e\:044d\:0444\:0444\:0438\:0446\
\:0438\:0435\:043d\:0442\ \:043f\:043e\:0434\:044a\:0451\:043c\:043d\:043e\
\:0439\ \:0441\:0438\:043b\:044b*) \)\)\)}], "Input",
  CellChangeTimes -> {{3.4975991577233377`*^9, 3.4975991780475*^9}, \
{3.4976005136688933`*^9, 3.497600533351019*^9}, {3.4976006044280844`*^9, \
3.4976006047381024`*^9}}],

Cell[BoxData[
    RowBox[{\((\(-Alpha0\) + Alpha[t])\), " ", 
      RowBox[{
        SuperscriptBox["Cy", 
          TagBox[\((1, 0, 0, 0, 0, 0)\),
            Derivative],
          MultilineFunction->None], "[", \(Alpha[t], Mah[t], ugolstrel, 
        ugolVobr, dzak[t], drv[t]\), "]"}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(lyambda\)\(=\)\(\((l^2)\)/
        S\)\(\ \)\( (*\:041e\:0442\:043d\:043e\:0441\:0438\:0442\:0435\:043b\
\:044c\:043d\:043e\:0435\ \:0443\:0434\:043b\:0438\:043d\:0435\:043d\:0438\
\:0435\ \:043a\:0440\:044b\:043b\:0430*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975991906462207`*^9, 3.4975992088042593`*^9}, \
{3.497600663477462*^9, 3.4976006812194767`*^9}}],

Cell[BoxData[
    \(l\^2\/S\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Cx = \(\(Cx0\)\(+\)\(\((Cy[Alpha[t], Mah[t], ugolstrel, ugolVobr, 
                dzak[t], drv[t]]^2)\)/\((lyambda*
              Pi)\)\)\(\ \)\( (*\:041a\:043e\:044d\:0444\:0444\:0438\:0446\
\:0438\:0435\:043d\:0442\ \:0441\:0438\:043b\:044b\ \:043b\:043e\:0431\:043e\
\:0432\:043e\:0433\:043e\ \:0441\:043e\:043f\:0440\:043e\:0442\:0438\:0432\
\:043b\:0435\:043d\:0438\:044f*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497599212898494*^9, 3.4975992231420794`*^9}, \
{3.4976006112634754`*^9, 3.497600626936372*^9}, {3.497630054132078*^9, \
3.4976300602564282`*^9}}],

Cell[BoxData[
    RowBox[{"Cx0", "+", 
      FractionBox[
        RowBox[{"S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), " ", 
          SuperscriptBox[
            RowBox[{
              SuperscriptBox["Cy", 
                TagBox[\((1, 0, 0, 0, 0, 0)\),
                  Derivative],
                MultilineFunction->None], "[", \(Alpha[t], Mah[t], ugolstrel, 
              ugolVobr, dzak[t], drv[t]\), "]"}], 
            "2"]}], \(l\^2\ \[Pi]\)]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\( (*q = \((ro[H[t]]*\((vk[t])\)^2)\)/
            2\ \:0421\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439\ \
\:043d\:0430\:043f\:043e\:0440*) \)\(\[IndentingNewLine]\)\(q = \
\((\[Rho]*\((vk[t])\)^2)\)/2\)\)\)], "Input",
  CellChangeTimes -> {{3.4975992278863506`*^9, 3.4975992500866203`*^9}, \
{3.4976008624668436`*^9, 3.497600873638482*^9}, {3.5009547630472775`*^9, \
3.500954785199545*^9}}],

Cell[BoxData[
    \(1\/2\ \[Rho]\ vk[t]\^2\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\( (*Maer = {kmx[Betta[t], ugolstrel, deler[t], drn[t], wx[t], wy[t], 
              Mah[t]]*q*s*l, 
          kmy[Betta[t], ugolstrel, deler[t], drn[t], wx[t], wy[t], Mah[t]]*q*
            s*l, kmz[
              Cy[Alpha[t], Mah[t], ugolstrel, ugolVobr, dzak[t], drv[t]], 
              ugolVobr, drv[t], dzak[t], wz[t], D[Alpha[t], t], Mah[t]]*q*s*
            ba}*) \)\(\ \)\( (*\:0410\:044d\:0440\:043e\:0434\:0438\:043d\
\:0430\:043c\:0438\:0447\:0435\:0441\:043a\:0438\:0439\ \:043c\:043e\:043c\
\:0435\:043d\:0442*) \)\(\[IndentingNewLine]\)\(\(Maer\)\(=\)\({kmx*q*s*l, 
        kmy*q*s*l, 
        kmz*q*s*ba}\)\(\ \)\( (*\:0410\:044d\:0440\:043e\:0434\:0438\:043d\
\:0430\:043c\:0438\:0447\:0435\:0441\:043a\:0438\:0439\ \:043c\:043e\:043c\
\:0435\:043d\:0442*) \)\)\)\)], "Input",
  CellChangeTimes -> {{3.497599252372751*^9, 3.4975992689537*^9}, \
{3.4975996393918877`*^9, 3.4975996416660175`*^9}, {3.497631684209313*^9, \
3.4976316914417267`*^9}, {3.4976318215831704`*^9, 3.4976318355919714`*^9}, \
{3.4976321594094925`*^9, 3.497632160889578*^9}, {3.5009548134111586`*^9, \
3.5009548241277714`*^9}}],

Cell[BoxData[
    \({1\/2\ kmx\ l\ s\ \[Rho]\ vk[t]\^2, 1\/2\ kmy\ l\ s\ \[Rho]\ vk[t]\^2, 
      1\/2\ ba\ kmz\ s\ \[Rho]\ vk[t]\^2}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\( (*faer = {\(-Cx\)*q*s, 
          Cy[Alpha[t], Mah[t], ugolstrel, ugolVobr, dzak[t], drv[t]]*q*s, 
          Cz[Betta[t], drn[t]]*q*
            s}*) \)\(\ \)\( \
(*\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\
\:0441\:043a\:0430\:044f\ \:0441\:0438\:043b\:0430\ \:0432\ \
\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439\ \:0441\:0438\
\:0441\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\
\:0430\:0442*) \)\(\[IndentingNewLine]\)\(\(faer\)\(=\)\({\(-Cx\)*q*s, 
        Cy[Alpha[t]]*q*s, 
        Cz[Betta[t], drn[t]]*q*
          s}\)\( (*\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\
\:0438\:0447\:0435\:0441\:043a\:0430\:044f\ \:0441\:0438\:043b\:0430\ \:0432\ \
\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439\ \:0441\:0438\
\:0441\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\
\:0430\:0442*) \)\)\)\)], "Input",
  CellChangeTimes -> {{3.4975992774281845`*^9, 3.4975992898668957`*^9}, \
{3.4975996475543547`*^9, 3.497599647931376*^9}, {3.497633489397564*^9, \
3.497633491926708*^9}, {3.497633566389968*^9, 3.4976335947475896`*^9}, \
3.497634057808075*^9, {3.5009548864113336`*^9, 3.5009548935367413`*^9}}],

Cell[BoxData[
    RowBox[{"{", 
      RowBox[{
        RowBox[{\(1\/2\), " ", "s", " ", "\[Rho]", " ", \(vk[t]\^2\), " ", 
          RowBox[{"(", 
            RowBox[{\(-Cx0\), "-", 
              FractionBox[
                RowBox[{"S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), " ", 
                  SuperscriptBox[
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}], 
                    "2"]}], \(l\^2\ \[Pi]\)]}], ")"}]}], 
        ",", \(1\/2\ s\ \[Rho]\ Cy[Alpha[t]]\ vk[t]\^2\), 
        ",", \(1\/2\ s\ \[Rho]\ Cz[Betta[t], drn[t]]\ vk[t]\^2\)}], 
      "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      faersv = SM . 
          faer]\)\( (*\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\
\:0438\:0447\:0435\:0441\:043a\:0430\:044f\ \:0441\:0438\:043b\:0430\ \:0432\ \
\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439\ \:0441\:0438\:0441\
\:0442\:0435\:043c\:0435\ \:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\
\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4976337675464735`*^9, 3.4976338336632547`*^9}, \
{3.497633869195287*^9, 3.497633882677058*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {
                
                RowBox[{\(1\/2\ s\ \[Rho]\ Cy[Alpha[t]]\ Sin[
                      Alpha[t]]\ vk[t]\^2\), 
                  "-", \(1\/2\ s\ \[Rho]\ Cos[Alpha[t]]\ Cz[Betta[t], 
                      drn[t]]\ Sin[Betta[t]]\ vk[t]\^2\), "+", 
                  
                  RowBox[{\(1\/2\), " ", "s", " ", "\[Rho]", 
                    " ", \(Cos[Alpha[t]]\), " ", \(Cos[Betta[t]]\), 
                    " ", \(vk[t]\^2\), " ", 
                    RowBox[{"(", 
                      RowBox[{\(-Cx0\), "-", 
                        FractionBox[
                          RowBox[{
                          "S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), " ", 
                            
                            SuperscriptBox[
                              RowBox[{
                                SuperscriptBox["Cy", 
                                  TagBox[\((1, 0, 0, 0, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(Alpha[t], 
                                Mah[t], ugolstrel, ugolVobr, dzak[t], 
                                drv[t]\), "]"}], "2"]}], \(l\^2\ \[Pi]\)]}], 
                      ")"}]}]}]},
              {
                
                RowBox[{\(1\/2\ s\ \[Rho]\ Cos[Alpha[t]]\ Cy[
                      Alpha[t]]\ vk[t]\^2\), 
                  "+", \(1\/2\ s\ \[Rho]\ Cz[Betta[t], drn[t]]\ Sin[
                      Alpha[t]]\ Sin[Betta[t]]\ vk[t]\^2\), "-", 
                  
                  RowBox[{\(1\/2\), " ", "s", " ", "\[Rho]", 
                    " ", \(Cos[Betta[t]]\), " ", \(Sin[Alpha[t]]\), 
                    " ", \(vk[t]\^2\), " ", 
                    RowBox[{"(", 
                      RowBox[{\(-Cx0\), "-", 
                        FractionBox[
                          RowBox[{
                          "S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), " ", 
                            
                            SuperscriptBox[
                              RowBox[{
                                SuperscriptBox["Cy", 
                                  TagBox[\((1, 0, 0, 0, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(Alpha[t], 
                                Mah[t], ugolstrel, ugolVobr, dzak[t], 
                                drv[t]\), "]"}], "2"]}], \(l\^2\ \[Pi]\)]}], 
                      ")"}]}]}]},
              {
                
                RowBox[{\(1\/2\ s\ \[Rho]\ Cos[Betta[t]]\ Cz[Betta[t], 
                      drn[t]]\ vk[t]\^2\), "+", 
                  
                  RowBox[{\(1\/2\), " ", "s", " ", "\[Rho]", 
                    " ", \(Sin[Betta[t]]\), " ", \(vk[t]\^2\), " ", 
                    RowBox[{"(", 
                      RowBox[{\(-Cx0\), "-", 
                        FractionBox[
                          RowBox[{
                          "S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), " ", 
                            
                            SuperscriptBox[
                              RowBox[{
                                SuperscriptBox["Cy", 
                                  TagBox[\((1, 0, 0, 0, 0, 0)\),
                                    Derivative],
                                  MultilineFunction->None], "[", \(Alpha[t], 
                                Mah[t], ugolstrel, ugolVobr, dzak[t], 
                                drv[t]\), "]"}], "2"]}], \(l\^2\ \[Pi]\)]}], 
                      ")"}]}]}]}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      Gsv = Transpose[MM] . {0, \(-G\), 
            0}]\)\(\ \)\( (*\:0421\:0438\:043b\:0430\ \
\:0442\:044f\:0436\:0435\:0441\:0442\:0438\ \:0432\ \:0441\:0432\:044f\:0437\
\:0430\:043d\:043d\:043e\:0439\ \:0441\:0438\:0441\:0442\:0435\:043c\:0435\ \
\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4976346480768366`*^9, 3.497634648694872*^9}, \
{3.497635502173688*^9, 3.497635557163833*^9}, {3.49763559067675*^9, \
3.497635637043402*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {\(\(-G\)\ Sin[LTeta[t]]\)},
              {\(\(-G\)\ Cos[LGamma[t]]\ Cos[LTeta[t]]\)},
              {\(G\ Cos[LTeta[t]]\ Sin[LGamma[t]]\)}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Mx = Maer[\([\)\(1\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.497599697097188*^9, 3.4975997207445407`*^9}, \
3.4976318518559017`*^9}],

Cell[BoxData[
    \(1\/2\ kmx\ l\ s\ \[Rho]\ vk[t]\^2\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(My = Maer[\([\)\(2\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.4975997313221455`*^9, 3.4975997419277525`*^9}, \
3.497631854434049*^9}],

Cell[BoxData[
    \(1\/2\ kmy\ l\ s\ \[Rho]\ vk[t]\^2\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Mz = 
      Maer[\([\)\(3\)\(]\)] - P[dsg[t], vk[t], H[t]]*yp*Cos[fip]\)], "Input",
  CellChangeTimes -> {{3.4975997524553547`*^9, 3.497599760986842*^9}, \
{3.4976318576812353`*^9, 3.4976318603493876`*^9}, {3.497632985522744*^9, \
3.497632988280902*^9}, {3.497633029105237*^9, 3.497633099148243*^9}}],

Cell[BoxData[
    \(\(-yp\)\ Cos[fip]\ P[dsg[t], vk[t], H[t]] + 
      1\/2\ ba\ kmz\ s\ \[Rho]\ vk[t]\^2\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(fx = 
      faersv[\([\)\(1\)\(]\)] + Gsv[\([\)\(1\)\(]\)] + 
        P[dsg[t], vk[t], H[t]]*Cos[fip]\)], "Input",
  CellChangeTimes -> {{3.497599771100421*^9, 3.497599790104508*^9}, \
{3.497635700736045*^9, 3.4976357440795245`*^9}, {3.4976357917792525`*^9, \
3.4976357928873158`*^9}}],

Cell[BoxData[
    RowBox[{\(Cos[fip]\ P[dsg[t], vk[t], H[t]]\), "-", \(G\ Sin[LTeta[t]]\), 
      "+", \(1\/2\ s\ \[Rho]\ Cy[Alpha[t]]\ Sin[Alpha[t]]\ vk[t]\^2\), 
      "-", \(1\/2\ s\ \[Rho]\ Cos[Alpha[t]]\ Cz[Betta[t], drn[t]]\ Sin[
          Betta[t]]\ vk[t]\^2\), "+", 
      RowBox[{\(1\/2\), " ", "s", " ", "\[Rho]", " ", \(Cos[Alpha[t]]\), 
        " ", \(Cos[Betta[t]]\), " ", \(vk[t]\^2\), " ", 
        RowBox[{"(", 
          RowBox[{\(-Cx0\), "-", 
            FractionBox[
              RowBox[{"S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), " ", 
                SuperscriptBox[
                  RowBox[{
                    SuperscriptBox["Cy", 
                      TagBox[\((1, 0, 0, 0, 0, 0)\),
                        Derivative],
                      MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                    ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}], 
                  "2"]}], \(l\^2\ \[Pi]\)]}], ")"}]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(fy = 
      faersv[\([\)\(2\)\(]\)] + Gsv[\([\)\(2\)\(]\)] + 
        P[dsg[t], vk[t], H[t]]*Sin[fip]\)], "Input",
  CellChangeTimes -> {{3.4975997993640375`*^9, 3.4975998205822515`*^9}, \
{3.497635769682989*^9, 3.497635774988292*^9}}],

Cell[BoxData[
    RowBox[{\(\(-G\)\ Cos[LGamma[t]]\ Cos[LTeta[t]]\), 
      "+", \(P[dsg[t], vk[t], H[t]]\ Sin[fip]\), 
      "+", \(1\/2\ s\ \[Rho]\ Cos[Alpha[t]]\ Cy[Alpha[t]]\ vk[t]\^2\), 
      "+", \(1\/2\ s\ \[Rho]\ Cz[Betta[t], drn[t]]\ Sin[Alpha[t]]\ Sin[
          Betta[t]]\ vk[t]\^2\), "-", 
      RowBox[{\(1\/2\), " ", "s", " ", "\[Rho]", " ", \(Cos[Betta[t]]\), 
        " ", \(Sin[Alpha[t]]\), " ", \(vk[t]\^2\), " ", 
        RowBox[{"(", 
          RowBox[{\(-Cx0\), "-", 
            FractionBox[
              RowBox[{"S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), " ", 
                SuperscriptBox[
                  RowBox[{
                    SuperscriptBox["Cy", 
                      TagBox[\((1, 0, 0, 0, 0, 0)\),
                        Derivative],
                      MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                    ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}], 
                  "2"]}], \(l\^2\ \[Pi]\)]}], ")"}]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(fz = faersv[\([\)\(3\)\(]\)] + Gsv[\([\)\(3\)\(]\)]\)], "Input",
  CellChangeTimes -> {{3.4975998151999435`*^9, 3.4975998331629705`*^9}, \
{3.4976358071431313`*^9, 3.4976358181837626`*^9}}],

Cell[BoxData[
    RowBox[{\(G\ Cos[LTeta[t]]\ Sin[LGamma[t]]\), 
      "+", \(1\/2\ s\ \[Rho]\ Cos[Betta[t]]\ Cz[Betta[t], drn[t]]\ vk[t]\^2\),
       "+", 
      RowBox[{\(1\/2\), " ", "s", " ", "\[Rho]", " ", \(Sin[Betta[t]]\), 
        " ", \(vk[t]\^2\), " ", 
        RowBox[{"(", 
          RowBox[{\(-Cx0\), "-", 
            FractionBox[
              RowBox[{"S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), " ", 
                SuperscriptBox[
                  RowBox[{
                    SuperscriptBox["Cy", 
                      TagBox[\((1, 0, 0, 0, 0, 0)\),
                        Derivative],
                      MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                    ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}], 
                  "2"]}], \(l\^2\ \[Pi]\)]}], ")"}]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      polnsystut = {ukpd1, ukpd2, ukpd3, udpd1, udpd2, udpd3, ukvd1, ukvd2, 
          ukvd3, udvd1, udvd2, 
          udvd3}]\)\(\ \)\( \
(*\:0423\:0442\:043e\:0447\:043d\:0435\:043d\:043d\:0430\:044f\ \:043f\:043e\
\:043b\:043d\:0430\:044f\ \:0441\:0438\:0441\:0442\:0435\:043c\:0430\ \:0443\
\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439\ \:0434\:0432\:0438\:0436\
\:0435\:043d\:0438\:044f\ \:041b\:0410*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975998846329145`*^9, 3.4975998918743286`*^9}, \
{3.4976367696301823`*^9, 3.4976368267394485`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["L", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(Cos[BPsi[t]]\ Cos[Bteta[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["H", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(Sin[Bteta[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["dZ", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(\(-Cos[Bteta[t]]\)\ Sin[BPsi[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{"massa", " ", 
                    RowBox[{"(", 
                      RowBox[{\(vz[t]\ wy[t]\), "-", \(vy[t]\ wz[t]\), "+", 
                        RowBox[{
                          SuperscriptBox["vx", "\[Prime]",
                            MultilineFunction->None], "[", "t", "]"}]}], 
                      ")"}]}], "\[Equal]", 
                  
                  RowBox[{\(Cos[fip]\ P[dsg[t], vk[t], H[t]]\), 
                    "-", \(G\ Sin[LTeta[t]]\), 
                    "+", \(1\/2\ s\ \[Rho]\ Cy[Alpha[t]]\ Sin[
                        Alpha[t]]\ vk[t]\^2\), 
                    "-", \(1\/2\ s\ \[Rho]\ Cos[Alpha[t]]\ Cz[Betta[t], 
                        drn[t]]\ Sin[Betta[t]]\ vk[t]\^2\), "+", 
                    
                    RowBox[{\(1\/2\), " ", "s", " ", "\[Rho]", 
                      " ", \(Cos[Alpha[t]]\), " ", \(Cos[Betta[t]]\), 
                      " ", \(vk[t]\^2\), " ", 
                      RowBox[{"(", 
                        RowBox[{\(-Cx0\), "-", 
                          FractionBox[
                            RowBox[{
                            "S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), 
                              " ", 
                              SuperscriptBox[
                                RowBox[{
                                  SuperscriptBox["Cy", 
                                    TagBox[\((1, 0, 0, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], 
                                  "[", \(Alpha[t], Mah[t], ugolstrel, 
                                  ugolVobr, dzak[t], drv[t]\), "]"}], 
                                "2"]}], \(l\^2\ \[Pi]\)]}], ")"}]}]}]}]},
              {
                RowBox[{
                  RowBox[{"massa", " ", 
                    RowBox[{"(", 
                      
                      RowBox[{\(\(-vz[t]\)\ wx[t]\), "+", \(vx[t]\ wz[t]\), 
                        "+", 
                        RowBox[{
                          SuperscriptBox["vy", "\[Prime]",
                            MultilineFunction->None], "[", "t", "]"}]}], 
                      ")"}]}], "\[Equal]", 
                  
                  RowBox[{\(\(-G\)\ Cos[LGamma[t]]\ Cos[LTeta[t]]\), 
                    "+", \(P[dsg[t], vk[t], H[t]]\ Sin[fip]\), 
                    "+", \(1\/2\ s\ \[Rho]\ Cos[Alpha[t]]\ Cy[
                        Alpha[t]]\ vk[t]\^2\), 
                    "+", \(1\/2\ s\ \[Rho]\ Cz[Betta[t], drn[t]]\ Sin[
                        Alpha[t]]\ Sin[Betta[t]]\ vk[t]\^2\), "-", 
                    
                    RowBox[{\(1\/2\), " ", "s", " ", "\[Rho]", 
                      " ", \(Cos[Betta[t]]\), " ", \(Sin[Alpha[t]]\), 
                      " ", \(vk[t]\^2\), " ", 
                      RowBox[{"(", 
                        RowBox[{\(-Cx0\), "-", 
                          FractionBox[
                            RowBox[{
                            "S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), 
                              " ", 
                              SuperscriptBox[
                                RowBox[{
                                  SuperscriptBox["Cy", 
                                    TagBox[\((1, 0, 0, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], 
                                  "[", \(Alpha[t], Mah[t], ugolstrel, 
                                  ugolVobr, dzak[t], drv[t]\), "]"}], 
                                "2"]}], \(l\^2\ \[Pi]\)]}], ")"}]}]}]}]},
              {
                RowBox[{
                  RowBox[{"massa", " ", 
                    RowBox[{"(", 
                      RowBox[{\(vy[t]\ wx[t]\), "-", \(vx[t]\ wy[t]\), "+", 
                        RowBox[{
                          SuperscriptBox["vz", "\[Prime]",
                            MultilineFunction->None], "[", "t", "]"}]}], 
                      ")"}]}], "\[Equal]", 
                  
                  RowBox[{\(G\ Cos[LTeta[t]]\ Sin[LGamma[t]]\), 
                    "+", \(1\/2\ s\ \[Rho]\ Cos[Betta[t]]\ Cz[Betta[t], 
                        drn[t]]\ vk[t]\^2\), "+", 
                    
                    RowBox[{\(1\/2\), " ", "s", " ", "\[Rho]", 
                      " ", \(Sin[Betta[t]]\), " ", \(vk[t]\^2\), " ", 
                      RowBox[{"(", 
                        RowBox[{\(-Cx0\), "-", 
                          FractionBox[
                            RowBox[{
                            "S", " ", \(\((\(-Alpha0\) + Alpha[t])\)\^2\), 
                              " ", 
                              SuperscriptBox[
                                RowBox[{
                                  SuperscriptBox["Cy", 
                                    TagBox[\((1, 0, 0, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], 
                                  "[", \(Alpha[t], Mah[t], ugolstrel, 
                                  ugolVobr, dzak[t], drv[t]\), "]"}], 
                                "2"]}], \(l\^2\ \[Pi]\)]}], ")"}]}]}]}]},
              {
                RowBox[{\(wx[t]\), "\[Equal]", 
                  RowBox[{
                    RowBox[{
                      SuperscriptBox["LGamma", "\[Prime]",
                        MultilineFunction->None], "[", "t", "]"}], "+", 
                    RowBox[{\(Sin[LTeta[t]]\), " ", 
                      RowBox[{
                        SuperscriptBox["LPsi", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]},
              {
                RowBox[{\(wy[t]\), "\[Equal]", 
                  RowBox[{
                    RowBox[{\(Cos[LGamma[t]]\), " ", \(Cos[LTeta[t]]\), " ", 
                      RowBox[{
                        SuperscriptBox["LPsi", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}], "+", 
                    RowBox[{\(Sin[LGamma[t]]\), " ", 
                      RowBox[{
                        SuperscriptBox["LTeta", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]},
              {
                RowBox[{\(wz[t]\), "\[Equal]", 
                  RowBox[{
                    
                    RowBox[{\(-Cos[LTeta[t]]\), " ", \(Sin[LGamma[t]]\), " ", 
                      
                      RowBox[{
                        SuperscriptBox["LPsi", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}], "+", 
                    RowBox[{\(Cos[LGamma[t]]\), " ", 
                      RowBox[{
                        SuperscriptBox["LTeta", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]},
              {
                RowBox[{\(1\/2\ kmx\ l\ s\ \[Rho]\ vk[t]\^2\), "\[Equal]", 
                  
                  RowBox[{\(Ixy\ wx[t]\ wz[t]\), "-", \(Iyy\ wy[t]\ wz[t]\), 
                    "+", \(Izz\ wy[t]\ wz[t]\), "+", 
                    RowBox[{"Ixx", " ", 
                      RowBox[{
                        SuperscriptBox["wx", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}], "-", 
                    RowBox[{"Ixy", " ", 
                      RowBox[{
                        SuperscriptBox["wy", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]},
              {
                RowBox[{\(1\/2\ kmy\ l\ s\ \[Rho]\ vk[t]\^2\), "\[Equal]", 
                  
                  RowBox[{\(Ixx\ wx[t]\ wz[t]\), "-", \(Izz\ wx[t]\ wz[t]\), 
                    "-", \(Ixy\ wy[t]\ wz[t]\), "-", 
                    RowBox[{"Ixy", " ", 
                      RowBox[{
                        SuperscriptBox["wx", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}], "+", 
                    RowBox[{"Iyy", " ", 
                      RowBox[{
                        SuperscriptBox["wy", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]},
              {
                
                RowBox[{\(\(-yp\)\ Cos[fip]\ P[dsg[t], vk[t], H[t]] + 
                    1\/2\ ba\ kmz\ s\ \[Rho]\ vk[t]\^2\), "\[Equal]", 
                  
                  RowBox[{\(\(-Ixy\)\ wx[t]\^2\), "-", \(Ixx\ wx[t]\ wy[t]\), 
                    "+", \(Iyy\ wx[t]\ wy[t]\), "+", \(Ixy\ wy[t]\^2\), "+", 
                    RowBox[{"Izz", " ", 
                      RowBox[{
                        SuperscriptBox["wz", "\[Prime]",
                          MultilineFunction->None], "[", "t", "]"}]}]}]}]}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(vektorsost\)\(=\)\(Flatten[{R, v, 
          w, {LPsi[t], LTeta[t], 
            LGamma[t]}}]\)\(\ \)\( (*\:0412\:0435\:043a\:0442\:043e\:0440\ \
\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f\ \:0441\:0438\:0441\
\:0442\:0435\:043c\:044b*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975881345350895`*^9, 3.49758818049277*^9}, \
{3.497588237885271*^9, 3.4975883031401854`*^9}, {3.4975883656650953`*^9, \
3.497588399392355*^9}, {3.497588932015461*^9, 3.497588942915084*^9}, \
{3.4975889905478086`*^9, 3.49758903288223*^9}, {3.4975891226773663`*^9, \
3.49758914041438*^9}}],

Cell[BoxData[
    \({L[t], H[t], dZ[t], vx[t], vy[t], vz[t], wx[t], wy[t], wz[t], LPsi[t], 
      LTeta[t], LGamma[t]}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      SystFK = Flatten[
          Simplify[
            Solve[polnsystut, D[vektorsost, t], 
              Sort \[Rule] 
                False]]]]\)\(\ \)\( (*\:0420\:0430\:0437\:0440\:0435\:0448\
\:0430\:0435\:043c\ \:0441\:0438\:0441\:0442\:0435\:043c\:0443\ \:043e\:0442\
\:043d\:043e\:0441\:0438\:0442\:0435\:043b\:044c\:043d\:043e\ \:043f\:0440\
\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:044b\:0445*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975891496489086`*^9, 3.497589294773209*^9}, \
{3.4975894013893075`*^9, 3.4975894152891026`*^9}, {3.4975894973097935`*^9, \
3.4975896246110744`*^9}, {3.4975999110824275`*^9, 3.4975999117124634`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["L", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Rule]", \(Cos[BPsi[t]]\ Cos[Bteta[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["H", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Rule]", \(Sin[Bteta[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["dZ", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Rule]", \(\(-Cos[Bteta[t]]\)\ Sin[BPsi[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["vx", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
                  RowBox[{"-", 
                    FractionBox[
                      
                      RowBox[{\(\(-2\)\ l\^2\ \[Pi]\ Cos[fip]\ P[dsg[t], 
                            vk[t], H[t]]\), 
                        "+", \(2\ l\^2\ \[Pi]\ \((G\ Sin[LTeta[t]] + 
                              massa\ vz[t]\ wy[t] - massa\ vy[t]\ wz[t])\)\), 
                        "+", 
                        RowBox[{"s", " ", "\[Rho]", " ", \(vk[t]\^2\), " ", 
                          RowBox[{"(", 
                            
                            RowBox[{\(\(-l\^2\)\ \[Pi]\ Cy[Alpha[t]]\ Sin[
                                  Alpha[t]]\), "+", 
                              RowBox[{\(Cos[Alpha[t]]\), " ", 
                                RowBox[{"(", 
                                  
                                  RowBox[{\(l\^2\ \[Pi]\ Cz[Betta[t], 
                                        drn[t]]\ Sin[Betta[t]]\), "+", 
                                    RowBox[{\(Cos[Betta[t]]\), " ", 
                                      RowBox[{"(", 
                                        RowBox[{\(Cx0\ l\^2\ \[Pi]\), "+", 
                                        RowBox[{
                                        "S", 
                                        " ", \(\((Alpha0 - Alpha[t])\)\^2\), 
                                        " ", 
                                        SuperscriptBox[
                                        RowBox[{
                                        SuperscriptBox["Cy", 
                                        TagBox[\((1, 0, 0, 0, 0, 0)\),
                                        Derivative],
                                        MultilineFunction->None], 
                                        "[", \(Alpha[t], Mah[t], ugolstrel, 
                                        ugolVobr, dzak[t], drv[t]\), "]"}], 
                                        "2"]}]}], ")"}]}]}], ")"}]}]}], 
                            ")"}]}]}], \(2\ l\^2\ massa\ \[Pi]\)]}]}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["vy", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
                  FractionBox[
                    
                    RowBox[{\(\(-2\)\ G\ l\^2\ \[Pi]\ Cos[LGamma[t]]\ Cos[
                          LTeta[t]]\), 
                      "+", \(2\ l\^2\ \[Pi]\ P[dsg[t], vk[t], H[t]]\ Sin[
                          fip]\), 
                      "+", \(l\^2\ \[Pi]\ s\ \[Rho]\ Cos[Alpha[t]]\ Cy[
                          Alpha[t]]\ vk[t]\^2\), 
                      "+", \(Cx0\ l\^2\ \[Pi]\ s\ \[Rho]\ Cos[Betta[t]]\ Sin[
                          Alpha[t]]\ vk[t]\^2\), 
                      "+", \(l\^2\ \[Pi]\ s\ \[Rho]\ Cz[Betta[t], 
                          drn[t]]\ Sin[Alpha[t]]\ Sin[Betta[t]]\ vk[t]\^2\), 
                      "+", \(2\ l\^2\ massa\ \[Pi]\ vz[t]\ wx[t]\), 
                      "-", \(2\ l\^2\ massa\ \[Pi]\ vx[t]\ wz[t]\), "+", 
                      
                      RowBox[{\(Alpha0\^2\), " ", "s", " ", "S", " ", 
                        "\[Rho]", " ", \(Cos[Betta[t]]\), 
                        " ", \(Sin[Alpha[t]]\), " ", \(vk[t]\^2\), " ", 
                        SuperscriptBox[
                          RowBox[{
                            SuperscriptBox["Cy", 
                              TagBox[\((1, 0, 0, 0, 0, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(Alpha[t], 
                            Mah[t], ugolstrel, ugolVobr, dzak[t], drv[t]\), 
                            "]"}], "2"]}], "-", 
                      RowBox[{
                      "2", " ", "Alpha0", " ", "s", " ", "S", " ", "\[Rho]", 
                        " ", \(Alpha[t]\), " ", \(Cos[Betta[t]]\), 
                        " ", \(Sin[Alpha[t]]\), " ", \(vk[t]\^2\), " ", 
                        SuperscriptBox[
                          RowBox[{
                            SuperscriptBox["Cy", 
                              TagBox[\((1, 0, 0, 0, 0, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(Alpha[t], 
                            Mah[t], ugolstrel, ugolVobr, dzak[t], drv[t]\), 
                            "]"}], "2"]}], "+", 
                      RowBox[{
                      "s", " ", "S", " ", "\[Rho]", " ", \(Alpha[t]\^2\), 
                        " ", \(Cos[Betta[t]]\), " ", \(Sin[Alpha[t]]\), 
                        " ", \(vk[t]\^2\), " ", 
                        SuperscriptBox[
                          RowBox[{
                            SuperscriptBox["Cy", 
                              TagBox[\((1, 0, 0, 0, 0, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(Alpha[t], 
                            Mah[t], ugolstrel, ugolVobr, dzak[t], drv[t]\), 
                            "]"}], "2"]}]}], \(2\ l\^2\ massa\ \[Pi]\)]}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["vz", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], "\[Rule]", 
                  FractionBox[
                    
                    RowBox[{\(l\^2\ \[Pi]\ s\ \[Rho]\ Cos[Betta[t]]\ Cz[
                          Betta[t], drn[t]]\ vk[t]\^2\), 
                      "+", \(2\ l\^2\ \[Pi]\ \((G\ Cos[LTeta[t]]\ Sin[
                                LGamma[t]] - massa\ vy[t]\ wx[t] + 
                            massa\ vx[t]\ wy[t])\)\), "-", 
                      RowBox[{
                      "s", " ", "\[Rho]", " ", \(Sin[Betta[t]]\), 
                        " ", \(vk[t]\^2\), " ", 
                        RowBox[{"(", 
                          RowBox[{\(Cx0\ l\^2\ \[Pi]\), "+", 
                            RowBox[{
                            "S", " ", \(\((Alpha0 - Alpha[t])\)\^2\), " ", 
                              SuperscriptBox[
                                RowBox[{
                                  SuperscriptBox["Cy", 
                                    TagBox[\((1, 0, 0, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], 
                                  "[", \(Alpha[t], Mah[t], ugolstrel, 
                                  ugolVobr, dzak[t], drv[t]\), "]"}], 
                                "2"]}]}], 
                          ")"}]}]}], \(2\ l\^2\ massa\ \[Pi]\)]}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["wx", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Rule]", \(\(\((Iyy\ kmx + 
                              Ixy\ kmy)\)\ l\ s\ \[Rho]\ vk[t]\^2 + 
                        2\ \((\(-Ixy\)\ \((Ixx + Iyy - Izz)\)\ wx[
                                  t] + \((Ixy\^2 + Iyy\^2 - Iyy\ Izz)\)\ wy[
                                  t])\)\ wz[t]\)\/\(\(-2\)\ Ixy\^2 + 
                        2\ Ixx\ Iyy\)\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["wy", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Rule]", \(\(\((Ixy\ kmx + 
                              Ixx\ kmy)\)\ l\ s\ \[Rho]\ vk[t]\^2 + 
                        2\ \((\(-\((Ixx\^2 + Ixy\^2 - Ixx\ Izz)\)\)\ wx[t] + 
                              Ixy\ \((Ixx + Iyy - Izz)\)\ wy[t])\)\ wz[
                            t]\)\/\(\(-2\)\ Ixy\^2 + 2\ Ixx\ Iyy\)\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["wz", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Rule]", \(\(\(-2\)\ yp\ Cos[fip]\ P[dsg[t], vk[t], 
                            H[t]] + ba\ kmz\ s\ \[Rho]\ vk[t]\^2 + 
                        2\ Ixy\ wx[t]\^2 + 2\ Ixx\ wx[t]\ wy[t] - 
                        2\ Iyy\ wx[t]\ wy[t] - 
                        2\ Ixy\ wy[t]\^2\)\/\(2\ Izz\)\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["LPsi", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Rule]", \(Sec[
                      LTeta[t]]\ \((Cos[LGamma[t]]\ wy[t] - 
                        Sin[LGamma[t]]\ wz[t])\)\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["LTeta", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Rule]", \(Sin[LGamma[t]]\ wy[t] + 
                    Cos[LGamma[t]]\ wz[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["LGamma", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Rule]", \(wx[t] + 
                    Tan[LTeta[t]]\ \((\(-Cos[LGamma[t]]\)\ wy[t] + 
                          Sin[LGamma[t]]\ wz[t])\)\)}]}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      systema = 
        Table[SystFK[\([\)\(i, 1\)\(]\)] \[Equal] 
            SystFK[\([\)\(i, 2\)\(]\)], {i, 1, 
            12}]]\)\(\ \)\( (*\:0421\:0438\:0441\:0442\:0435\:043c\:0430\ \
\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439\ \:0434\:0432\:0438\
\:0436\:0435\:043d\:0438\:044f\ \:041b\:0410\ \:0432\ \
\:0444\:043e\:0440\:043c\:0435\ \:041a\:043e\:0448\:0438*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975896281352763`*^9, 3.4975897694793606`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["L", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(Cos[BPsi[t]]\ Cos[Bteta[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["H", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(Sin[Bteta[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["dZ", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(\(-Cos[Bteta[t]]\)\ Sin[BPsi[t]]\ vk[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["vx", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
                  RowBox[{"-", 
                    FractionBox[
                      
                      RowBox[{\(\(-2\)\ l\^2\ \[Pi]\ Cos[fip]\ P[dsg[t], 
                            vk[t], H[t]]\), 
                        "+", \(2\ l\^2\ \[Pi]\ \((G\ Sin[LTeta[t]] + 
                              massa\ vz[t]\ wy[t] - massa\ vy[t]\ wz[t])\)\), 
                        "+", 
                        RowBox[{"s", " ", "\[Rho]", " ", \(vk[t]\^2\), " ", 
                          RowBox[{"(", 
                            
                            RowBox[{\(\(-l\^2\)\ \[Pi]\ Cy[Alpha[t]]\ Sin[
                                  Alpha[t]]\), "+", 
                              RowBox[{\(Cos[Alpha[t]]\), " ", 
                                RowBox[{"(", 
                                  
                                  RowBox[{\(l\^2\ \[Pi]\ Cz[Betta[t], 
                                        drn[t]]\ Sin[Betta[t]]\), "+", 
                                    RowBox[{\(Cos[Betta[t]]\), " ", 
                                      RowBox[{"(", 
                                        RowBox[{\(Cx0\ l\^2\ \[Pi]\), "+", 
                                        RowBox[{
                                        "S", 
                                        " ", \(\((Alpha0 - Alpha[t])\)\^2\), 
                                        " ", 
                                        SuperscriptBox[
                                        RowBox[{
                                        SuperscriptBox["Cy", 
                                        TagBox[\((1, 0, 0, 0, 0, 0)\),
                                        Derivative],
                                        MultilineFunction->None], 
                                        "[", \(Alpha[t], Mah[t], ugolstrel, 
                                        ugolVobr, dzak[t], drv[t]\), "]"}], 
                                        "2"]}]}], ")"}]}]}], ")"}]}]}], 
                            ")"}]}]}], \(2\ l\^2\ massa\ \[Pi]\)]}]}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["vy", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
                  FractionBox[
                    
                    RowBox[{\(\(-2\)\ G\ l\^2\ \[Pi]\ Cos[LGamma[t]]\ Cos[
                          LTeta[t]]\), 
                      "+", \(2\ l\^2\ \[Pi]\ P[dsg[t], vk[t], H[t]]\ Sin[
                          fip]\), 
                      "+", \(l\^2\ \[Pi]\ s\ \[Rho]\ Cos[Alpha[t]]\ Cy[
                          Alpha[t]]\ vk[t]\^2\), 
                      "+", \(Cx0\ l\^2\ \[Pi]\ s\ \[Rho]\ Cos[Betta[t]]\ Sin[
                          Alpha[t]]\ vk[t]\^2\), 
                      "+", \(l\^2\ \[Pi]\ s\ \[Rho]\ Cz[Betta[t], 
                          drn[t]]\ Sin[Alpha[t]]\ Sin[Betta[t]]\ vk[t]\^2\), 
                      "+", \(2\ l\^2\ massa\ \[Pi]\ vz[t]\ wx[t]\), 
                      "-", \(2\ l\^2\ massa\ \[Pi]\ vx[t]\ wz[t]\), "+", 
                      
                      RowBox[{\(Alpha0\^2\), " ", "s", " ", "S", " ", 
                        "\[Rho]", " ", \(Cos[Betta[t]]\), 
                        " ", \(Sin[Alpha[t]]\), " ", \(vk[t]\^2\), " ", 
                        SuperscriptBox[
                          RowBox[{
                            SuperscriptBox["Cy", 
                              TagBox[\((1, 0, 0, 0, 0, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(Alpha[t], 
                            Mah[t], ugolstrel, ugolVobr, dzak[t], drv[t]\), 
                            "]"}], "2"]}], "-", 
                      RowBox[{
                      "2", " ", "Alpha0", " ", "s", " ", "S", " ", "\[Rho]", 
                        " ", \(Alpha[t]\), " ", \(Cos[Betta[t]]\), 
                        " ", \(Sin[Alpha[t]]\), " ", \(vk[t]\^2\), " ", 
                        SuperscriptBox[
                          RowBox[{
                            SuperscriptBox["Cy", 
                              TagBox[\((1, 0, 0, 0, 0, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(Alpha[t], 
                            Mah[t], ugolstrel, ugolVobr, dzak[t], drv[t]\), 
                            "]"}], "2"]}], "+", 
                      RowBox[{
                      "s", " ", "S", " ", "\[Rho]", " ", \(Alpha[t]\^2\), 
                        " ", \(Cos[Betta[t]]\), " ", \(Sin[Alpha[t]]\), 
                        " ", \(vk[t]\^2\), " ", 
                        SuperscriptBox[
                          RowBox[{
                            SuperscriptBox["Cy", 
                              TagBox[\((1, 0, 0, 0, 0, 0)\),
                                Derivative],
                              MultilineFunction->None], "[", \(Alpha[t], 
                            Mah[t], ugolstrel, ugolVobr, dzak[t], drv[t]\), 
                            "]"}], "2"]}]}], \(2\ l\^2\ massa\ \[Pi]\)]}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["vz", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
                  FractionBox[
                    
                    RowBox[{\(l\^2\ \[Pi]\ s\ \[Rho]\ Cos[Betta[t]]\ Cz[
                          Betta[t], drn[t]]\ vk[t]\^2\), 
                      "+", \(2\ l\^2\ \[Pi]\ \((G\ Cos[LTeta[t]]\ Sin[
                                LGamma[t]] - massa\ vy[t]\ wx[t] + 
                            massa\ vx[t]\ wy[t])\)\), "-", 
                      RowBox[{
                      "s", " ", "\[Rho]", " ", \(Sin[Betta[t]]\), 
                        " ", \(vk[t]\^2\), " ", 
                        RowBox[{"(", 
                          RowBox[{\(Cx0\ l\^2\ \[Pi]\), "+", 
                            RowBox[{
                            "S", " ", \(\((Alpha0 - Alpha[t])\)\^2\), " ", 
                              SuperscriptBox[
                                RowBox[{
                                  SuperscriptBox["Cy", 
                                    TagBox[\((1, 0, 0, 0, 0, 0)\),
                                      Derivative],
                                    MultilineFunction->None], 
                                  "[", \(Alpha[t], Mah[t], ugolstrel, 
                                  ugolVobr, dzak[t], drv[t]\), "]"}], 
                                "2"]}]}], 
                          ")"}]}]}], \(2\ l\^2\ massa\ \[Pi]\)]}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["wx", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(\(\((Iyy\ kmx + 
                              Ixy\ kmy)\)\ l\ s\ \[Rho]\ vk[t]\^2 + 
                        2\ \((\(-Ixy\)\ \((Ixx + Iyy - Izz)\)\ wx[
                                  t] + \((Ixy\^2 + Iyy\^2 - Iyy\ Izz)\)\ wy[
                                  t])\)\ wz[t]\)\/\(\(-2\)\ Ixy\^2 + 
                        2\ Ixx\ Iyy\)\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["wy", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(\(\((Ixy\ kmx + 
                              Ixx\ kmy)\)\ l\ s\ \[Rho]\ vk[t]\^2 + 
                        2\ \((\(-\((Ixx\^2 + Ixy\^2 - Ixx\ Izz)\)\)\ wx[t] + 
                              Ixy\ \((Ixx + Iyy - Izz)\)\ wy[t])\)\ wz[
                            t]\)\/\(\(-2\)\ Ixy\^2 + 2\ Ixx\ Iyy\)\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["wz", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(\(\(-2\)\ yp\ Cos[fip]\ P[dsg[t], vk[t], 
                            H[t]] + ba\ kmz\ s\ \[Rho]\ vk[t]\^2 + 
                        2\ Ixy\ wx[t]\^2 + 2\ Ixx\ wx[t]\ wy[t] - 
                        2\ Iyy\ wx[t]\ wy[t] - 
                        2\ Ixy\ wy[t]\^2\)\/\(2\ Izz\)\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["LPsi", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(Sec[
                      LTeta[t]]\ \((Cos[LGamma[t]]\ wy[t] - 
                        Sin[LGamma[t]]\ wz[t])\)\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["LTeta", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(Sin[LGamma[t]]\ wy[t] + 
                    Cos[LGamma[t]]\ wz[t]\)}]},
              {
                RowBox[{
                  RowBox[{
                    SuperscriptBox["LGamma", "\[Prime]",
                      MultilineFunction->None], "[", "t", "]"}], 
                  "\[Equal]", \(wx[t] + 
                    Tan[LTeta[t]]\ \((\(-Cos[LGamma[t]]\)\ wy[t] + 
                          Sin[LGamma[t]]\ wz[t])\)\)}]}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[TextData[{
  StyleBox["\:041f\:0440\:0435\:0434\:0441\:0442\:0430\:0432\:0438\:043c \
\:043d\:0435\:043b\:0438\:043d\:0435\:0439\:043d\:0443\:044e \:043d\:0435\
\:0441\:0442\:0430\:0446\:0438\:043e\:043d\:0430\:0440\:043d\:0443\:044e \
\:043c\:043e\:0434\:0435\:043b\:044c \:0434\:0432\:0438\:0436\:0435\:043d\
\:0438\:044f \:041b\:0410 \:0432 \:043c\:0430\:0442\:0440\:0438\:0447\:043d\
\:043e\:043c \:0432\:0438\:0434\:0435 ",
    FontSize->18,
    FontWeight->"Bold"],
  Cell[BoxData[
      \(TraditionalForm\`\(X\&\[CenterDot]\)\)],
    FontSize->18,
    FontWeight->"Bold"],
  StyleBox["[t]=Ax[t]+Bu[t]",
    FontSize->18,
    FontWeight->"Bold"]
}], "Text",
  CellChangeTimes -> {{3.49763697642101*^9, 3.497637034778348*^9}, \
{3.497637085618256*^9, 3.4976370877733793`*^9}, {3.4976372993804827`*^9, \
3.497637321028721*^9}, {3.4976373548366547`*^9, 3.4976373725756693`*^9}, \
{3.497637404918519*^9, 3.4976374494570665`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      MatrA = Table[
          D[systema[\([\)\(i, 2\)\(]\)], vektorsost[\([\)\(j\)\(]\)]], {i, 1, 
            12}, {j, 1, 
            12}]]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\ \
\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f\ "\<\:0441\:0432\:043e\
\:0431\:043e\:0434\:043d\:043e\:0433\:043e\>"\ \:041b\:0410\  - \ \
\:043c\:0430\:0442\:0440\:0438\:0446\:0430\ A*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497590262955586*^9, 3.497590407829872*^9}, \
{3.4975984832567606`*^9, 3.4975984925212903`*^9}, {3.49763747644461*^9, \
3.4976375171519384`*^9}, {3.4976375574552436`*^9, 3.4976375690639076`*^9}, \
{3.49763902724131*^9, 3.497639030691508*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
            {"0", 
              FractionBox[
                RowBox[{\(Cos[fip]\), " ", 
                  RowBox[{
                    SuperscriptBox["P", 
                      TagBox[\((0, 0, 1)\),
                        Derivative],
                      MultilineFunction->None], "[", \(dsg[t], vk[t], H[t]\), 
                    "]"}]}], "massa"], "0", "0", \(wz[t]\), \(-wy[t]\), 
              "0", \(-vz[t]\), \(vy[t]\), 
              "0", \(-\(\(G\ Cos[LTeta[t]]\)\/massa\)\), "0"},
            {"0", 
              FractionBox[
                RowBox[{\(Sin[fip]\), " ", 
                  RowBox[{
                    SuperscriptBox["P", 
                      TagBox[\((0, 0, 1)\),
                        Derivative],
                      MultilineFunction->None], "[", \(dsg[t], vk[t], H[t]\), 
                    "]"}]}], "massa"], "0", \(-wz[t]\), 
              "0", \(wx[t]\), \(vz[t]\), "0", \(-vx[t]\), 
              "0", \(\(G\ Cos[LGamma[t]]\ Sin[
                      LTeta[t]]\)\/massa\), \(\(G\ Cos[LTeta[t]]\ Sin[
                      LGamma[t]]\)\/massa\)},
            {"0", "0", "0", \(wy[t]\), \(-wx[t]\), "0", \(-vy[t]\), \(vx[t]\),
               "0", "0", \(-\(\(G\ Sin[LGamma[t]]\ Sin[
                        LTeta[t]]\)\/massa\)\), \(\(G\ Cos[LGamma[t]]\ Cos[
                      LTeta[t]]\)\/massa\)},
            {"0", "0", "0", "0", "0", 
              "0", \(-\(\(2\ Ixy\ \((Ixx + Iyy - Izz)\)\ wz[
                        t]\)\/\(\(-2\)\ Ixy\^2 + 
                      2\ Ixx\ Iyy\)\)\), \(\(2\ \((Ixy\^2 + Iyy\^2 - 
                        Iyy\ Izz)\)\ wz[t]\)\/\(\(-2\)\ Ixy\^2 + 
                    2\ Ixx\ Iyy\)\), \(\(2\ \((\(-Ixy\)\ \((Ixx + Iyy - 
                              Izz)\)\ wx[
                            t] + \((Ixy\^2 + Iyy\^2 - Iyy\ Izz)\)\ wy[
                            t])\)\)\/\(\(-2\)\ Ixy\^2 + 2\ Ixx\ Iyy\)\), "0", 
              "0", "0"},
            {"0", "0", "0", "0", "0", 
              "0", \(\(2\ \((\(-Ixx\^2\) - Ixy\^2 + Ixx\ Izz)\)\ wz[
                      t]\)\/\(\(-2\)\ Ixy\^2 + 
                    2\ Ixx\ Iyy\)\), \(\(2\ Ixy\ \((Ixx + Iyy - Izz)\)\ wz[
                      t]\)\/\(\(-2\)\ Ixy\^2 + 
                    2\ Ixx\ Iyy\)\), \(\(2\ \((\(-\((Ixx\^2 + Ixy\^2 - 
                                Ixx\ Izz)\)\)\ wx[t] + 
                        Ixy\ \((Ixx + Iyy - Izz)\)\ wy[
                            t])\)\)\/\(\(-2\)\ Ixy\^2 + 2\ Ixx\ Iyy\)\), "0", 
              "0", "0"},
            {"0", 
              RowBox[{"-", 
                FractionBox[
                  RowBox[{"yp", " ", \(Cos[fip]\), " ", 
                    RowBox[{
                      SuperscriptBox["P", 
                        TagBox[\((0, 0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(dsg[t], vk[t], 
                      H[t]\), "]"}]}], "Izz"]}], "0", "0", "0", 
              "0", \(\(4\ Ixy\ wx[t] + 2\ Ixx\ wy[t] - 
                    2\ Iyy\ wy[t]\)\/\(2\ Izz\)\), \(\(2\ Ixx\ wx[t] - 
                    2\ Iyy\ wx[t] - 4\ Ixy\ wy[t]\)\/\(2\ Izz\)\), "0", "0", 
              "0", "0"},
            {"0", "0", "0", "0", "0", "0", 
              "0", \(Cos[LGamma[t]]\ Sec[
                  LTeta[t]]\), \(\(-Sec[LTeta[t]]\)\ Sin[LGamma[t]]\), 
              "0", \(Sec[LTeta[t]]\ Tan[
                  LTeta[t]]\ \((Cos[LGamma[t]]\ wy[t] - 
                    Sin[LGamma[t]]\ wz[t])\)\), \(Sec[
                  LTeta[t]]\ \((\(-Sin[LGamma[t]]\)\ wy[t] - 
                    Cos[LGamma[t]]\ wz[t])\)\)},
            {"0", "0", "0", "0", "0", "0", 
              "0", \(Sin[LGamma[t]]\), \(Cos[LGamma[t]]\), "0", 
              "0", \(Cos[LGamma[t]]\ wy[t] - Sin[LGamma[t]]\ wz[t]\)},
            {"0", "0", "0", "0", "0", "0", 
              "1", \(\(-Cos[LGamma[t]]\)\ Tan[LTeta[t]]\), \(Sin[
                  LGamma[t]]\ Tan[LTeta[t]]\), 
              "0", \(Sec[LTeta[t]]\^2\ \((\(-Cos[LGamma[t]]\)\ wy[t] + 
                    Sin[LGamma[t]]\ wz[t])\)\), \(Tan[
                  LTeta[t]]\ \((Sin[LGamma[t]]\ wy[t] + 
                    Cos[LGamma[t]]\ wz[t])\)\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`MatrixForm[
      Perest = {{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 
            0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 
            0, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 
            0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 1, 0, 0, 0, 0, 
            0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 
            0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 
            0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 
            0, 0, 0, 0, 1}}]\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
            {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
            {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"},
            {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"},
            {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"},
            {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(U\)\(=\)\({drv[t], deler[t], drn[t], 
        dsg[t]}\)\(\ \)\( (*\:0412\:0435\:043a\:0442\:043e\:0440\ \
\:0443\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:044f\ U[
            t]*) \)\)\)], "Input",
  CellChangeTimes -> {{3.4975908285409355`*^9, 3.4975908738595276`*^9}, \
{3.497637524943384*^9, 3.4976375370880785`*^9}, {3.497637575964302*^9, \
3.497637579740518*^9}}],

Cell[BoxData[
    \({drv[t], deler[t], drn[t], dsg[t]}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      MatrB = Table[
          D[systema[\([\)\(i, 2\)\(]\)], U[\([\)\(j\)\(]\)]], {i, 1, 12}, {j, 
            1, 4}]]\)\(\ \)\( (*\:041c\:0430\:0442\:0440\:0438\:0446\:0430\ \
\:043f\:0435\:0440\:0435\:0434\:0430\:0447\:0438\ \:0443\:043f\:0440\:0430\
\:0432\:043b\:0435\:043d\:0438\:044f\  - \ B*) \)\)\)], "Input",
  CellChangeTimes -> {{3.497590878917817*^9, 3.4975909367231236`*^9}, \
{3.497598346758953*^9, 3.497598353916363*^9}, {3.4976375848708115`*^9, \
3.497637610292266*^9}, {3.49763905031463*^9, 3.497639059193138*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(MatrB\\)\\\" is similar to existing symbol \
\\\"\\!\\(MatrA\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"0", "0", "0", "0"},
            {"0", "0", "0", "0"},
            {"0", "0", "0", "0"},
            {
              RowBox[{"-", 
                FractionBox[
                  RowBox[{
                  "s", " ", "S", " ", "\[Rho]", 
                    " ", \(\((Alpha0 - Alpha[t])\)\^2\), 
                    " ", \(Cos[Alpha[t]]\), " ", \(Cos[Betta[t]]\), 
                    " ", \(vk[t]\^2\), " ", 
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}], " ", 
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), 
                      "]"}]}], \(l\^2\ massa\ \[Pi]\)]}], "0", 
              RowBox[{"-", 
                FractionBox[
                  RowBox[{
                  "s", " ", "\[Rho]", " ", \(Cos[Alpha[t]]\), 
                    " ", \(Sin[Betta[t]]\), " ", \(vk[t]\^2\), " ", 
                    RowBox[{
                      SuperscriptBox["Cz", 
                        TagBox[\((0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Betta[t], drn[t]\), 
                      "]"}]}], \(2\ massa\)]}], 
              FractionBox[
                RowBox[{\(Cos[fip]\), " ", 
                  RowBox[{
                    SuperscriptBox["P", 
                      TagBox[\((1, 0, 0)\),
                        Derivative],
                      MultilineFunction->None], "[", \(dsg[t], vk[t], H[t]\), 
                    "]"}]}], "massa"]},
            {
              FractionBox[
                RowBox[{
                  RowBox[{
                  "2", " ", \(Alpha0\^2\), " ", "s", " ", "S", " ", "\[Rho]", 
                    " ", \(Cos[Betta[t]]\), " ", \(Sin[Alpha[t]]\), 
                    " ", \(vk[t]\^2\), " ", 
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}], " ", 
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}]}], "-", 
                  RowBox[{
                  "4", " ", "Alpha0", " ", "s", " ", "S", " ", "\[Rho]", 
                    " ", \(Alpha[t]\), " ", \(Cos[Betta[t]]\), 
                    " ", \(Sin[Alpha[t]]\), " ", \(vk[t]\^2\), " ", 
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}], " ", 
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}]}], "+", 
                  RowBox[{
                  "2", " ", "s", " ", "S", " ", "\[Rho]", 
                    " ", \(Alpha[t]\^2\), " ", \(Cos[Betta[t]]\), 
                    " ", \(Sin[Alpha[t]]\), " ", \(vk[t]\^2\), " ", 
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}], " ", 
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), 
                      "]"}]}]}], \(2\ l\^2\ massa\ \[Pi]\)], "0", 
              FractionBox[
                RowBox[{
                "s", " ", "\[Rho]", " ", \(Sin[Alpha[t]]\), 
                  " ", \(Sin[Betta[t]]\), " ", \(vk[t]\^2\), " ", 
                  RowBox[{
                    SuperscriptBox["Cz", 
                      TagBox[\((0, 1)\),
                        Derivative],
                      MultilineFunction->None], "[", \(Betta[t], drn[t]\), 
                    "]"}]}], \(2\ massa\)], 
              FractionBox[
                RowBox[{\(Sin[fip]\), " ", 
                  RowBox[{
                    SuperscriptBox["P", 
                      TagBox[\((1, 0, 0)\),
                        Derivative],
                      MultilineFunction->None], "[", \(dsg[t], vk[t], H[t]\), 
                    "]"}]}], "massa"]},
            {
              RowBox[{"-", 
                FractionBox[
                  RowBox[{
                  "s", " ", "S", " ", "\[Rho]", 
                    " ", \(\((Alpha0 - Alpha[t])\)\^2\), 
                    " ", \(Sin[Betta[t]]\), " ", \(vk[t]\^2\), " ", 
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), "]"}], " ", 
                    RowBox[{
                      SuperscriptBox["Cy", 
                        TagBox[\((1, 0, 0, 0, 0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(Alpha[t], Mah[t], 
                      ugolstrel, ugolVobr, dzak[t], drv[t]\), 
                      "]"}]}], \(l\^2\ massa\ \[Pi]\)]}], "0", 
              FractionBox[
                RowBox[{
                "s", " ", "\[Rho]", " ", \(Cos[Betta[t]]\), " ", \(vk[t]\^2\),
                   " ", 
                  RowBox[{
                    SuperscriptBox["Cz", 
                      TagBox[\((0, 1)\),
                        Derivative],
                      MultilineFunction->None], "[", \(Betta[t], drn[t]\), 
                    "]"}]}], \(2\ massa\)], "0"},
            {"0", "0", "0", "0"},
            {"0", "0", "0", "0"},
            {"0", "0", "0", 
              RowBox[{"-", 
                FractionBox[
                  RowBox[{"yp", " ", \(Cos[fip]\), " ", 
                    RowBox[{
                      SuperscriptBox["P", 
                        TagBox[\((1, 0, 0)\),
                          Derivative],
                        MultilineFunction->None], "[", \(dsg[t], vk[t], 
                      H[t]\), "]"}]}], "Izz"]}]},
            {"0", "0", "0", "0"},
            {"0", "0", "0", "0"},
            {"0", "0", "0", "0"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`MatrixForm[MatrARazd = Perest . MatrA]\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
            {"0", 
              FractionBox[
                RowBox[{\(Cos[fip]\), " ", 
                  RowBox[{
                    SuperscriptBox["P", 
                      TagBox[\((0, 0, 1)\),
                        Derivative],
                      MultilineFunction->None], "[", \(dsg[t], vk[t], H[t]\), 
                    "]"}]}], "massa"], "0", "0", \(wz[t]\), \(-wy[t]\), 
              "0", \(-vz[t]\), \(vy[t]\), 
              "0", \(-\(\(G\ Cos[LTeta[t]]\)\/massa\)\), "0"},
            {"0", 
              FractionBox[
                RowBox[{\(Sin[fip]\), " ", 
                  RowBox[{
                    SuperscriptBox["P", 
                      TagBox[\((0, 0, 1)\),
                        Derivative],
                      MultilineFunction->None], "[", \(dsg[t], vk[t], H[t]\), 
                    "]"}]}], "massa"], "0", \(-wz[t]\), 
              "0", \(wx[t]\), \(vz[t]\), "0", \(-vx[t]\), 
              "0", \(\(G\ Cos[LGamma[t]]\ Sin[
                      LTeta[t]]\)\/massa\), \(\(G\ Cos[LTeta[t]]\ Sin[
                      LGamma[t]]\)\/massa\)},
            {"0", 
              RowBox[{"-", 
                FractionBox[
                  RowBox[{"yp", " ", \(Cos[fip]\), " ", 
                    RowBox[{
                      SuperscriptBox["P", 
                        TagBox[\((0, 0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(dsg[t], vk[t], 
                      H[t]\), "]"}]}], "Izz"]}], "0", "0", "0", 
              "0", \(\(4\ Ixy\ wx[t] + 2\ Ixx\ wy[t] - 
                    2\ Iyy\ wy[t]\)\/\(2\ Izz\)\), \(\(2\ Ixx\ wx[t] - 
                    2\ Iyy\ wx[t] - 4\ Ixy\ wy[t]\)\/\(2\ Izz\)\), "0", "0", 
              "0", "0"},
            {"0", "0", "0", "0", "0", "0", 
              "0", \(Sin[LGamma[t]]\), \(Cos[LGamma[t]]\), "0", 
              "0", \(Cos[LGamma[t]]\ wy[t] - Sin[LGamma[t]]\ wz[t]\)},
            {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
            {"0", "0", "0", \(wy[t]\), \(-wx[t]\), "0", \(-vy[t]\), \(vx[t]\),
               "0", "0", \(-\(\(G\ Sin[LGamma[t]]\ Sin[
                        LTeta[t]]\)\/massa\)\), \(\(G\ Cos[LGamma[t]]\ Cos[
                      LTeta[t]]\)\/massa\)},
            {"0", "0", "0", "0", "0", 
              "0", \(-\(\(2\ Ixy\ \((Ixx + Iyy - Izz)\)\ wz[
                        t]\)\/\(\(-2\)\ Ixy\^2 + 
                      2\ Ixx\ Iyy\)\)\), \(\(2\ \((Ixy\^2 + Iyy\^2 - 
                        Iyy\ Izz)\)\ wz[t]\)\/\(\(-2\)\ Ixy\^2 + 
                    2\ Ixx\ Iyy\)\), \(\(2\ \((\(-Ixy\)\ \((Ixx + Iyy - 
                              Izz)\)\ wx[
                            t] + \((Ixy\^2 + Iyy\^2 - Iyy\ Izz)\)\ wy[
                            t])\)\)\/\(\(-2\)\ Ixy\^2 + 2\ Ixx\ Iyy\)\), "0", 
              "0", "0"},
            {"0", "0", "0", "0", "0", 
              "0", \(\(2\ \((\(-Ixx\^2\) - Ixy\^2 + Ixx\ Izz)\)\ wz[
                      t]\)\/\(\(-2\)\ Ixy\^2 + 
                    2\ Ixx\ Iyy\)\), \(\(2\ Ixy\ \((Ixx + Iyy - Izz)\)\ wz[
                      t]\)\/\(\(-2\)\ Ixy\^2 + 
                    2\ Ixx\ Iyy\)\), \(\(2\ \((\(-\((Ixx\^2 + Ixy\^2 - 
                                Ixx\ Izz)\)\)\ wx[t] + 
                        Ixy\ \((Ixx + Iyy - Izz)\)\ wy[
                            t])\)\)\/\(\(-2\)\ Ixy\^2 + 2\ Ixx\ Iyy\)\), "0", 
              "0", "0"},
            {"0", "0", "0", "0", "0", "0", 
              "0", \(Cos[LGamma[t]]\ Sec[
                  LTeta[t]]\), \(\(-Sec[LTeta[t]]\)\ Sin[LGamma[t]]\), 
              "0", \(Sec[LTeta[t]]\ Tan[
                  LTeta[t]]\ \((Cos[LGamma[t]]\ wy[t] - 
                    Sin[LGamma[t]]\ wz[t])\)\), \(Sec[
                  LTeta[t]]\ \((\(-Sin[LGamma[t]]\)\ wy[t] - 
                    Cos[LGamma[t]]\ wz[t])\)\)},
            {"0", "0", "0", "0", "0", "0", 
              "1", \(\(-Cos[LGamma[t]]\)\ Tan[LTeta[t]]\), \(Sin[
                  LGamma[t]]\ Tan[LTeta[t]]\), 
              "0", \(Sec[LTeta[t]]\^2\ \((\(-Cos[LGamma[t]]\)\ wy[t] + 
                    Sin[LGamma[t]]\ wz[t])\)\), \(Tan[
                  LTeta[t]]\ \((Sin[LGamma[t]]\ wy[t] + 
                    Cos[LGamma[t]]\ wz[t])\)\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[TextData[StyleBox["\:041c\:0430\:0442\:0440\:0438\:0446\:0430 \:0441\
\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f \"\:0441\:0432\:043e\:0431\
\:043e\:0434\:043d\:043e\:0433\:043e\" \:041b\:0410 \:0440\:0430\:0437\:0434\
\:0435\:043b\:044f\:0435\:0442\:0441\:044f \:043d\:0430 4 \:043c\:0430\:0442\
\:0440\:0438\:0446\:044b. \:0414\:0432\:0435 \:0438\:0437 \:043d\:0438\:0445 \
\:0445\:0430\:0440\:0430\:043a\:0442\:0435\:0440\:0438\:0437\:0443\:044e\:0442\
 \:0434\:0438\:043d\:0430\:043c\:0438\:043a\:0443 \:043f\:0440\:043e\:0434\
\:043e\:043b\:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\
\:043d\:0438\:044f - Apr \:0438 \:0431\:043e\:043a\:043e\:0432\:043e\:0433\
\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f - Abok, \:0441\:043e\
\:043e\:0442\:0432\:0435\:0442\:0441\:0442\:0432\:0435\:043d\:043d\:043e. \
\:0414\:0432\:0435 \:0434\:0440\:0443\:0433\:0438\:0435 \:0445\:0430\:0440\
\:0430\:043a\:0442\:0435\:0440\:0438\:0437\:0443\:044e\:0442 \:0432\:043b\
\:0438\:044f\:043d\:0438\:0435 \:0431\:043e\:043a\:043e\:0432\:0433\:043e \
\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:043d\:0430 \:043f\:0440\
\:043e\:0434\:043e\:043b\:044c\:043d\:043e\:0435 \:0438 \:043f\:0440\:043e\
\:0434\:043e\:043b\:044c\:043d\:043e\:0433\:043e \:043d\:0430 \:0431\:043e\
\:043a\:043e\:0432\:0435. \:0422.\:043a. \:041b\:0410 \
\:0442\:0438\:043f\:0430 \"\:0441\:0430\:043c\:043e\:043b\:0435\:0442\" \
\:0438\:043c\:0435\:0435\:0442 \:043e\:0434\:043d\:0443 \:043e\:0441\:044c \
\:0441\:0438\:043c\:043c\:0435\:0442\:0440\:0438\:0438, \:0442\:043e \:0440\
\:0430\:0437\:0434\:0435\:043b\:0435\:043d\:0438\:0435 \:043d\:0430 \:043f\
\:0440\:043e\:0434\:043e\:043b\:044c\:043d\:043e\:0435 \:0438 \:0431\:043e\
\:043a\:043e\:0432\:043e\:0435 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\
\:0435 \:0432\:043e\:0437\:043c\:043e\:0436\:043d\:043e \:0438 \:043a\:043e\
\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:044b \:043c\:0430\
\:0442\:0440\:0438\:0446 \:0432\:0437\:0430\:0438\:043c\:043e\:0441\:0432\
\:044f\:0437\:0438 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:0439 \:043f\
\:0440\:0435\:043d\:0435\:0431\:0440\:0435\:0436\:0438\:043c\:043e \:043c\
\:0430\:043b\:044b \:043f\:043e \:0441\:0440\:0430\:0432\:043d\:0435\:043d\
\:0438\:044e \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\
\:043d\:0442\:0430\:043c\:0438 \:043c\:0430\:0442\:0440\:0438\:0446 Apr \
\:0438  Abok.",
  FontSize->18]], "Text",
  CellChangeTimes -> {{3.5001943386470737`*^9, 3.5001943434903507`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`MatrixForm[
      Apr = Table[
          MatrARazd[\([\)\(i, j\)\(]\)], {i, 1, 6}, {j, 1, 6}]]\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"0", "0", "0", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "0"},
            {"0", 
              FractionBox[
                RowBox[{\(Cos[fip]\), " ", 
                  RowBox[{
                    SuperscriptBox["P", 
                      TagBox[\((0, 0, 1)\),
                        Derivative],
                      MultilineFunction->None], "[", \(dsg[t], vk[t], H[t]\), 
                    "]"}]}], "massa"], "0", "0", \(wz[t]\), \(-wy[t]\)},
            {"0", 
              FractionBox[
                RowBox[{\(Sin[fip]\), " ", 
                  RowBox[{
                    SuperscriptBox["P", 
                      TagBox[\((0, 0, 1)\),
                        Derivative],
                      MultilineFunction->None], "[", \(dsg[t], vk[t], H[t]\), 
                    "]"}]}], "massa"], "0", \(-wz[t]\), "0", \(wx[t]\)},
            {"0", 
              RowBox[{"-", 
                FractionBox[
                  RowBox[{"yp", " ", \(Cos[fip]\), " ", 
                    RowBox[{
                      SuperscriptBox["P", 
                        TagBox[\((0, 0, 1)\),
                          Derivative],
                        MultilineFunction->None], "[", \(dsg[t], vk[t], 
                      H[t]\), "]"}]}], "Izz"]}], "0", "0", "0", "0"},
            {"0", "0", "0", "0", "0", "0"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`MatrixForm[
      Abok = Table[
          MatrARazd[\([\)\(i, j\)\(]\)], {i, 7, 12}, {j, 7, 12}]]\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"0", "0", "0", "0", "0", "0"},
            {\(-vy[t]\), \(vx[t]\), "0", 
              "0", \(-\(\(G\ Sin[LGamma[t]]\ Sin[
                        LTeta[t]]\)\/massa\)\), \(\(G\ Cos[LGamma[t]]\ Cos[
                      LTeta[t]]\)\/massa\)},
            {\(-\(\(2\ Ixy\ \((Ixx + Iyy - Izz)\)\ wz[
                        t]\)\/\(\(-2\)\ Ixy\^2 + 
                      2\ Ixx\ Iyy\)\)\), \(\(2\ \((Ixy\^2 + Iyy\^2 - 
                        Iyy\ Izz)\)\ wz[t]\)\/\(\(-2\)\ Ixy\^2 + 
                    2\ Ixx\ Iyy\)\), \(\(2\ \((\(-Ixy\)\ \((Ixx + Iyy - 
                              Izz)\)\ wx[
                            t] + \((Ixy\^2 + Iyy\^2 - Iyy\ Izz)\)\ wy[
                            t])\)\)\/\(\(-2\)\ Ixy\^2 + 2\ Ixx\ Iyy\)\), "0", 
              "0", "0"},
            {\(\(2\ \((\(-Ixx\^2\) - Ixy\^2 + Ixx\ Izz)\)\ wz[
                      t]\)\/\(\(-2\)\ Ixy\^2 + 
                    2\ Ixx\ Iyy\)\), \(\(2\ Ixy\ \((Ixx + Iyy - Izz)\)\ wz[
                      t]\)\/\(\(-2\)\ Ixy\^2 + 
                    2\ Ixx\ Iyy\)\), \(\(2\ \((\(-\((Ixx\^2 + Ixy\^2 - 
                                Ixx\ Izz)\)\)\ wx[t] + 
                        Ixy\ \((Ixx + Iyy - Izz)\)\ wy[
                            t])\)\)\/\(\(-2\)\ Ixy\^2 + 2\ Ixx\ Iyy\)\), "0", 
              "0", "0"},
            {
              "0", \(Cos[LGamma[t]]\ Sec[
                  LTeta[t]]\), \(\(-Sec[LTeta[t]]\)\ Sin[LGamma[t]]\), 
              "0", \(Sec[LTeta[t]]\ Tan[
                  LTeta[t]]\ \((Cos[LGamma[t]]\ wy[t] - 
                    Sin[LGamma[t]]\ wz[t])\)\), \(Sec[
                  LTeta[t]]\ \((\(-Sin[LGamma[t]]\)\ wy[t] - 
                    Cos[LGamma[t]]\ wz[t])\)\)},
            {
              "1", \(\(-Cos[LGamma[t]]\)\ Tan[LTeta[t]]\), \(Sin[
                  LGamma[t]]\ Tan[LTeta[t]]\), 
              "0", \(Sec[LTeta[t]]\^2\ \((\(-Cos[LGamma[t]]\)\ wy[t] + 
                    Sin[LGamma[t]]\ wz[t])\)\), \(Tan[
                  LTeta[t]]\ \((Sin[LGamma[t]]\ wy[t] + 
                    Cos[LGamma[t]]\ wz[t])\)\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[BoxData[{
    \(TraditionalForm\`a1 = 0.635; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`a2 = 5.47; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`a3 = 2.72; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`a4 = 0.269; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`a5 = 3.26; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`a6 = 0.709; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`a7 = 0.043; \)}], "Input"],

Cell[BoxData[{
    \(TraditionalForm\`b1 = 3.1; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`b2 = 20.2; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`b3 = 17.6; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`b4 = 0.072; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`b5 = \(-0.518\); \), "\[IndentingNewLine]", 
    \(TraditionalForm\`b6 = 0.057; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`b7 = 0.065; \)}], "Input"],

Cell[BoxData[{
    \(TraditionalForm\`c1 = 0.82; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`c2 = 11.0; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`c3 = 8.8; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`c4 = 1.2; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`c5 = 0.3; \), "\[IndentingNewLine]", 
    \(TraditionalForm\`c6 = 7.3; \)}], "Input"],

Cell[TextData[StyleBox["\:0414\:043e\:043f\:0443\:0441\:0442\:0438\:043c\:043e\
\:0441\:0442\:044c \:0438\:0437\:043e\:043b\:0438\:0440\:043e\:0432\:0430\
\:043d\:043d\:043e\:0433\:043e \:0438\:0441\:0441\:043b\:0435\:0434\:043e\
\:0432\:0430\:043d\:0438\:044f \:043a\:043e\:0440\:043e\:0442\:043a\:043e\
\:043f\:0435\:0440\:0438\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0433\
\:043e \:0438 \:0434\:043b\:0438\:043d\:043d\:043e\:043f\:0435\:0440\:0438\
\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0433\:043e \:0434\:0432\
\:0438\:0436\:0435\:043d\:0438\:044f \:0441\:0430\:043c\:043e\:043b\:0435\
\:0442\:0430:",
  FontSize->18]], "Text",
  CellChangeTimes -> {{3.5001941965489464`*^9, 3.5001942511160674`*^9}, \
{3.500194384765712*^9, 3.5001943850907307`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`If[c2 > 0, \ \ Print[Dopustimo], 
      Print[Nedopustimo]]\)], "Input",
  CellChangeTimes -> {{3.5001941859223385`*^9, 3.500194191398652*^9}}],

Cell[BoxData[
    \(Dopustimo\)], "Print"]
}, Open  ]],

Cell[TextData[StyleBox["\:0414\:043e\:043f\:0443\:0441\:0442\:0438\:043c\:043e\
\:0441\:0442\:044c \:0438\:0437\:043e\:043b\:0438\:0440\:043e\:0432\:0430\
\:043d\:043d\:043e\:0433\:043e \:0438\:0441\:0441\:043b\:0435\:0434\:043e\
\:0432\:0430\:043d\:0438\:044f \"\:0431\:044b\:0441\:0442\:0440\:043e\:0433\
\:043e\" \:0431\:043e\:043a\:043e\:0432\:043e\:0433\:043e \:0438 \:0441\:043f\
\:0438\:0440\:0430\:043b\:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\
\:0436\:0435\:043d\:0438\:044f \:0441\:0430\:043c\:043e\:043b\:0435\:0442\
\:0430:",
  FontSize->18]], "Text",
  CellChangeTimes -> {{3.5001945244877033`*^9, 3.5001945744505615`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`If[
      b1*\((a1*a4 + a2)\) - b2*b6 + a1*b2*b7 - 
          a6*\((a4*b6 + a2*b7)\) \[GreaterEqual] 9*b2*b4, \ \ Print[
        Dopustimo], Print[Nedopustimo]]\)], "Input",
  CellChangeTimes -> {{3.5001945797468643`*^9, 3.500194580257893*^9}, \
{3.5001946165159674`*^9, 3.500194683680809*^9}, {3.5001947159516544`*^9, \
3.500194732362593*^9}}],

Cell[BoxData[
    \(Dopustimo\)], "Print"]
}, Open  ]],

Cell[TextData[StyleBox["\:0414\:043e\:043f\:0443\:0441\:0442\:0438\:043c\:043e\
\:0441\:0442\:044c \:0438\:0437\:043e\:043b\:0438\:0440\:043e\:0432\:0430\
\:043d\:043d\:043e\:0433\:043e \:0438\:0441\:0441\:043b\:0435\:0434\:043e\
\:0432\:0430\:043d\:0438\:044f \:0441\:043e\:0441\:0442\:0430\:0432\:043b\
\:044f\:044e\:0449\:0435\:0439 \"\:0440\:044b\:0441\:043a\:0430\:043d\:0438\
\:0435-\:0441\:043a\:043e\:043b\:044c\:0436\:0435\:043d\:0438\:0435\" \:0438 \
\:043a\:0440\:0435\:043d\:043e\:0432\:043e\:0439 \:0441\:043e\:0441\:0442\
\:0430\:0432\:043b\:044f\:044e\:0449\:0435\:0439 \"\:0431\:044b\:0441\:0442\
\:0440\:043e\:0433\:043e\" \:0431\:043e\:043a\:043e\:0432\:043e\:0433\:043e \
\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0441\:0430\:043c\:043e\
\:043b\:0435\:0442\:0430:",
  FontSize->18]], "Text",
  CellChangeTimes -> {{3.500194415835489*^9, 3.5001944966481113`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`If[
      b1*\((a1*a4 + a2)\) >= 
        0.9*\((a1*b2*b7 - b2*b6 - a6*\((a4*b6 + a2*b7)\))\), \ \ Print[
        Dopustimo], Print[Nedopustimo]]\)], "Input",
  CellChangeTimes -> {{3.5001937028157063`*^9, 3.5001937835213223`*^9}, \
{3.500193913569761*^9, 3.5001939891960864`*^9}, {3.500194022427987*^9, \
3.5001940769501057`*^9}, {3.500194134515398*^9, 3.500194140948766*^9}, \
3.500194746939427*^9}],

Cell[BoxData[
    \(Dopustimo\)], "Print"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(MatrixForm[
      Apr = {{\(-c1\) - c5, \(-c2\) + c4*c5, \(-e3\) + c5*e2, 
            0, \(-c5\)*c10}, {1, \(-c4\), \(-e2\), 
            0, \(-c10\)}, {0, \(-c8\), \(-e1\), 0, \(-c7\)}, {0, \(-c6\), 
            c11, 0, c6}, {1, 0, 0, 0, 0}}]\)], "Input",
  CellChangeTimes -> {{3.5001956254636755`*^9, 3.5001956363512983`*^9}, \
{3.500195845083237*^9, 3.50019609060428*^9}, 3.5002970606138134`*^9, \
{3.50029721841984*^9, 3.50029722140001*^9}, 3.5002984478033624`*^9, \
3.5002985609503613`*^9}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(-1.1199999999999999`\), \(-10.64`\), \(0.3`\ e2 - e3\), 
              "0", \(\(-0.3`\)\ c10\)},
            {"1", \(-1.2`\), \(-e2\), "0", \(-c10\)},
            {"0", \(-c8\), \(-e1\), "0", \(-c7\)},
            {"0", \(-7.3`\), "c11", "0", "7.3`"},
            {"1", "0", "0", "0", "0"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      Xpr = {wz[t], Alpha[t], dV[t], dH[t], 
          LTeta[t]}]\)\(\ \)\( (*\:0412\:0435\:043a\:0442\:043e\:0440\ \:0441\
\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f\ \:043f\:0440\:043e\:0434\
\:043e\:043b\:044c\:043d\:043e\:0433\:043e\ \:0434\:0432\:0438\:0436\:0435\
\:043d\:0438\:044f*) \)\)\)], "Input",
  CellChangeTimes -> {{3.5001962961110344`*^9, 3.500196325878737*^9}, \
{3.5001963732014437`*^9, 3.5001963744005127`*^9}, {3.500196407766421*^9, \
3.500196535605733*^9}, {3.5003023354849615`*^9, 3.5003023513528695`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {\(wz[t]\)},
              {\(Alpha[t]\)},
              {\(dV[t]\)},
              {\(dH[t]\)},
              {\(LTeta[t]\)}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(MatrixForm[
      Abok = {{\(-b1\), \(-a6\), \(-b2\), 0, 0}, {\(-b6\), \(-a1\), \(-a2\), 
            0, 0}, {b7, a8, \(-a4\), b4, 0}, {1, \(-a9\), 0, b8, 0}, {0, a10, 
            0, \(-b9\), 0}}]\)], "Input",
  CellChangeTimes -> {{3.5001961276924014`*^9, 3.5001962735437436`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(-3.1`\), \(-0.709`\), \(-20.2`\), "0", "0"},
            {\(-0.057`\), \(-0.635`\), \(-5.47`\), "0", "0"},
            {"0.065`", "a8", \(-0.269`\), "0.072`", "0"},
            {"1", \(-a9\), "0", "b8", "0"},
            {"0", "a10", "0", \(-b9\), "0"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      Xbok = {wx[t], wy[t], Betta[t], LGamma[t], 
          LPsi[t]}]\)\(\ \)\( (*\:0412\:0435\:043a\:0442\:043e\:0440\ \:0441\
\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f\ \:0431\:043e\:043a\:043e\
\:0432\:043e\:0433\:043e\ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f*) \
\)\)\)], "Input",
  CellChangeTimes -> {{3.500196521348917*^9, 3.5001966229177265`*^9}, \
{3.500302361364442*^9, 3.500302373805154*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(Xbok\\)\\\" is similar to existing symbol \\\
\"\\!\\(Abok\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {\(wx[t]\)},
              {\(wy[t]\)},
              {\(Betta[t]\)},
              {\(LGamma[t]\)},
              {\(LPsi[t]\)}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[TextData[StyleBox["\:0420\:0430\:0441\:0441\:043c\:043e\:0442\:0440\:0438\
\:043c \:0441\:0432\:043e\:0431\:043e\:0434\:043d\:044b\:0439 \:0441\:0430\
\:043c\:043e\:043b\:0435\:0442:",
  FontSize->18]], "Text",
  CellChangeTimes -> {{3.500302772523959*^9, 3.5003028091750555`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(dxpr = D[Xpr, t]\)], "Input",
  CellChangeTimes -> {{3.500290505543885*^9, 3.5002905306443205`*^9}, \
{3.50029186007836*^9, 3.50029187162002*^9}, {3.500292122350361*^9, \
3.500292185306962*^9}, 3.500292247412514*^9, {3.5002922775122356`*^9, \
3.5002922847976522`*^9}}],

Cell[BoxData[
    RowBox[{"{", 
      RowBox[{
        RowBox[{
          SuperscriptBox["wz", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], ",", 
        RowBox[{
          SuperscriptBox["Alpha", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], ",", 
        RowBox[{
          SuperscriptBox["dV", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], ",", 
        RowBox[{
          SuperscriptBox["dH", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], ",", 
        RowBox[{
          SuperscriptBox["LTeta", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(lxpr = LaplaceTransform[dxpr, t, s]\)], "Input",
  CellChangeTimes -> {{3.5002909622420063`*^9, 3.500290963782095*^9}, \
{3.5002915012038336`*^9, 3.500291504251008*^9}, {3.500291709231732*^9, \
3.5002917141870155`*^9}, {3.5002917473899145`*^9, 3.5002917765895844`*^9}, \
3.5002923302882547`*^9}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(lxpr\\)\\\" is similar to existing symbol \\\
\"\\!\\(dxpr\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    \({s\ LaplaceTransform[wz[t], t, s] - wz[0], \(-Alpha[0]\) + 
        s\ LaplaceTransform[Alpha[t], t, s], \(-dV[0]\) + 
        s\ LaplaceTransform[dV[t], t, s], \(-dH[0]\) + 
        s\ LaplaceTransform[dH[t], t, s], 
      s\ LaplaceTransform[LTeta[t], t, s] - LTeta[0]}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(LaplaceTransform[Cosh[t], t, s]\)], "Input",
  CellChangeTimes -> {{3.5002909622420063`*^9, 3.500290963782095*^9}, \
{3.5002915012038336`*^9, 3.500291504251008*^9}, {3.500291709231732*^9, \
3.5002917141870155`*^9}, {3.5002917473899145`*^9, 3.5002917765895844`*^9}, \
3.5002923302882547`*^9}],

Cell[BoxData[
    \(s\/\(\(-1\) + s\^2\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(lxpr = Xpr . DiagonalMatrix[{s, s, s, s, s}]\)], "Input",
  CellChangeTimes -> {{3.500292290010951*^9, 3.500292312243222*^9}, \
{3.500292346335172*^9, 3.500292348845316*^9}}],

Cell[BoxData[
    \({s\ wz[t], s\ Alpha[t], s\ dV[t], s\ dH[t], s\ LTeta[t]}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(UrPr = MatrixForm[lxpr - Apr . Xpr]\)], "Input",
  CellChangeTimes -> {{3.5001968886689267`*^9, 3.5001968892539606`*^9}, \
{3.5001969401508713`*^9, 3.5001969828563137`*^9}, {3.5001974830549235`*^9, \
3.5001975714569798`*^9}, {3.5001976512715454`*^9, 3.5001976680765066`*^9}, \
{3.5002903735903378`*^9, 3.5002903906323123`*^9}, {3.5002905356676083`*^9, \
3.5002905408039017`*^9}, {3.5002914158489513`*^9, 3.500291453155085*^9}, \
{3.5002916695614634`*^9, 3.5002916802130723`*^9}, {3.500291719754334*^9, \
3.5002917202923646`*^9}, {3.5002932925632935`*^9, 3.5002932940343776`*^9}, \
{3.5002964677619047`*^9, 3.500296481090667*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {\(10.64`\ Alpha[t] - \((0.3`\ e2 - e3)\)\ dV[t] + 
                  0.3`\ c10\ LTeta[t] + 1.1199999999999999`\ wz[t] + 
                  s\ wz[t]\)},
              {\(1.2`\ Alpha[t] + s\ Alpha[t] + e2\ dV[t] + c10\ LTeta[t] - 
                  wz[t]\)},
              {\(c8\ Alpha[t] + e1\ dV[t] + s\ dV[t] + c7\ LTeta[t]\)},
              {\(7.3`\ Alpha[t] + s\ dH[t] - c11\ dV[t] - 7.3`\ LTeta[t]\)},
              {\(s\ LTeta[t] - wz[t]\)}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[BoxData[
    FormBox["", TraditionalForm]], "Input",
  CellChangeTimes -> {{3.5001968886689267`*^9, 3.5001968892539606`*^9}, \
{3.5001969401508713`*^9, 3.5001969828563137`*^9}, {3.5001974830549235`*^9, \
3.5001975714569798`*^9}, {3.5001976512715454`*^9, 3.5001976680765066`*^9}, \
{3.5002903735903378`*^9, 3.5002903906323123`*^9}, {3.5002905356676083`*^9, \
3.5002905408039017`*^9}, {3.5002914158489513`*^9, 3.500291453155085*^9}, \
{3.5002916695614634`*^9, 3.5002916802130723`*^9}, {3.500291719754334*^9, \
3.5002917202923646`*^9}, {3.5002932925632935`*^9, 3.5002932940343776`*^9}, \
{3.5002964677619047`*^9, 3.500296481090667*^9}}],

Cell[BoxData[
    FormBox["", TraditionalForm]], "Input",
  CellChangeTimes -> {{3.5001968886689267`*^9, 3.5001968892539606`*^9}, \
{3.5001969401508713`*^9, 3.5001969828563137`*^9}, {3.5001974830549235`*^9, \
3.5001975714569798`*^9}, {3.5001976512715454`*^9, 3.5001976680765066`*^9}, \
{3.5002903735903378`*^9, 3.5002903906323123`*^9}, {3.5002905356676083`*^9, \
3.5002905408039017`*^9}, {3.5002914158489513`*^9, 3.500291453155085*^9}, \
{3.5002916695614634`*^9, 3.5002916802130723`*^9}, {3.500291719754334*^9, \
3.5002917202923646`*^9}, {3.5002932925632935`*^9, 3.5002932940343776`*^9}, \
{3.5002964677619047`*^9, 3.500296481090667*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(MatrixForm[
      MatrUrPr = 
        Table[D[UrPr[\([\)\(1, i\)\(]\)], Xpr[\([\)\(j\)\(]\)]], {i, 1, 
            5}, {j, 1, 5}]]\)], "Input",
  CellChangeTimes -> {{3.500292701017459*^9, 3.50029275016127*^9}, \
{3.5002932085954905`*^9, 3.500293271783105*^9}, {3.5002933828794594`*^9, \
3.5002934376955943`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(\(\(1.1199999999999999`\)\(\[InvisibleSpace]\)\) + s\), 
              "10.64`", \(\(-0.3`\)\ e2 + e3\), "0", \(0.3`\ c10\)},
            {\(-1\), \(\(\(1.2`\)\(\[InvisibleSpace]\)\) + s\), "e2", "0", 
              "c10"},
            {"0", "c8", \(e1 + s\), "0", "c7"},
            {"0", "7.3`", \(-c11\), "s", \(-7.3`\)},
            {\(-1\), "0", "0", "0", "s"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(MatrixForm[MatrUrPr = ReplaceAll[MatrUrPr, c10 \[Rule] 0]]\)], "Input",
  CellChangeTimes -> {{3.5002964705590644`*^9, 3.5002964713661103`*^9}, \
{3.500297619360772*^9, 3.500297657315943*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(\(\(1.1199999999999999`\)\(\[InvisibleSpace]\)\) + s\), 
              "10.64`", \(\(-0.3`\)\ e2 + e3\), "0", "0"},
            {\(-1\), \(\(\(1.2`\)\(\[InvisibleSpace]\)\) + s\), "e2", "0", 
              "0"},
            {"0", "c8", \(e1 + s\), "0", "c7"},
            {"0", "7.3`", \(-c11\), "s", \(-7.3`\)},
            {\(-1\), "0", "0", "0", "s"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(MatrUrPr[\([\)\(1\)\(]\)] = 
      Simplify[MatrUrPr[\([\)\(1\)\(]\)] + 
          MatrUrPr[\([\)\(2\)\(]\)]*c5]\)], "Input",
  CellChangeTimes -> {{3.5002979349118204`*^9, 3.5002979362378964`*^9}, \
{3.5002979911260357`*^9, 3.500298046834222*^9}, {3.5002982370891037`*^9, \
3.5002982485297585`*^9}}],

Cell[BoxData[
    \({\(\(0.8199999999999998`\)\(\[InvisibleSpace]\)\) + 
        s, \(\(11.`\)\(\[InvisibleSpace]\)\) + 0.3`\ s, 0.`\ e2 + e3, 0, 
      0}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      MatrUrPr]\)\(\ \)\( (*\:041e\:043a\:043e\:043d\:0447\:0430\:0442\:0435\
\:043b\:044c\:043d\:043e\:0435\ \:0432\:044b\:0440\:0430\:0436\:0435\:043d\
\:0438\:0435\ \:0434\:043b\:044f\ \:043c\:0430\:0442\:0440\:0438\:0446\:044b, \
\:0441\:043e\:0441\:0442\:0430\:0432\:043b\:0435\:043d\:043d\:043e\:0439\ \
\:0438\:0437\ \:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\
\:0442\:043e\:0432\ \:0441\:0438\:0441\:0442\:0435\:043c\:044b\ \:043b\:0438\
\:043d\:0435\:0439\:043d\:044b\:0445\ \:0443\:0440\:0430\:0432\:043d\:0435\
\:043d\:0438\:0439\ \:0432\ \:043e\:043f\:0435\:0440\:0430\:0442\:043e\:0440\
\:043d\:043e\:0439\ \:0444\:043e\:0440\:043c\:0435, \:043e\:043f\:0438\:0441\
\:044b\:0432\:0430\:044e\:0449\:0438\:0445\ \:043f\:0440\:043e\:0434\:043e\
\:043b\:044c\:043d\:043e\:0435\ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\
\:0435\ \:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430*) \)\)\)], "Input",
  CellChangeTimes -> {{3.5002982527079973`*^9, 3.5002982694229536`*^9}, \
{3.50030250696177*^9, 3.500302512875108*^9}, 3.5003026680869856`*^9}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(\(\(0.8199999999999998`\)\(\[InvisibleSpace]\)\) + 
                s\), \(\(\(11.`\)\(\[InvisibleSpace]\)\) + 
                0.3`\ s\), \(0.`\ e2 + e3\), "0", "0"},
            {\(-1\), \(\(\(1.2`\)\(\[InvisibleSpace]\)\) + s\), "e2", "0", 
              "0"},
            {"0", "c8", \(e1 + s\), "0", "c7"},
            {"0", "7.3`", \(-c11\), "s", \(-7.3`\)},
            {\(-1\), "0", "0", "0", "s"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(dxbok = D[Xbok, t]\)], "Input",
  CellChangeTimes -> {{3.500299451339525*^9, 3.5002994660971513`*^9}}],

Cell[BoxData[
    RowBox[{"{", 
      RowBox[{
        RowBox[{
          SuperscriptBox["wx", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], ",", 
        RowBox[{
          SuperscriptBox["wy", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], ",", 
        RowBox[{
          SuperscriptBox["Betta", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], ",", 
        RowBox[{
          SuperscriptBox["LGamma", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], ",", 
        RowBox[{
          SuperscriptBox["LPsi", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(lxbok = LaplaceTransform[dxbok, t, s]\)], "Input",
  CellChangeTimes -> {{3.500299485441185*^9, 3.500299498982009*^9}}],

Cell[BoxData[
    RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(lxbok\\)\\\" is similar to existing symbol \
\\\"\\!\\(dxbok\\)\\\". \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message"],

Cell[BoxData[
    \({s\ LaplaceTransform[wx[t], t, s] - wx[0], 
      s\ LaplaceTransform[wy[t], t, s] - wy[0], \(-Betta[0]\) + 
        s\ LaplaceTransform[Betta[t], t, s], 
      s\ LaplaceTransform[LGamma[t], t, s] - LGamma[0], 
      s\ LaplaceTransform[LPsi[t], t, s] - LPsi[0]}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(lxbok = Xbok . DiagonalMatrix[{s, s, s, s, s}]\)], "Input",
  CellChangeTimes -> {{3.5002995020084143`*^9, 3.500299524971655*^9}}],

Cell[BoxData[
    \({s\ wx[t], s\ wy[t], s\ Betta[t], s\ LGamma[t], s\ LPsi[t]}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(UrBok = MatrixForm[lxbok - Abok . Xbok]\)], "Input",
  CellChangeTimes -> {{3.500299537124076*^9, 3.5002995606333175`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
              {\(20.2`\ Betta[t] + 3.1`\ wx[t] + s\ wx[t] + 0.709`\ wy[t]\)},
              {\(5.47`\ Betta[t] + 0.057`\ wx[t] + 0.635`\ wy[t] + 
                  s\ wy[t]\)},
              {\(0.269`\ Betta[t] + s\ Betta[t] - 0.072`\ LGamma[t] - 
                  0.065`\ wx[t] - a8\ wy[t]\)},
              {\(\(-b8\)\ LGamma[t] + s\ LGamma[t] - wx[t] + a9\ wy[t]\)},
              {\(b9\ LGamma[t] + s\ LPsi[t] - a10\ wy[t]\)}
              },
            RowSpacings->1,
            ColumnAlignments->{Left}],
          Column], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{\(Abok . Xbok\), 
      FormBox["",
        "TraditionalForm"]}]], "Input",
  CellChangeTimes -> {{3.500299537124076*^9, 3.5002995606333175`*^9}}],

Cell[BoxData[
    \({Null\ \((\(-20.2`\)\ Betta[t] - 3.1`\ wx[t] - 0.709`\ wy[t])\), 
      Null\ \((\(-5.47`\)\ Betta[t] - 0.057`\ wx[t] - 0.635`\ wy[t])\), 
      Null\ \((\(-0.269`\)\ Betta[t] + 0.072`\ LGamma[t] + 0.065`\ wx[t] + 
            a8\ wy[t])\), Null\ \((b8\ LGamma[t] + wx[t] - a9\ wy[t])\), 
      Null\ \((\(-b9\)\ LGamma[t] + a10\ wy[t])\)}\)], "Output"]
}, Open  ]],

Cell[BoxData[""], "Input",
  CellChangeTimes -> {{3.500299537124076*^9, 3.5002995606333175`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      MatrUrBok = 
        Table[D[UrBok[\([\)\(1, i\)\(]\)], Xbok[\([\)\(j\)\(]\)]], {i, 1, 
            5}, {j, 1, 
            5}]]\)\(\ \)\( (*\:041e\:043a\:043e\:043d\:0447\:0430\:0442\:0435\
\:043b\:044c\:043d\:043e\:0435\ \:0432\:044b\:0440\:0430\:0436\:0435\:043d\
\:0438\:0435\ \:0434\:043b\:044f\ \:043c\:0430\:0442\:0440\:0438\:0446\:044b, \
\:0441\:043e\:0441\:0442\:0430\:0432\:043b\:0435\:043d\:043d\:043e\:0439\ \
\:0438\:0437\ \:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\
\:0442\:043e\:0432\ \:0441\:0438\:0441\:0442\:0435\:043c\:044b\ \:043b\:0438\
\:043d\:0435\:0439\:043d\:044b\:0445\ \:0443\:0440\:0430\:0432\:043d\:0435\
\:043d\:0438\:0439\ \:0432\ \:043e\:043f\:0435\:0440\:0430\:0442\:043e\:0440\
\:043d\:043e\:0439\ \:0444\:043e\:0440\:043c\:0435, \:043e\:043f\:0438\:0441\
\:044b\:0432\:0430\:044e\:0449\:0438\:0445\ \:0431\:043e\:043a\:043e\:0432\
\:043e\:0435\ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:0435\ \:0441\:0430\
\:043c\:043e\:043b\:0435\:0442\:0430*) \)\)\)], "Input",
  CellChangeTimes -> {{3.500299587590165*^9, 3.500299609274203*^9}, \
{3.500302680293684*^9, 3.5003027116484776`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(\(\(3.1`\)\(\[InvisibleSpace]\)\) + s\), "0.709`", "20.2`", 
              "0", "0"},
            {"0.057`", \(\(\(0.635`\)\(\[InvisibleSpace]\)\) + s\), "5.47`", 
              "0", "0"},
            {\(-0.065`\), \(-a8\), \(\(\(0.269`\)\(\[InvisibleSpace]\)\) + 
                s\), \(-0.072`\), "0"},
            {\(-1\), "a9", "0", \(\(-b8\) + s\), "0"},
            {"0", \(-a10\), "0", "b9", "s"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(MatrixForm[
      MatrUrKPD = 
        Delete[MatrUrPr, {{1, 3}, {1, 4}, {1, 5}, {2, 3}, {2, 4}, {2, 
              5}, {3}, {4}, {5}}]]\)], "Input",
  CellChangeTimes -> {{3.5003017652383456`*^9, 3.5003017843584394`*^9}, \
{3.500301848745122*^9, 3.5003018524763355`*^9}, {3.5003020024559135`*^9, \
3.5003020542788777`*^9}, {3.5003021407828255`*^9, 3.5003021767378817`*^9}, \
{3.5003022408125467`*^9, 3.5003022790607347`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(\(\(0.8199999999999998`\)\(\[InvisibleSpace]\)\) + 
                s\), \(\(\(11.`\)\(\[InvisibleSpace]\)\) + 0.3`\ s\)},
            {\(-1\), \(\(\(1.2`\)\(\[InvisibleSpace]\)\) + s\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[TextData[StyleBox["\:043c\:043e\:043c\:0435\:043d\:0442\:043d\:043e\:0435\
 \:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:0438\:0435",
  FontSize->18]], "Text",
  CellChangeTimes -> {{3.500303285394294*^9, 3.500303360012562*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(Walmz = \(\(Det[{{MatrUrKPD[\([\)\(1, 1\)\(]\)], 
              57.3}, {MatrUrKPD[\([\)\(2, 1\)\(]\)], 0}}]/
        Det[MatrUrKPD]\)\(\ \)\( (*\:041f\:0435\:0440\:0435\:0434\:0430\:0442\
\:043e\:0447\:043d\:0430\:044f\ \:0444\:0443\:043d\:043a\:0446\:0438\:044f\ \
\:0443\:0433\:043e\:043b\ \:0430\:0442\:0430\:043a\:0438/Mz*) \)\)\)], "Input",\

  CellChangeTimes -> {{3.5003033695531073`*^9, 3.5003034249982786`*^9}, \
{3.500303507879019*^9, 3.5003035187146387`*^9}, {3.50030368186697*^9, \
3.5003037012060766`*^9}, {3.5003037727471685`*^9, 3.500303807935181*^9}, \
{3.500303861091222*^9, 3.500303918461503*^9}, {3.5003040113828173`*^9, \
3.500304041864561*^9}, {3.500307584282176*^9, 3.500307585638253*^9}, \
{3.5003082598548164`*^9, 3.5003082606238604`*^9}, {3.500318369260041*^9, \
3.500318394739499*^9}}],

Cell[BoxData[
    \(57.3`\/\(\(\(11.984`\)\(\[InvisibleSpace]\)\) + 2.3199999999999994`\ s \
+ s\^2\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(halmz = InverseLaplaceTransform[Walmz/s, s, t]\)], "Input",
  CellChangeTimes -> {{3.5003050265048795`*^9, 3.500305070868417*^9}, \
{3.5003051110207133`*^9, 3.5003051194051933`*^9}, {3.5003051577033834`*^9, \
3.5003052002368164`*^9}, {3.50030829593088*^9, 3.5003082971819515`*^9}}],

Cell[BoxData[
    \(57.3`\ \((\(\(0.08344459279038718`\)\(\[InvisibleSpace]\)\) - \
\((\(\(0.0417222963951936`\)\(\[InvisibleSpace]\)\) + 
                0.01483843284064393`\ \[ImaginaryI])\)\ \
\[ExponentialE]\^\(\((\(-1.1599999999999997`\) - 3.2616560211033905`\ \
\[ImaginaryI])\)\ t\) - \((\(\(0.0417222963951936`\)\(\[InvisibleSpace]\)\) - 
                0.01483843284064393`\ \[ImaginaryI])\)\ \
\[ExponentialE]\^\(\((\(-1.1599999999999997`\) + 3.2616560211033905`\ \
\[ImaginaryI])\)\ t\))\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Plot[halmz, {t, 0, 10}, PlotRange \[Rule] {0, 7}]\)], "Input",
  CellChangeTimes -> {{3.500305205991145*^9, 3.5003052066721845`*^9}, \
{3.5003053990821896`*^9, 3.5003054224345255`*^9}, {3.5003075943337507`*^9, \
3.5003076240724516`*^9}}],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0952381 -2.08167e-017 0.0882906 [
[.21429 -0.0125 -3 -9 ]
[.21429 -0.0125 3 0 ]
[.40476 -0.0125 -3 -9 ]
[.40476 -0.0125 3 0 ]
[.59524 -0.0125 -3 -9 ]
[.59524 -0.0125 3 0 ]
[.78571 -0.0125 -3 -9 ]
[.78571 -0.0125 3 0 ]
[.97619 -0.0125 -6 -9 ]
[.97619 -0.0125 6 0 ]
[.01131 .08829 -6 -4.5 ]
[.01131 .08829 0 4.5 ]
[.01131 .17658 -6 -4.5 ]
[.01131 .17658 0 4.5 ]
[.01131 .26487 -6 -4.5 ]
[.01131 .26487 0 4.5 ]
[.01131 .35316 -6 -4.5 ]
[.01131 .35316 0 4.5 ]
[.01131 .44145 -6 -4.5 ]
[.01131 .44145 0 4.5 ]
[.01131 .52974 -6 -4.5 ]
[.01131 .52974 0 4.5 ]
[.01131 .61803 -6 -4.5 ]
[.01131 .61803 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 0 m
.21429 .00625 L
s
[(2)] .21429 -0.0125 0 1 Mshowa
.40476 0 m
.40476 .00625 L
s
[(4)] .40476 -0.0125 0 1 Mshowa
.59524 0 m
.59524 .00625 L
s
[(6)] .59524 -0.0125 0 1 Mshowa
.78571 0 m
.78571 .00625 L
s
[(8)] .78571 -0.0125 0 1 Mshowa
.97619 0 m
.97619 .00625 L
s
[(10)] .97619 -0.0125 0 1 Mshowa
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.2619 0 m
.2619 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.5 0 m
.5 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.7381 0 m
.7381 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
.02381 .08829 m
.03006 .08829 L
s
[(1)] .01131 .08829 1 0 Mshowa
.02381 .17658 m
.03006 .17658 L
s
[(2)] .01131 .17658 1 0 Mshowa
.02381 .26487 m
.03006 .26487 L
s
[(3)] .01131 .26487 1 0 Mshowa
.02381 .35316 m
.03006 .35316 L
s
[(4)] .01131 .35316 1 0 Mshowa
.02381 .44145 m
.03006 .44145 L
s
[(5)] .01131 .44145 1 0 Mshowa
.02381 .52974 m
.03006 .52974 L
s
[(6)] .01131 .52974 1 0 Mshowa
.02381 .61803 m
.03006 .61803 L
s
[(7)] .01131 .61803 1 0 Mshowa
.125 Mabswid
.02381 .01766 m
.02756 .01766 L
s
.02381 .03532 m
.02756 .03532 L
s
.02381 .05297 m
.02756 .05297 L
s
.02381 .07063 m
.02756 .07063 L
s
.02381 .10595 m
.02756 .10595 L
s
.02381 .12361 m
.02756 .12361 L
s
.02381 .14126 m
.02756 .14126 L
s
.02381 .15892 m
.02756 .15892 L
s
.02381 .19424 m
.02756 .19424 L
s
.02381 .2119 m
.02756 .2119 L
s
.02381 .22956 m
.02756 .22956 L
s
.02381 .24721 m
.02756 .24721 L
s
.02381 .28253 m
.02756 .28253 L
s
.02381 .30019 m
.02756 .30019 L
s
.02381 .31785 m
.02756 .31785 L
s
.02381 .3355 m
.02756 .3355 L
s
.02381 .37082 m
.02756 .37082 L
s
.02381 .38848 m
.02756 .38848 L
s
.02381 .40614 m
.02756 .40614 L
s
.02381 .42379 m
.02756 .42379 L
s
.02381 .45911 m
.02756 .45911 L
s
.02381 .47677 m
.02756 .47677 L
s
.02381 .49443 m
.02756 .49443 L
s
.02381 .51209 m
.02756 .51209 L
s
.02381 .5474 m
.02756 .5474 L
s
.02381 .56506 m
.02756 .56506 L
s
.02381 .58272 m
.02756 .58272 L
s
.02381 .60038 m
.02756 .60038 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 0 m
.06244 .26659 L
.07216 .35905 L
.08255 .44388 L
.08852 .48309 L
.09396 .51186 L
.09658 .52329 L
.09942 .53389 L
.10208 .54214 L
.10458 .54841 L
.10687 .55295 L
.10933 .55658 L
.11073 .55807 L
.11142 .55867 L
.11207 .55913 L
.11326 .55978 L
.11457 .56017 L
.11523 .56025 L
.11595 .56025 L
.11726 .56 L
.11852 .55947 L
.11969 .55874 L
.12096 .55771 L
.12235 .55628 L
.12516 .55253 L
.1299 .54384 L
.13498 .53181 L
.14415 .50525 L
.16396 .44259 L
.17441 .41475 L
.18014 .40244 L
.18551 .39307 L
.19025 .38663 L
.19535 .38158 L
.19811 .37964 L
.19962 .37882 L
.20102 .37819 L
.20232 .37773 L
.2035 .3774 L
.20481 .37715 L
.20553 .37706 L
.20621 .377 L
.20732 .37697 L
.20853 .37701 L
.2098 .37715 L
.21099 .37736 L
.2121 .37763 L
.21312 .37793 L
.2154 .3788 L
.21784 .37999 L
Mistroke
.22051 .38159 L
.22536 .38515 L
.24672 .40635 L
.25679 .41651 L
.26606 .4245 L
.27576 .43089 L
.28086 .43332 L
.28346 .43432 L
.28624 .4352 L
.2887 .43582 L
.29093 .43626 L
.29201 .43643 L
.29318 .43659 L
.29428 .43671 L
.29531 .4368 L
.2965 .43687 L
.29781 .43692 L
.29909 .43693 L
.29981 .43693 L
.30047 .43691 L
.30158 .43687 L
.30279 .4368 L
.30406 .43669 L
.30524 .43657 L
.30788 .43622 L
.3103 .43581 L
.31579 .43459 L
.32574 .43167 L
.34434 .42533 L
.35341 .42255 L
.36314 .42014 L
.36872 .41908 L
.37381 .41834 L
.37627 .41805 L
.37893 .4178 L
.38146 .41761 L
.38379 .41748 L
.38496 .41743 L
.3862 .41738 L
.38726 .41735 L
.38841 .41733 L
.38966 .41732 L
.39036 .41731 L
.391 .41731 L
.39223 .41732 L
.3934 .41734 L
.39449 .41736 L
.39565 .41739 L
.39773 .41746 L
.39997 .41756 L
Mistroke
.40243 .41771 L
.40756 .41808 L
.41307 .41858 L
.42302 .41965 L
.44275 .42179 L
.44815 .42229 L
.45391 .42274 L
.45931 .42309 L
.46427 .42334 L
.46943 .42354 L
.47214 .42361 L
.47352 .42364 L
.475 .42367 L
.47631 .42369 L
.4775 .42371 L
.47869 .42372 L
.47982 .42373 L
.48114 .42373 L
.48236 .42373 L
.48299 .42373 L
.48369 .42373 L
.48442 .42373 L
.48511 .42373 L
.48621 .42372 L
.48742 .42371 L
.48985 .42368 L
.49211 .42364 L
.4942 .4236 L
.504 .42334 L
.52275 .42267 L
.53262 .42233 L
.54306 .42202 L
.54836 .4219 L
.55418 .42179 L
.55673 .42175 L
.55947 .42171 L
.56204 .42169 L
.56442 .42167 L
.56701 .42165 L
.56838 .42164 L
.56983 .42164 L
.5705 .42164 L
.57122 .42164 L
.57252 .42163 L
.57379 .42163 L
.57496 .42163 L
.57612 .42163 L
.57719 .42164 L
.57838 .42164 L
.57964 .42164 L
Mistroke
.58223 .42165 L
.58458 .42167 L
.58941 .4217 L
.59453 .42175 L
.60372 .42185 L
.6245 .42209 L
.6339 .42219 L
.63909 .42223 L
.64402 .42226 L
.64859 .42228 L
.651 .42229 L
.65358 .4223 L
.65595 .42231 L
.65811 .42231 L
.65915 .42231 L
.66028 .42232 L
.66133 .42232 L
.66232 .42232 L
.66356 .42232 L
.66469 .42232 L
.66591 .42232 L
.6666 .42232 L
.66723 .42232 L
.66829 .42232 L
.66946 .42232 L
.67068 .42232 L
.67182 .42232 L
.67444 .42231 L
.67684 .42231 L
.68225 .42229 L
.69251 .42226 L
.70331 .42222 L
.71358 .42218 L
.72327 .42215 L
.73197 .42212 L
.73688 .42211 L
.74141 .42211 L
.74594 .4221 L
.74852 .4221 L
.75093 .4221 L
.75223 .4221 L
.75347 .4221 L
.75458 .4221 L
.75579 .4221 L
.7571 .42209 L
.75783 .42209 L
.7585 .42209 L
.75979 .4221 L
.76101 .4221 L
.76223 .4221 L
Mistroke
.76356 .4221 L
.76625 .4221 L
.76875 .4221 L
.77108 .4221 L
.78196 .42211 L
.80062 .42214 L
.81046 .42215 L
.8209 .42216 L
.82616 .42216 L
.83196 .42216 L
.8345 .42217 L
.83723 .42217 L
.83981 .42217 L
.84218 .42217 L
.84335 .42217 L
.84461 .42217 L
.84579 .42217 L
.84686 .42217 L
.84813 .42217 L
.84884 .42217 L
.8495 .42217 L
.85071 .42217 L
.85199 .42217 L
.85321 .42217 L
.85453 .42217 L
.8569 .42217 L
.85973 .42217 L
.86231 .42217 L
.8722 .42216 L
.88136 .42216 L
.89205 .42216 L
.90211 .42215 L
.91182 .42215 L
.92074 .42215 L
.92556 .42215 L
.92798 .42215 L
.93064 .42214 L
.93331 .42214 L
.93481 .42214 L
.93617 .42214 L
.93744 .42214 L
.93816 .42214 L
.93882 .42214 L
.94004 .42214 L
.94133 .42214 L
.94244 .42214 L
.94365 .42214 L
.9448 .42214 L
.94586 .42214 L
.94786 .42214 L
Mistroke
.95 .42214 L
.95489 .42215 L
.95933 .42215 L
.97619 .42215 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/B000`400?l00000o`00003oo`3ooolQ
0?ooo`00A03oool400000300oooo0`00000/0?ooo`<00000<03oool2000002/0oooo1@0000020?oo
o`800000403oool004@0oooo00<000000?ooo`3oool0<P3oool00`000000oooo0?ooo`0[0?ooo`04
0000003oool0oooo000002h0oooo00@000000?ooo`3oool00000;03oool01@000000oooo0?ooo`3o
ool000000080oooo00<000000?ooo`3oool03@3oool004D0oooo00<000000?ooo`3oool0;P3oool5
000002`0oooo00@000000?ooo`3oool00000;P3oool010000000oooo0?ooo`00000/0?ooo`050000
003oool0oooo0?ooo`0000000P3oool00`000000oooo0?ooo`0=0?ooo`00AP3oool00`000000oooo
0?ooo`0]0?ooo`040000003oool0oooo000002d0oooo0`00000`0?ooo`800000;@3oool01@000000
oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool03@3oool004@0oooo00@000000?ooo`3o
ool00000;`3oool00`000000oooo0000000^0?ooo`030000003oool0oooo02h0oooo00@000000?oo
o`3oool00000;03oool01@000000oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool03@3o
ool004D0oooo0P00000a0?ooo`800000;P3oool3000002l0oooo0P00000/0?ooo`800000103oool2
00000100oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo003o
0?ooob40oooo000?0?ooool000001@00000=0?ooo`005@3oool00`000000oooo0?ooo`090?ooo`03
0000003oool0oooo00X0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`090?ooo`03
0000003oool0oooo00X0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`0:0?ooo`03
0000003oool0oooo00T0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`0:0?ooo`03
0000003oool0oooo00T0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`0:0?ooo`03
0000003oool0oooo00T0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`0:0?ooo`03
0000003oool0oooo00T0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`0:0?ooo`03
0000003oool0oooo00T0oooo00<000000?ooo`3oool04@3oool001D0oooo00<000000?ooo`3oool0
o`3oool90?ooo`005@3oool00`000000oooo0?ooo`3o0?ooo`T0oooo000E0?ooo`800000o`3oool:
0?ooo`005@3oool200000?l0oooo2P3oool001D0oooo0P00003o0?ooo`X0oooo000E0?ooo`800000
o`3oool:0?ooo`005@3oool200000?l0oooo2P3oool001D0oooo0P00003o0?ooo`X0oooo000E0?oo
o`800000o`3oool:0?ooo`005@3oool00`000000oooo0000003o0?ooo`T0oooo000E0?ooo`030000
003oool000000?l0oooo2@3oool001D0oooo00<000000?ooo`000000o`3oool90?ooo`005@3oool3
00000?l0oooo2@3oool001D0oooo00<000000?ooo`000000o`3oool90?ooo`005@3oool00`000000
oooo0000003o0?ooo`T0oooo000E0?ooo`030000003oool000000?l0oooo2@3oool001D0oooo0P00
00000`3oool000000?ooo`3o0?ooo`L0oooo000E0?ooo`040000003oool0oooo00000?l0oooo203o
ool001D0oooo00@000000?ooo`3oool00000o`3oool80?ooo`003@3oool5000000<0oooo00@00000
0?ooo`3oool00000o`3oool80?ooo`003`3oool00`000000oooo0?ooo`030?ooo`040000003oool0
oooo00000?l0oooo203oool000l0oooo00<000000?ooo`3oool00`3oool400000?l0oooo203oool0
00l0oooo00<000000?ooo`3oool00`3oool010000000oooo0?ooo`00003o0?ooo`P0oooo000?0?oo
o`030000003oool0oooo00<0oooo00D000000?ooo`3oool0oooo0000003o0?ooo`L0oooo000>0?oo
o`8000001@3oool01@000000oooo0?ooo`3oool000000?l0oooo1`3oool001D0oooo0P0000020?oo
o`030000003oool0oooo0?l0oooo1@3oool001D0oooo00D000000?ooo`3oool0oooo0000003o0?oo
o`L0oooo000E0?ooo`050000003oool0oooo0?ooo`000000o`3oool70?ooo`005@3oool01@000000
oooo0?ooo`3oool000000?l0oooo1`3oool001D0oooo00D000000?ooo`3oool0oooo0000003o0?oo
o`L0oooo000E0?ooo`8000000`3oool00`000000oooo0?ooo`3o0?ooo`@0oooo000E0?ooo`030000
003oool0oooo0080oooo00<000000?ooo`3oool0o`3oool40?ooo`005@3oool00`000000oooo0?oo
o`020?ooo`030000003oool0oooo0?l0oooo103oool001D0oooo00<000000?ooo`3oool00P3oool0
0`000000oooo0?ooo`3o0?ooo`@0oooo000E0?ooo`8000000`3oool00`000000oooo0?ooo`3o0?oo
o`@0oooo000E0?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool0o`3oool40?ooo`00
5@3oool00`000000oooo0?ooo`030?ooo`030000003oool0oooo0?l0oooo0`3oool001D0oooo00<0
00000?ooo`3oool00`3oool00`000000oooo0?ooo`3o0?ooo`<0oooo000E0?ooo`030000003oool0
oooo00<0oooo00<000000?ooo`3oool0o`3oool30?ooo`005@3oool2000000@0oooo00<000000?oo
o`3oool0o`3oool30?ooo`005@3oool00`000000oooo0?ooo`030?ooo`030000003oool0oooo0?l0
oooo0`3oool001D0oooo00<000000?ooo`3oool00`3oool00`000000oooo0?ooo`3o0?ooo`<0oooo
000=0?ooo`@00000103oool00`000000oooo0?ooo`030?ooo`030000003oool0oooo0?l0oooo0`3o
ool000d0oooo00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`040?ooo`030000003oool0
oooo0?l0oooo0P3oool000h0oooo00<000000?ooo`3oool0103oool3000000@0oooo00<000000?oo
o`3oool0o`3oool20?ooo`003`3oool00`000000oooo0?ooo`030?ooo`030000003oool0oooo00@0
oooo00<000000?ooo`3oool0o`3oool20?ooo`003@3oool010000000oooo0?ooo`0000040?ooo`03
0000003oool0oooo00@0oooo00<000000?ooo`3oool0o`3oool20?ooo`003P3oool2000000D0oooo
00<000000?ooo`3oool0103oool00`000000oooo0?ooo`3o0?ooo`80oooo000E0?ooo`8000001@3o
ool00`000000oooo0?ooo`3o0?ooo`80oooo000E0?ooo`030000003oool0oooo00@0oooo00<00000
0?ooo`3oool0o`3oool20?ooo`005@3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo
0?l0oooo0@3oool001D0oooo00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`3o0?ooo`40
oooo000E0?ooo`030000003oool0oooo00D0oooo00<000000?ooo`3oool0o`3oool10?ooo`005@3o
ool2000000H0oooo00<000000?ooo`3oool0o`3oool10?ooo`005@3oool00`000000oooo0?ooo`05
0?ooo`030000003oool0oooo0?l0oooo0@3oool001D0oooo00<000000?ooo`3oool01@3oool00`00
0000oooo0?ooo`3o0?ooo`40oooo000E0?ooo`030000003oool0oooo00D0oooo00<000000?ooo`3o
ool0o`3oool10?ooo`005@3oool2000000L0oooo00<000000?ooo`3oool0o`3oool001D0oooo00<0
00000?ooo`3oool01P3oool00`000000oooo0?ooo`3o0?ooo`005@3oool00`000000oooo0?ooo`06
0?ooo`030000003oool0oooo0?l0oooo000E0?ooo`030000003oool0oooo00H0oooo00<000000?oo
o`3oool0o`3oool001D0oooo00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`3o0?ooo`00
5@3oool2000000L0oooo00<000000?ooo`3oool0o`3oool001D0oooo00<000000?ooo`3oool01P3o
ool00`000000oooo0?ooo`3o0?ooo`003P3oool2000000D0oooo00<000000?ooo`3oool01`3oool0
0`000000oooo0?ooo`3n0?ooo`003@3oool010000000oooo0?ooo`0000040?ooo`030000003oool0
oooo00L0oooo00<000000?ooo`3oool0oP3oool000l0oooo00<000000?ooo`3oool00`3oool30000
00L0oooo00<000000?ooo`3oool0oP3oool00100oooo00<000000?ooo`3oool00P3oool00`000000
oooo0?ooo`070?ooo`030000003oool0oooo0?h0oooo000=0?ooo`040000003oool0oooo000000@0
oooo00<000000?ooo`3oool01`3oool00`000000oooo0?ooo`3n0?ooo`003P3oool2000000D0oooo
00<000000?ooo`3oool01`3oool00`000000oooo0?ooo`3n0?ooo`005@3oool00`000000oooo0?oo
o`070?ooo`030000003oool0oooo0?h0oooo000E0?ooo`800000203oool00`000000oooo0?ooo`3n
0?ooo`005@3oool00`000000oooo0?ooo`080?ooo`030000003oool0oooo0?d0oooo000E0?ooo`03
0000003oool0oooo00P0oooo00<000000?ooo`3oool0o@3oool001D0oooo00<000000?ooo`3oool0
203oool00`000000oooo0?ooo`3m0?ooo`005@3oool00`000000oooo0?ooo`080?ooo`030000003o
ool0oooo0?d0oooo000E0?ooo`8000002@3oool00`000000oooo0?ooo`3m0?ooo`005@3oool00`00
0000oooo0?ooo`080?ooo`030000003oool0oooo0?d0oooo000E0?ooo`030000003oool0oooo00P0
oooo00<000000?ooo`3oool0o@3oool001D0oooo00<000000?ooo`3oool0203oool00`000000oooo
0?ooo`3m0?ooo`005@3oool2000000X0oooo00<000000?ooo`3oool0o03oool001D0oooo00<00000
0?ooo`3oool02@3oool00`000000oooo0?ooo`3l0?ooo`005@3oool00`000000oooo0?ooo`090?oo
o`030000003oool0oooo0?`0oooo000E0?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3o
ool0o03oool001D0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`3l0?ooo`005@3o
ool2000000X0oooo00<000000?ooo`3oool0o03oool001D0oooo00<000000?ooo`3oool02@3oool0
0`000000oooo0?ooo`3l0?ooo`003`3oool3000000<0oooo00<000000?ooo`3oool02@3oool00`00
0000oooo0?ooo`3l0?ooo`00403oool00`000000oooo0?ooo`020?ooo`030000003oool0oooo00X0
oooo00<000000?ooo`3oool0n`3oool000d0oooo1@0000030?ooo`<000002P3oool00`000000oooo
0?ooo`3k0?ooo`003@3oool010000000oooo0?ooo`0000040?ooo`030000003oool0oooo00X0oooo
00<000000?ooo`3oool0n`3oool000h0oooo00<000000?ooo`000000103oool00`000000oooo0?oo
o`0:0?ooo`030000003oool0oooo0?/0oooo000?0?ooo`800000103oool00`000000oooo0?ooo`0:
0?ooo`030000003oool0oooo0?/0oooo000E0?ooo`030000003oool0oooo00X0oooo00<000000?oo
o`3oool0n`3oool001D0oooo0P00000;0?ooo`030000003oool0oooo0?/0oooo000E0?ooo`030000
003oool0oooo00X0oooo00<000000?ooo`3oool0n`3oool001D0oooo00<000000?ooo`3oool02P3o
ool00`000000oooo0?ooo`0M0?ooo`H00000f03oool001D0oooo00<000000?ooo`3oool02`3oool0
0`000000oooo0?ooo`0L0?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool0e@3oool0
01D0oooo0P00000<0?ooo`030000003oool0oooo01X0oooo0P0000070?ooo`030000003oool0oooo
0=@0oooo000E0?ooo`030000003oool0oooo00/0oooo00<000000?ooo`3oool06@3oool00`000000
oooo0?ooo`080?ooo`030000003oool0oooo0=<0oooo000E0?ooo`030000003oool0oooo00/0oooo
00<000000?ooo`3oool06@3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo0=80oooo
000E0?ooo`030000003oool0oooo00/0oooo00<000000?ooo`3oool0603oool00`000000oooo0?oo
o`0;0?ooo`800000dP3oool001D0oooo00<000000?ooo`3oool02`3oool00`000000oooo0?ooo`0H
0?ooo`030000003oool0oooo00d0oooo00<000000?ooo`3oool0c`3oool001D0oooo0P00000<0?oo
o`030000003oool0oooo01L0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`3>0?oo
o`005@3oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo01L0oooo00<000000?ooo`3o
ool0403oool00`000000oooo0?ooo`3=0?ooo`005@3oool00`000000oooo0?ooo`0;0?ooo`030000
003oool0oooo01H0oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`3=0?ooo`005@3o
ool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo01H0oooo00<000000?ooo`3oool04P3o
ool00`000000oooo0?ooo`0K0?ooo`d00000Y03oool001D0oooo00<000000?ooo`3oool02`3oool0
0`000000oooo0?ooo`0E0?ooo`030000003oool0oooo01@0oooo0P00000F0?ooo`D000003@3oool;
000000h0ooooN000000C0?ooo`005@3oool2000000d0oooo00<000000?ooo`3oool0503oool00`00
0000oooo0?ooo`0F0?ooo`030000003oool0oooo0100oooo0`00000M0?ooo`h00000R`3oool001D0
oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo01P0
oooo0P00000>0?ooo`800000^@3oool000h0oooo0P0000050?ooo`030000003oool0oooo00`0oooo
00<000000?ooo`3oool04`3oool00`000000oooo0?ooo`0J0?ooo`800000203oool400000;/0oooo
000=0?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool0303oool00`000000oooo
0?ooo`0C0?ooo`030000003oool0oooo01`0oooo2000002o0?ooo`00403oool00`000000oooo0?oo
o`020?ooo`<00000303oool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo0>@0oooo000>
0?ooo`8000001@3oool00`000000oooo0?ooo`0<0?ooo`030000003oool0oooo0180oooo00<00000
0?ooo`3oool0i03oool000h0oooo00<000000?ooo`3oool0103oool00`000000oooo0?ooo`0<0?oo
o`030000003oool0oooo0180oooo00<000000?ooo`3oool0i03oool000h0oooo0`0000040?ooo`03
0000003oool0oooo00`0oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`3U0?ooo`00
5@3oool00`000000oooo0?ooo`0=0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool0
i@3oool001D0oooo0P00000>0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool0i@3o
ool001D0oooo00<000000?ooo`3oool03@3oool00`000000oooo0?ooo`0?0?ooo`030000003oool0
oooo0>H0oooo000E0?ooo`030000003oool0oooo00d0oooo00<000000?ooo`3oool03`3oool00`00
0000oooo0?ooo`3V0?ooo`005@3oool00`000000oooo0?ooo`0=0?ooo`030000003oool0oooo00l0
oooo00<000000?ooo`3oool0iP3oool001D0oooo0P00000?0?ooo`030000003oool0oooo00d0oooo
00<000000?ooo`3oool0i`3oool001D0oooo00<000000?ooo`3oool03P3oool00`000000oooo0?oo
o`0=0?ooo`030000003oool0oooo0>L0oooo000E0?ooo`030000003oool0oooo00h0oooo00<00000
0?ooo`3oool03@3oool00`000000oooo0?ooo`3W0?ooo`005@3oool00`000000oooo0?ooo`0>0?oo
o`030000003oool0oooo00d0oooo00<000000?ooo`3oool0i`3oool001D0oooo00<000000?ooo`3o
ool03P3oool00`000000oooo0?ooo`0<0?ooo`030000003oool0oooo0>P0oooo000E0?ooo`800000
3`3oool00`000000oooo0?ooo`0<0?ooo`030000003oool0oooo0>P0oooo000E0?ooo`030000003o
ool0oooo00l0oooo00<000000?ooo`3oool02`3oool00`000000oooo0?ooo`3X0?ooo`005@3oool0
0`000000oooo0?ooo`0?0?ooo`030000003oool0oooo00X0oooo00<000000?ooo`3oool0j@3oool0
01D0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0:0?ooo`030000003oool0oooo
0>T0oooo000E0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool02P3oool00`000000
oooo0?ooo`3Y0?ooo`005@3oool200000100oooo00<000000?ooo`3oool02@3oool00`000000oooo
0?ooo`3Z0?ooo`005@3oool00`000000oooo0?ooo`0@0?ooo`030000003oool0oooo00P0oooo00<0
00000?ooo`3oool0jP3oool000d0oooo0`0000050?ooo`030000003oool0oooo0100oooo00<00000
0?ooo`3oool0203oool00`000000oooo0?ooo`3Z0?ooo`003@3oool010000000oooo0?ooo`000004
0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool0203oool00`000000oooo0?ooo`3Z
0?ooo`003@3oool010000000oooo0?ooo`0000040?ooo`<000004@3oool00`000000oooo0?ooo`06
0?ooo`030000003oool0oooo0>/0oooo000=0?ooo`<000001@3oool00`000000oooo0?ooo`0A0?oo
o`030000003oool0oooo00H0oooo00<000000?ooo`3oool0j`3oool000h0oooo00<000000?ooo`3o
ool0103oool00`000000oooo0?ooo`0A0?ooo`030000003oool0oooo00H0oooo00<000000?ooo`3o
ool0j`3oool000h0oooo0`0000040?ooo`030000003oool0oooo0140oooo00<000000?ooo`3oool0
1@3oool00`000000oooo0?ooo`3/0?ooo`005@3oool00`000000oooo0?ooo`0A0?ooo`030000003o
ool0oooo00D0oooo00<000000?ooo`3oool0k03oool001D0oooo0P00000C0?ooo`030000003oool0
oooo00<0oooo00<000000?ooo`3oool0k@3oool001D0oooo00<000000?ooo`3oool04`3oool01@00
0000oooo0?ooo`3oool000000?00oooo000E0?ooo`030000003oool0oooo01<0oooo0P0000000`3o
ool000000000003`0?ooo`005@3oool00`000000oooo0?ooo`0D0?ooo`<00000l@3oool001D0oooo
0P00003o0?ooo`X0oooo000E0?ooo`030000003oool0oooo0?l0oooo2@3oool001D0oooo00<00000
0?ooo`3oool0o`3oool90?ooo`005@3oool00`000000oooo0?ooo`3o0?ooo`T0oooo000E0?ooo`03
0000003oool0oooo0?l0oooo2@3oool001D0oooo0P00003o0?ooo`X0oooo000E0?ooo`030000003o
ool0oooo0?l0oooo2@3oool001D0oooo00<000000?ooo`3oool0o`3oool90?ooo`005@3oool00`00
0000oooo0?ooo`3o0?ooo`T0oooo000E0?ooo`800000o`3oool:0?ooo`005@3oool00`000000oooo
0?ooo`3o0?ooo`T0oooo000E0?ooo`030000003oool0oooo0?l0oooo2@3oool000l0oooo00<00000
0?ooo`3oool00`3oool00`000000oooo0?ooo`3o0?ooo`T0oooo000?0?ooo`030000003oool0oooo
00<0oooo00<000000?ooo`3oool0o`3oool90?ooo`003`3oool00`000000oooo0?ooo`030?ooo`<0
0000o`3oool90?ooo`00403oool00`000000oooo0?ooo`3o0?ooo`h0oooo000=0?ooo`040000003o
ool0oooo00000?l0oooo403oool000d0oooo1000003o0?oooa00oooo003o0?ooob40oooo0000\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.875138, -0.53488, \
0.0405086, 0.0436962}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell[BoxData[
    FormBox["", TraditionalForm]], "Input"],

Cell[TextData[StyleBox["\:0420\:0430\:0441\:0441\:043c\:043e\:0442\:0440\:0438\
\:043c \:043c\:043e\:043c\:0435\:043d\:0442\:043d\:043e\:0435 \:0432\:043e\
\:0437\:043c\:0443\:0449\:0435\:043d\:0438\:0435 \:0434\:043b\:044f \:043a\
\:0440\:0435\:043d\:043e\:0432\:043e\:0433\:043e \:0438\:0437\:043e\:043b\
\:0438\:0440\:043e\:0432\:0430\:043d\:043d\:043e\:0433\:043e \:0434\:0432\
\:0438\:0436\:0435\:043d\:0438\:044f \:0441\:0432\:043e\:0431\:043e\:0434\
\:043d\:043e\:0433\:043e \:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430:",
  FontSize->18]], "Text",
  CellChangeTimes -> {{3.5003161497000895`*^9, 3.5003161730314245`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
    \(MatrUrKren = 
      Delete[MatrUrBok, {{2}, {3}, {5}, {1, 2}, {1, 3}, {1, 5}, {4, 2}, {4, 
            3}, {4, 5}}]; \), "\[IndentingNewLine]", 
    \(MatrixForm[
      MatrUrKren = ReplaceAll[MatrUrKren, {b8 \[Rule] 0}]]\)}], "Input",
  CellChangeTimes -> {{3.500314893577244*^9, 3.5003148943812895`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(\(\(3.1`\)\(\[InvisibleSpace]\)\) + s\), "0"},
            {\(-1\), "s"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Wkrenmx = \(\(Det[{{MatrUrKren[\([\)\(1, 1\)\(]\)], 
              57.3}, {MatrUrKren[\([\)\(2, 1\)\(]\)], 0}}]/
        Det[MatrUrKren]\)\(\ \)\( \
(*\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:0430\:044f\ \
\:0444\:0443\:043d\:043a\:0446\:0438\:044f\ \:043a\:0440\:0435\:043d/
            Mx*) \)\)\)], "Input",
  CellChangeTimes -> {{3.5003149564998426`*^9, 3.50031498460445*^9}, \
{3.5003153900756416`*^9, 3.5003153969640355`*^9}, {3.5003155715490217`*^9, \
3.5003156181916895`*^9}, {3.500317071837833*^9, 3.500317074379978*^9}, \
{3.500318405793131*^9, 3.5003184216800394`*^9}}],

Cell[BoxData[
    \(57.3`\/\(3.1`\ s + s\^2\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(hkrenmx = InverseLaplaceTransform[Wkrenmx/s, s, t]\)], "Input",
  CellChangeTimes -> {{3.500315643893159*^9, 3.5003156586320024`*^9}, \
{3.500315805368395*^9, 3.50031581996323*^9}}],

Cell[BoxData[
    \(57.3`\ \((\(-0.10405827263267428`\) + 
          0.10405827263267428`\ \[ExponentialE]\^\(\(-3.1`\)\ t\) + 
          0.32258064516129026`\ t)\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Plot[hkrenmx, {t, 0, 10}, PlotRange \[Rule] {0, 100}]\)], "Input",
  CellChangeTimes -> {{3.5003156639493065`*^9, 3.5003156841724634`*^9}, \
{3.5003157869303403`*^9, 3.5003157878053904`*^9}}],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0952381 1.73472e-017 0.00618034 [
[.21429 -0.0125 -3 -9 ]
[.21429 -0.0125 3 0 ]
[.40476 -0.0125 -3 -9 ]
[.40476 -0.0125 3 0 ]
[.59524 -0.0125 -3 -9 ]
[.59524 -0.0125 3 0 ]
[.78571 -0.0125 -3 -9 ]
[.78571 -0.0125 3 0 ]
[.97619 -0.0125 -6 -9 ]
[.97619 -0.0125 6 0 ]
[.01131 .12361 -12 -4.5 ]
[.01131 .12361 0 4.5 ]
[.01131 .24721 -12 -4.5 ]
[.01131 .24721 0 4.5 ]
[.01131 .37082 -12 -4.5 ]
[.01131 .37082 0 4.5 ]
[.01131 .49443 -12 -4.5 ]
[.01131 .49443 0 4.5 ]
[.01131 .61803 -18 -4.5 ]
[.01131 .61803 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 0 m
.21429 .00625 L
s
[(2)] .21429 -0.0125 0 1 Mshowa
.40476 0 m
.40476 .00625 L
s
[(4)] .40476 -0.0125 0 1 Mshowa
.59524 0 m
.59524 .00625 L
s
[(6)] .59524 -0.0125 0 1 Mshowa
.78571 0 m
.78571 .00625 L
s
[(8)] .78571 -0.0125 0 1 Mshowa
.97619 0 m
.97619 .00625 L
s
[(10)] .97619 -0.0125 0 1 Mshowa
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.2619 0 m
.2619 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.5 0 m
.5 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.7381 0 m
.7381 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
.02381 .12361 m
.03006 .12361 L
s
[(20)] .01131 .12361 1 0 Mshowa
.02381 .24721 m
.03006 .24721 L
s
[(40)] .01131 .24721 1 0 Mshowa
.02381 .37082 m
.03006 .37082 L
s
[(60)] .01131 .37082 1 0 Mshowa
.02381 .49443 m
.03006 .49443 L
s
[(80)] .01131 .49443 1 0 Mshowa
.02381 .61803 m
.03006 .61803 L
s
[(100)] .01131 .61803 1 0 Mshowa
.125 Mabswid
.02381 .0309 m
.02756 .0309 L
s
.02381 .0618 m
.02756 .0618 L
s
.02381 .09271 m
.02756 .09271 L
s
.02381 .15451 m
.02756 .15451 L
s
.02381 .18541 m
.02756 .18541 L
s
.02381 .21631 m
.02756 .21631 L
s
.02381 .27812 m
.02756 .27812 L
s
.02381 .30902 m
.02756 .30902 L
s
.02381 .33992 m
.02756 .33992 L
s
.02381 .40172 m
.02756 .40172 L
s
.02381 .43262 m
.02756 .43262 L
s
.02381 .46353 m
.02756 .46353 L
s
.02381 .52533 m
.02756 .52533 L
s
.02381 .55623 m
.02756 .55623 L
s
.02381 .58713 m
.02756 .58713 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 0 m
.02499 3e-005 L
.02605 .0001 L
.02729 .00023 L
.02846 .0004 L
.03053 .00082 L
.03279 .00143 L
.0379 .00334 L
.04262 .00569 L
.05224 .01186 L
.06244 .01997 L
.10458 .06269 L
.14241 .10619 L
.1827 .15395 L
.22147 .2003 L
.2627 .24971 L
.30241 .29733 L
.3406 .34314 L
.38125 .39189 L
.42038 .43882 L
.46196 .4887 L
.50202 .53676 L
.54057 .583 L
s
.54057 .583 m
.56978 .61803 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/B000`400?l00000o`00003oo`3ooolQ
0?ooo`00BP3oool400000300oooo0`00000/0?ooo`<00000<03oool2000002/0oooo1@0000020?oo
o`8000002P3oool004X0oooo00<000000?ooo`3oool0<P3oool00`000000oooo0?ooo`0[0?ooo`04
0000003oool0oooo000002h0oooo00@000000?ooo`3oool00000;03oool01@000000oooo0?ooo`3o
ool000000080oooo00<000000?ooo`3oool01`3oool004/0oooo00<000000?ooo`3oool0;P3oool5
000002`0oooo00@000000?ooo`3oool00000;P3oool010000000oooo0?ooo`00000/0?ooo`050000
003oool0oooo0?ooo`0000000P3oool00`000000oooo0?ooo`070?ooo`00C03oool00`000000oooo
0?ooo`0]0?ooo`040000003oool0oooo000002d0oooo0`00000`0?ooo`800000;@3oool01@000000
oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool01`3oool004X0oooo00@000000?ooo`3o
ool00000;`3oool00`000000oooo0000000^0?ooo`030000003oool0oooo02h0oooo00@000000?oo
o`3oool00000;03oool01@000000oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool01`3o
ool004/0oooo0P00000a0?ooo`800000;P3oool3000002l0oooo0P00000/0?ooo`800000103oool2
000000X0oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo003o
0?ooob40oooo000E0?ooool000001@0000070?ooo`006`3oool00`000000oooo0?ooo`03000000H0
oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo00T0
oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo00X0
oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo00X0
oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo00X0
oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo00X0
oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo00X0
oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`0;0?ooo`006`3oool00`000000oooo
0?ooo`030?ooo`030000003oool0oooo0?`0oooo000K0?ooo`030000003oool0oooo00@0oooo00<0
00000?ooo`3oool0n`3oool001/0oooo00<000000?ooo`3oool01@3oool200000?/0oooo000K0?oo
o`030000003oool0oooo00L0oooo00<000000?ooo`3oool0n03oool001/0oooo00<000000?ooo`3o
ool0203oool00`000000oooo0?ooo`3g0?ooo`006`3oool00`000000oooo0?ooo`090?ooo`030000
003oool0oooo0?H0oooo000K0?ooo`8000002`3oool00`000000oooo0?ooo`3e0?ooo`006`3oool0
0`000000oooo0?ooo`0;0?ooo`030000003oool0oooo0?@0oooo000K0?ooo`030000003oool0oooo
00`0oooo00<000000?ooo`3oool0l`3oool001/0oooo00<000000?ooo`3oool03@3oool00`000000
oooo0?ooo`3b0?ooo`006`3oool00`000000oooo0?ooo`0>0?ooo`030000003oool0oooo0?40oooo
000K0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool0l03oool001/0oooo00<00000
0?ooo`3oool0403oool00`000000oooo0?ooo`3_0?ooo`006`3oool00`000000oooo0?ooo`0A0?oo
o`030000003oool0oooo0>h0oooo000K0?ooo`8000004`3oool00`000000oooo0?ooo`3]0?ooo`00
6`3oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo0>`0oooo000K0?ooo`030000003o
ool0oooo01@0oooo00<000000?ooo`3oool0j`3oool001/0oooo00<000000?ooo`3oool05@3oool0
0`000000oooo0?ooo`3Z0?ooo`006`3oool00`000000oooo0?ooo`0F0?ooo`030000003oool0oooo
0>T0oooo000K0?ooo`030000003oool0oooo01L0oooo00<000000?ooo`3oool0j03oool001/0oooo
00<000000?ooo`3oool05`3oool00`000000oooo0?ooo`3X0?ooo`006`3oool00`000000oooo0?oo
o`0H0?ooo`030000003oool0oooo0>L0oooo000K0?ooo`8000006P3oool00`000000oooo0?ooo`3V
0?ooo`006`3oool00`000000oooo0?ooo`0J0?ooo`030000003oool0oooo0>D0oooo000K0?ooo`03
0000003oool0oooo01/0oooo00<000000?ooo`3oool0i03oool001/0oooo00<000000?ooo`3oool0
703oool00`000000oooo0?ooo`3S0?ooo`006`3oool00`000000oooo0?ooo`0M0?ooo`030000003o
ool0oooo0>80oooo000K0?ooo`030000003oool0oooo01h0oooo00<000000?ooo`3oool0h@3oool0
00d0oooo100000030?ooo`8000001@3oool00`000000oooo0?ooo`0N0?ooo`030000003oool0oooo
0>40oooo000=0?ooo`030000003oool0oooo00<0oooo00@000000?ooo`3oool00000103oool00`00
0000oooo0?ooo`0O0?ooo`030000003oool0oooo0>00oooo000>0?ooo`030000003oool0oooo0080
oooo00@000000?ooo`3oool00000103oool300000200oooo00<000000?ooo`3oool0g`3oool000l0
oooo00D000000?ooo`3oool0oooo000000020?ooo`030000003oool0oooo0080oooo00<000000?oo
o`3oool08@3oool00`000000oooo0?ooo`3N0?ooo`003@3oool010000000oooo0?ooo`0000020?oo
o`040000003oool0oooo000000@0oooo00<000000?ooo`3oool08@3oool00`000000oooo0?ooo`3N
0?ooo`003P3oool2000000@0oooo0P0000050?ooo`030000003oool0oooo0280oooo00<000000?oo
o`3oool0g@3oool001/0oooo00<000000?ooo`3oool08`3oool00`000000oooo0?ooo`3L0?ooo`00
6`3oool00`000000oooo0?ooo`0T0?ooo`030000003oool0oooo0=/0oooo000K0?ooo`030000003o
ool0oooo02@0oooo00<000000?ooo`3oool0f`3oool001/0oooo00<000000?ooo`3oool09@3oool0
0`000000oooo0?ooo`3J0?ooo`006`3oool2000002L0oooo00<000000?ooo`3oool0f@3oool001/0
oooo00<000000?ooo`3oool09`3oool00`000000oooo0?ooo`3H0?ooo`006`3oool00`000000oooo
0?ooo`0X0?ooo`030000003oool0oooo0=L0oooo000K0?ooo`030000003oool0oooo02P0oooo00<0
00000?ooo`3oool0e`3oool001/0oooo00<000000?ooo`3oool0:@3oool00`000000oooo0?ooo`3F
0?ooo`006`3oool00`000000oooo0?ooo`0Z0?ooo`030000003oool0oooo0=D0oooo000K0?ooo`03
0000003oool0oooo02/0oooo00<000000?ooo`3oool0e03oool001/0oooo00<000000?ooo`3oool0
;03oool00`000000oooo0?ooo`3C0?ooo`006`3oool2000002h0oooo00<000000?ooo`3oool0dP3o
ool001/0oooo00<000000?ooo`3oool0;@3oool00`000000oooo0?ooo`3B0?ooo`006`3oool00`00
0000oooo0?ooo`0^0?ooo`030000003oool0oooo0=40oooo000K0?ooo`030000003oool0oooo02l0
oooo00<000000?ooo`3oool0d03oool001/0oooo00<000000?ooo`3oool0<03oool00`000000oooo
0?ooo`3?0?ooo`006`3oool00`000000oooo0?ooo`0a0?ooo`030000003oool0oooo0<h0oooo000K
0?ooo`030000003oool0oooo0380oooo00<000000?ooo`3oool0c@3oool001/0oooo00<000000?oo
o`3oool0<`3oool00`000000oooo0?ooo`3<0?ooo`006`3oool2000003@0oooo00<000000?ooo`3o
ool0c03oool001/0oooo00<000000?ooo`3oool0=03oool00`000000oooo0?ooo`3;0?ooo`006`3o
ool00`000000oooo0?ooo`0e0?ooo`030000003oool0oooo0<X0oooo000K0?ooo`030000003oool0
oooo03H0oooo00<000000?ooo`3oool0b@3oool001/0oooo00<000000?ooo`3oool0=`3oool00`00
0000oooo0?ooo`380?ooo`006`3oool00`000000oooo0?ooo`0h0?ooo`030000003oool0oooo0<L0
oooo000?0?ooo`<000000P3oool2000000D0oooo00<000000?ooo`3oool0>03oool00`000000oooo
0?ooo`370?ooo`00403oool010000000oooo0?ooo`0000020?ooo`030000003oool0oooo0080oooo
00<000000?ooo`3oool0>@3oool00`000000oooo0?ooo`360?ooo`003@3oool5000000050?ooo`00
0000oooo0?ooo`000000103oool3000003X0oooo00<000000?ooo`3oool0a@3oool000d0oooo00@0
00000?ooo`3oool000000P3oool010000000oooo0?ooo`0000040?ooo`030000003oool0oooo03/0
oooo00<000000?ooo`3oool0a03oool000h0oooo00<000000?ooo`0000000P3oool010000000oooo
0?ooo`0000040?ooo`030000003oool0oooo03`0oooo00<000000?ooo`3oool0``3oool000l0oooo
0P0000030?ooo`8000001@3oool00`000000oooo0?ooo`0m0?ooo`030000003oool0oooo0<80oooo
000K0?ooo`030000003oool0oooo03d0oooo00<000000?ooo`3oool0`P3oool001/0oooo00<00000
0?ooo`3oool0?P3oool00`000000oooo0?ooo`310?ooo`006`3oool00`000000oooo0?ooo`0o0?oo
o`030000003oool0oooo0<00oooo000K0?ooo`030000003oool0oooo0400oooo00<000000?ooo`3o
ool0_`3oool001/0oooo0P0000120?ooo`030000003oool0oooo0;h0oooo000K0?ooo`030000003o
ool0oooo0480oooo00<000000?ooo`3oool0_@3oool001/0oooo00<000000?ooo`3oool0@P3oool0
0`000000oooo0?ooo`2m0?ooo`006`3oool00`000000oooo0?ooo`130?ooo`030000003oool0oooo
0;`0oooo000K0?ooo`030000003oool0oooo04@0oooo00<000000?ooo`3oool0^`3oool001/0oooo
00<000000?ooo`3oool0A@3oool00`000000oooo0?ooo`2j0?ooo`006`3oool00`000000oooo0?oo
o`160?ooo`030000003oool0oooo0;T0oooo000K0?ooo`030000003oool0oooo04L0oooo00<00000
0?ooo`3oool0^03oool001/0oooo0P0000180?ooo`030000003oool0oooo0;P0oooo000K0?ooo`03
0000003oool0oooo04P0oooo00<000000?ooo`3oool0]`3oool001/0oooo00<000000?ooo`3oool0
B@3oool00`000000oooo0?ooo`2f0?ooo`006`3oool00`000000oooo0?ooo`1:0?ooo`030000003o
ool0oooo0;D0oooo000K0?ooo`030000003oool0oooo04/0oooo00<000000?ooo`3oool0]03oool0
01/0oooo00<000000?ooo`3oool0C03oool00`000000oooo0?ooo`2c0?ooo`006`3oool00`000000
oooo0?ooo`1<0?ooo`030000003oool0oooo0;<0oooo000K0?ooo`030000003oool0oooo04d0oooo
00<000000?ooo`3oool0/P3oool001/0oooo0P00001?0?ooo`030000003oool0oooo0;40oooo000K
0?ooo`030000003oool0oooo04l0oooo00<000000?ooo`3oool0/03oool001/0oooo00<000000?oo
o`3oool0D03oool00`000000oooo0?ooo`2_0?ooo`006`3oool00`000000oooo0?ooo`1A0?ooo`03
0000003oool0oooo0:h0oooo000K0?ooo`030000003oool0oooo0580oooo00<000000?ooo`3oool0
[@3oool001/0oooo00<000000?ooo`3oool0D`3oool00`000000oooo0?ooo`2/0?ooo`003@3oool3
000000@0oooo0P0000050?ooo`030000003oool0oooo05@0oooo00<000000?ooo`3oool0Z`3oool0
00d0oooo00@000000?ooo`3oool000000P3oool010000000oooo0?ooo`0000040?ooo`030000003o
ool0oooo05@0oooo00<000000?ooo`3oool0Z`3oool000d0oooo00@000000?ooo`3oool000000P3o
ool010000000oooo0?ooo`0000040?ooo`<00000E@3oool00`000000oooo0?ooo`2Z0?ooo`003@3o
ool3000000<0oooo00@000000?ooo`3oool00000103oool00`000000oooo0?ooo`1F0?ooo`030000
003oool0oooo0:T0oooo000>0?ooo`030000003oool0oooo0080oooo00@000000?ooo`3oool00000
103oool00`000000oooo0?ooo`1G0?ooo`030000003oool0oooo0:P0oooo000>0?ooo`<000000`3o
ool2000000D0oooo00<000000?ooo`3oool0F03oool00`000000oooo0?ooo`2W0?ooo`006`3oool0
0`000000oooo0?ooo`1I0?ooo`030000003oool0oooo0:H0oooo000K0?ooo`030000003oool0oooo
05X0oooo00<000000?ooo`3oool0Y@3oool001/0oooo00<000000?ooo`3oool0F`3oool00`000000
oooo0?ooo`2T0?ooo`006`3oool00`000000oooo0?ooo`1L0?ooo`030000003oool0oooo0:<0oooo
000K0?ooo`800000G@3oool00`000000oooo0?ooo`2S0?ooo`006`3oool00`000000oooo0?ooo`1M
0?ooo`030000003oool0oooo0:80oooo000K0?ooo`030000003oool0oooo05h0oooo00<000000?oo
o`3oool0X@3oool001/0oooo00<000000?ooo`3oool0G`3oool00`000000oooo0?ooo`2P0?ooo`00
6`3oool00`000000oooo0?ooo`1O0?ooo`030000003oool0oooo0:00oooo000K0?ooo`030000003o
ool0oooo0600oooo00<000000?ooo`3oool0W`3oool001/0oooo00<000000?ooo`3oool0H@3oool0
0`000000oooo0?ooo`2N0?ooo`006`3oool00`000000oooo0?ooo`1R0?ooo`030000003oool0oooo
09d0oooo000K0?ooo`800000H`3oool00`000000oooo0?ooo`2M0?ooo`006`3oool00`000000oooo
0?ooo`1S0?ooo`030000003oool0oooo09`0oooo000K0?ooo`030000003oool0oooo06@0oooo00<0
00000?ooo`3oool0V`3oool001/0oooo00<000000?ooo`3oool0I@3oool00`000000oooo0?ooo`2J
0?ooo`006`3oool00`000000oooo0?ooo`1V0?ooo`030000003oool0oooo09T0oooo000K0?ooo`03
0000003oool0oooo06L0oooo00<000000?ooo`3oool0V03oool001/0oooo00<000000?ooo`3oool0
J03oool00`000000oooo0?ooo`2G0?ooo`006`3oool00`000000oooo0?ooo`1Y0?ooo`030000003o
ool0oooo09H0oooo000K0?ooo`800000JP3oool00`000000oooo0?ooo`2F0?ooo`006`3oool00`00
0000oooo0?ooo`1Z0?ooo`030000003oool0oooo09D0oooo000K0?ooo`030000003oool0oooo06/0
oooo00<000000?ooo`3oool0U03oool001/0oooo00<000000?ooo`3oool0K03oool00`000000oooo
0?ooo`2C0?ooo`006`3oool00`000000oooo0?ooo`1]0?ooo`030000003oool0oooo0980oooo000K
0?ooo`030000003oool0oooo06h0oooo00<000000?ooo`3oool0T@3oool000h0oooo0P0000040?oo
o`8000001@3oool00`000000oooo0?ooo`1_0?ooo`030000003oool0oooo0900oooo000=0?ooo`04
0000003oool0oooo00000080oooo00@000000?ooo`3oool00000103oool00`000000oooo0?ooo`1`
0?ooo`030000003oool0oooo08l0oooo000=0?ooo`040000003oool0oooo00000080oooo00@00000
0?ooo`3oool00000103oool300000740oooo00<000000?ooo`3oool0SP3oool000h0oooo0P000003
0?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool0L@3oool00`000000oooo0?oo
o`2>0?ooo`003@3oool010000000oooo0?ooo`0000020?ooo`040000003oool0oooo000000@0oooo
00<000000?ooo`3oool0LP3oool00`000000oooo0?ooo`2=0?ooo`003P3oool2000000@0oooo0P00
00050?ooo`030000003oool0oooo07<0oooo00<000000?ooo`3oool0S03oool001/0oooo00<00000
0?ooo`3oool0M03oool00`000000oooo0?ooo`2;0?ooo`006`3oool00`000000oooo0?ooo`1d0?oo
o`030000003oool0oooo08/0oooo000K0?ooo`030000003oool0oooo07D0oooo00<000000?ooo`3o
ool0RP3oool001/0oooo00<000000?ooo`3oool0MP3oool00`000000oooo0?ooo`290?ooo`006`3o
ool2000007P0oooo00<000000?ooo`3oool0R03oool001/0oooo00<000000?ooo`3oool0M`3oool0
0`000000oooo0?ooo`280?ooo`006`3oool00`000000oooo0?ooo`1h0?ooo`030000003oool0oooo
08L0oooo000K0?ooo`030000003oool0oooo07T0oooo00<000000?ooo`3oool0QP3oool001/0oooo
00<000000?ooo`3oool0NP3oool00`000000oooo0?ooo`250?ooo`006`3oool00`000000oooo0?oo
o`1k0?ooo`030000003oool0oooo08@0oooo000K0?ooo`030000003oool0oooo07/0oooo00<00000
0?ooo`3oool0Q03oool001/0oooo00<000000?ooo`3oool0O03oool00`000000oooo0?ooo`230?oo
o`006`3oool2000007h0oooo00<000000?ooo`3oool0PP3oool001/0oooo00<000000?ooo`3oool0
OP3oool00`000000oooo0?ooo`210?ooo`006`3oool00`000000oooo0?ooo`1o0?ooo`030000003o
ool0oooo0800oooo000K0?ooo`030000003oool0oooo0800oooo00<000000?ooo`3oool0O`3oool0
01/0oooo00<000000?ooo`3oool0P03oool00`000000oooo0?ooo`1o0?ooo`006`3oool00`000000
oooo0?ooo`210?ooo`030000003oool0oooo07h0oooo000K0?ooo`030000003oool0oooo0880oooo
00<000000?ooo`3oool0O@3oool001/0oooo00<000000?ooo`3oool0P`3oool00`000000oooo0?oo
o`1l0?ooo`006`3oool2000008D0oooo00<000000?ooo`3oool0N`3oool001/0oooo00<000000?oo
o`3oool0Q@3oool00`000000oooo0?ooo`1j0?ooo`006`3oool00`000000oooo0?ooo`260?ooo`03
0000003oool0oooo07T0oooo000K0?ooo`030000003oool0oooo08L0oooo00<000000?ooo`3oool0
N03oool001/0oooo00<000000?ooo`3oool0Q`3oool00`000000oooo0?ooo`1h0?ooo`006`3oool0
0`000000oooo0?ooo`280?ooo`030000003oool0oooo07L0oooo00070?ooo`D000000P3oool20000
00@0oooo0P0000050?ooo`030000003oool0oooo08T0oooo00<000000?ooo`3oool0MP3oool000T0
oooo00D000000?ooo`3oool0oooo000000020?ooo`040000003oool0oooo00000080oooo00<00000
0?ooo`3oool00P3oool00`000000oooo0?ooo`2:0?ooo`030000003oool0oooo07D0oooo00090?oo
o`050000003oool0oooo0?ooo`0000000P3oool010000000oooo0?ooo`0000020?ooo`030000003o
ool0oooo0080oooo0`00002;0?ooo`030000003oool0oooo07@0oooo00090?ooo`050000003oool0
oooo0?ooo`0000000P3oool010000000oooo0?ooo`0000020?ooo`030000003oool0oooo0?l0oooo
203oool000T0oooo00D000000?ooo`3oool0oooo000000020?ooo`040000003oool0oooo00000080
oooo00<000000?ooo`3oool0o`3oool80?ooo`00203oool2000000@0oooo0P0000040?ooo`800000
o`3oool;0?ooo`00o`3ooolQ0?ooo`00\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.11819, -7.64114, \
0.0405086, 0.624232}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(MatrUrRSk = 
      Delete[MatrUrBok, {{1}, {4}, {5}, {2, 1}, {2, 4}, {2, 5}, {3, 1}, {3, 
            4}, {3, 5}}]; \), "\[IndentingNewLine]", 
    \(MatrixForm[
      MatrUrRSk = ReplaceAll[MatrUrRSk, {a8 \[Rule] 1}]]\)}], "Input",
  CellChangeTimes -> {{3.5003162096245174`*^9, 3.5003162101345463`*^9}, \
3.5003170233960624`*^9, 3.500317375554205*^9}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(\(\(0.635`\)\(\[InvisibleSpace]\)\) + s\), "5.47`"},
            {\(-1\), \(\(\(0.269`\)\(\[InvisibleSpace]\)\) + s\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Wrskmy = \(\(Det[{{MatrUrRSk[\([\)\(1, 1\)\(]\)], 
              57.3}, {MatrUrRSk[\([\)\(2, 1\)\(]\)], 0}}]/
        Det[MatrUrRSk]\)\( (*\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\
\:0447\:043d\:0430\:044f\ \:0444\:0443\:043d\:043a\:0446\:0438\:044f\ \:0443\
\:0433\:043e\:043b\ \:0441\:043a\:043e\:043b\:044c\:0436\:0435\:043d\:0438\
\:044f/My*) \)\)\)], "Input",
  CellChangeTimes -> {{3.5003171351524544`*^9, 3.5003171682013445`*^9}, \
{3.5003173281564937`*^9, 3.5003173372520137`*^9}, {3.5003184308915663`*^9, \
3.5003184494326267`*^9}}],

Cell[BoxData[
    \(57.3`\/\(\(\(5.640815`\)\(\[InvisibleSpace]\)\) + 0.904`\ s + \
s\^2\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(hrskmy = InverseLaplaceTransform[Wrskmy/s, s, t]\)], "Input",
  CellChangeTimes -> {{3.500317403298792*^9, 3.5003174272341604`*^9}}],

Cell[BoxData[
    \(57.3`\ \((\(\(0.17727934704470896`\)\(\[InvisibleSpace]\)\) - \
\((\(\(0.08863967352235448`\)\(\[InvisibleSpace]\)\) + 
                0.017183295039525044`\ \[ImaginaryI])\)\ \
\[ExponentialE]\^\(\((\(-0.452`\) - 2.331632689769124`\ \[ImaginaryI])\)\ t\) \
- \((\(\(0.08863967352235448`\)\(\[InvisibleSpace]\)\) - 
                0.017183295039525044`\ \[ImaginaryI])\)\ \
\[ExponentialE]\^\(\((\(-0.452`\) + 2.331632689769124`\ \[ImaginaryI])\)\ \
t\))\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Plot[hrskmy, {t, 0, 15}, PlotRange \[Rule] {0, 16}]\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0634921 0 0.0386271 [
[.15079 -0.0125 -3 -9 ]
[.15079 -0.0125 3 0 ]
[.27778 -0.0125 -3 -9 ]
[.27778 -0.0125 3 0 ]
[.40476 -0.0125 -3 -9 ]
[.40476 -0.0125 3 0 ]
[.53175 -0.0125 -3 -9 ]
[.53175 -0.0125 3 0 ]
[.65873 -0.0125 -6 -9 ]
[.65873 -0.0125 6 0 ]
[.78571 -0.0125 -6 -9 ]
[.78571 -0.0125 6 0 ]
[.9127 -0.0125 -6 -9 ]
[.9127 -0.0125 6 0 ]
[.01131 .07725 -6 -4.5 ]
[.01131 .07725 0 4.5 ]
[.01131 .15451 -6 -4.5 ]
[.01131 .15451 0 4.5 ]
[.01131 .23176 -6 -4.5 ]
[.01131 .23176 0 4.5 ]
[.01131 .30902 -6 -4.5 ]
[.01131 .30902 0 4.5 ]
[.01131 .38627 -12 -4.5 ]
[.01131 .38627 0 4.5 ]
[.01131 .46353 -12 -4.5 ]
[.01131 .46353 0 4.5 ]
[.01131 .54078 -12 -4.5 ]
[.01131 .54078 0 4.5 ]
[.01131 .61803 -12 -4.5 ]
[.01131 .61803 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15079 0 m
.15079 .00625 L
s
[(2)] .15079 -0.0125 0 1 Mshowa
.27778 0 m
.27778 .00625 L
s
[(4)] .27778 -0.0125 0 1 Mshowa
.40476 0 m
.40476 .00625 L
s
[(6)] .40476 -0.0125 0 1 Mshowa
.53175 0 m
.53175 .00625 L
s
[(8)] .53175 -0.0125 0 1 Mshowa
.65873 0 m
.65873 .00625 L
s
[(10)] .65873 -0.0125 0 1 Mshowa
.78571 0 m
.78571 .00625 L
s
[(12)] .78571 -0.0125 0 1 Mshowa
.9127 0 m
.9127 .00625 L
s
[(14)] .9127 -0.0125 0 1 Mshowa
.125 Mabswid
.05556 0 m
.05556 .00375 L
s
.0873 0 m
.0873 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.18254 0 m
.18254 .00375 L
s
.21429 0 m
.21429 .00375 L
s
.24603 0 m
.24603 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.34127 0 m
.34127 .00375 L
s
.37302 0 m
.37302 .00375 L
s
.43651 0 m
.43651 .00375 L
s
.46825 0 m
.46825 .00375 L
s
.5 0 m
.5 .00375 L
s
.56349 0 m
.56349 .00375 L
s
.59524 0 m
.59524 .00375 L
s
.62698 0 m
.62698 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.72222 0 m
.72222 .00375 L
s
.75397 0 m
.75397 .00375 L
s
.81746 0 m
.81746 .00375 L
s
.84921 0 m
.84921 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.94444 0 m
.94444 .00375 L
s
.97619 0 m
.97619 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
.02381 .07725 m
.03006 .07725 L
s
[(2)] .01131 .07725 1 0 Mshowa
.02381 .15451 m
.03006 .15451 L
s
[(4)] .01131 .15451 1 0 Mshowa
.02381 .23176 m
.03006 .23176 L
s
[(6)] .01131 .23176 1 0 Mshowa
.02381 .30902 m
.03006 .30902 L
s
[(8)] .01131 .30902 1 0 Mshowa
.02381 .38627 m
.03006 .38627 L
s
[(10)] .01131 .38627 1 0 Mshowa
.02381 .46353 m
.03006 .46353 L
s
[(12)] .01131 .46353 1 0 Mshowa
.02381 .54078 m
.03006 .54078 L
s
[(14)] .01131 .54078 1 0 Mshowa
.02381 .61803 m
.03006 .61803 L
s
[(16)] .01131 .61803 1 0 Mshowa
.125 Mabswid
.02381 .01931 m
.02756 .01931 L
s
.02381 .03863 m
.02756 .03863 L
s
.02381 .05794 m
.02756 .05794 L
s
.02381 .09657 m
.02756 .09657 L
s
.02381 .11588 m
.02756 .11588 L
s
.02381 .13519 m
.02756 .13519 L
s
.02381 .17382 m
.02756 .17382 L
s
.02381 .19314 m
.02756 .19314 L
s
.02381 .21245 m
.02756 .21245 L
s
.02381 .25108 m
.02756 .25108 L
s
.02381 .27039 m
.02756 .27039 L
s
.02381 .2897 m
.02756 .2897 L
s
.02381 .32833 m
.02756 .32833 L
s
.02381 .34764 m
.02756 .34764 L
s
.02381 .36696 m
.02756 .36696 L
s
.02381 .40558 m
.02756 .40558 L
s
.02381 .4249 m
.02756 .4249 L
s
.02381 .44421 m
.02756 .44421 L
s
.02381 .48284 m
.02756 .48284 L
s
.02381 .50215 m
.02756 .50215 L
s
.02381 .52147 m
.02756 .52147 L
s
.02381 .56009 m
.02756 .56009 L
s
.02381 .57941 m
.02756 .57941 L
s
.02381 .59872 m
.02756 .59872 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 0 m
.06244 .29015 L
.07216 .39615 L
.08255 .49362 L
.08852 .5377 L
.09396 .5687 L
.09658 .58034 L
.09942 .59049 L
.10072 .59428 L
.1021 .5977 L
.10337 .60031 L
.10458 .60231 L
.10575 .60381 L
.10703 .60497 L
.10819 .60558 L
.10926 .60579 L
.11054 .60558 L
.1117 .60498 L
.11235 .60447 L
.11304 .6038 L
.1143 .60223 L
.11661 .59825 L
.11905 .59254 L
.12341 .57879 L
.12852 .55768 L
.1333 .53403 L
.14415 .47142 L
.16279 .36287 L
.16789 .33825 L
.17332 .31607 L
.17795 .3008 L
.18306 .28817 L
.18581 .28326 L
.18833 .27991 L
.18965 .2786 L
.1911 .2775 L
.19183 .27709 L
.19261 .27674 L
.19335 .27651 L
.19402 .27637 L
.19534 .27632 L
.19655 .27653 L
.19719 .27673 L
.19789 .27702 L
.19931 .27784 L
.20055 .27882 L
.20189 .28012 L
.2043 .2831 L
.20969 .29247 L
.21481 .30435 L
Mistroke
.22442 .33225 L
.24449 .39725 L
.25323 .4213 L
.25782 .43175 L
.26267 .44084 L
.26519 .44473 L
.26796 .44832 L
.27051 .45098 L
.27282 .45286 L
.27521 .45427 L
.27652 .45481 L
.27777 .45519 L
.27892 .4554 L
.27998 .4555 L
.28114 .45549 L
.28238 .45535 L
.28367 .45506 L
.28486 .45467 L
.28616 .45411 L
.28753 .45338 L
.28984 .45182 L
.29236 .44968 L
.29806 .44333 L
.30336 .43587 L
.32214 .40334 L
.33202 .38655 L
.34246 .37201 L
.34777 .36643 L
.35058 .36403 L
.3536 .3619 L
.35637 .36035 L
.3589 .35929 L
.36011 .3589 L
.36144 .35855 L
.36269 .35831 L
.36385 .35816 L
.365 .35807 L
.36624 .35804 L
.36741 .35809 L
.36849 .35819 L
.36968 .35836 L
.37099 .35863 L
.37235 .35898 L
.37362 .35938 L
.37864 .3616 L
.38401 .36495 L
.4039 .38271 L
.41438 .39273 L
.42548 .40176 L
.43024 .40482 L
Mistroke
.43537 .40747 L
.4383 .40866 L
.44099 .40954 L
.44369 .41022 L
.44503 .41048 L
.44625 .41068 L
.44744 .41083 L
.44856 .41093 L
.44974 .41101 L
.45101 .41105 L
.45213 .41105 L
.45331 .41101 L
.45432 .41095 L
.45542 .41086 L
.45673 .41071 L
.45792 .41054 L
.4606 .41004 L
.46308 .40943 L
.46543 .40875 L
.47509 .40496 L
.48535 .39982 L
.50378 .39034 L
.51316 .3865 L
.51843 .38482 L
.52326 .38364 L
.52752 .3829 L
.52993 .3826 L
.53217 .3824 L
.53339 .38232 L
.53455 .38227 L
.53558 .38224 L
.53671 .38222 L
.53793 .38223 L
.53922 .38225 L
.54033 .38229 L
.54155 .38236 L
.54284 .38245 L
.54404 .38255 L
.54677 .38285 L
.55172 .38361 L
.55622 .3845 L
.56101 .38563 L
.58191 .3915 L
.59223 .39419 L
.59765 .39537 L
.60337 .39639 L
.6084 .39708 L
.61124 .39738 L
.6139 .3976 L
.61515 .39768 L
Mistroke
.61634 .39775 L
.61742 .39779 L
.61857 .39784 L
.61981 .39787 L
.62096 .39789 L
.6222 .3979 L
.6229 .3979 L
.62356 .3979 L
.62481 .39788 L
.6255 .39787 L
.62613 .39786 L
.62736 .39782 L
.62852 .39777 L
.63112 .39764 L
.63393 .39744 L
.63907 .39697 L
.6438 .39641 L
.66232 .39365 L
.67217 .39216 L
.67759 .39142 L
.68273 .3908 L
.68751 .39032 L
.6927 .3899 L
.69499 .38976 L
.69743 .38963 L
.69955 .38954 L
.7018 .38946 L
.70291 .38943 L
.70413 .38941 L
.70524 .38939 L
.70627 .38938 L
.70749 .38937 L
.70861 .38937 L
.70989 .38938 L
.7111 .38939 L
.71216 .38941 L
.71328 .38943 L
.71529 .38948 L
.71745 .38954 L
.71984 .38964 L
.7248 .38989 L
.73013 .39024 L
.73975 .39099 L
.75949 .39264 L
.7649 .39302 L
.77066 .39337 L
.77606 .39364 L
.78102 .39382 L
.78353 .39389 L
.78618 .39395 L
Mistroke
.78756 .39397 L
.78885 .39398 L
.79025 .394 L
.79104 .394 L
.79176 .39401 L
.79306 .39401 L
.79425 .39401 L
.79557 .39401 L
.79623 .39401 L
.79696 .394 L
.79818 .39399 L
.7995 .39398 L
.80188 .39394 L
.80417 .3939 L
.80668 .39384 L
.81174 .39368 L
.82077 .39333 L
.84205 .39236 L
.85211 .39197 L
.85652 .39183 L
.86137 .3917 L
.86606 .3916 L
.86863 .39156 L
.87103 .39153 L
.87238 .39152 L
.87366 .39151 L
.87481 .3915 L
.87607 .3915 L
.87672 .39149 L
.87743 .39149 L
.87818 .39149 L
.87888 .39149 L
.88013 .39149 L
.88084 .39149 L
.88148 .39149 L
.88259 .3915 L
.88377 .3915 L
.88589 .39152 L
.88842 .39154 L
.89072 .39157 L
.89572 .39164 L
.90045 .39173 L
.91911 .39218 L
.92931 .39243 L
.93888 .39262 L
.94326 .3927 L
.94743 .39275 L
.94973 .39278 L
.95224 .39281 L
.9545 .39282 L
Mistroke
.95663 .39284 L
.95787 .39284 L
.95921 .39285 L
.96043 .39286 L
.96154 .39286 L
.96276 .39286 L
.96345 .39286 L
.96409 .39286 L
.96539 .39286 L
.96611 .39286 L
.96678 .39286 L
.96798 .39286 L
.96909 .39286 L
.97031 .39285 L
.97161 .39285 L
.97379 .39284 L
.97619 .39282 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/B000`400?l00000o`00003oo`3ooolQ
0?ooo`00=`3oool4000001l0oooo0`00000L0?ooo`<000007`3oool2000001/0oooo1@0000020?oo
o`800000603oool5000000030?ooo`0000000000008000005`3oool5000000<0oooo0`00000K0?oo
o`00=`3oool00`000000oooo0?ooo`0Q0?ooo`030000003oool0oooo01/0oooo00@000000?ooo`3o
ool000007@3oool010000000oooo0?ooo`00000L0?ooo`050000003oool0oooo0?ooo`0000000P3o
ool00`000000oooo0?ooo`0G0?ooo`050000003oool0oooo0?ooo`000000703oool00`000000oooo
0?ooo`040?ooo`030000003oool0oooo01X0oooo000h0?ooo`030000003oool0oooo01d0oooo1@00
000L0?ooo`040000003oool0oooo000001d0oooo00@000000?ooo`3oool00000703oool01@000000
oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool05`3oool00`000000oooo0?ooo`020?oo
o`030000003oool0oooo01T0oooo00@000000?ooo`3oool0oooo1@00000K0?ooo`00>@3oool00`00
0000oooo0?ooo`0L0?ooo`040000003oool0oooo000001d0oooo0`00000O0?ooo`8000007@3oool0
1@000000oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool05`3oool00`000000oooo0?oo
o`030?ooo`030000003oool0oooo01P0oooo00D000000?ooo`3oool0oooo000000020?ooo`030000
003oool0oooo01X0oooo000g0?ooo`040000003oool0oooo000001h0oooo00<000000?ooo`000000
7P3oool00`000000oooo0?ooo`0M0?ooo`040000003oool0oooo000001`0oooo00D000000?ooo`3o
ool0oooo000000020?ooo`030000003oool0oooo01L0oooo00D000000?ooo`3oool0oooo00000002
0?ooo`030000003oool0oooo01L0oooo00<000000?ooo`3oool00P3oool00`000000oooo0000000L
0?ooo`00>03oool200000200oooo0P00000N0?ooo`<000007P3oool2000001`0oooo0P0000040?oo
o`8000006@3oool2000000@0oooo0P00000I0?ooo`8000001@3oool2000001`0oooo003o0?ooob40
oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo000B0?ooool0
00001@00000:0?ooo`00603oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo00H0oooo
00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo00D0oooo
00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo00D0oooo
00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo00H0oooo
00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo00D0oooo
00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo00D0oooo
00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo00H0oooo
00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo00D0oooo
00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`050?ooo`030000003oool0oooo00D0oooo
00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo00D0oooo
00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`0>0?ooo`00603oool00`000000oooo0?oo
o`3o0?ooo`H0oooo000H0?ooo`030000003oool0oooo0?l0oooo1P3oool001P0oooo0P00003o0?oo
o`L0oooo000H0?ooo`800000o`3oool70?ooo`00603oool200000?l0oooo1`3oool001P0oooo0P00
003o0?ooo`L0oooo000H0?ooo`800000o`3oool70?ooo`00603oool200000?l0oooo1`3oool001P0
oooo0P00003o0?ooo`L0oooo000H0?ooo`800000o`3oool70?ooo`00603oool00`000000oooo0000
003o0?ooo`H0oooo000H0?ooo`030000003oool000000?l0oooo1P3oool001P0oooo00<000000?oo
o`000000o`3oool60?ooo`00603oool300000?l0oooo1P3oool001P0oooo00<000000?ooo`000000
o`3oool60?ooo`00603oool00`000000oooo0000003o0?ooo`H0oooo000@0?ooo`@00000103oool0
0`000000oooo0000003o0?ooo`H0oooo000@0?ooo`030000003oool0oooo00D0oooo00@000000?oo
o`3oool00000o`3oool50?ooo`004@3oool00`000000oooo0?ooo`040?ooo`@00000o`3oool50?oo
o`004P3oool00`000000oooo0?ooo`030?ooo`040000003oool0oooo00000?l0oooo1@3oool00100
oooo00@000000?ooo`3oool00000103oool010000000oooo0?ooo`00003o0?ooo`D0oooo000A0?oo
o`8000001@3oool010000000oooo0?ooo`00003o0?ooo`D0oooo000H0?ooo`040000003oool0oooo
00000?l0oooo1@3oool001P0oooo0P0000000`3oool000000?ooo`3o0?ooo`@0oooo000H0?ooo`04
0000003oool0oooo00000?l0oooo1@3oool001P0oooo00D000000?ooo`3oool0oooo0000003o0?oo
o`@0oooo000H0?ooo`050000003oool0oooo0?ooo`000000o`3oool40?ooo`00603oool01@000000
oooo0?ooo`3oool000000?l0oooo103oool001P0oooo0P0000020?ooo`030000003oool0oooo0?l0
oooo0P3oool001P0oooo00D000000?ooo`3oool0oooo0000003o0?ooo`@0oooo000H0?ooo`050000
003oool0oooo0?ooo`000000o`3oool40?ooo`00603oool01@000000oooo0?ooo`3oool000000?l0
oooo103oool001P0oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`3o0?ooo`40oooo
000H0?ooo`8000000`3oool00`000000oooo0?ooo`3o0?ooo`40oooo000H0?ooo`030000003oool0
oooo0080oooo00<000000?ooo`3oool0o`3oool10?ooo`00603oool00`000000oooo0?ooo`020?oo
o`030000003oool0oooo0?l0oooo0@3oool00180oooo0`0000030?ooo`030000003oool0oooo0080
oooo00<000000?ooo`3oool0o`3oool10?ooo`004`3oool00`000000oooo0?ooo`020?ooo`030000
003oool0oooo0080oooo00<000000?ooo`3oool0o`3oool10?ooo`00403oool5000000<0oooo0`00
00020?ooo`030000003oool0oooo0?l0oooo0@3oool00100oooo00@000000?ooo`3oool00000103o
ool00`000000oooo0?ooo`020?ooo`030000003oool0oooo0?l0oooo0@3oool00140oooo00<00000
0?ooo`000000103oool00`000000oooo0?ooo`030?ooo`030000003oool0oooo0?l0oooo000B0?oo
o`800000103oool00`000000oooo0?ooo`030?ooo`030000003oool0oooo0?l0oooo000H0?ooo`03
0000003oool0oooo00<0oooo00<000000?ooo`3oool0o`3oool001P0oooo0P0000040?ooo`030000
003oool0oooo0?l0oooo000H0?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool0o`3o
ool001P0oooo00<000000?ooo`3oool00`3oool00`000000oooo0?ooo`3o0?ooo`00603oool00`00
0000oooo0?ooo`030?ooo`030000003oool0oooo0?l0oooo000H0?ooo`030000003oool0oooo00@0
oooo00<000000?ooo`3oool0oP3oool001P0oooo0P0000050?ooo`030000003oool0oooo0?h0oooo
000H0?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool0oP3oool001P0oooo00<00000
0?ooo`3oool0103oool00`000000oooo0?ooo`3n0?ooo`00603oool00`000000oooo0?ooo`040?oo
o`030000003oool0oooo0?h0oooo000H0?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3o
ool0oP3oool001P0oooo0P0000050?ooo`030000003oool0oooo0?h0oooo000H0?ooo`030000003o
ool0oooo00@0oooo00<000000?ooo`3oool0oP3oool001P0oooo00<000000?ooo`3oool01@3oool0
0`000000oooo0?ooo`3m0?ooo`00403oool3000000D0oooo00<000000?ooo`3oool01@3oool00`00
0000oooo0?ooo`3m0?ooo`00403oool010000000oooo0?ooo`0000040?ooo`030000003oool0oooo
00D0oooo00<000000?ooo`3oool0o@3oool00100oooo00@000000?ooo`3oool00000103oool30000
00D0oooo00<000000?ooo`3oool0o@3oool00100oooo0`0000050?ooo`030000003oool0oooo00D0
oooo00<000000?ooo`3oool0o@3oool00140oooo00<000000?ooo`3oool0103oool00`000000oooo
0?ooo`050?ooo`030000003oool0oooo0?d0oooo000A0?ooo`<00000103oool00`000000oooo0?oo
o`050?ooo`030000003oool0oooo0?d0oooo000H0?ooo`030000003oool0oooo00H0oooo00<00000
0?ooo`3oool0o03oool001P0oooo0P0000070?ooo`030000003oool0oooo0?`0oooo000H0?ooo`03
0000003oool0oooo00H0oooo00<000000?ooo`3oool0o03oool001P0oooo00<000000?ooo`3oool0
1P3oool00`000000oooo0?ooo`3l0?ooo`00603oool00`000000oooo0?ooo`060?ooo`030000003o
ool0oooo0?`0oooo000H0?ooo`030000003oool0oooo00H0oooo00<000000?ooo`3oool0o03oool0
01P0oooo0P0000070?ooo`030000003oool0oooo0?`0oooo000H0?ooo`030000003oool0oooo00H0
oooo00<000000?ooo`3oool0803oool200000=X0oooo000H0?ooo`030000003oool0oooo00L0oooo
00<000000?ooo`3oool07P3oool400000=T0oooo000H0?ooo`030000003oool0oooo00L0oooo00<0
00000?ooo`3oool07@3oool00`000000oooo0?ooo`020?ooo`030000003oool0oooo0=H0oooo000H
0?ooo`030000003oool0oooo00L0oooo00<000000?ooo`3oool0703oool00`000000oooo0?ooo`03
0?ooo`030000003oool0oooo0=H0oooo000H0?ooo`800000203oool00`000000oooo0?ooo`0L0?oo
o`030000003oool0oooo00@0oooo00<000000?ooo`3oool0e@3oool001P0oooo00<000000?ooo`3o
ool01`3oool00`000000oooo0?ooo`0K0?ooo`030000003oool0oooo00D0oooo00<000000?ooo`3o
ool0e@3oool001P0oooo00<000000?ooo`3oool01`3oool00`000000oooo0?ooo`0K0?ooo`030000
003oool0oooo00H0oooo00<000000?ooo`3oool0e03oool00140oooo0P0000050?ooo`030000003o
ool0oooo00L0oooo00<000000?ooo`3oool06`3oool00`000000oooo0?ooo`060?ooo`030000003o
ool0oooo0=@0oooo000@0?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool01`3o
ool00`000000oooo0?ooo`0K0?ooo`030000003oool0oooo00L0oooo00<000000?ooo`3oool0d`3o
ool00100oooo00@000000?ooo`3oool00000103oool3000000P0oooo00<000000?ooo`3oool06@3o
ool00`000000oooo0?ooo`080?ooo`030000003oool0oooo0=<0oooo000A0?ooo`8000001@3oool0
0`000000oooo0?ooo`080?ooo`030000003oool0oooo01T0oooo00<000000?ooo`3oool02@3oool0
0`000000oooo0?ooo`3B0?ooo`00403oool010000000oooo0?ooo`0000040?ooo`030000003oool0
oooo00P0oooo00<000000?ooo`3oool06@3oool00`000000oooo0?ooo`090?ooo`030000003oool0
oooo0=80oooo000A0?ooo`8000001@3oool00`000000oooo0?ooo`080?ooo`030000003oool0oooo
01T0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`3B0?ooo`00603oool00`000000
oooo0?ooo`080?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool02P3oool00`000000
oooo0?ooo`3B0?ooo`00603oool2000000T0oooo00<000000?ooo`3oool0603oool00`000000oooo
0?ooo`0;0?ooo`030000003oool0oooo0=40oooo000H0?ooo`030000003oool0oooo00P0oooo00<0
00000?ooo`3oool05`3oool00`000000oooo0?ooo`0<0?ooo`030000003oool0oooo0=40oooo000H
0?ooo`030000003oool0oooo00P0oooo00<000000?ooo`3oool05`3oool00`000000oooo0?ooo`0<
0?ooo`030000003oool0oooo0=40oooo000H0?ooo`030000003oool0oooo00P0oooo00<000000?oo
o`3oool05`3oool00`000000oooo0?ooo`0=0?ooo`030000003oool0oooo0=00oooo000H0?ooo`03
0000003oool0oooo00T0oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0=0?ooo`03
0000003oool0oooo0=00oooo000H0?ooo`8000002P3oool00`000000oooo0?ooo`0F0?ooo`030000
003oool0oooo00d0oooo00<000000?ooo`3oool0d03oool001P0oooo00<000000?ooo`3oool02@3o
ool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo00h0oooo00<000000?ooo`3oool0d03o
ool001P0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0
oooo00l0oooo00<000000?ooo`3oool0c`3oool001P0oooo00<000000?ooo`3oool02@3oool00`00
0000oooo0?ooo`0E0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3oool07@3oool60000
0:`0oooo000H0?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool05@3oool00`000000
oooo0?ooo`0?0?ooo`030000003oool0oooo01`0oooo0P0000050?ooo`800000ZP3oool001P0oooo
0P00000:0?ooo`030000003oool0oooo01D0oooo00<000000?ooo`3oool0403oool00`000000oooo
0?ooo`0J0?ooo`030000003oool0oooo00L0oooo00<000000?ooo`3oool0Y`3oool001P0oooo00<0
00000?ooo`3oool02@3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo0100oooo00<0
00000?ooo`3oool06@3oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo0:H0oooo000H
0?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool0503oool00`000000oooo0?ooo`0A
0?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool02`3oool200000:H0oooo000:0?oo
o`D000000P3oool2000000D0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`0C0?oo
o`030000003oool0oooo0180oooo00<000000?ooo`3oool05P3oool00`000000oooo0?ooo`0>0?oo
o`030000003oool0oooo0:<0oooo000<0?ooo`050000003oool0oooo0?ooo`0000000P3oool00`00
0000oooo0?ooo`020?ooo`030000003oool0oooo00X0oooo00<000000?ooo`3oool04`3oool00`00
0000oooo0?ooo`0B0?ooo`030000003oool0oooo01H0oooo00<000000?ooo`3oool03`3oool00`00
0000oooo0?ooo`0L0?ooo`T00000O@3oool000`0oooo00D000000?ooo`3oool0oooo000000020?oo
o`030000003oool0oooo0080oooo0`00000:0?ooo`030000003oool0oooo01<0oooo00<000000?oo
o`3oool04P3oool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo0140oooo00<000000?oo
o`3oool0603oool3000000T0oooo0`00001j0?ooo`00303oool01@000000oooo0?ooo`3oool00000
0080oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`0:0?ooo`030000003oool0oooo
01<0oooo00<000000?ooo`3oool04P3oool00`000000oooo0?ooo`0D0?ooo`030000003oool0oooo
0180oooo00<000000?ooo`3oool05@3oool3000000l0oooo1000000F0?oooaD000006@3ooolD0000
01h0oooo000<0?ooo`050000003oool0oooo0?ooo`0000000P3oool00`000000oooo0?ooo`020?oo
o`030000003oool0oooo00X0oooo00<000000?ooo`3oool04`3oool00`000000oooo0?ooo`0C0?oo
o`030000003oool0oooo0180oooo00<000000?ooo`3oool0503oool00`000000oooo0?ooo`0B0?oo
o`8000005P3oool4000000h0oooo1000000E0?oooaT00000503oool>00000100oooo000;0?ooo`80
0000103oool2000000D0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`0B0?ooo`03
0000003oool0oooo01@0oooo00<000000?ooo`3oool04P3oool00`000000oooo0?ooo`0E0?ooo`80
0000403oool2000001`0oooo3P00001T0?ooo`00603oool00`000000oooo0?ooo`0:0?ooo`030000
003oool0oooo0180oooo00<000000?ooo`3oool0503oool00`000000oooo0?ooo`0A0?ooo`030000
003oool0oooo01P0oooo00<000000?ooo`3oool02`3oool200000900oooo000H0?ooo`8000002`3o
ool00`000000oooo0?ooo`0B0?ooo`030000003oool0oooo01D0oooo00<000000?ooo`3oool0403o
ool00`000000oooo0?ooo`0I0?ooo`<000002@3oool00`000000oooo0?ooo`2@0?ooo`00603oool0
0`000000oooo0?ooo`0:0?ooo`030000003oool0oooo0180oooo00<000000?ooo`3oool05@3oool0
0`000000oooo0?ooo`0?0?ooo`030000003oool0oooo01d0oooo2@00002C0?ooo`00603oool00`00
0000oooo0?ooo`0:0?ooo`030000003oool0oooo0180oooo00<000000?ooo`3oool05P3oool00`00
0000oooo0?ooo`0>0?ooo`030000003oool0oooo0;T0oooo000H0?ooo`030000003oool0oooo00X0
oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`0G0?ooo`030000003oool0oooo00d0
oooo00<000000?ooo`3oool0^P3oool001P0oooo00<000000?ooo`3oool02`3oool00`000000oooo
0?ooo`0@0?ooo`030000003oool0oooo01P0oooo00<000000?ooo`3oool0303oool00`000000oooo
0?ooo`2j0?ooo`00603oool2000000`0oooo00<000000?ooo`3oool0403oool00`000000oooo0?oo
o`0H0?ooo`030000003oool0oooo00/0oooo00<000000?ooo`3oool0^`3oool001P0oooo00<00000
0?ooo`3oool02`3oool00`000000oooo0?ooo`0@0?ooo`030000003oool0oooo01T0oooo00<00000
0?ooo`3oool02P3oool00`000000oooo0?ooo`2k0?ooo`00603oool00`000000oooo0?ooo`0;0?oo
o`030000003oool0oooo0100oooo00<000000?ooo`3oool06@3oool00`000000oooo0?ooo`090?oo
o`030000003oool0oooo0;`0oooo000H0?ooo`030000003oool0oooo00/0oooo00<000000?ooo`3o
ool0403oool00`000000oooo0?ooo`0I0?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3o
ool0_03oool001P0oooo00<000000?ooo`3oool02`3oool00`000000oooo0?ooo`0?0?ooo`030000
003oool0oooo01/0oooo00<000000?ooo`3oool01`3oool00`000000oooo0?ooo`2m0?ooo`00603o
ool2000000`0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`0L0?ooo`030000003o
ool0oooo00D0oooo00<000000?ooo`3oool0_P3oool001P0oooo00<000000?ooo`3oool02`3oool0
0`000000oooo0?ooo`0?0?ooo`030000003oool0oooo01`0oooo00<000000?ooo`3oool0103oool0
0`000000oooo0?ooo`2o0?ooo`00603oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo
00l0oooo00<000000?ooo`3oool07@3oool200000080oooo0P0000320?ooo`002P3oool500000003
0?ooo`000000000000800000103oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo00l0
oooo00<000000?ooo`3oool07P3oool400000<<0oooo000<0?ooo`050000003oool0oooo0?ooo`00
00001`3oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo00l0oooo00<000000?ooo`3o
ool0i@3oool000`0oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`040?ooo`<00000
2`3oool00`000000oooo0?ooo`0>0?ooo`030000003oool0oooo0>H0oooo000<0?ooo`030000003o
ool0oooo00<0oooo00<000000?ooo`3oool00`3oool00`000000oooo0?ooo`0;0?ooo`030000003o
ool0oooo00h0oooo00<000000?ooo`3oool0iP3oool000`0oooo00D000000?ooo`3oool0oooo0000
00020?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool0303oool00`000000oooo0?oo
o`0=0?ooo`030000003oool0oooo0>H0oooo000;0?ooo`800000103oool2000000D0oooo00<00000
0?ooo`3oool0303oool00`000000oooo0?ooo`0=0?ooo`030000003oool0oooo0>H0oooo000H0?oo
o`030000003oool0oooo00`0oooo00<000000?ooo`3oool03@3oool00`000000oooo0?ooo`3V0?oo
o`00603oool2000000d0oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`3W0?ooo`00
603oool00`000000oooo0?ooo`0<0?ooo`030000003oool0oooo00`0oooo00<000000?ooo`3oool0
i`3oool001P0oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`0<0?ooo`030000003o
ool0oooo0>L0oooo000H0?ooo`030000003oool0oooo00`0oooo00<000000?ooo`3oool0303oool0
0`000000oooo0?ooo`3W0?ooo`00603oool00`000000oooo0?ooo`0<0?ooo`030000003oool0oooo
00`0oooo00<000000?ooo`3oool0i`3oool001P0oooo0P00000=0?ooo`030000003oool0oooo00/0
oooo00<000000?ooo`3oool0j03oool001P0oooo00<000000?ooo`3oool03@3oool00`000000oooo
0?ooo`0:0?ooo`030000003oool0oooo0>P0oooo000H0?ooo`030000003oool0oooo00d0oooo00<0
00000?ooo`3oool02P3oool00`000000oooo0?ooo`3X0?ooo`00603oool00`000000oooo0?ooo`0=
0?ooo`030000003oool0oooo00X0oooo00<000000?ooo`3oool0j03oool001P0oooo00<000000?oo
o`3oool03@3oool00`000000oooo0?ooo`0:0?ooo`030000003oool0oooo0>P0oooo000H0?ooo`80
00003P3oool00`000000oooo0?ooo`0:0?ooo`030000003oool0oooo0>P0oooo000H0?ooo`030000
003oool0oooo00d0oooo00<000000?ooo`3oool02@3oool00`000000oooo0?ooo`3Y0?ooo`00603o
ool00`000000oooo0?ooo`0>0?ooo`030000003oool0oooo00P0oooo00<000000?ooo`3oool0j@3o
ool000X0oooo1@0000030?ooo`<000000`3oool00`000000oooo0?ooo`0>0?ooo`030000003oool0
oooo00P0oooo00<000000?ooo`3oool0j@3oool000`0oooo00<000000?ooo`3oool0103oool00`00
0000oooo0?ooo`020?ooo`030000003oool0oooo00h0oooo00<000000?ooo`3oool0203oool00`00
0000oooo0?ooo`3Y0?ooo`00303oool010000000oooo0?ooo`3oool5000000<0oooo0`00000>0?oo
o`030000003oool0oooo00P0oooo00<000000?ooo`3oool0j@3oool000`0oooo00D000000?ooo`3o
ool0oooo000000020?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool03P3oool00`00
0000oooo0?ooo`070?ooo`030000003oool0oooo0>X0oooo000<0?ooo`030000003oool0oooo0080
oooo00<000000?ooo`000000103oool00`000000oooo0?ooo`0>0?ooo`030000003oool0oooo00L0
oooo00<000000?ooo`3oool0jP3oool000/0oooo0P0000050?ooo`800000103oool00`000000oooo
0?ooo`0>0?ooo`030000003oool0oooo00L0oooo00<000000?ooo`3oool0jP3oool001P0oooo00<0
00000?ooo`3oool03`3oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo0>X0oooo000H
0?ooo`800000403oool00`000000oooo0?ooo`060?ooo`030000003oool0oooo0>X0oooo000H0?oo
o`030000003oool0oooo00l0oooo00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`3Z0?oo
o`00603oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo00D0oooo00<000000?ooo`3o
ool0j`3oool001P0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?ooo`050?ooo`030000
003oool0oooo0>/0oooo000H0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool0103o
ool00`000000oooo0?ooo`3[0?ooo`00603oool200000140oooo00<000000?ooo`3oool0103oool0
0`000000oooo0?ooo`3[0?ooo`00603oool00`000000oooo0?ooo`0@0?ooo`030000003oool0oooo
00@0oooo00<000000?ooo`3oool0j`3oool001P0oooo00<000000?ooo`3oool04@3oool00`000000
oooo0?ooo`020?ooo`030000003oool0oooo0>`0oooo000H0?ooo`030000003oool0oooo0140oooo
00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`3/0?ooo`00603oool00`000000oooo0?oo
o`0A0?ooo`050000003oool0oooo0?ooo`000000k`3oool001P0oooo0P00000B0?ooo`8000000P3o
ool00`000000oooo0?ooo`3]0?ooo`00603oool00`000000oooo0?ooo`0B0?ooo`040000003oool0
000000000>l0oooo000H0?ooo`030000003oool0oooo01<0oooo0P00003`0?ooo`002P3oool50000
00040?ooo`0000000000000000D0oooo00<000000?ooo`3oool0o`3oool60?ooo`00303oool01@00
0000oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`3o
0?ooo`H0oooo000<0?ooo`050000003oool0oooo0?ooo`0000000P3oool00`000000oooo0?ooo`02
0?ooo`<00000o`3oool60?ooo`00303oool010000000oooo0?ooo`3oool300000?l0oooo3P3oool0
00`0oooo00<000000?ooo`3oool00P3oool00`000000oooo0?ooo`3o0?ooo`d0oooo000;0?ooo`80
0000103oool300000?l0oooo3@3oool00?l0oooo8@3oool00001\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.495, -1.22258, 0.0607629, \
0.0998772}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(\[IndentingNewLine]\)\(\[IndentingNewLine]\)\(\[IndentingNewLine]\)\
\(\:0410\:041f\ \:043a\:0440\:0435\:043d\:0430\ \:0441\ \
\:0416\:041e\:0421\)\)\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[BoxData[
    \(\:0441\ \:0410\:041f\ \:0416\:041e\:0421\ \
\:043a\:0440\:0435\:043d\:0430\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(asd\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[BoxData[
    \(asd\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \(treg = 2; \)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(mu = \(\((9.48 - b1*treg)\)/b3\)/treg\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[BoxData[
    \(0.09318181818181819`\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(ie = \(\(22.5/b3\)/treg\)/treg\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[BoxData[
    \(0.3196022727272727`\)], "Output"]
}, Open  ]],

Cell[BoxData[""], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[BoxData[""], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(MatrixForm[
      Udv\  = \ {{\((s + b1)\)*s, \ b3}, \ {\(-\((mu*s + ie)\)\), \ 
            1}}]\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}, {3.5009592808714185`*^9, 3.500959289030885*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(s\ \((\(\(3.1`\)\(\[InvisibleSpace]\)\) + s)\)\), "17.6`"},
            {\(\(-0.3196022727272727`\) - 0.09318181818181819`\ s\), "1"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\(MatrixForm[
      Matgam2\  = \ {{0, \ b3}, \ {\(-ie\), \ 
            1}}]\)\(\ \)\( (*\:043c\:0430\:0442\:0440\:0438\:0446\:0430\ \
\:0441\ \:0437\:0430\:043c\:0435\:043d\:0435\:043d\:043d\:044b\:043c\ \:0441\
\:0442\:043e\:043b\:0431\:0446\:043e\:043c*) \)\)\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}, {3.50095941360001*^9, 3.5009594236435843`*^9}}],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"0", "17.6`"},
            {\(-0.3196022727272727`\), "1"}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Wgamma = \(\(Det[Matgam2]\)\(/\)\(Det[
          Udv]\)\(\ \)\( (*\:043f\:0435\:0440\:0435\:0434\:0430\:0442 . \ \
\:0444\:0443\:043d\:043a\:0446\:0438\:044f*) \)\)\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[BoxData[
    \(5.625`\/\(\(\(5.625`\)\(\[InvisibleSpace]\)\) + 4.74`\ s + s\^2\)\)], \
"Output"]
}, Open  ]],

Cell[BoxData[""], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
    \(hgamma = InverseLaplaceTransform[Wgamma/s, s, t]\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[BoxData[
    \(5.625`\ \((\(\(0.17777777777777778`\)\(\[InvisibleSpace]\)\) - \
\((\(\(0.08888888888888889`\)\(\[InvisibleSpace]\)\) + 
                2.340740740740751`\ \[ImaginaryI])\)\ \
\[ExponentialE]\^\(\((\(-2.37`\) - 0.08999999999999965`\ \[ImaginaryI])\)\ \
t\) - \((\(\(0.08888888888888889`\)\(\[InvisibleSpace]\)\) - 
                2.340740740740751`\ \[ImaginaryI])\)\ \
\[ExponentialE]\^\(\((\(-2.37`\) + 0.08999999999999965`\ \[ImaginaryI])\)\ \
t\))\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(Plot[hgamma, {t, 0, 10}, PlotRange \[Rule] {0, 1.2}];\)\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.0238095 0.0952381 -2.18738e-017 0.515028 [
[.21429 -0.0125 -3 -9 ]
[.21429 -0.0125 3 0 ]
[.40476 -0.0125 -3 -9 ]
[.40476 -0.0125 3 0 ]
[.59524 -0.0125 -3 -9 ]
[.59524 -0.0125 3 0 ]
[.78571 -0.0125 -3 -9 ]
[.78571 -0.0125 3 0 ]
[.97619 -0.0125 -6 -9 ]
[.97619 -0.0125 6 0 ]
[.01131 .10301 -18 -4.5 ]
[.01131 .10301 0 4.5 ]
[.01131 .20601 -18 -4.5 ]
[.01131 .20601 0 4.5 ]
[.01131 .30902 -18 -4.5 ]
[.01131 .30902 0 4.5 ]
[.01131 .41202 -18 -4.5 ]
[.01131 .41202 0 4.5 ]
[.01131 .51503 -6 -4.5 ]
[.01131 .51503 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 0 m
.21429 .00625 L
s
[(2)] .21429 -0.0125 0 1 Mshowa
.40476 0 m
.40476 .00625 L
s
[(4)] .40476 -0.0125 0 1 Mshowa
.59524 0 m
.59524 .00625 L
s
[(6)] .59524 -0.0125 0 1 Mshowa
.78571 0 m
.78571 .00625 L
s
[(8)] .78571 -0.0125 0 1 Mshowa
.97619 0 m
.97619 .00625 L
s
[(10)] .97619 -0.0125 0 1 Mshowa
.125 Mabswid
.07143 0 m
.07143 .00375 L
s
.11905 0 m
.11905 .00375 L
s
.16667 0 m
.16667 .00375 L
s
.2619 0 m
.2619 .00375 L
s
.30952 0 m
.30952 .00375 L
s
.35714 0 m
.35714 .00375 L
s
.45238 0 m
.45238 .00375 L
s
.5 0 m
.5 .00375 L
s
.54762 0 m
.54762 .00375 L
s
.64286 0 m
.64286 .00375 L
s
.69048 0 m
.69048 .00375 L
s
.7381 0 m
.7381 .00375 L
s
.83333 0 m
.83333 .00375 L
s
.88095 0 m
.88095 .00375 L
s
.92857 0 m
.92857 .00375 L
s
.25 Mabswid
0 0 m
1 0 L
s
.02381 .10301 m
.03006 .10301 L
s
[(0.2)] .01131 .10301 1 0 Mshowa
.02381 .20601 m
.03006 .20601 L
s
[(0.4)] .01131 .20601 1 0 Mshowa
.02381 .30902 m
.03006 .30902 L
s
[(0.6)] .01131 .30902 1 0 Mshowa
.02381 .41202 m
.03006 .41202 L
s
[(0.8)] .01131 .41202 1 0 Mshowa
.02381 .51503 m
.03006 .51503 L
s
[(1)] .01131 .51503 1 0 Mshowa
.125 Mabswid
.02381 .02575 m
.02756 .02575 L
s
.02381 .0515 m
.02756 .0515 L
s
.02381 .07725 m
.02756 .07725 L
s
.02381 .12876 m
.02756 .12876 L
s
.02381 .15451 m
.02756 .15451 L
s
.02381 .18026 m
.02756 .18026 L
s
.02381 .23176 m
.02756 .23176 L
s
.02381 .25751 m
.02756 .25751 L
s
.02381 .28327 m
.02756 .28327 L
s
.02381 .33477 m
.02756 .33477 L
s
.02381 .36052 m
.02756 .36052 L
s
.02381 .38627 m
.02756 .38627 L
s
.02381 .43777 m
.02756 .43777 L
s
.02381 .46353 m
.02756 .46353 L
s
.02381 .48928 m
.02756 .48928 L
s
.02381 .54078 m
.02756 .54078 L
s
.02381 .56653 m
.02756 .56653 L
s
.02381 .59228 m
.02756 .59228 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 0 m
.06244 .12896 L
.08255 .22139 L
.10458 .30765 L
.12507 .36949 L
.14415 .41239 L
.16457 .44549 L
.18314 .46678 L
.1931 .47552 L
.20229 .48223 L
.21302 .48871 L
.22307 .49365 L
.2418 .50058 L
.25174 .50332 L
.26243 .50571 L
.27253 .50752 L
.28356 .50911 L
.2941 .51032 L
.30365 .51121 L
.32332 .51255 L
.33412 .51307 L
.3443 .51347 L
.35406 .51377 L
.36437 .51403 L
.38285 .51437 L
.39232 .5145 L
.40248 .51461 L
.42082 .51475 L
.43099 .51481 L
.44206 .51486 L
.45162 .51489 L
.46218 .51492 L
.47169 .51494 L
.48195 .51496 L
.49279 .51497 L
.50296 .51499 L
.51334 .51499 L
.523 .515 L
.53308 .51501 L
.5441 .51501 L
.55462 .51502 L
.56456 .51502 L
.58315 .51502 L
.59287 .51502 L
.60316 .51502 L
.62161 .51503 L
.63105 .51503 L
.64119 .51503 L
.6595 .51503 L
.66963 .51503 L
Mistroke
.68067 .51503 L
.6911 .51503 L
.70078 .51503 L
.71137 .51503 L
.72134 .51503 L
.73996 .51503 L
.74975 .51503 L
.76008 .51503 L
.77856 .51503 L
.78806 .51503 L
.79824 .51503 L
.81658 .51503 L
.82678 .51503 L
.83787 .51503 L
.84833 .51503 L
.858 .51503 L
.867 .51503 L
.8767 .51503 L
.88734 .51503 L
.89732 .51503 L
.90691 .51503 L
.9174 .51503 L
.92834 .51503 L
.93851 .51503 L
.94868 .51503 L
.95826 .51503 L
.97619 .51503 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/B000`400?l00000o`00003oo`3ooolQ
0?ooo`00B03oool400000340oooo0`00000^0?ooo`<00000<@3oool2000002`0oooo1@0000020?oo
o`8000001`3oool004P0oooo00<000000?ooo`3oool0<`3oool00`000000oooo0?ooo`0]0?ooo`04
0000003oool0oooo000002l0oooo00@000000?ooo`3oool00000;@3oool01@000000oooo0?ooo`3o
ool000000080oooo00<000000?ooo`3oool0103oool004T0oooo00<000000?ooo`3oool0;`3oool5
000002h0oooo00@000000?ooo`3oool00000;`3oool010000000oooo0?ooo`00000]0?ooo`050000
003oool0oooo0?ooo`0000000P3oool00`000000oooo0?ooo`040?ooo`00BP3oool00`000000oooo
0?ooo`0^0?ooo`040000003oool0oooo000002l0oooo0`00000a0?ooo`800000;P3oool01@000000
oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool0103oool004P0oooo00@000000?ooo`3o
ool00000<03oool00`000000oooo0000000`0?ooo`030000003oool0oooo02l0oooo00@000000?oo
o`3oool00000;@3oool01@000000oooo0?ooo`3oool000000080oooo00<000000?ooo`3oool0103o
ool004T0oooo0P00000b0?ooo`800000<03oool300000300oooo0P00000]0?ooo`800000103oool2
000000L0oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo003o0?ooob40oooo003o
0?ooob40oooo000A0?ooool000003@0000030?ooo`00603oool00`000000oooo0?ooo`090?ooo`03
0000003oool0oooo00X0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`090?ooo`03
0000003oool0oooo00X0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`090?ooo`03
0000003oool0oooo00X0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`090?ooo`03
0000003oool0oooo00X0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`0:0?ooo`03
0000003oool0oooo00T0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`0:0?ooo`03
0000003oool0oooo00T0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`0:0?ooo`03
0000003oool0oooo00T0oooo00<000000?ooo`3oool0203oool001P0oooo0P00000`0?ooo`030000
003oool0oooo0300oooo00<000000?ooo`3oool0<03oool00`000000oooo0?ooo`0`0?ooo`030000
003oool0oooo02l0oooo00<000000?ooo`3oool0203oool001P0oooo0P00003o0?ooo`L0oooo000H
0?ooo`800000o`3oool70?ooo`00603oool200000?l0oooo1`3oool001P0oooo00<000000?ooo`00
0000o`3oool60?ooo`00603oool300000?l0oooo1P3oool001P0oooo00<000000?ooo`000000o`3o
ool60?ooo`00603oool010000000oooo0?ooo`00003o0?ooo`D0oooo000H0?ooo`040000003oool0
oooo00000?l0oooo1@3oool001P0oooo00@000000?ooo`3oool00000o`3oool50?ooo`00603oool0
1@000000oooo0?ooo`3oool000000?l0oooo103oool001P0oooo00D000000?ooo`3oool0oooo0000
003o0?ooo`@0oooo000H0?ooo`8000000P3oool00`000000oooo0?ooo`3o0?ooo`80oooo000H0?oo
o`050000003oool0oooo0?ooo`000000o`3oool40?ooo`00603oool00`000000oooo0?ooo`020?oo
o`030000003oool0oooo0?l0oooo0@3oool001P0oooo00<000000?ooo`3oool00P3oool00`000000
oooo0?ooo`3o0?ooo`40oooo000H0?ooo`030000003oool0oooo0080oooo00<000000?ooo`3oool0
o`3oool10?ooo`00603oool00`000000oooo0?ooo`030?ooo`030000003oool0oooo0?l0oooo000H
0?ooo`800000103oool00`000000oooo0?ooo`3o0?ooo`00603oool00`000000oooo0?ooo`030?oo
o`030000003oool0oooo0?l0oooo000H0?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3o
ool0o`3oool001P0oooo00<000000?ooo`3oool0103oool00`000000oooo0?ooo`3n0?ooo`00603o
ool00`000000oooo0?ooo`040?ooo`030000003oool0oooo0?h0oooo00040?ooo`800000103oool2
000000<0oooo100000050?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool0oP3oool0
00<0oooo00@000000?ooo`3oool00000203oool00`000000oooo0?ooo`060?ooo`030000003oool0
oooo00D0oooo00<000000?ooo`3oool0o@3oool000<0oooo00@000000?ooo`3oool000002@3oool0
0`000000oooo0?ooo`050?ooo`8000001P3oool00`000000oooo0?ooo`3m0?ooo`000`3oool01000
0000oooo0?ooo`00000:0?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool01@3oool0
0`000000oooo0?ooo`3m0?ooo`000`3oool010000000oooo0?ooo`0000080?ooo`040000003oool0
oooo000000D0oooo00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`3l0?ooo`00103oool2
000000X0oooo0P0000060?ooo`030000003oool0oooo00H0oooo00<000000?ooo`3oool0o03oool0
01P0oooo00<000000?ooo`3oool01P3oool00`000000oooo0?ooo`3l0?ooo`00603oool00`000000
oooo0?ooo`060?ooo`030000003oool0oooo0?`0oooo000H0?ooo`030000003oool0oooo00L0oooo
00<000000?ooo`3oool0n`3oool001P0oooo0P0000080?ooo`030000003oool0oooo0?/0oooo000H
0?ooo`030000003oool0oooo00L0oooo00<000000?ooo`3oool0n`3oool001P0oooo00<000000?oo
o`3oool01`3oool00`000000oooo0?ooo`3k0?ooo`00603oool00`000000oooo0?ooo`080?ooo`03
0000003oool0oooo0?X0oooo000H0?ooo`030000003oool0oooo00P0oooo00<000000?ooo`3oool0
nP3oool001P0oooo00<000000?ooo`3oool0203oool00`000000oooo0?ooo`3j0?ooo`00603oool0
0`000000oooo0?ooo`080?ooo`030000003oool0oooo0?X0oooo000H0?ooo`8000002@3oool00`00
0000oooo0?ooo`3j0?ooo`00603oool00`000000oooo0?ooo`090?ooo`030000003oool0oooo0?T0
oooo000H0?ooo`030000003oool0oooo00T0oooo00<000000?ooo`3oool0n@3oool001P0oooo00<0
00000?ooo`3oool02@3oool00`000000oooo0?ooo`3i0?ooo`00603oool00`000000oooo0?ooo`09
0?ooo`030000003oool0oooo0?T0oooo000H0?ooo`030000003oool0oooo00T0oooo00<000000?oo
o`3oool0n@3oool001P0oooo00<000000?ooo`3oool02P3oool00`000000oooo0?ooo`3h0?ooo`00
603oool2000000/0oooo00<000000?ooo`3oool0n03oool001P0oooo00<000000?ooo`3oool02P3o
ool00`000000oooo0?ooo`3h0?ooo`00603oool00`000000oooo0?ooo`0:0?ooo`030000003oool0
oooo0?P0oooo000H0?ooo`030000003oool0oooo00X0oooo00<000000?ooo`3oool0n03oool001P0
oooo00<000000?ooo`3oool02`3oool00`000000oooo0?ooo`3g0?ooo`00103oool2000000@0oooo
0P0000050?ooo`<00000103oool00`000000oooo0?ooo`0;0?ooo`030000003oool0oooo0?L0oooo
00030?ooo`040000003oool0oooo000000/0oooo00<000000?ooo`3oool00`3oool00`000000oooo
0?ooo`0;0?ooo`030000003oool0oooo0?L0oooo00030?ooo`040000003oool0oooo000000P0oooo
1@0000040?ooo`800000303oool00`000000oooo0?ooo`3g0?ooo`000`3oool010000000oooo0?oo
o`0000080?ooo`040000003oool0oooo000000D0oooo00<000000?ooo`3oool02`3oool00`000000
oooo0?ooo`3g0?ooo`000`3oool010000000oooo0?ooo`0000090?ooo`030000003oool0000000D0
oooo00<000000?ooo`3oool0303oool00`000000oooo0?ooo`3f0?ooo`00103oool2000000/0oooo
0P0000050?ooo`030000003oool0oooo00`0oooo00<000000?ooo`3oool0mP3oool001P0oooo00<0
00000?ooo`3oool0303oool00`000000oooo0?ooo`3f0?ooo`00603oool00`000000oooo0?ooo`0<
0?ooo`030000003oool0oooo0?H0oooo000H0?ooo`030000003oool0oooo00d0oooo00<000000?oo
o`3oool0m@3oool001P0oooo0P00000>0?ooo`030000003oool0oooo0?D0oooo000H0?ooo`030000
003oool0oooo00d0oooo00<000000?ooo`3oool0m@3oool001P0oooo00<000000?ooo`3oool03@3o
ool00`000000oooo0?ooo`3e0?ooo`00603oool00`000000oooo0?ooo`0>0?ooo`030000003oool0
oooo0?@0oooo000H0?ooo`030000003oool0oooo00h0oooo00<000000?ooo`3oool0m03oool001P0
oooo00<000000?ooo`3oool03P3oool00`000000oooo0?ooo`3d0?ooo`00603oool2000000l0oooo
00<000000?ooo`3oool0m03oool001P0oooo00<000000?ooo`3oool03`3oool00`000000oooo0?oo
o`3c0?ooo`00603oool00`000000oooo0?ooo`0?0?ooo`030000003oool0oooo0?<0oooo000H0?oo
o`030000003oool0oooo00l0oooo00<000000?ooo`3oool0l`3oool001P0oooo00<000000?ooo`3o
ool03`3oool00`000000oooo0?ooo`3c0?ooo`00603oool00`000000oooo0?ooo`0@0?ooo`030000
003oool0oooo0?80oooo000H0?ooo`030000003oool0oooo0100oooo00<000000?ooo`3oool0lP3o
ool001P0oooo0P00000A0?ooo`030000003oool0oooo0?80oooo000H0?ooo`030000003oool0oooo
0100oooo00<000000?ooo`3oool0lP3oool001P0oooo00<000000?ooo`3oool04@3oool00`000000
oooo0?ooo`3a0?ooo`00603oool00`000000oooo0?ooo`0A0?ooo`030000003oool0oooo0?40oooo
000H0?ooo`030000003oool0oooo0140oooo00<000000?ooo`3oool0l@3oool000@0oooo0P000004
0?ooo`8000000`3oool3000000H0oooo00<000000?ooo`3oool04@3oool00`000000oooo0?ooo`3a
0?ooo`000`3oool010000000oooo0?ooo`0000080?ooo`040000003oool0oooo000000D0oooo00<0
00000?ooo`3oool04P3oool00`000000oooo0?ooo`3`0?ooo`000`3oool010000000oooo0?ooo`00
00080?ooo`040000003oool0oooo000000D0oooo0P00000C0?ooo`030000003oool0oooo0?00oooo
00030?ooo`040000003oool0oooo000000P0oooo0`0000060?ooo`030000003oool0oooo0180oooo
00<000000?ooo`3oool0l03oool000<0oooo00@000000?ooo`3oool000002@3oool00`000000oooo
0?ooo`050?ooo`030000003oool0oooo01<0oooo00<000000?ooo`3oool0k`3oool000@0oooo0P00
000:0?ooo`<000001@3oool00`000000oooo0?ooo`0C0?ooo`030000003oool0oooo0>l0oooo000H
0?ooo`030000003oool0oooo01<0oooo00<000000?ooo`3oool0k`3oool001P0oooo00<000000?oo
o`3oool0503oool00`000000oooo0?ooo`3^0?ooo`00603oool00`000000oooo0?ooo`0D0?ooo`03
0000003oool0oooo0>h0oooo000H0?ooo`8000005P3oool00`000000oooo0?ooo`3]0?ooo`00603o
ool00`000000oooo0?ooo`0E0?ooo`030000003oool0oooo0>d0oooo000H0?ooo`030000003oool0
oooo01D0oooo00<000000?ooo`3oool0k@3oool001P0oooo00<000000?ooo`3oool05P3oool00`00
0000oooo0?ooo`3/0?ooo`00603oool00`000000oooo0?ooo`0F0?ooo`030000003oool0oooo0>`0
oooo000H0?ooo`030000003oool0oooo01H0oooo00<000000?ooo`3oool0k03oool001P0oooo00<0
00000?ooo`3oool05`3oool00`000000oooo0?ooo`3[0?ooo`00603oool2000001P0oooo00<00000
0?ooo`3oool0j`3oool001P0oooo00<000000?ooo`3oool0603oool00`000000oooo0?ooo`3Z0?oo
o`00603oool00`000000oooo0?ooo`0H0?ooo`030000003oool0oooo0>X0oooo000H0?ooo`030000
003oool0oooo01P0oooo00<000000?ooo`3oool0jP3oool001P0oooo00<000000?ooo`3oool06@3o
ool00`000000oooo0?ooo`3Y0?ooo`00603oool00`000000oooo0?ooo`0I0?ooo`030000003oool0
oooo0>T0oooo000H0?ooo`030000003oool0oooo01X0oooo00<000000?ooo`3oool0j03oool001P0
oooo0P00000K0?ooo`030000003oool0oooo0>P0oooo000H0?ooo`030000003oool0oooo01X0oooo
00<000000?ooo`3oool0j03oool001P0oooo00<000000?ooo`3oool06`3oool00`000000oooo0?oo
o`3W0?ooo`00603oool00`000000oooo0?ooo`0K0?ooo`030000003oool0oooo0>L0oooo000H0?oo
o`030000003oool0oooo01`0oooo00<000000?ooo`3oool0iP3oool000@0oooo0P0000040?ooo`80
0000103oool2000000H0oooo00<000000?ooo`3oool0703oool00`000000oooo0?ooo`3V0?ooo`00
0`3oool010000000oooo0?ooo`0000080?ooo`040000003oool0oooo000000D0oooo00<000000?oo
o`3oool07@3oool00`000000oooo0?ooo`3U0?ooo`000`3oool010000000oooo0?ooo`0000080?oo
o`040000003oool0oooo000000D0oooo0P00000N0?ooo`030000003oool0oooo0>D0oooo00030?oo
o`040000003oool0oooo000000T0oooo0P0000060?ooo`030000003oool0oooo01h0oooo00<00000
0?ooo`3oool0i03oool000<0oooo00@000000?ooo`3oool00000203oool010000000oooo0?ooo`00
00050?ooo`030000003oool0oooo01h0oooo00<000000?ooo`3oool0i03oool000@0oooo0P00000:
0?ooo`8000001P3oool00`000000oooo0?ooo`0O0?ooo`030000003oool0oooo0><0oooo000H0?oo
o`030000003oool0oooo01l0oooo00<000000?ooo`3oool0h`3oool001P0oooo00<000000?ooo`3o
ool0803oool00`000000oooo0?ooo`3R0?ooo`00603oool200000240oooo00<000000?ooo`3oool0
hP3oool001P0oooo00<000000?ooo`3oool08@3oool00`000000oooo0?ooo`3Q0?ooo`00603oool0
0`000000oooo0?ooo`0Q0?ooo`030000003oool0oooo0>40oooo000H0?ooo`030000003oool0oooo
0280oooo00<000000?ooo`3oool0h03oool001P0oooo00<000000?ooo`3oool08`3oool00`000000
oooo0?ooo`3O0?ooo`00603oool00`000000oooo0?ooo`0T0?ooo`030000003oool0oooo0=h0oooo
000H0?ooo`030000003oool0oooo02D0oooo00<000000?ooo`3oool0g@3oool001P0oooo0P00000W
0?ooo`030000003oool0oooo0=`0oooo000H0?ooo`030000003oool0oooo02L0oooo00<000000?oo
o`3oool0f`3oool001P0oooo00<000000?ooo`3oool0:03oool00`000000oooo0?ooo`3J0?ooo`00
603oool00`000000oooo0?ooo`0Y0?ooo`030000003oool0oooo0=T0oooo000H0?ooo`030000003o
ool0oooo02X0oooo00<000000?ooo`3oool0f03oool001P0oooo00<000000?ooo`3oool0:`3oool2
00000=P0oooo000H0?ooo`030000003oool0oooo02d0oooo0P00003F0?ooo`00603oool200000300
oooo0P00003D0?ooo`00603oool00`000000oooo0?ooo`0a0?ooo`<00000d@3oool001P0oooo00<0
00000?ooo`3oool0=03oool200000<l0oooo000H0?ooo`030000003oool0oooo03H0oooo0P00003=
0?ooo`00603oool00`000000oooo0?ooo`0h0?ooo`<00000bP3oool000l0oooo1@0000040?ooo`03
0000003oool0oooo03/0oooo2@0000310?ooo`004@3oool00`000000oooo0?ooo`040?ooo`030000
003oool0oooo04@0oooo2P00002g0?ooo`004@3oool00`000000oooo0?ooo`040?ooo`800000C`3o
oon]000000X0oooo000A0?ooo`030000003oool0oooo00@0oooo00<000000?ooo`3oool0o`3oool6
0?ooo`004@3oool00`000000oooo0?ooo`040?ooo`030000003oool0oooo0?l0oooo1P3oool00100
oooo0P0000060?ooo`030000003oool0oooo0?l0oooo1P3oool001P0oooo00<000000?ooo`3oool0
o`3oool60?ooo`00603oool00`000000oooo0?ooo`3o0?ooo`H0oooo000H0?ooo`030000003oool0
oooo0?l0oooo1P3oool001P0oooo0P00003o0?ooo`L0oooo000H0?ooo`030000003oool0oooo0?l0
oooo1P3oool001P0oooo00<000000?ooo`3oool0o`3oool60?ooo`00603oool00`000000oooo0?oo
o`3o0?ooo`H0oooo000H0?ooo`030000003oool0oooo0?l0oooo1P3oool001P0oooo00<000000?oo
o`3oool0o`3oool60?ooo`00603oool00`000000oooo0?ooo`3o0?ooo`H0oooo000H0?ooo`800000
o`3oool70?ooo`00603oool00`000000oooo0?ooo`3o0?ooo`H0oooo000H0?ooo`030000003oool0
oooo0?l0oooo1P3oool001P0oooo00<000000?ooo`3oool0o`3oool60?ooo`00603oool00`000000
oooo0?ooo`3o0?ooo`H0oooo000H0?ooo`030000003oool0oooo0?l0oooo1P3oool001P0oooo00<0
00000?ooo`3oool0o`3oool60?ooo`00603oool200000?l0oooo1`3oool001P0oooo00<000000?oo
o`3oool0o`3oool60?ooo`00603oool00`000000oooo0?ooo`3o0?ooo`H0oooo000H0?ooo`030000
003oool0oooo0?l0oooo1P3oool001P0oooo00<000000?ooo`3oool0o`3oool60?ooo`00603oool0
0`000000oooo0?ooo`3o0?ooo`H0oooo000H0?ooo`030000003oool0oooo0?l0oooo1P3oool00001
\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.952658, -0.0898873, \
0.0394232, 0.00729007}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\:0417\:0430\:0434\:0430\:0447\:0430 : \ \:043e\:043f\:0440\:0435\:0434\
\:0435\:043b\:0438\:0442\:044c\ \:043e\:043f\:0442\:0438\:043c\:0430\:043b\
\:044c\:043d\:044b\:0435\ \:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f\ \
\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445\ \
\:0447\:0438\:0441\:0435\:043b\ \:0430\:0432\:0442\:043e\:043f\:0438\:043b\
\:043e\:0442\:0430\ \:043f\:0440\:0438\ \:0438\:0437\:043c\:0435\:043d\:0435\
\:043d\:0438\:0438\ \:043a\:043e\:044d\:0444 . \ \:0432\ \:043b\:0438\:043d . \
\ \:043c\:043e\:0434\:0435\:043b\:0438\ \:0432\ \
\:0434\:0438\:0430\:043f\:0430\:0437\)], "Input",
  CellChangeTimes -> {{3.500317057824032*^9, 3.5003170584100647`*^9}, \
{3.500317447952346*^9, 3.5003174667274194`*^9}, {3.5003175311601048`*^9, \
3.500317559268712*^9}}],

Cell[BoxData[
    \(asd\)], "Output"]
}, Open  ]]
},
FrontEndVersion->"5.2 for Microsoft Windows",
ScreenRectangle->{{0, 1280}, {0, 941}},
WindowSize->{1007, 803},
WindowMargins->{{6, Automatic}, {Automatic, 10}},
StyleDefinitions -> "Default.nb"
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1754, 51, 3731, 57, 365, "Text"],

Cell[CellGroupData[{
Cell[5510, 112, 534, 9, 50, "Input"],
Cell[6047, 123, 357, 5, 22, "Message"],
Cell[6407, 130, 414, 11, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6858, 146, 426, 7, 50, "Input"],
Cell[7287, 155, 410, 11, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7734, 171, 616, 9, 30, "Input"],
Cell[8353, 182, 571, 13, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8961, 200, 703, 12, 50, "Input"],
Cell[9667, 214, 357, 11, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10061, 230, 453, 8, 50, "Input"],
Cell[10517, 240, 356, 5, 22, "Message"],
Cell[10876, 247, 410, 11, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11323, 263, 439, 7, 50, "Input"],
Cell[11765, 272, 414, 11, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12216, 288, 454, 8, 50, "Input"],
Cell[12673, 298, 359, 5, 22, "Message"],
Cell[13035, 305, 418, 11, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[13490, 321, 620, 10, 50, "Input"],
Cell[14113, 333, 981, 21, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[15131, 359, 483, 8, 50, "Input"],
Cell[15617, 369, 414, 11, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[16068, 385, 480, 9, 50, "Input"],
Cell[16551, 396, 357, 5, 22, "Message"],
Cell[16911, 403, 414, 11, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[17362, 419, 629, 10, 50, "Input"],
Cell[17994, 431, 573, 13, 71, "Output"]
}, Open  ]],
Cell[18582, 447, 484, 8, 104, "Text"],

Cell[CellGroupData[{
Cell[19091, 459, 665, 11, 50, "Input"],
Cell[19759, 472, 53, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[19849, 478, 552, 8, 30, "Input"],
Cell[20404, 488, 58, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[20499, 494, 598, 9, 50, "Input"],
Cell[21100, 505, 1184, 34, 57, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[22321, 544, 536, 9, 30, "Input"],
Cell[22860, 555, 351, 12, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[23248, 572, 510, 8, 30, "Input"],
Cell[23761, 582, 441, 12, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[24239, 599, 600, 9, 50, "Input"],
Cell[24842, 610, 1259, 34, 57, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[26138, 649, 222, 4, 30, "Input"],
Cell[26363, 655, 206, 5, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[26606, 665, 170, 3, 30, "Input"],
Cell[26779, 670, 192, 5, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[27008, 680, 171, 3, 30, "Input"],
Cell[27182, 685, 212, 5, 29, "Output"]
}, Open  ]],
Cell[27409, 693, 464, 7, 104, "Text"],

Cell[CellGroupData[{
Cell[27898, 704, 500, 8, 30, "Input"],
Cell[28401, 714, 55, 1, 29, "Output"]
}, Open  ]],
Cell[28471, 718, 167, 3, 30, "Input"],

Cell[CellGroupData[{
Cell[28663, 725, 671, 11, 30, "Input"],
Cell[29337, 738, 46, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[29420, 744, 486, 8, 30, "Input"],
Cell[29909, 754, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[30001, 760, 668, 10, 50, "Input"],
Cell[30672, 772, 1833, 48, 57, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[32542, 825, 224, 4, 30, "Input"],
Cell[32769, 831, 358, 5, 22, "Message"],
Cell[33130, 838, 318, 8, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[33485, 851, 224, 4, 30, "Input"],
Cell[33712, 857, 358, 5, 22, "Message"],
Cell[34073, 864, 323, 8, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[34433, 877, 222, 4, 30, "Input"],
Cell[34658, 883, 358, 5, 22, "Message"],
Cell[35019, 890, 318, 8, 29, "Output"]
}, Open  ]],
Cell[35352, 901, 464, 7, 104, "Text"],

Cell[CellGroupData[{
Cell[35841, 912, 807, 14, 70, "Input"],
Cell[36651, 928, 1210, 29, 48, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[37898, 962, 217, 4, 30, "Input"],
Cell[38118, 968, 358, 5, 22, "Message"],
Cell[38479, 975, 370, 9, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[38886, 989, 167, 3, 30, "Input"],
Cell[39056, 994, 358, 5, 22, "Message"],
Cell[39417, 1001, 444, 10, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[39898, 1016, 165, 3, 30, "Input"],
Cell[40066, 1021, 358, 5, 22, "Message"],
Cell[40427, 1028, 445, 10, 29, "Output"]
}, Open  ]],
Cell[40887, 1041, 454, 7, 104, "Text"],

Cell[CellGroupData[{
Cell[41366, 1052, 343, 6, 30, "Input"],
Cell[41712, 1060, 393, 11, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[42142, 1076, 408, 6, 30, "Input"],
Cell[42553, 1084, 35, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[42625, 1090, 113, 2, 30, "Input"],
Cell[42741, 1094, 37, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[42815, 1100, 120, 2, 30, "Input"],
Cell[42938, 1104, 373, 11, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[43348, 1120, 516, 8, 30, "Input"],
Cell[43867, 1130, 409, 12, 71, "Output"]
}, Open  ]],
Cell[44291, 1145, 171, 3, 30, "Input"],

Cell[CellGroupData[{
Cell[44487, 1152, 1184, 18, 70, "Input"],
Cell[45674, 1172, 46, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[45757, 1178, 592, 8, 30, "Input"],
Cell[46352, 1188, 1264, 29, 67, "Output"]
}, Open  ]],
Cell[47631, 1220, 845, 13, 33, "Text"],

Cell[CellGroupData[{
Cell[48501, 1237, 160, 2, 30, "Input"],
Cell[48664, 1241, 358, 5, 22, "Message"],
Cell[49025, 1248, 477, 11, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[49539, 1264, 155, 2, 30, "Input"],
Cell[49697, 1268, 358, 5, 22, "Message"],
Cell[50058, 1275, 477, 11, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[50572, 1291, 158, 2, 30, "Input"],
Cell[50733, 1295, 358, 5, 22, "Message"],
Cell[51094, 1302, 344, 7, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[51475, 1314, 522, 9, 50, "Input"],
Cell[52000, 1325, 5649, 125, 217, "Output"]
}, Open  ]],
Cell[57664, 1453, 401, 7, 38, "Text"],

Cell[CellGroupData[{
Cell[58090, 1464, 629, 11, 90, "Input"],
Cell[58722, 1477, 302, 7, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[59061, 1489, 386, 6, 30, "Input"],
Cell[59450, 1497, 41, 1, 45, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[59528, 1503, 588, 9, 50, "Input"],
Cell[60119, 1514, 468, 11, 47, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[60624, 1530, 424, 7, 50, "Input"],
Cell[61051, 1539, 56, 1, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[61144, 1545, 1135, 18, 110, "Input"],
Cell[62282, 1565, 147, 2, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[62466, 1572, 1243, 20, 90, "Input"],
Cell[63712, 1594, 843, 18, 121, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[64592, 1617, 514, 9, 30, "Input"],
Cell[65109, 1628, 3844, 81, 115, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[68990, 1714, 529, 9, 30, "Input"],
Cell[69522, 1725, 438, 12, 71, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[69997, 1742, 156, 3, 30, "Input"],
Cell[70156, 1747, 67, 1, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[70260, 1753, 156, 3, 30, "Input"],
Cell[70419, 1758, 67, 1, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[70523, 1764, 320, 5, 30, "Input"],
Cell[70846, 1771, 119, 2, 42, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[71002, 1778, 305, 6, 30, "Input"],
Cell[71310, 1786, 962, 18, 120, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[72309, 1809, 255, 5, 30, "Input"],
Cell[72567, 1816, 990, 19, 120, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[73594, 1840, 209, 3, 30, "Input"],
Cell[73806, 1845, 820, 17, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[74663, 1867, 590, 10, 50, "Input"],
Cell[75256, 1879, 9798, 201, 287, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[85091, 2085, 604, 10, 30, "Input"],
Cell[85698, 2097, 132, 2, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[85867, 2104, 686, 12, 50, "Input"],
Cell[86556, 2118, 10403, 205, 311, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[96996, 2328, 509, 9, 50, "Input"],
Cell[97508, 2339, 10415, 205, 311, "Output"]
}, Open  ]],
Cell[107938, 2547, 936, 20, 68, "Text"],

Cell[CellGroupData[{
Cell[108899, 2571, 716, 12, 50, "Input"],
Cell[109618, 2585, 4639, 91, 299, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[114294, 2681, 625, 9, 86, "Input"],
Cell[114922, 2692, 1158, 20, 215, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[116117, 2717, 400, 7, 30, "Input"],
Cell[116520, 2726, 68, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[116625, 2732, 568, 9, 50, "Input"],
Cell[117196, 2743, 358, 5, 22, "Message"],
Cell[117557, 2750, 7696, 166, 269, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[125290, 2921, 88, 1, 29, "Input"],
Cell[125381, 2924, 4639, 91, 299, "Output"]
}, Open  ]],
Cell[130035, 3018, 2532, 34, 134, "Text"],

Cell[CellGroupData[{
Cell[132592, 3056, 144, 3, 29, "Input"],
Cell[132739, 3061, 1617, 39, 157, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[134393, 3105, 147, 3, 29, "Input"],
Cell[134543, 3110, 2334, 46, 163, "Output"]
}, Open  ]],
Cell[136892, 3159, 439, 7, 143, "Input"],
Cell[137334, 3168, 443, 7, 143, "Input"],
Cell[137780, 3177, 369, 6, 124, "Input"],
Cell[138152, 3185, 775, 11, 38, "Text"],

Cell[CellGroupData[{
Cell[138952, 3200, 180, 3, 29, "Input"],
Cell[139135, 3205, 42, 1, 25, "Print"]
}, Open  ]],
Cell[139192, 3209, 644, 9, 38, "Text"],

Cell[CellGroupData[{
Cell[139861, 3222, 381, 7, 29, "Input"],
Cell[140245, 3231, 42, 1, 25, "Print"]
}, Open  ]],
Cell[140302, 3235, 890, 12, 62, "Text"],

Cell[CellGroupData[{
Cell[141217, 3251, 438, 8, 29, "Input"],
Cell[141658, 3261, 42, 1, 25, "Print"]
}, Open  ]],

Cell[CellGroupData[{
Cell[141737, 3267, 517, 9, 50, "Input"],
Cell[142257, 3278, 576, 14, 103, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[142870, 3297, 571, 9, 30, "Input"],
Cell[143444, 3308, 423, 14, 103, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[143904, 3327, 303, 5, 30, "Input"],
Cell[144210, 3334, 539, 13, 103, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[144786, 3352, 455, 8, 30, "Input"],
Cell[145244, 3362, 356, 5, 22, "Message"],
Cell[145603, 3369, 426, 14, 103, "Output"]
}, Open  ]],
Cell[146044, 3386, 286, 4, 38, "Text"],

Cell[CellGroupData[{
Cell[146355, 3394, 288, 5, 30, "Input"],
Cell[146646, 3401, 671, 17, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[147354, 3423, 315, 5, 30, "Input"],
Cell[147672, 3430, 356, 5, 22, "Message"],
Cell[148031, 3437, 305, 5, 48, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[148373, 3447, 311, 5, 30, "Input"],
Cell[148687, 3454, 54, 1, 40, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[148778, 3460, 194, 3, 30, "Input"],
Cell[148975, 3465, 90, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[149102, 3471, 649, 9, 30, "Input"],
Cell[149754, 3482, 744, 17, 103, "Output"]
}, Open  ]],
Cell[150513, 3502, 638, 9, 29, "Input"],
Cell[151154, 3513, 638, 9, 29, "Input"],

Cell[CellGroupData[{
Cell[151817, 3526, 333, 7, 30, "Input"],
Cell[152153, 3535, 652, 15, 103, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[152842, 3555, 212, 3, 30, "Input"],
Cell[153057, 3560, 640, 15, 103, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[153734, 3580, 320, 6, 30, "Input"],
Cell[154057, 3588, 169, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[154263, 3596, 1104, 15, 70, "Input"],
Cell[155370, 3613, 692, 16, 103, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[156099, 3634, 122, 2, 30, "Input"],
Cell[156224, 3638, 674, 17, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[156935, 3660, 139, 2, 30, "Input"],
Cell[157077, 3664, 358, 5, 22, "Message"],
Cell[157438, 3671, 297, 5, 48, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[157772, 3681, 150, 2, 30, "Input"],
Cell[157925, 3685, 93, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[158055, 3691, 143, 2, 30, "Input"],
Cell[158201, 3695, 714, 16, 103, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[158952, 3716, 172, 4, 30, "Input"],
Cell[159127, 3722, 373, 5, 48, "Output"]
}, Open  ]],
Cell[159515, 3730, 97, 1, 30, "Input"],

Cell[CellGroupData[{
Cell[159637, 3735, 1180, 18, 70, "Input"],
Cell[160820, 3755, 690, 16, 103, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[161547, 3776, 446, 8, 30, "Input"],
Cell[161996, 3786, 473, 11, 55, "Output"]
}, Open  ]],
Cell[162484, 3800, 238, 3, 38, "Text"],

Cell[CellGroupData[{
Cell[162747, 3807, 831, 13, 30, "Input"],
Cell[163581, 3822, 115, 2, 43, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[163733, 3829, 301, 4, 30, "Input"],
Cell[164037, 3835, 516, 8, 32, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[164590, 3848, 257, 4, 30, "Input"],
Cell[164850, 3854, 21004, 682, 186, 7482, 511, "GraphicsData", "PostScript", \
"Graphics"],
Cell[185857, 4538, 130, 3, 29, "Output"]
}, Open  ]],
Cell[186002, 4544, 57, 1, 29, "Input"],
Cell[186062, 4547, 632, 8, 38, "Text"],

Cell[CellGroupData[{
Cell[186719, 4559, 327, 6, 50, "Input"],
Cell[187049, 4567, 359, 10, 55, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[187445, 4582, 621, 10, 30, "Input"],
Cell[188069, 4594, 59, 1, 43, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[188165, 4600, 201, 3, 30, "Input"],
Cell[188369, 4605, 178, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[188584, 4613, 211, 3, 30, "Input"],
Cell[188798, 4618, 16561, 397, 186, 3166, 227, "GraphicsData", "PostScript", \
"Graphics"],
Cell[205362, 5017, 130, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[205529, 5025, 374, 7, 50, "Input"],
Cell[205906, 5034, 405, 10, 55, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[206348, 5049, 569, 9, 30, "Input"],
Cell[206920, 5060, 104, 2, 43, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[207061, 5067, 152, 2, 30, "Input"],
Cell[207216, 5071, 492, 8, 32, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[207745, 5084, 255, 4, 30, "Input"],
Cell[208003, 5090, 26221, 782, 186, 8109, 554, "GraphicsData", "PostScript", \
"Graphics"],
Cell[234227, 5874, 130, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[234394, 5882, 357, 6, 90, "Input"],
Cell[234754, 5890, 108, 2, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[234899, 5897, 207, 4, 30, "Input"],
Cell[235109, 5903, 37, 1, 29, "Output"]
}, Open  ]],
Cell[235161, 5907, 214, 4, 30, "Input"],

Cell[CellGroupData[{
Cell[235400, 5915, 241, 4, 30, "Input"],
Cell[235644, 5921, 54, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[235735, 5927, 234, 4, 30, "Input"],
Cell[235972, 5933, 53, 1, 29, "Output"]
}, Open  ]],
Cell[236040, 5937, 197, 3, 30, "Input"],
Cell[236240, 5942, 197, 3, 30, "Input"],

Cell[CellGroupData[{
Cell[236462, 5949, 349, 6, 30, "Input"],
Cell[236814, 5957, 420, 10, 55, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[237271, 5972, 516, 8, 30, "Input"],
Cell[237790, 5982, 343, 10, 55, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[238170, 5997, 368, 6, 30, "Input"],
Cell[238541, 6005, 101, 2, 43, "Output"]
}, Open  ]],
Cell[238657, 6010, 197, 3, 30, "Input"],

Cell[CellGroupData[{
Cell[238879, 6017, 252, 4, 30, "Input"],
Cell[239134, 6023, 489, 8, 32, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[239660, 6036, 261, 4, 30, "Input"],
Cell[239924, 6042, 16587, 447, 186, 4110, 288, "GraphicsData", "PostScript", \
"Graphics"]
}, Open  ]],

Cell[CellGroupData[{
Cell[256548, 6494, 827, 12, 30, "Input"],
Cell[257378, 6508, 37, 1, 29, "Output"]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)