(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     56513,       1490]
NotebookOptionsPosition[     53369,       1400]
NotebookOutlinePosition[     53987,       1423]
CellTagsIndexPosition[     53944,       1420]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041b\:0430\:0431\:043e\:0440\:0430\:0442\:043e\:0440\:043d\:0430\:044f",
     " ", "\:0440\:0430\:0431\:043e\:0442\:0430", " ", "\:043f\:043e", " ", 
    "\:043a\:0443\:0440\:0441\:0443", " ", "\:0421\:0410\:0423\:041b\:0410"}],
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:041c\:0430\:0440\:043a\:0435\:043b\:043e\:0432", " ", 
    RowBox[{"\:041d", ".", "\:0412", "."}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:0417\:0430\:0434\:0430\:0447\:0430", ":", " ", 
    RowBox[{
    "\:0412\:044b\:0432\:0435\:0441\:0442\:0438", " ", 
     "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f", " ", 
     "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
     "\:041b\:0410"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:0414\:043b\:044f", " ", "\:0432\:044b\:0432\:043e\:0434\:0430", " ", 
    "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", 
    "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:041b\:0410", 
    " ", "\:043d\:0430\:043c", " ", 
    "\:043f\:043e\:043d\:0430\:0434\:043e\:0431\:0438\:0442\:0441\:044f", " ",
     "\:043f\:043e\:0441\:0447\:0438\:0442\:0430\:0442\:044c", " ", 
    "\:043c\:0430\:0442\:0440\:0438\:0446\:044b", " ", 
    RowBox[{
     RowBox[{
     "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", ":", " ", 
      "\[IndentingNewLine]", 
      RowBox[{
      "1.", "\:0418\:0437", " ", 
       "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
       "\:0421\:041a", " ", "\:0432", " ", 
       "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e"}]}], 
     "\[IndentingNewLine]", 
     RowBox[{
     "2.", "\:0418\:0437", " ", 
      "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
      "\:0421\:041a", " ", "\:0432", " ", 
      "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:0443\:044e"}], 
     "\[IndentingNewLine]", 
     RowBox[{
     "3.", "\:0418\:0437", " ", 
      "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
      "\:0421\:041a", " ", "\:0432", " ", 
      "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:0443\:044e"}], 
     "\[IndentingNewLine]", 
     RowBox[{
     "4.", "\:0418\:0437", " ", 
      "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", 
      " ", "\:0432", " ", 
      "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:0443\:044e"}], 
     "\[IndentingNewLine]", 
     RowBox[{
     "5.", "\:0418\:0437", " ", 
      "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", 
      "\:0432", " ", 
      "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e"}]}]}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041d\:0430", " ", "\:043f\:0435\:0440\:0432\:043e\:043c", " ", 
    "\:044d\:0442\:0430\:043f\:0435", " ", 
    "\:043f\:043e\:0441\:0447\:0438\:0442\:0430\:0435\:043c", " ", 
    "\:043c\:0430\:0442\:0440\:0438\:0446\:0443", " ", 
    "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", 
    " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
    "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", 
    "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", " ", "\:0432", 
    " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.6602287068014107`*^9, 3.6602287114016733`*^9}, {
   3.660279924291974*^9, 3.6602799363916664`*^9}, 3.661963667938383*^9, {
   3.7062649808955555`*^9, 3.7062649900387487`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"\:041f\:043e\:0432\:043e\:0440\:043e\:0442", " ", "\:21161"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", 
   RowBox[{"mX", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], ",", " ", "0", ",", " ", 
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], ",", " ", "0", ",", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6602340101117425`*^9, 3.6602340166091137`*^9}, {
  3.706253412628069*^9, 3.706253417688447*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:041f\:043e\:0432\:043e\:0440\:043e\:0442", " ", "\:21162"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", 
   RowBox[{"mY", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], ",", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], ",", " ", "0"}], 
       "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}], ",", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], ",", " ", "0"}], 
       "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.660234021835413*^9, 3.660234022098428*^9}, 
   3.7062534321326313`*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:041f\:043e\:0432\:043e\:0440\:043e\:0442", " ", "\:21163"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", 
   RowBox[{"mZ", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], ",", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", 
        RowBox[{"-", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}]}], ",", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.660234027409732*^9, 3.6602340276497455`*^9}, 
   3.7062534348901253`*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", 
    " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
    "\:0421\:041a", " ", "\:0432", " ", 
    "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"TableForm", "[", 
    RowBox[{"mNormToSv", "=", 
     RowBox[{"mZ", ".", "mY", ".", "mX"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.6602287144458475`*^9, {3.6602339880534806`*^9, 3.6602340334900794`*^9}, {
   3.706253442328541*^9, 3.706253443280369*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041f\:0435\:0440\:0435\:0445\:043e\:0434", " ", "\:0438\:0437", " ", 
    "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
    "\:0421\:041a", " ", "\:0432", " ", 
    "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:0443\:044e", " ", 
    "\:0421\:041a"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "\:041f\:043e\:043b\:0443\:0447\:0438\:043c", " ", 
      "\:043f\:0443\:0442\:0435\:043c", " ", "\:0438\:0437", " ", 
      "\:043c\:0430\:0442\:0440\:0438\:0446\:044b", " ", 
      "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", 
      "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:0430\:044f"}], "-", 
     RowBox[{
     "\:0441\:0432\:044f\:0437\:0430\:043d\:0430\:044f", " ", 
      "\:043f\:0443\:0442\:0435\:043c", " ", 
      "\:0437\:0430\:043c\:0435\:043d\:044b", " ", "\[Psi]"}]}], ",", " ", 
    "\[CurlyTheta]", ",", " ", 
    RowBox[{"\[Gamma]", " ", "\:043d\:0430", " ", "\[CapitalPsi]"}], ",", " ",
     "\[CapitalTheta]", ",", " ", "\[Gamma]a"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", " ", 
   RowBox[{"mNormToSk", "=", 
    RowBox[{"ReplaceAll", "[", 
     RowBox[{"mNormToSv", ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Psi]", "[", "t", "]"}], "->", " ", 
         RowBox[{"\[CapitalPsi]", "[", "t", "]"}]}], ",", " ", 
        RowBox[{
         RowBox[{"\[CurlyTheta]", "[", "t", "]"}], " ", "\[Rule]", " ", 
         RowBox[{"\[CapitalTheta]", "[", "t", "]"}]}], ",", " ", 
        RowBox[{
         RowBox[{"\[Gamma]", "[", "t", "]"}], " ", "\[Rule]", " ", 
         RowBox[{"b\[Gamma]a", "[", "t", "]"}]}]}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.660234487128026*^9, 3.6602344873540387`*^9}, 
   3.7062534484975615`*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041f\:0435\:0440\:0435\:0445\:043e\:0434", " ", "\:0438\:0437", " ", 
    "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
    "\:0421\:041a", " ", "\:0432", " ", 
    "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:0443\:044e", " ",
     "\:0421\:041a"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "\:041c\:0430\:0442\:0440\:0438\:0446\:0443", " ", 
      "\:043c\:043e\:0436\:043d\:043e", " ", 
      "\:043f\:043e\:043b\:0443\:0447\:0438\:0442\:044c", " ", "\:0438\:0437",
       " ", "\:043c\:0430\:0442\:0440\:0438\:0446\:044b", " ", 
      "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", 
      "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:0430\:044f"}], "-", 
     RowBox[{
     "\:0441\:043a\:043e\:0440\:043e\:0441\:043d\:0430\:044f", " ", 
      "\:043f\:0440\:0438\:043d\:044f\:0432", " ", "\[Gamma]a"}]}], "=", 
    "0"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", " ", 
   RowBox[{"mNormToTr", " ", "=", " ", 
    RowBox[{"Simplify", "[", 
     RowBox[{"mNormToSk", ",", " ", 
      RowBox[{
       RowBox[{"b\[Gamma]a", "[", "t", "]"}], " ", "\[Equal]", " ", "0"}]}], 
     "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6602344934753895`*^9, 3.6602344937294035`*^9}, 
   3.6602796127371545`*^9, 3.706253455776086*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041f\:0435\:0440\:0435\:0445\:043e\:0434", " ", "\:0438\:0437", " ", 
    "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ",
     "\:0421\:041a", " ", "\:0432", " ", 
    "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:0443\:044e", " ", 
    "\:0421\:041a"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "\:041f\:043e\:043b\:0443\:0447\:0438\:043c", " ", "\:0438\:0437", " ", 
      "\:043c\:0430\:0442\:0440\:0438\:0446\:044b", " ", 
      "\:043f\:043e\:0432\:043e\:0440\:043e\:0442\:0430", " ", "\:21163", " ",
       "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:0430\:044f"}], "-", 
     RowBox[{
     "\:0441\:043a\:043e\:0440\:043e\:0441\:043d\:0430\:044f", " ", 
      "\:043f\:0440\:0438\:043d\:044f\:0432", " ", "\[Gamma]"}]}], "=", 
    "\[Gamma]a"}], " ", "*)"}], "\n", 
  RowBox[{"TableForm", "[", " ", 
   RowBox[{"mTrToSk", "=", 
    RowBox[{"ReplaceAll", "[", 
     RowBox[{"mZ", ",", " ", 
      RowBox[{
       RowBox[{"\[Gamma]", "[", "t", "]"}], " ", "\[Rule]", " ", 
       RowBox[{"b\[Gamma]a", "[", "t", "]"}]}]}], "]"}]}], "]"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.6602344986776867`*^9, 3.6602344989377017`*^9}, 
   3.660279605714753*^9, 3.7062534619384756`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041f\:0435\:0440\:0435\:0445\:043e\:0434", " ", "\:0438\:0437", " ", 
    "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", 
    "\:0421\:041a", " ", "\:0432", " ", 
    "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e", " ", 
    "\:0421\:041a"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "\:041f\:043e\:043b\:0443\:0447\:0438\:043c", " ", "\:0438\:0437", " ", 
      "\:043c\:0430\:0442\:0440\:0438\:0446\:044b", " ", 
      "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", 
      "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:0430\:044f"}], "-", 
     RowBox[{
     "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:0430\:044f", 
      " ", "\:0437\:0430\:043c\:0435\:043d\:0438\:0432", " ", 
      "\[CapitalPsi]"}]}], ",", " ", 
    RowBox[{"\[CapitalTheta]", " ", "\:043d\:0430", " ", "\[Alpha]"}], ",", 
    " ", "\[Beta]"}], "  ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", " ", 
   RowBox[{"mSkToSv", "=", 
    RowBox[{"ReplaceAll", "[", 
     RowBox[{"mNormToTr", ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", "t", "]"}], "\[Rule]", "  ", 
         RowBox[{"\[Beta]", "[", "t", "]"}]}], ",", " ", 
        RowBox[{
         RowBox[{"\[CapitalTheta]", "[", "t", "]"}], " ", "\[Rule]", " ", 
         RowBox[{"\[Alpha]", "[", "t", "]"}]}]}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6602344856669426`*^9, 3.6602345072261753`*^9}, 
   3.6602351987937307`*^9, 3.660279608389906*^9, 3.7062534662479973`*^9}],

Cell[BoxData["\[IndentingNewLine]"], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\:0435\:0441\:043a\
\:0438\:0435", " ", "\:0423\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f", 
    " ", "\:0414\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
    "\:0426\:041c"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "\:0414\:043e\:043f\:0443\:0449\:0435\:043d\:0438\:044f", ":", " ", 
     RowBox[{
     "\:043a\: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"}]}], ",", " ", 
    RowBox[{
    "\:0430\:0442\:043c\:043e\:0441\:0444\:0435\:0440\:0430", " ", 
     "\:0441\:043f\:043e\:043a\:043e\:0439\:043d\:0430\:044f"}], ",", " ", 
    RowBox[{
    "\:0441\:043f\:0440\:0430\: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"}], ",", " ", 
    RowBox[{
    "\:0417\:0435\:043c\:043b\:044f", " ", 
     "\:043f\:043b\:043e\:0441\:043a\:0430\:044f"}], ",", " ", 
    RowBox[{
    "\:043f\:0440\:0435\:043d\:0435\:0431\:043b\:0435\:0436\:0435\:043c", " ",
      "\:0432\:0440\:0430\:0449\:0435\:043d\:0438\:0435\:043c", " ", 
     "\:0417\:0435\:043c\:043b\:0438"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"mr", "=", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"l", "[", "t", "]"}], "^", "2"}], " ", "+", " ", 
      RowBox[{
       RowBox[{"h", "[", "t", "]"}], "^", "2"}], " ", "+", " ", 
      RowBox[{
       RowBox[{"z", "[", "t", "]"}], "^", "2"}]}], "]"}]}], "\n", 
   RowBox[{"q1", "=", 
    RowBox[{
     RowBox[{"Vx", "[", "t", "]"}], "*", 
     RowBox[{"Cos", "[", " ", 
      RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[CapitalPsi]", "[", "t", "]"}], "]"}]}]}], "\n", 
   RowBox[{"q2", "=", 
    RowBox[{
     RowBox[{"Vy", "[", "t", "]"}], "*", 
     RowBox[{"Sin", "[", " ", 
      RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}]}]}], "\n", 
   RowBox[{"q3", "=", 
    RowBox[{
     RowBox[{"Vz", "[", "t", "]"}], "*", 
     RowBox[{"Cos", "[", " ", 
      RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], "*", 
     RowBox[{"Sin", "[", 
      RowBox[{"\[CapitalPsi]", "[", "t", "]"}], "]"}]}]}], 
   "\[IndentingNewLine]", "\n", 
   RowBox[{"TableForm", "[", 
    RowBox[{"lr", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"l", "[", "t", "]"}], ",", 
       RowBox[{"h", "[", "t", "]"}], ",", 
       RowBox[{"z", "[", "t", "]"}]}], "}"}]}], "]"}], "\n", 
   RowBox[{
    StyleBox["TableForm",
     FontWeight->"Plain"], "[", 
    RowBox[{"rk", "=", 
     RowBox[{"{", 
      RowBox[{"q1", ",", "q2", ",", "q3"}], "}"}]}], "]"}], "\n", 
   RowBox[{"TableForm", "[", 
    RowBox[{"eq1", " ", "=", " ", 
     RowBox[{"Table", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"lr", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", " ", "t"}], "]"}], " ", 
        "\[Equal]", " ", 
        RowBox[{"rk", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "1", ",", " ", "3"}], "}"}]}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.660235296122298*^9, 3.660279624335818*^9, {3.660279676547804*^9, 
   3.660279703374338*^9}, {3.6602797555773244`*^9, 3.660279766645958*^9}, {
   3.7062534797085176`*^9, 3.706253484507181*^9}, {3.706253521696545*^9, 
   3.7062535349427547`*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:0414\:0418\:041d\:0410\:041c\:0418\:0427\:0415\:0421\:041a\:0418\:0415",
     " ", "\:0423\:0420\:0410\:0412\:041d\:0415\:041d\:0418\:042f", " ", 
    "\:0414\:0412\:0418\:0416\:0415\:041d\:0418\:042f", " ", "\:0426\:041c"}],
    " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:0421\:0438\:043b\:0430", " ", 
    "\:0442\:044f\:0436\:0435\:0441\:0442\:0438", " ", "\:0432", " ", 
    "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
    "\:0421\:041a"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", 
   RowBox[{"fGn", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", 
      RowBox[{"-", 
       RowBox[{"fmg", "[", "t", "]"}]}], ",", " ", "0"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6602796313792205`*^9, 3.6602796354144516`*^9}, 
   3.7062535481184454`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "\:0421\:0438\:043b\:0430", " ", "\:0422\:044f\:0433\:0438", " ", "\:0432",
     " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043e\:0439", " ", 
    "\:0421\:041a"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"TableForm", "[", 
    RowBox[{"fPsv", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"fP", "[", "t", "]"}], ",", " ", "0", ",", " ", "0"}], "}"}]}],
     "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "  ", 
    RowBox[{
    "\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\
\:0441\:043a\:0430\:044f", " ", "\:0441\:0438\:043b\:0430", " ", "\:0432", 
     " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ",
      "\:0421\:041a"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"TableForm", "[", 
    RowBox[{"fRa", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"fRx", "[", "t", "]"}]}], ",", " ", 
       RowBox[{"fRy", "[", "t", "]"}], ",", " ", 
       RowBox[{"fRz", "[", "t", "]"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.6602291585302477`*^9, 3.660229195129341*^9, {3.7062535515986834`*^9, 
   3.7062535555423656`*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "\:0421\:0438\:043b\:044b", " ", "\:0432", " ", 
   "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
   "\:0421\:041a"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.6602289318422823`*^9, 3.660228940233762*^9}, {
  3.6602354566724806`*^9, 3.6602354577055397`*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"fG1", "=", 
   RowBox[{"mNormToSv", ".", "fGn"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.660228945336054*^9, 3.6602289506013546`*^9}, {
   3.6602298435294275`*^9, 3.6602298460495715`*^9}, {3.6602300577216787`*^9, 
   3.6602300578256845`*^9}, 3.6602354601456795`*^9, 3.706253558646113*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"fR1", "=", 
   RowBox[{
    RowBox[{"Transpose", "[", "mNormToSv", "]"}], ".", "fRa"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6602305563381977`*^9, 3.6602305650656967`*^9}, 
   3.706253562036871*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "\:0417\:0430\:043f\:0438\:0448\:0435\:043c", " ", 
    "\:043f\:0440\:043e\:0435\:043a\:0446\:0438\:0438", " ", 
    "\:0432\:0435\:043a\:0442\:043e\:0440\:0430", " ", 
    "\:043b\:0438\:043d\:0435\:0439\:043d\:043e\:0439", " ", "\:0438", " ", 
    "\:0443\:0433\:043b\:043e\:0432\:043e\:0439", " ", 
    "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:0432", " ", 
    "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
    "\:0421\:041a"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", " ", 
   RowBox[{"dV", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Vx", "[", "t", "]"}], ",", " ", 
      RowBox[{"Vy", "[", "t", "]"}], ",", " ", 
      RowBox[{"Vz", "[", "t", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{3.706253573911881*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", " ", 
  RowBox[{"ww", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"wx", "[", "t", "]"}], ",", " ", 
     RowBox[{"wy", "[", "t", "]"}], ",", " ", 
     RowBox[{"wz", "[", "t", "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.706253579357768*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", 
   RowBox[{"ldV", " ", "=", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"dV", ",", "t"}], "]"}], "+", 
     RowBox[{"Cross", "[", 
      RowBox[{"ww", ",", " ", "dV"}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.6602290063855457`*^9, 3.706253583338513*^9, {3.7063054449628267`*^9, 
   3.7063054455649543`*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"TableForm", "[", 
    RowBox[{"eq2", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"m", "*", 
         RowBox[{"ldV", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], " ", "\[Equal]", " ", 
        RowBox[{
         RowBox[{"fG1", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "+", 
         RowBox[{"fPsv", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "+", 
         RowBox[{"fRa", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.6602287509719367`*^9, 3.6602288000537443`*^9, {3.6602289390186925`*^9, 
   3.660228988050497*^9}, {3.6602290592905717`*^9, 3.660229066330974*^9}, {
   3.6602291195070157`*^9, 3.6602291198020325`*^9}, {3.660229175675228*^9, 
   3.660229176066251*^9}, {3.660229210635228*^9, 3.660229211114255*^9}, {
   3.6602296994341855`*^9, 3.6602297734424186`*^9}, {3.6602298048582153`*^9, 
   3.660229804954221*^9}, {3.660229851129862*^9, 3.6602298513788767`*^9}, {
   3.6602298865298867`*^9, 3.6602299096262083`*^9}, 3.6602300218346257`*^9, {
   3.6602300661301594`*^9, 3.6602300670512123`*^9}, 3.7062535890641775`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "\:0414\:0418\:041d\:0410\:041c\:0418\:0427\:0415\:0421\:041a\:0418\:0415",
     " ", "\:0423\:0420\:0410\:0412\:041d\:0415\:041d\:0418\:042f", " ", 
    "\:0414\:0412\:0418\:0416\:0415\:041d\:0418\:042f", " ", 
    "\:0412\:041e\:041a\:0420\:0423\:0413", " ", "\:0426\:041c"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:0421\:043e\:0441\:0442\:0430\:0432\:0438\:043c", " ", 
    "\:0442\:0435\:043d\:0437\:043e\:0440", " ", 
    "\:0438\:043d\:0435\:0440\:0446\:0438\:0438", " ", "\:0434\:043b\:044f", 
    " ", "\:041b\:0410", " ", 
    "\:0438\:043c\:0435\:044e\:0449\:0435\:0433\:043e", " ", 
    "\:0434\:0432\:0435", " ", 
    "\:043f\:043b\:043e\:0441\:043a\:043e\:0441\:0442\:0438", " ", 
    "\:0441\:0438\:043c\:043c\:0435\:0442\:0440\:0438\:0438"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"TableForm", "[", 
    RowBox[{"sJ", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"sJx", ",", " ", 
         RowBox[{"-", "sJxy"}], ",", " ", "0"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "sJxy"}], ",", " ", "sJy", ",", " ", "0"}], "}"}], ",", 
       " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "sJz"}], "}"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"TableForm", "[", 
    RowBox[{"dL", "=", 
     RowBox[{"sJ", ".", "ww"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", 
    RowBox[{"TableForm", "[", 
     RowBox[{"ldL", "=", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"dL", ",", " ", "t"}], "]"}], "+", 
       RowBox[{"Cross", "[", 
        RowBox[{"ww", ",", "dL"}], "]"}]}]}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"TableForm", "[", 
    RowBox[{"dM", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dMx", "[", "t", "]"}], ",", " ", 
       RowBox[{"dMy", "[", "t", "]"}], ",", " ", 
       RowBox[{"dMz", "[", "t", "]"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"TableForm", "[", " ", 
    RowBox[{"eq3", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{"ldL", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
         RowBox[{"dM", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7062535995660133`*^9, 3.7062536136341352`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "\:041a\:0418\:041d\:0415\:041c\:0410\:0422\:0418\:0427\:0415\:0421\:041a\
\:0418\:0415", " ", "\:0423\:0420\:0410\:0412\:041d\:0415\:041d\:0418\:042f", 
    " ", "\:0412\:0420\:0410\:0429\:0410\:0422\:0415\:041b\:042c\:041d\:041e\
\:0413\:041e", " ", "\:0414\:0412\:0418\:0416\:0415\:041d\:0418\:042f"}], " ",
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", " ", 
   RowBox[{"wn", " ", "=", " ", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\[Psi]", "[", "t", "]"}], ",", " ", 
        RowBox[{"\[CurlyTheta]", "[", "t", "]"}], ",", " ", 
        RowBox[{"\[Gamma]", "[", "t", "]"}]}], "}"}], ",", "t"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{3.7062536307422934`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
    "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:043e\:0442", 
    " ", "\:043d\:0435\:043f\:0440\:044f\:043c\:043e\:0443\:0433\:043e\:043b\
\:044c\:043d\:043e\:0439", " ", "\:043a", " ", 
    "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", 
   RowBox[{"mNprToSv", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], ",", "0", ",", 
        "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Cos", "[", 
          RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}], "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}]}], ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Cos", "[", 
           RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}], "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}]}], ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"Cos", "[", 
           RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "]"}]}], "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}]}], ",", 
        RowBox[{"cos", "[", 
         RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}]}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6602307172874036`*^9, 3.6602307312092*^9}, 
   3.660230963499486*^9, {3.660231015371453*^9, 3.6602310363616533`*^9}, 
   3.660236150042139*^9, 3.66023625321004*^9, 3.706253633997671*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"w", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"wx", "[", "t", "]"}], ",", " ", 
     RowBox[{"wy", "[", "t", "]"}], ",", 
     RowBox[{"wz", "[", "t", "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6602307431528826`*^9, 3.660230750721316*^9}, 
   3.6602361525292816`*^9, 3.7062536379300117`*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"w", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"mNprToSv", ".", "wn"}], ")"}], "[", 
      RowBox[{"[", "i", "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.660230755319579*^9, 3.660230755457587*^9}, {
   3.6602308600575695`*^9, 3.660230919089946*^9}, 3.6602361538573575`*^9, 
   3.706253641624453*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "\:041e\:0431\:0440\:0430\:0442\:043d\:0430\:044f", " ", 
    "\:0437\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:044c"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", " ", 
   RowBox[{"eq4", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"wn", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{"Simplify", "[", 
         RowBox[{"(", 
          RowBox[{"mNprToSv", ".", "w"}], ")"}], "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.660231089874714*^9, 3.660231095058011*^9}, 
   3.6602361549464197`*^9, 3.706253646925915*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:0413\:0435\:043e\:043c\:0435\:0442\:0440\:0438\:0447\:0435\:0441\:043a\
\:0430\:044f", " ", 
     "\:0437\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:044c", 
     " ", "\:043c\:0435\:0436\:0434\:0443", " ", 
     "\:0443\:0433\:043b\:0430\:043c\:0438", " ", "\[CapitalPsi]"}], ",", " ",
     "\[CapitalTheta]", ",", " ", 
    RowBox[{"\[Gamma]a", " ", "\:0438", " ", "\[Psi]"}], ",", " ", 
    "\[CurlyTheta]", ",", " ", "\[Gamma]", ",", " ", "\[Alpha]", ",", " ", 
    "\[Beta]"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
     "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:043e\:0442", 
     " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ",
      "\:043a", " ", 
     "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", 
     "\:0421\:041a"}], ",", " ", 
    RowBox[{
    "\:0447\:0435\:0440\:0435\:0437", " ", 
     "\:043f\:0435\:0440\:0435\:0445\:043e\:0434", " ", "\:043e\:0442", " ", 
     "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", 
     "\:043a", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", 
     " ", "\:0421\:041a", " ", "\:0438", " ", "\:043e\:0442", " ", 
     "\:0441\:0432\:0437\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", 
     "\:043a", " ", 
     "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", 
     "\:0421\:041a"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", " ", 
   RowBox[{"mNormToSk1", "=", 
    RowBox[{
     RowBox[{"Transpose", "[", "mNormToSv", "]"}], ".", "mNormToSv"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6602311174652925`*^9, 3.660231117761309*^9}, {
   3.6602312552101707`*^9, 3.6602312553691797`*^9}, 3.660236156578513*^9, 
   3.7062536705726986`*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", " ", 
  RowBox[{"en1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"mNormToSv", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"mNormToSv", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", 
     RowBox[{"mNormToSv", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.660231203320203*^9, 3.6602312036892242`*^9}, 
   3.6602363064010825`*^9, 3.7062536750732126`*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", " ", 
  RowBox[{"en2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"mNormToSk1", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"mNormToSk1", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "3"}], "]"}], "]"}], ",", 
     RowBox[{"mNormToSk1", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.660231214610849*^9, 3.660231244498558*^9}, 
   3.660236307657154*^9, 3.7062536787522783`*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"en1", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
     RowBox[{"en2", "[", 
      RowBox[{"[", "i", "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6602310930598965`*^9, 3.660231121058498*^9}, {
   3.6602312010360727`*^9, 3.660231217410009*^9}, 3.6602363090572343`*^9, 
   3.7062536828211823`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:0423\:0420\:0410\:0412\:041d\:0415\:041d\:0418\:042f", " ", 
    "\:0422\:042f\:0413\:0418", " ", 
    "\:0414\:0412\:0418\:0413\:0410\:0422\:0415\:041b\:042f"}], "  ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"dm", "=", 
   RowBox[{"m", "[", "t", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.660231335405758*^9, 3.660231348393501*^9}}],

Cell[BoxData[
 RowBox[{"q5", "=", 
  RowBox[{"mrtop", "[", "t", "]"}]}]], "Input",
 CellChangeTimes->{{3.660231341707118*^9, 3.6602313515376806`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{"dm", ",", "t"}], "]"}], "\[Equal]", 
  RowBox[{"-", 
   RowBox[{"Abs", "[", 
    RowBox[{"D", "[", 
     RowBox[{"q5", ",", "t"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6602313600861692`*^9, 3.6602313663705287`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SuperscriptBox["m", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{"-", 
   RowBox[{"Abs", "[", 
    RowBox[{
     SuperscriptBox["mrtop", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:0423\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", " ", 
    "\:0434\:043b\:044f", " ", "\:0447\:0438\:0441\:043b\:0430", " ", 
    "\:043c\:0430\:0445\:0430"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.706296124576926*^9, 3.7062961871983595`*^9}, {
  3.706296351150806*^9, 3.7062963623119416`*^9}, {3.7062964117654147`*^9, 
  3.7062964600148635`*^9}, {3.7062973422909603`*^9, 3.7062973470321054`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["m", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
   RowBox[{"-", 
    RowBox[{"Abs", "[", 
     RowBox[{
      SuperscriptBox["mrtop", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "]"}]}]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.7062980106728497`*^9, 3.7062980107278824`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
   "\:041e\:0411\:0429\:0418\:0415", " ", 
    "\:0423\:0420\:0410\:0412\:041d\:0415\:041d\:0418\:042f", " ", 
    "\:0414\:0412\:0418\:0416\:0415\:041d\:0418\:042f", " ", "\:041b\:0410"}],
    " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041e\:0431\:0449\:0438\:0435", " ", 
    "\:043d\:0435\:043b\:0438\:043d\:0435\:0439\:043d\:044b\:0435", " ", 
    "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f", " ", 
    "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{
  3.66023148720144*^9, {3.660282446805216*^9, 3.660282472660695*^9}, {
   3.6602841127745037`*^9, 3.660284121494003*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"eq0", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"eq1", ",", "eq2", ",", "eq3", ",", "eq4"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6602314923787365`*^9, 3.6602314969859996`*^9}, {
  3.660236387104698*^9, 3.660236388728791*^9}, {3.706253690057989*^9, 
  3.7062536970838532`*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"var", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["l", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["h", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["z", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["Vx", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["Vy", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["Vz", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["wx", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["wy", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["wz", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["\[Psi]", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["\[CurlyTheta]", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], ",", 
     RowBox[{
      SuperscriptBox["\[Gamma]", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.660231504203412*^9, 3.6602315044894285`*^9}, 
   3.6602318368034363`*^9, 3.6602363860576386`*^9, 3.706253704848941*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", "eq0", "]"}]], "Input",
 CellChangeTimes->{{3.660231511195812*^9, 3.6602315114168253`*^9}, 
   3.660236391224934*^9, {3.6602903287460375`*^9, 3.660290330579142*^9}, 
   3.706253711617581*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", "var", "]"}]], "Input",
 CellChangeTimes->{{3.6602315174211683`*^9, 3.6602315182092133`*^9}, 
   3.6602363927460213`*^9, {3.6602903186514597`*^9, 3.660290321870644*^9}, 
   3.706253717438579*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:041d\:043e\:0440\:0430\:043c\:043b\:044c\:043d\:0430\:044f", " ", 
    "\:0444\:043e\:0440\:043c\:0430", " ", "\:041a\:043e\:0448\:0438"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.6602823208470116`*^9, 3.660282333285723*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"eq00", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{"eq0", ",", " ", "var"}], "]"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6602315254416275`*^9, 3.660231525681641*^9}, 
   3.66023156149669*^9, {3.6602316191319857`*^9, 3.660231661602415*^9}, {
   3.6602317542577147`*^9, 3.6602317865945644`*^9}, 3.660231849545165*^9, 
   3.6602363942251053`*^9, {3.6602842092010193`*^9, 3.660284212410203*^9}, {
   3.66028429155873*^9, 3.6602843119358954`*^9}, {3.660284407242347*^9, 
   3.660284418125969*^9}, {3.6602855682727537`*^9, 3.6602855722539816`*^9}, {
   3.6602856158414745`*^9, 3.660285658713927*^9}, 3.660285715888197*^9, 
   3.7062537228868237`*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", "eq00", "]"}]], "Input",
 CellChangeTimes->{{3.66023187026635*^9, 3.6602318705133643`*^9}, 
   3.6602363957771945`*^9, {3.660285851914977*^9, 3.6602858538720894`*^9}, 
   3.7062537276945906`*^9}],

Cell[BoxData[
 RowBox[{"eq00", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6602318778477836`*^9, 3.660231883121085*^9}, 
   3.6602363969842634`*^9, {3.660285741726675*^9, 3.660285760037722*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"TableForm", "[", 
   RowBox[{"rt", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"eq00", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "eq00", "]"}]}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6602318991310015`*^9, 3.6602319104486485`*^9}, {
   3.660284384293034*^9, 3.6602843943236074`*^9}, 3.7062537324423914`*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.6602859511946554`*^9, {3.6602860443419833`*^9, 3.660286045748064*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"rt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"eq00", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "eq00", "]"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.660232200095215*^9, 3.660232201888318*^9}, 
   3.6602364022735662`*^9, 3.7062537373696394`*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"eq00", "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.660285966618538*^9, 3.6602859949041557`*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"eq000", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"eq00", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", 
      RowBox[{"eq00", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "eq00", "]"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.660232207711651*^9, 3.6602322078656597`*^9}, 
   3.6602364033776293`*^9, 3.70625374778681*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"ReplaceAll", "[", 
   RowBox[{"eq000", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Psi]", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
      RowBox[{
       RowBox[{"\[CurlyTheta]", "[", "t", "]"}], "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"\[Gamma]", "[", "t", "]"}], "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"Vx", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
      RowBox[{
       RowBox[{"Vy", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Vz", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", "t", "]"}], "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"\[Beta]", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", "t", "]"}], "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "\[Rule]", "0"}], ",", " ", 
      RowBox[{
       RowBox[{"wx", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
      RowBox[{
       RowBox[{"wy", "[", "t", "]"}], "\[Rule]", "0"}], ",", 
      RowBox[{
       RowBox[{"wz", "[", "t", "]"}], "\[Rule]", "0"}]}], "}"}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6602322139630084`*^9, 3.6602322141780205`*^9}, 
   3.660236404321683*^9, 3.6602364521774206`*^9, 3.7062537529784217`*^9}],

Cell[BoxData[
 RowBox[{"(*", "  ", 
  RowBox[{
  "\:041e\:041f\:0420\:0415\:0414\:0415\:041b\:0418\:041c", " ", 
   "\:041a\:041e\:042d\:0424\:0424\:0418\:0426\:0418\:0415\:041d\:0422\:042b",
    " ", "\:041b\:0418\:041d\:0415\:0419\:041d\:041e\:0419", " ", 
   "\:041c\:041e\:0414\:0415\:041b\:0418"}], " ", "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"eq11", ":=", " ", 
   RowBox[{"ReplaceAll", "[", 
    RowBox[{"eq000", ",", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"fP", "[", "t", "]"}], "->", 
        RowBox[{"fP", "[", 
         RowBox[{
          RowBox[{"mah", "[", "t", "]"}], ",", 
          RowBox[{"\[Delta]Pdv", "[", "t", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"fX", "[", "t", "]"}], "->", 
        RowBox[{"fX", "[", 
         RowBox[{
          RowBox[{"\[Alpha]", "[", "t", "]"}], ",", 
          RowBox[{"mah", "[", "t", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"fY", "[", "t", "]"}], "->", 
        RowBox[{"fY", "[", 
         RowBox[{"\[Alpha]", "[", "t", "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"fZ", "[", "t", "]"}], "->", 
        RowBox[{"fZ", "[", 
         RowBox[{
          RowBox[{"\[Beta]", "[", "t", "]"}], ",", 
          RowBox[{"mah", "[", "t", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"dMx", "[", "t", "]"}], "->", 
        RowBox[{"dMx", "[", 
         RowBox[{
          RowBox[{"\[Beta]", "[", "t", "]"}], ",", 
          RowBox[{"\[Delta]E", "[", "t", "]"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"dMy", "[", "t", "]"}], "->", 
        RowBox[{"dMy", "[", 
         RowBox[{"\[Delta]H", "[", "t", "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"dMz", "[", "t", "]"}], "->", 
        RowBox[{"dMz", "[", 
         RowBox[{
          RowBox[{"\[Delta]B", "[", "t", "]"}], ",", 
          RowBox[{"\[Alpha]", "[", "t", "]"}]}], "]"}]}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.660232229620904*^9, 3.6602322298099146`*^9}, 
   3.6602322820999055`*^9, {3.660286956885178*^9, 3.6602869624384956`*^9}, {
   3.6602878504432864`*^9, 3.6602878909416027`*^9}, {3.660290113885748*^9, 
   3.660290118199995*^9}, {3.6602903867283535`*^9, 3.6602903914506235`*^9}, {
   3.660290667894436*^9, 3.66029076606005*^9}, {3.660290818298038*^9, 
   3.6602908184960494`*^9}, {3.6602909138375025`*^9, 
   3.6602909334606247`*^9}, {3.6602910034186263`*^9, 3.660291020164584*^9}, {
   3.6602910852093043`*^9, 3.6602911594405503`*^9}, {3.660291191221368*^9, 
   3.6602911920754166`*^9}, {3.7062955040590568`*^9, 3.706295522300845*^9}, {
   3.7062972558432326`*^9, 3.706297264687419*^9}, {3.706297393486528*^9, 
   3.7062973987267447`*^9}, {3.706297462608674*^9, 3.7062975301875486`*^9}, {
   3.706297666905116*^9, 3.7062977690560083`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", "eq11", "]"}]], "Input",
 CellChangeTimes->{{3.7062538433392005`*^9, 3.7062538440857506`*^9}, {
  3.706253876111697*^9, 3.7062538852122655`*^9}, {3.7062618033471794`*^9, 
  3.7062618101296926`*^9}}],

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

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.706253871240761*^9, 3.706253871252759*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7062538565797057`*^9, 3.7062538723686905`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"rt1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"eq11", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "eq11", "]"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6602323648106365`*^9, 3.6602323650336494`*^9}, 
   3.6602364980890465`*^9, 3.7062618235440855`*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"lt1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"l", "[", "t", "]"}], ",", 
     RowBox[{"h", "[", "t", "]"}], ",", 
     RowBox[{"z", "[", "t", "]"}], ",", 
     RowBox[{"Vx", "[", "t", "]"}], ",", 
     RowBox[{"Vy", "[", "t", "]"}], ",", 
     RowBox[{"Vz", "[", "t", "]"}], ",", 
     RowBox[{"wx", "[", "t", "]"}], ",", 
     RowBox[{"wy", "[", "t", "]"}], ",", 
     RowBox[{"wz", "[", "t", "]"}], ",", 
     RowBox[{"\[Psi]", "[", "t", "]"}], ",", 
     RowBox[{"\[CurlyTheta]", "[", "t", "]"}], ",", 
     RowBox[{"\[Gamma]", "[", "t", "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6602323718260374`*^9, 3.6602323720660515`*^9}, 
   3.6602364990501013`*^9, 3.706261828705346*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"krt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"rt1", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"lt1", "[", 
        RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "rt1", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "lt1", "]"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6602863036998177`*^9, 3.660286305965947*^9}, {
  3.660287415129388*^9, 3.6602874196336455`*^9}, {3.7062618344555516`*^9, 
  3.7062618351763086`*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Print", "[", 
   RowBox[{"krt", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", "7"}], "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.660287431390318*^9, 3.66028744297198*^9}, {
  3.6602875238326054`*^9, 3.6602875300409603`*^9}, {3.6602875818419237`*^9, 
  3.660287608642456*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"ult", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Delta]B", "[", "t", "]"}], ",", 
     RowBox[{"\[Delta]H", "[", "t", "]"}], ",", 
     RowBox[{"\[Delta]E", "[", "t", "]"}], ",", 
     RowBox[{"\[Delta]Pdv", "[", "t", "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6602324067210336`*^9, 3.6602324070500526`*^9}, 
   3.660236500633192*^9, 3.7062618704493375`*^9}],

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{"k", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"rt1", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"ult", "[", 
        RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "rt1", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "ult", "]"}]}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6602324129593906`*^9, 3.6602324131133995`*^9}, 
   3.660236501858262*^9, {3.6602831932049074`*^9, 3.660283215205166*^9}, {
   3.6602834428831882`*^9, 3.6602834430641985`*^9}, {3.660283728098502*^9, 
   3.660283728953551*^9}, {3.6602852145235205`*^9, 3.6602852347676783`*^9}, {
   3.6602854600245624`*^9, 3.6602854629317284`*^9}, 3.660285540536167*^9, {
   3.6602863412649665`*^9, 3.660286344266138*^9}, {3.6602864407656574`*^9, 
   3.660286454937468*^9}, {3.660287183086116*^9, 3.6602871834231353`*^9}, {
   3.6602893439537106`*^9, 3.66028934639685*^9}, 3.7062618768451843`*^9}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<u(\>\"", ",", "i", ",", "\"\<,\>\"", ",", "j", ",", "\"\<)=\>\"", 
     ",", 
     RowBox[{"k", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "i"}], "]"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "1", ",", "12"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6602891224360404`*^9, 3.660289211320124*^9}, {
   3.660289288659548*^9, 3.6602893040934305`*^9}, 3.6602893671550374`*^9, 
   3.6602894120166035`*^9, 3.7062618815332565`*^9}]
},
CellGrouping->Manual,
WindowSize->{1366, 685},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowCellLabel->False,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 3676, 76, 232, "Input"],
Cell[4237, 98, 987, 26, 52, "Input"],
Cell[5227, 126, 1029, 28, 72, "Input"],
Cell[6259, 156, 995, 26, 72, "Input"],
Cell[7257, 184, 749, 17, 92, "Input"],
Cell[8009, 203, 1924, 43, 92, "Input"],
Cell[9936, 248, 1451, 31, 92, "Input"],
Cell[11390, 281, 1371, 30, 92, "Input"],
Cell[12764, 313, 1680, 37, 72, "Input"],
Cell[14447, 352, 45, 0, 52, "Input"],
Cell[14495, 354, 3741, 94, 212, "Input"],
Cell[18239, 450, 45, 0, 52, "Input"],
Cell[18287, 452, 923, 22, 72, "Input"],
Cell[19213, 476, 1262, 30, 112, "Input"],
Cell[20478, 508, 328, 7, 31, "Input"],
Cell[20809, 517, 343, 6, 31, "Input"],
Cell[21155, 525, 258, 7, 31, "Input"],
Cell[21416, 534, 872, 19, 52, "Input"],
Cell[22291, 555, 308, 8, 31, "Input"],
Cell[22602, 565, 405, 11, 52, "Input"],
Cell[23010, 578, 1322, 29, 72, "Input"],
Cell[24335, 609, 2572, 68, 152, "Input"],
Cell[26910, 679, 805, 19, 52, "Input"],
Cell[27718, 700, 2052, 52, 72, "Input"],
Cell[29773, 754, 365, 9, 31, "Input"],
Cell[30141, 765, 558, 15, 31, "Input"],
Cell[30702, 782, 828, 22, 52, "Input"],
Cell[31533, 806, 1931, 40, 72, "Input"],
Cell[33467, 848, 553, 15, 31, "Input"],
Cell[34023, 865, 552, 15, 31, "Input"],
Cell[34578, 882, 503, 13, 31, "Input"],
Cell[35084, 897, 402, 10, 52, "Input"],
Cell[35489, 909, 150, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[35664, 916, 285, 8, 31, "Input"],
Cell[CellGroupData[{
Cell[35974, 928, 777, 19, 52, "Input"],
Cell[36754, 949, 410, 12, 52, "Input"]
}, Open  ]]
}, Open  ]],
Cell[37191, 965, 737, 17, 52, "Input"],
Cell[37931, 984, 345, 8, 31, "Input"],
Cell[38279, 994, 1584, 42, 31, "Input"],
Cell[39866, 1038, 232, 4, 31, "Input"],
Cell[40101, 1044, 236, 4, 31, "Input"],
Cell[40340, 1050, 323, 7, 52, "Input"],
Cell[40666, 1059, 777, 14, 31, "Input"],
Cell[41446, 1075, 236, 4, 31, "Input"],
Cell[41685, 1081, 222, 4, 31, "Input"],
Cell[41910, 1087, 532, 14, 52, "Input"],
Cell[42445, 1103, 121, 2, 31, "Input"],
Cell[42569, 1107, 458, 13, 31, "Input"],
Cell[43030, 1122, 210, 5, 52, "Input"],
Cell[43243, 1129, 588, 17, 31, "Input"],
Cell[43834, 1148, 1422, 35, 52, "Input"],
Cell[45259, 1185, 326, 6, 31, "Input"],
Cell[45588, 1193, 2689, 63, 192, "Input"],
Cell[CellGroupData[{
Cell[48302, 1260, 239, 4, 31, "Input"],
Cell[48544, 1266, 96, 1, 31, "Input"],
Cell[48643, 1269, 92, 1, 31, "Input"],
Cell[48738, 1272, 96, 1, 31, "Input"]
}, Open  ]],
Cell[48849, 1276, 463, 13, 31, "Input"],
Cell[49315, 1291, 758, 18, 31, "Input"],
Cell[50076, 1311, 722, 20, 31, "Input"],
Cell[50801, 1333, 345, 8, 52, "Input"],
Cell[51149, 1343, 434, 10, 31, "Input"],
Cell[51586, 1355, 1149, 25, 31, "Input"],
Cell[52738, 1382, 627, 16, 31, "Input"]
}
]
*)

(* End of internal cache information *)