(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     55734,       1504]
NotebookOptionsPosition[     52158,       1410]
NotebookOutlinePosition[     52554,       1427]
CellTagsIndexPosition[     52511,       1424]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"M1", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}]}], ",", "0"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}],
       ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"M2", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[CapitalPsi]", "[", "t", "]"}], "]"}], ",", "0", ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[CapitalPsi]", "[", "t", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[CapitalPsi]", "[", "t", "]"}], "]"}]}], ",", "0", ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[CapitalPsi]", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], 
   "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"TN", "=", 
    RowBox[{"M2", ".", "M1"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"ReplaceAll", "[", " ", 
    RowBox[{"TN", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalPhi]", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
       RowBox[{
        RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "\[Rule]", "0"}]}], 
      "}"}]}], "]"}], "]"}], "  ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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", " ", 
    RowBox[{
    "\: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"}], "*)"}], 
  "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"MM1", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], ",", "0", ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], ",", "0", ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}], 
  " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", "MM1", "]"}], "]"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"MM2", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}], ",", "0"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "\: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"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", "MM2", "]"}], "]"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"MM3", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], 
   "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Transpose", "[", "MM3", "]"}], "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"SN", "=", 
    RowBox[{"MM1", ".", "MM2", ".", "MM3"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"ReplaceAll", "[", " ", 
    RowBox[{"SN", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
       RowBox[{
        RowBox[{"\[Psi]", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
       RowBox[{
        RowBox[{"\[Gamma]", "[", "t", "]"}], "\[Rule]", "0"}]}], "}"}]}], " ",
     "]"}], "]"}], "  ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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", " ", 
    RowBox[{
    "\: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"}], "*)"}], 
  "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"SM1", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"SM2", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Beta]", "[", "t", "]"}], "]"}], ",", "0", ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], ",", "0", ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Beta]", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}],
   " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"SS", "=", 
    RowBox[{"Transpose", "[", 
     RowBox[{"SM2", ".", "SM1"}], "]"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"ReplaceAll", "[", " ", 
    RowBox[{"SS", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Alpha]", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
       RowBox[{
        RowBox[{"\[Beta]", "[", "t", "]"}], "\[Rule]", "0"}]}], "}"}]}], 
    "]"}], "]"}], "  ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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", " ", 
    RowBox[{
    "\: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"],

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"],

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

Cell[BoxData[
 RowBox[{"vg", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"vgx", "[", "t", "]"}], ",", 
    RowBox[{"vdy", "[", "t", "]"}], ",", 
    RowBox[{"vgz", "[", "t", "]"}]}], "}"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"D", "[", 
    RowBox[{"R", ",", "t"}], "]"}], "]"}], "\[Equal]", 
  RowBox[{"MatrixForm", "[", "vg", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"vzem", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"V", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"vg", "=", 
    RowBox[{"TN", ".", "vzem"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"udpdk1", "=", 
   RowBox[{"Table", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"R", ",", "t"}], "]"}], " ", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
      RowBox[{"vg", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"MatrixForm", "[", 
   RowBox[{"udpdk2", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"vzem", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"SS", ".", "vzem"}], ")"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], 
  "*)"}]], "Input"],

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"],

Cell[BoxData[
 RowBox[{"v", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"vx", "[", "t", "]"}], ",", 
    RowBox[{"vy", "[", "t", "]"}], ",", 
    RowBox[{"vz", "[", "t", "]"}]}], "}"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{"{", 
   RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
     "\:0440\:0435\:0437\:0443\:043b\:044c\:0442\:0438\:0440\:0443\:044e\:0449\
\:0435\:0439", " ", "\:0441\:0438\:043b"}], ",", " ", 
    RowBox[{
    "\:0434\:0435\:0439\:0441\:0442\:0432\:0443\:044e\:0449\:0438\:0445", " ",
      "\:043d\:0430", " ", "\:041b\:0410", " ", "\:0432", " ", 
     "\:043f\:043e\:043b\:0435\:0442\:0435"}], ",", " ", 
    RowBox[{
    "\: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"],

Cell[BoxData[
 RowBox[{"w", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"wx", "[", "t", "]"}], ",", 
    RowBox[{"wy", "[", "t", "]"}], ",", 
    RowBox[{"wz", "[", "t", "]"}]}], "}"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"udpdd", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"massa", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{"v", ",", "t"}], "]"}], "+", 
           RowBox[{"Cross", "[", 
            RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], ")"}], "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
      RowBox[{"f", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"udpdk2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"v", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"SS", ".", "vzem"}], ")"}], "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}]], "Input"],

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"],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"proekc", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"\[Gamma]", "[", "t", "]"}], ",", "t"}], "]"}], ",", "0", ",",
       "0"}], "}"}], "+", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"MM2", ".", "MM3"}], "]"}], ".", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"\[Psi]", "[", "t", "]"}], ",", "t"}], "]"}], ",", "0"}], 
      "}"}]}], "+", "  ", 
    RowBox[{
     RowBox[{"Transpose", "[", "MM3", "]"}], ".", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"\[CurlyTheta]", "[", "t", "]"}], ",", "t"}], "]"}]}], 
      "}"}]}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\: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"}], ",", " ", 
    RowBox[{
    "\: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", " ", "\[IndentingNewLine]",
      "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}]}], 
   "*)"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"udvdk1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"w", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "==", 
      RowBox[{"proekc", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"udvdk2", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "-", 
        RowBox[{"\[Alpha]", "[", "t", "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"\[Psi]", "[", "t", "]"}], "-", 
        RowBox[{"\[Beta]", "[", "t", "]"}]}]}]}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input"],

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"],

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

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ixz", "=", 
    RowBox[{"Izx", "=", 
     RowBox[{"Iyz", "=", 
      RowBox[{"Izy", "=", "0"}]}]}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Iyx", "=", "Ixy"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "TI", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"K", "=", 
    RowBox[{"TI", ".", "w"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{"M", "=", 
  RowBox[{"{", 
   RowBox[{"Mx", ",", "My", ",", "Mz"}], "}"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
      "\:041c\:043e\:043c\:0435\:043d\:0442", " ", "\:0441\:0438\:043b\:044b",
        " ", "\:0442\:044f\:0436\:0435\:0441\:0442\:0438"}], ",", " ", 
      RowBox[{
      "\: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"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lchudvd", "=", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"K", ",", "t"}], "]"}], "+", 
     RowBox[{"Cross", "[", 
      RowBox[{"w", ",", "K"}], "]"}]}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "\: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"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"udvdd", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"lchudvd", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
      RowBox[{"M", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}]], "Input"],

Cell[TextData[StyleBox["\:041f\:041e\:041b\:041d\:042b\:0415 \:041d\:0415\
\:041b\:0418\:041d\:0415\:0419\:041d\:042b\:0415 \:0423\:0420\:0410\:0412\
\:041d\:0415\:041d\:0418\:042f \:0414\:0412\:0418\:0416\:0415\:041d\:0418\
\:042f",
 FontFamily->"Times New Roman",
 FontSize->36,
 FontWeight->"Bold",
 FontColor->RGBColor[0., 0., 1.]]], "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"polnsyst1", "=", 
    RowBox[{"Flatten", "[", 
     RowBox[{"{", 
      RowBox[{
      "udpdk1", ",", "udpdk2", ",", "udpdd", ",", "udvdk1", ",", "udvdk2", 
       ",", "udvdd"}], "}"}], "]"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"polnsyst2", "=", 
   RowBox[{"ReplaceAll", "[", 
    RowBox[{"polnsyst1", ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "->", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"\[Alpha]", "[", "t", "]"}]}], "+", 
         RowBox[{"\[CurlyTheta]", "[", "t", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", "t", "]"}], "->", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"\[Beta]", "[", "t", "]"}]}], "+", 
         RowBox[{"\[Psi]", "[", "t", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"vx", "[", "t", "]"}], "\[Rule]", 
        RowBox[{"udpdk2", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"vy", "[", "t", "]"}], "\[Rule]", 
        RowBox[{"udpdk2", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"vz", "[", "t", "]"}], "\[Rule]", 
        RowBox[{"udpdk2", "[", 
         RowBox[{"[", 
          RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"vx", "'"}], "[", "t", "]"}], "\[Rule]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"udpdk2", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", "t"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"vy", "'"}], "[", "t", "]"}], "\[Rule]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"udpdk2", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", "t"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"vz", "'"}], "[", "t", "]"}], "\[Rule]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"udpdk2", "[", 
           RowBox[{"[", 
            RowBox[{"3", ",", "2"}], "]"}], "]"}], ",", "t"}], "]"}]}]}], 
      "}"}]}], "\[IndentingNewLine]", " ", "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "\:0417\:0430\:043c\:0435\:043d\:044f\:0435\:043c", " ", 
    "\:043f\:0440\:043e\:0435\:043a\:0446\:0438\:0438", " ", 
    "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:043d\:0430", 
    " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e", " ", 
    "\:0421\:041a", " ", 
    "\:043f\:0440\:043e\:0435\:043a\:0446\:0438\:044f\:043c\:0438", " ", 
    "\:043d\:0430", " ", 
    "\:043f\:043e\:043b\:0443\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\
\:044e", " ", "\:0438", " ", 
    "\:0437\:0430\:043c\:0435\:043d\:044f\:0435\:043c", " ", 
    "\:0443\:0433\:043b\:044b", " ", 
    "\:043d\:0430\:043a\:043b\:043e\:043d\:0430", " ", 
    "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:0438\:0438", " ", 
    "\:0438", " ", "\:0441\:043d\:043e\:0441\:0430"}], "*)"}]}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"polnsyst3", "=", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "7", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "8", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "9", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "10", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "11", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "12", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "15", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "16", "]"}], "]"}], ",", 
      RowBox[{"polnsyst2", "[", 
       RowBox[{"[", "17", "]"}], "]"}]}], "}"}]}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "\:0412\:044b\:0440\:0435\:0437\:0430\:0435\:043c", " ", 
    "\:043b\:0438\:0448\:043d\:0438\:0435", " ", 
    "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"polnsyst", "=", "polnsyst3"}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\:0420\:0430\:0441\:043f\:0438\:0448\:0435\:043c \
\:0432\:0435\:043a\:0442\:043e\:0440 \:0441\:043e\:0441\:0442\:043e\:044f\
\:043d\:0438\:044f \:0441\:0438\:0441\:0442\:0435\:043c\:044b",
 FontFamily->"Times New Roman",
 FontSize->36]], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"VectorSost", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{"R", ",", 
      RowBox[{"V", "[", "t", "]"}], ",", "w", ",", 
      RowBox[{"\[Psi]", "[", "t", "]"}], ",", 
      RowBox[{"\[CurlyTheta]", "[", "t", "]"}], ",", 
      RowBox[{"\[Gamma]", "[", "t", "]"}], ",", 
      RowBox[{"\[Alpha]", "[", "t", "]"}], ",", 
      RowBox[{"\[Beta]", "[", "t", "]"}]}], "}"}], "]"}], " ", 
   RowBox[{"(*", 
    RowBox[{
    "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
     "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
     "\:0441\:0438\:0441\:0442\:0435\:043c\:044b"}], "*)"}]}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"L", "[", "t", "]"}], ",", 
   RowBox[{"H", "[", "t", "]"}], ",", 
   RowBox[{"dZ", "[", "t", "]"}], ",", 
   RowBox[{"V", "[", "t", "]"}], ",", 
   RowBox[{"wx", "[", "t", "]"}], ",", 
   RowBox[{"wy", "[", "t", "]"}], ",", 
   RowBox[{"wz", "[", "t", "]"}], ",", 
   RowBox[{"\[Psi]", "[", "t", "]"}], ",", 
   RowBox[{"\[CurlyTheta]", "[", "t", "]"}], ",", 
   RowBox[{"\[Gamma]", "[", "t", "]"}], ",", 
   RowBox[{"\[Alpha]", "[", "t", "]"}], ",", 
   RowBox[{"\[Beta]", "[", "t", "]"}]}], "}"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dVectorSost", "=", 
  RowBox[{"D", "[", 
   RowBox[{"VectorSost", ",", "t"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f", " ", 
    "\:0432\:0435\:043a\:0442\:043e\:0440\:0430", " ", 
    "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:044b"}], "*)"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"VectorSostOpor", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"L0", "[", "t", "]"}], ",", 
     RowBox[{"H0", "[", "t", "]"}], ",", 
     RowBox[{"dZ0", "[", "t", "]"}], ",", 
     RowBox[{"V0", "[", "t", "]"}], ",", 
     RowBox[{"wx0", "[", "t", "]"}], ",", 
     RowBox[{"wy0", "[", "t", "]"}], ",", 
     RowBox[{"wz0", "[", "t", "]"}], ",", 
     RowBox[{"\[Psi]0", "[", "t", "]"}], ",", 
     RowBox[{"\[CurlyTheta]0", "[", "t", "]"}], ",", 
     RowBox[{"\[Gamma]0", "[", "t", "]"}], ",", 
     RowBox[{"\[Alpha]0", "[", "t", "]"}], ",", 
     RowBox[{"\[Beta]0", "[", "t", "]"}]}], "}"}]}], " ", 
  "\[IndentingNewLine]", " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
    "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
    "\:043e\:043f\:043e\:0440\:043d\:043e\:0433\:043e", " ", 
    "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:044b"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RMOpor", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"L", "[", "t", "]"}], "->", 
      RowBox[{"L0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"H", "[", "t", "]"}], "->", 
      RowBox[{"H0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"dZ", "[", "t", "]"}], "->", 
      RowBox[{"dZ0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"V", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"V0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"wx", "[", "t", "]"}], "->", 
      RowBox[{"wx0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"wy", "[", "t", "]"}], "->", 
      RowBox[{"wy0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"wz", "[", "t", "]"}], "->", 
      RowBox[{"wz0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Psi]", "[", "t", "]"}], "\[Rule]", 
      RowBox[{"\[Psi]0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "->", 
      RowBox[{"\[CurlyTheta]0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Gamma]", "[", "t", "]"}], "->", 
      RowBox[{"\[Gamma]0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Alpha]", "[", "t", "]"}], "->", 
      RowBox[{"\[Alpha]0", "[", "t", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Beta]", "[", "t", "]"}], "->", 
      RowBox[{"\[Beta]0", "[", "t", "]"}]}]}], "}"}]}], " ", ";"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[
 RowBox[{"dVectorSostOpor", "=", 
  RowBox[{"D", "[", 
   RowBox[{"VectorSostOpor", ",", "t"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f", " ", 
    "\:0432\:0435\:043a\:0442\:043e\:0440\:0430", " ", 
    "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
    "\:043e\:043f\:043e\:0440\:043d\:043e\:0433\:043e", " ", 
    "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:044b"}], "*)"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[{
 RowBox[{"VectorSostVozm", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[CapitalDelta]L", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]H", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]dZ", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]V", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]wx", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]wy", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]wz", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]\[Psi]", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]\[CurlyTheta]", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]\[Gamma]", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0412\:0435\:043a\:0442\:043e\:0440", " ", 
    "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
    "\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0433\:043e\
", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:044b"}], "*)"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[
 RowBox[{"dVectorSostVozm", "=", 
  RowBox[{"D", "[", 
   RowBox[{"VectorSostVozm", ",", "t"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:041f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f", " ", 
    "\:0432\:0435\:043a\:0442\:043e\:0440\:0430", " ", 
    "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
    "\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0433\:043e\
", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:044b"}], "*)"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[
 RowBox[{"RMPolnoe", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"L", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"L0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]L", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"H", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"H0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]H", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"dZ", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"dZ0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]dZ", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"V", "[", "t", "]"}], "\[Rule]", 
     RowBox[{
      RowBox[{"V0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]V", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"wx", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"wx0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]wx", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"wy", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"wy0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]wy", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"wz", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"wz0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]wz", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"\[Psi]", "[", "t", "]"}], "\[Rule]", 
     RowBox[{
      RowBox[{"\[Psi]0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]\[Psi]", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"\[CurlyTheta]0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]\[CurlyTheta]", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"\[Gamma]", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"\[Gamma]0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]\[Gamma]", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"\[Alpha]", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"\[Alpha]0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]\[Alpha]", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"\[Beta]", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"\[Beta]0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]\[Beta]", "[", "t", "]"}]}]}]}], 
   "}"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"Koshi1", "=", 
    RowBox[{"Flatten", "[", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Solve", "[", 
       RowBox[{"polnsyst", ",", 
        RowBox[{"D", "[", 
         RowBox[{"VectorSost", ",", "t"}], "]"}], ",", 
        RowBox[{"Sort", "\[Rule]", "False"}]}], "]"}], "]"}], "]"}]}], "]"}], 
  " ", 
  RowBox[{"(*", 
   RowBox[{
   "\: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",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"s1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Koshi1", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"f", 
    RowBox[{"(", 
     RowBox[{"x", ",", "u"}], ")"}]}], "*)"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"s2", "=", 
   RowBox[{"ReplaceAll", "[", 
    RowBox[{"s1", ",", "RMPolnoe"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"f", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x0", "+", "\[CapitalDelta]x"}], ",", 
      RowBox[{"u0", "+", "\[CapitalDelta]u"}]}], ")"}]}], "*)"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"s3", "=", 
   RowBox[{"ReplaceAll", "[", 
    RowBox[{"s1", ",", "RMOpor"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"f", 
    RowBox[{"(", 
     RowBox[{"x0", ",", "u0"}], ")"}]}], "*)"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"s4", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"s2", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "-", 
      RowBox[{"s3", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], " ", "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x0", "+", "\[CapitalDelta]x"}], ",", 
       RowBox[{"u0", "+", "\[CapitalDelta]u"}]}], ")"}]}], "-", 
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{"x0", ",", "u0"}], ")"}]}]}], "*)"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"s4", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"FullSimplify", "[", 
        RowBox[{"s4", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
  "(*", "\:0423\:043f\:0440\:043e\:0449\:0430\:0435\:043c", " ", "*)"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", 
  RowBox[{"a", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"D", "[", " ", 
      RowBox[{
       RowBox[{"s4", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"VectorSostOpor", "[", 
        RowBox[{"[", "j", "]"}], "]"}]}], " ", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "12"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "12"}], "}"}]}], " ", "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"dfi", "[", "t", "]"}], "/", "dxi"}], "*)"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]]
},
WindowSize->{1202, 705},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
CellContext->Notebook,
TrackCellChangeTimes->False,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 3033, 47, 283, "Text"],
Cell[3581, 69, 1087, 30, 31, "Input"],
Cell[4671, 101, 971, 27, 31, "Input"],
Cell[5645, 130, 731, 15, 31, "Input"],
Cell[6379, 147, 1014, 24, 52, "Input"],
Cell[7396, 173, 1076, 30, 52, "Input"],
Cell[8475, 205, 1105, 31, 52, "Input"],
Cell[9583, 238, 1062, 29, 52, "Input"],
Cell[10648, 269, 728, 15, 31, "Input"],
Cell[11379, 286, 1093, 26, 52, "Input"],
Cell[12475, 314, 961, 27, 31, "Input"],
Cell[13439, 343, 988, 28, 31, "Input"],
Cell[14430, 373, 755, 16, 31, "Input"],
Cell[15188, 391, 973, 23, 52, "Input"],
Cell[16164, 416, 359, 6, 55, "Text"],
Cell[16526, 424, 1081, 29, 31, "Input"],
Cell[17610, 455, 729, 17, 31, "Input"],
Cell[18342, 474, 720, 14, 31, "Input"],
Cell[19065, 490, 619, 15, 31, "Input"],
Cell[19687, 507, 603, 14, 31, "Input"],
Cell[20293, 523, 1013, 24, 52, "Input"],
Cell[21309, 549, 469, 15, 31, "Input"],
Cell[21781, 566, 345, 5, 55, "Text"],
Cell[22129, 573, 654, 16, 31, "Input"],
Cell[22786, 591, 788, 18, 31, "Input"],
Cell[23577, 611, 642, 16, 31, "Input"],
Cell[24222, 629, 1196, 30, 52, "Input"],
Cell[25421, 661, 426, 13, 31, "Input"],
Cell[25850, 676, 345, 5, 55, "Text"],
Cell[26198, 683, 1567, 42, 72, "Input"],
Cell[27768, 727, 364, 11, 31, "Input"],
Cell[28135, 740, 564, 16, 52, "Input"],
Cell[28702, 758, 333, 5, 55, "Text"],
Cell[29038, 765, 663, 21, 31, "Input"],
Cell[29704, 788, 506, 14, 31, "Input"],
Cell[30213, 804, 71, 2, 31, "Input"],
Cell[30287, 808, 64, 1, 31, "Input"],
Cell[30354, 811, 611, 14, 31, "Input"],
Cell[30968, 827, 1446, 29, 52, "Input"],
Cell[32417, 858, 781, 18, 31, "Input"],
Cell[33201, 878, 370, 11, 31, "Input"],
Cell[33574, 891, 345, 7, 55, "Text"],
Cell[33922, 900, 306, 9, 52, "Input"],
Cell[34231, 911, 2962, 76, 112, "Input"],
Cell[37196, 989, 1432, 38, 112, "Input"],
Cell[CellGroupData[{
Cell[38653, 1031, 323, 5, 55, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[38979, 1038, 721, 17, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]],
Cell[39715, 1058, 561, 14, 31, "Input"],
Cell[CellGroupData[{
Cell[40301, 1076, 471, 10, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[40775, 1088, 2498, 66, 92, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[43276, 1156, 603, 12, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[43882, 1170, 1241, 25, 52, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[45126, 1197, 624, 12, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[45753, 1211, 2349, 65, 52, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[48105, 1278, 758, 19, 31, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[48866, 1299, 493, 16, 52, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[49362, 1317, 434, 12, 52, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[49799, 1331, 348, 10, 52, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[50150, 1343, 745, 24, 52, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[50898, 1369, 562, 16, 72, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[51463, 1387, 679, 20, 52, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]]
}
]
*)

(* End of internal cache information *)