(* 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[     48000,       1300]
NotebookOptionsPosition[     45309,       1225]
NotebookOutlinePosition[     45705,       1242]
CellTagsIndexPosition[     45662,       1239]
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[{"\[CapitalPhi]", "[", "t", "]"}], "]"}], ",", "0", ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[CapitalPhi]", "[", "t", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[CapitalPhi]", "[", "t", "]"}], "]"}]}], ",", "0", ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[CapitalPhi]", "[", "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[{"\[Phi]", "[", "t", "]"}], "]"}], ",", "0", ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], ",", "0", ",", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", "[", "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[{"\[Phi]", "[", "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[{"vk", "[", "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[{
  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[{"ukpd1", "=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"R", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", 
   RowBox[{"vg", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ukpd2", "=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"R", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", 
   RowBox[{"vg", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ukpd3", "=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"R", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", 
   RowBox[{"vg", "[", 
    RowBox[{"[", "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[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"massa", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"v", ",", "t"}], "]"}], "+", 
      RowBox[{"Cross", "[", 
       RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], "]"}], "\[Equal]", 
  RowBox[{"MatrixForm", "[", "f", "]"}], " ", 
  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[{"udpd1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"massa", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"v", ",", "t"}], "]"}], "+", 
        RowBox[{"Cross", "[", 
         RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], ")"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", 
   RowBox[{"f", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"udpd2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"massa", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"v", ",", "t"}], "]"}], "+", 
        RowBox[{"Cross", "[", 
         RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], ")"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", 
   RowBox[{"f", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"udpd3", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"massa", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"v", ",", "t"}], "]"}], "+", 
        RowBox[{"Cross", "[", 
         RowBox[{"w", ",", "v"}], "]"}]}], ")"}]}], ")"}], "[", 
    RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
   RowBox[{"f", "[", 
    RowBox[{"[", "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[{"\[Phi]", "[", "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[{"ukvd1", "=", 
  RowBox[{
   RowBox[{"w", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", 
   RowBox[{"proekc", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ukvd2", "=", 
  RowBox[{
   RowBox[{"w", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", 
   RowBox[{"proekc", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ukvd3", "=", 
   RowBox[{
    RowBox[{"w", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
    RowBox[{"proekc", "[", 
     RowBox[{"[", "3", "]"}], "]"}]}]}], "\[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[{"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[{"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[{"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["\<\
\: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"],

Cell[BoxData[
 RowBox[{"udvd1", "=", 
  RowBox[{
   RowBox[{"lchudvd", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", 
   RowBox[{"M", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"udvd2", "=", 
  RowBox[{
   RowBox[{"lchudvd", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", 
   RowBox[{"M", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"udvd3", "=", 
  RowBox[{
   RowBox[{"lchudvd", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
   RowBox[{"M", "[", 
    RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"polnsyst", "=", 
   RowBox[{"{", 
    RowBox[{
    "ukpd1", ",", "ukpd2", ",", "ukpd3", ",", "udpd1", ",", "udpd2", ",", 
     "udpd3", ",", "ukvd1", ",", "ukvd2", ",", "ukvd3", ",", "udvd1", ",", 
     "udvd2", ",", "udvd3"}], "}"}]}], "]"}]], "Input"],

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

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"VectorSost", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{"R", ",", "v", ",", "w", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Phi]", "[", "t", "]"}], ",", 
        RowBox[{"\[CurlyTheta]", "[", "t", "]"}], ",", 
        RowBox[{"\[Gamma]", "[", "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"],

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

Cell[BoxData[{
 RowBox[{
  RowBox[{"VectorSostOpor", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"L0", "[", "t", "]"}], ",", 
     RowBox[{"H0", "[", "t", "]"}], ",", 
     RowBox[{"dZ0", "[", "t", "]"}], ",", 
     RowBox[{"vx0", "[", "t", "]"}], ",", 
     RowBox[{"vy0", "[", "t", "]"}], ",", 
     RowBox[{"vz0", "[", "t", "]"}], ",", 
     RowBox[{"wx0", "[", "t", "]"}], ",", 
     RowBox[{"wy0", "[", "t", "]"}], ",", 
     RowBox[{"wz0", "[", "t", "]"}], ",", 
     RowBox[{"\[Phi]0", "[", "t", "]"}], ",", 
     RowBox[{"\[CurlyTheta]0", "[", "t", "]"}], ",", 
     RowBox[{"\[Gamma]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[{"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[{"vx", "[", "t", "]"}], "->", 
     RowBox[{"vx0", "[", "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"vy", "[", "t", "]"}], "->", 
     RowBox[{"vy0", "[", "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"vz", "[", "t", "]"}], "->", 
     RowBox[{"vz0", "[", "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"wx", "[", "t", "]"}], "->", 
     RowBox[{"wx0", "[", "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"wy", "[", "t", "]"}], "->", 
     RowBox[{"wy0", "[", "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"wz", "[", "t", "]"}], "->", 
     RowBox[{"wz0", "[", "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"\[Phi]", "[", "t", "]"}], "->", 
     RowBox[{"\[Phi]0", "[", "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "->", 
     RowBox[{"\[CurlyTheta]0", "[", "t", "]"}]}], ",", 
    RowBox[{
     RowBox[{"\[Gamma]", "[", "t", "]"}], "->", 
     RowBox[{"\[Gamma]0", "[", "t", "]"}]}]}], "}"}], " "}]}], "Input"],

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

Cell[BoxData[{
 RowBox[{"VectorSostVozm", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[CapitalDelta]L", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]H", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]dZ", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]vx", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]vy", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]vz", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]wx", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]wy", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]wz", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]\[Phi]", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]\[CurlyTheta]", "[", "t", "]"}], ",", 
    RowBox[{"\[CapitalDelta]\[Gamma]", "[", "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"],

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

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[{"vx", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"vx0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]vx", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"vy", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"vy0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]vy", "[", "t", "]"}]}]}], ",", 
    RowBox[{
     RowBox[{"vz", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"vz0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]vz", "[", "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[{"\[Phi]", "[", "t", "]"}], "->", 
     RowBox[{
      RowBox[{"\[Phi]0", "[", "t", "]"}], "+", 
      RowBox[{"\[CapitalDelta]\[Phi]", "[", "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", "]"}]}]}]}], 
   "}"}]}]], "Input"],

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

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"s1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Koshi1", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"s2", "=", 
   RowBox[{"ReplaceAll", "[", 
    RowBox[{"s1", ",", "RMPolnoe"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s3", "=", 
   RowBox[{"ReplaceAll", "[", 
    RowBox[{"s1", ",", "RMOpor"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"s4", "=", 
     RowBox[{
      RowBox[{"s2", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "-", 
      RowBox[{"s3", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], " ", "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"s4", "=", 
        RowBox[{
         RowBox[{"s2", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "-", 
         RowBox[{"s3", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], " ", "]"}], "]"}], "]"}],
    "*)"}]}]}], "Input"]
},
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, 623, 16, 31, "Input"],
Cell[19691, 508, 603, 14, 31, "Input"],
Cell[20297, 524, 720, 14, 31, "Input"],
Cell[21020, 540, 250, 8, 31, "Input"],
Cell[21273, 550, 250, 8, 31, "Input"],
Cell[21526, 560, 250, 8, 31, "Input"],
Cell[21779, 570, 345, 5, 55, "Text"],
Cell[22127, 577, 654, 16, 31, "Input"],
Cell[22784, 595, 788, 18, 31, "Input"],
Cell[23575, 615, 642, 16, 31, "Input"],
Cell[24220, 633, 859, 19, 31, "Input"],
Cell[25082, 654, 433, 14, 31, "Input"],
Cell[25518, 670, 433, 14, 31, "Input"],
Cell[25954, 686, 433, 14, 31, "Input"],
Cell[26390, 702, 345, 5, 55, "Text"],
Cell[26738, 709, 1567, 42, 72, "Input"],
Cell[28308, 753, 196, 6, 31, "Input"],
Cell[28507, 761, 196, 6, 31, "Input"],
Cell[28706, 769, 237, 7, 52, "Input"],
Cell[28946, 778, 333, 5, 55, "Text"],
Cell[29282, 785, 663, 21, 31, "Input"],
Cell[29948, 808, 489, 12, 31, "Input"],
Cell[30440, 822, 53, 1, 31, "Input"],
Cell[30496, 825, 64, 1, 31, "Input"],
Cell[30563, 828, 611, 14, 31, "Input"],
Cell[31177, 844, 1446, 29, 52, "Input"],
Cell[32626, 875, 754, 17, 31, "Input"],
Cell[33383, 894, 674, 10, 29, "Text"],
Cell[34060, 906, 197, 6, 31, "Input"],
Cell[34260, 914, 197, 6, 31, "Input"],
Cell[34460, 922, 197, 6, 31, "Input"],
Cell[34660, 930, 307, 7, 31, "Input"],
Cell[34970, 939, 270, 4, 55, "Text"],
Cell[35243, 945, 590, 15, 31, "Input"],
Cell[35836, 962, 418, 9, 31, "Input"],
Cell[36257, 973, 2349, 64, 92, "Input"],
Cell[38609, 1039, 550, 11, 31, "Input"],
Cell[39162, 1052, 1178, 24, 52, "Input"],
Cell[40343, 1078, 571, 11, 31, "Input"],
Cell[40917, 1091, 2256, 64, 72, "Input"],
Cell[43176, 1157, 705, 18, 31, "Input"],
Cell[43884, 1177, 300, 9, 31, "Input"],
Cell[44187, 1188, 1118, 35, 92, "Input"]
}
]
*)

(* End of internal cache information *)