(* 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[ 429545, 11439] NotebookOptionsPosition[ 416978, 11013] NotebookOutlinePosition[ 417322, 11028] CellTagsIndexPosition[ 417279, 11025] 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", CellChangeTimes->{{3.4964223859290233`*^9, 3.496422441451199*^9}, { 3.496422514102354*^9, 3.4964225156204414`*^9}, {3.496422556601785*^9, 3.496422568910489*^9}, {3.4964270720950565`*^9, 3.496427248697158*^9}, { 3.496427412645535*^9, 3.4964274323866644`*^9}, {3.4964275151103954`*^9, 3.4964275223358088`*^9}, {3.4964276114889083`*^9, 3.4964276119689355`*^9}, {3.4964277249904003`*^9, 3.49642782096789*^9}, { 3.496428617357441*^9, 3.4964286488232403`*^9}, {3.4964289789451222`*^9, 3.496429013386092*^9}, 3.49642958138958*^9, {3.4975856138554587`*^9, 3.497585636163498*^9}, 3.497588524348574*^9, 3.497591868033391*^9, { 3.4981973509964037`*^9, 3.498197351829451*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"M1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "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", CellChangeTimes->{{3.4975855745277896`*^9, 3.497585575338991*^9}, 3.4975856759903708`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.50031853585757*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"M2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], ",", "0", ",", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], ",", "0", ",", RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "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", CellChangeTimes->{{3.4975857196704473`*^9, 3.497585725052457*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], "0", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}, {"0", "1", "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185359405746`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"M", "=", 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", CellChangeTimes->{{3.497585747329296*^9, 3.4975857579529147`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}, { RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], "0"}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318535978577*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"ReplaceAll", "[", RowBox[{"M", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"BPsi", "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Bteta", "[", "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", CellChangeTimes->{{3.497585808185003*^9, 3.4975858125530105`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185360245795`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MM1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], ",", "0", ",", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], ",", "0", ",", RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "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"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497585868011108*^9, 3.4975858690095096`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], "0", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}, {"0", "1", "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318536098584*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MM2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "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"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975858784163265`*^9, 3.497585902362368*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185361395864`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MM3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "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"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497585920864001*^9, 3.4975859218312025`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}]}, {"0", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318536174588*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MM", "=", 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", CellChangeTimes->{{3.497585956276063*^9, 3.497585957477265*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}]}, { RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.50031853620759*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.4975860746594715`*^9, 3.497586076203874*^9}, { 3.500196391583495*^9, 3.5001963937136173`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185362435923`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"SM2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], ",", "0", ",", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], ",", "0", ",", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "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", CellChangeTimes->{{3.497586102879921*^9, 3.497586103893923*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], "0", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}, {"0", "1", "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185362825947`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"SM", "=", 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", CellChangeTimes->{{3.4975861303983693`*^9, 3.4975861317399716`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}]}], RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]}]}, { RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], "0", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185363185964`*^9}] }, Open ]], Cell[TextData[StyleBox["\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\ \:0435\:0441\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\ \:0438\:044f \:043f\:043e\:0441\:0442\:0443\:043f\:0430\:0442\:0435\:043b\ \:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\ \:044f", FontSize->36, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.4975865797415586`*^9, 3.4975865934071827`*^9}, 3.4975885334901905`*^9, 3.4975918722576327`*^9}], Cell[CellGroupData[{ Cell[BoxData[ 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", CellChangeTimes->{{3.4975865978531904`*^9, 3.497586611596814*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"L", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}], ",", RowBox[{"dZ", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.500318536352598*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.497586627290442*^9, 3.497586639052863*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"vgx", "[", "t", "]"}], ",", RowBox[{"vdy", "[", "t", "]"}], ",", RowBox[{"vgz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5003185363886003`*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.4975866526248865`*^9, 3.497586653748089*^9}}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[Equal]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"vgx", "[", "t", "]"}]}, { RowBox[{"vdy", "[", "t", "]"}]}, { RowBox[{"vgz", "[", "t", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]], "Output", CellChangeTimes->{3.500318536432603*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.4975866786301327`*^9, 3.497586679597334*^9}, { 3.4975949269213495`*^9, 3.497594928786456*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"vk", "[", "t", "]"}]}, {"0"}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185364626045`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"vg", "=", RowBox[{"M", ".", "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", CellChangeTimes->{{3.4975866854161444`*^9, 3.4975867008757715`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185364946065`*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.4975867435886464`*^9, 3.4975867445714483`*^9}}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[Equal]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]], "Output", CellChangeTimes->{3.500318536530609*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukpd1", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{"vg", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497586747972254*^9, 3.4975867484402547`*^9}, { 3.4975867910595293`*^9, 3.497586816362774*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.5003185365626106`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukpd2", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{"vg", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497586828187595*^9, 3.497586838343213*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.5003185365976124`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukpd3", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{"vg", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.49758684244602*^9, 3.4975868521492367`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.5003185366296144`*^9}] }, Open ]], Cell[TextData[StyleBox["\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\ \:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \ \:043f\:043e\:0441\:0442\:0443\:043f\:0430\:0442\:0435\:043b\:044c\:043d\:043e\ \:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", FontSize->36, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.497586871571271*^9, 3.497586886360097*^9}, 3.497588536719396*^9, 3.4975918746797714`*^9}], Cell[CellGroupData[{ Cell[BoxData[ 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", CellChangeTimes->{{3.4975869047369294`*^9, 3.4975869127241435`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5003185366626163`*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.497586936732586*^9, 3.497586938198988*^9}, { 3.497598985694498*^9, 3.497599008476801*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]], "Output", CellChangeTimes->{3.500318536691618*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.497586955577419*^9, 3.4975869566538205`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.50031853672562*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.497586961287029*^9, 3.497586961645829*^9}, { 3.4975870859000473`*^9, 3.4975871127944946`*^9}}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}, { RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}, { RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[Equal]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"fx"}, {"fy"}, {"fz"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}]], "Output", CellChangeTimes->{3.5003185367596216`*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.497587158346575*^9, 3.4975872255514927`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fx"}]], "Output", CellChangeTimes->{3.5003185367926235`*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.4975872367367125`*^9, 3.497587247251131*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fy"}]], "Output", CellChangeTimes->{3.5003185368256254`*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.497587250839137*^9, 3.497587262242757*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fz"}]], "Output", CellChangeTimes->{3.5003185368566275`*^9}] }, Open ]], Cell[TextData[StyleBox["\:041a\:0438\:043d\:0435\:043c\:0430\:0442\:0438\:0447\ \:0435\:0441\:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\ \:0438\:044f \:0432\:0440\:0430\:0449\:0430\:0442\:0435\:043b\:044c\:043d\ \:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", FontSize->36, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.497587293021611*^9, 3.497587305735634*^9}, 3.4975885385601993`*^9, 3.497591876629883*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"proekc", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"LGamma", "[", "t", "]"}], ",", "t"}], "]"}], ",", "0", ",", "0"}], "}"}], "+", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"MM2", ".", "MM3"}], "]"}], ".", RowBox[{"{", RowBox[{"0", ",", RowBox[{"D", "[", RowBox[{ RowBox[{"LPsi", "[", "t", "]"}], ",", "t"}], "]"}], ",", "0"}], "}"}]}], "+", RowBox[{ RowBox[{"Transpose", "[", "MM3", "]"}], ".", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"D", "[", RowBox[{ RowBox[{"LTeta", "[", "t", "]"}], ",", "t"}], "]"}]}], "}"}]}], " ", 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", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}]}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.497587314456049*^9, 3.497587333722083*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.5003185368906293`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukvd1", "=", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"proekc", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4975873614433317`*^9, 3.4975873621609325`*^9}, { 3.497587394203389*^9, 3.4975874210510364`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wx", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.500318536950633*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukvd2", "=", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", RowBox[{"proekc", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4975874306918535`*^9, 3.4975874397710695`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wy", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.500318536988635*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ukvd3", "=", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", RowBox[{"proekc", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497587445402679*^9, 3.4975874553086967`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wz", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.500318537023637*^9}] }, Open ]], Cell[TextData[StyleBox["\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\ \:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \ \:0432\:0440\:0430\:0449\:0430\:0442\:0435\:043b\:044c\:043d\:043e\:0433\:043e\ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", FontSize->36, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.497587484622348*^9, 3.4975875020163784`*^9}, 3.497588540697403*^9, 3.4975918781949725`*^9}], Cell[CellGroupData[{ Cell[BoxData[ 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", CellChangeTimes->{{3.4975875047619834`*^9, 3.4975875185680075`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Ixx", RowBox[{"-", "Ixy"}], RowBox[{"-", "Ixz"}]}, { RowBox[{"-", "Iyx"}], "Iyy", RowBox[{"-", "Iyz"}]}, { RowBox[{"-", "Izx"}], RowBox[{"-", "Izy"}], "Izz"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318537057639*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.4975875343864355`*^9, 3.4975875353224373`*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.5003185370856404`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Iyx", "=", "Ixy"}]], "Input", CellChangeTimes->{{3.497587556834875*^9, 3.4975875683476954`*^9}}], Cell[BoxData["Ixy"], "Output", CellChangeTimes->{3.500318537115642*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "TI", "]"}]], "Input", CellChangeTimes->{{3.4975875883313303`*^9, 3.4975875892049313`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Ixx", RowBox[{"-", "Ixy"}], "0"}, { RowBox[{"-", "Ixy"}], "Iyy", "0"}, {"0", "0", "Izz"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185371456437`*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.49758760528856*^9, 3.4975876064897623`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}]}]}, { RowBox[{"Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318537171645*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.497587624102193*^9, 3.497587643352627*^9}, { 3.4975990178283362`*^9, 3.4975990337062445`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"Mx", ",", "My", ",", "Mz"}], "}"}]], "Output", CellChangeTimes->{3.500318537201647*^9}] }, Open ]], Cell[CellGroupData[{ 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", CellChangeTimes->{{3.497587684006298*^9, 3.4975877116963468`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.5003185372346487`*^9}] }, Open ]], Cell["\<\ \:041f\:043e\:043b\:043d\:0430\:044f \:043f\:0440\:043e\:0438\:0437\:0432\ \:043e\:0434\:043d\:0430\:044f \:0433\:043b\:0430\:0432\:043d\:043e\:0433\ \:043e \:0432\:0435\:043a\:0442\:043e\:0440\:0430 \:043c\:043e\:043c\:0435\ \:043d\:0442\:0430 \:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432 \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0440\:0430\:0432\:043d\ \:0430 \:0433\:043b\:0430\:0432\:043d\:043e\:043c\:0443 \:043c\:043e\:043c\ \:0435\:043d\:0442\:0443 \:0432\:043d\:0435\:0448\:043d\:0438\:0445 \:0441\ \:0438\:043b, \:0434\:0435\:0439\:0441\:0442\:0432\:0443\:044e\:0449\:0438\ \:0445 \:043d\:0430 \:0442\:0435\:043b\:043e.\ \>", "Text", CellChangeTimes->{{3.497587731243181*^9, 3.4975877421788006`*^9}, 3.4975885477954154`*^9, 3.497591881210145*^9, {3.4981973432989635`*^9, 3.4981973438329935`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"udvd1", "=", RowBox[{ RowBox[{"lchudvd", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4975877461880074`*^9, 3.4975877801180673`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "Mx"}]], "Output", CellChangeTimes->{3.5003185372626505`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"udvd2", "=", RowBox[{ RowBox[{"lchudvd", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497587804064109*^9, 3.49758781606053*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "My"}]], "Output", CellChangeTimes->{3.5003185372946525`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"udvd3", "=", RowBox[{ RowBox[{"lchudvd", "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497587823985344*^9, 3.4975878333609605`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "Mz"}]], "Output", CellChangeTimes->{3.500318537327654*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"polnsyst", "=", RowBox[{"{", RowBox[{ "ukpd1", ",", "ukpd2", ",", "ukpd3", ",", "udpd1", ",", "udpd2", ",", "udpd3", ",", "ukvd1", ",", "ukvd2", ",", "ukvd3", ",", "udvd1", ",", "udvd2", ",", "udvd3"}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041f\:043e\:043b\:043d\:0430\:044f", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0430", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:041b\:0410"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975879099726954`*^9, 3.4975880393437223`*^9}, { 3.4975880725717807`*^9, 3.497588096439823*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fx"}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fy"}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", "fz"}]}, { RowBox[{ RowBox[{"wx", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wy", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wz", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "Mx"}]}, { RowBox[{ RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "My"}]}, { RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", "Mz"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318537363656*^9}] }, Open ]], Cell[TextData[StyleBox["\:0423\:0442\:043e\:0447\:043d\:0438\:043c \:0437\ \:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\:0442\:0438 \:0434\:043b\ \:044f \:0441\:0438\:043b \:0438 \:043c\:043e\:043c\:0435\:043d\:0442\:043e\ \:0432", FontSize->18, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.497600305575991*^9, 3.497600306522045*^9}, { 3.49760039017583*^9, 3.4976004402396936`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], ",", RowBox[{"Alpha", "[", "t", "]"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], "-", "Alpha0"}], ")"}], " ", RowBox[{"(*", RowBox[{ "\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442", " ", "\:043f\:043e\:0434\:044a\:0451\:043c\:043d\:043e\:0439", " ", "\:0441\:0438\:043b\:044b"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.4975991577233377`*^9, 3.4975991780475*^9}, { 3.4976005136688933`*^9, 3.497600533351019*^9}, {3.4976006044280844`*^9, 3.4976006047381024`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}]], "Output", CellChangeTimes->{3.500318537399658*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lyambda", "=", RowBox[{ RowBox[{"(", RowBox[{"l", "^", "2"}], ")"}], "/", "S"}], " ", RowBox[{"(*", RowBox[{ "\:041e\:0442\:043d\:043e\:0441\:0438\:0442\:0435\:043b\:044c\:043d\:043e\ \:0435", " ", "\:0443\:0434\:043b\:0438\:043d\:0435\:043d\:0438\:0435", " ", "\:043a\:0440\:044b\:043b\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975991906462207`*^9, 3.4975992088042593`*^9}, { 3.497600663477462*^9, 3.4976006812194767`*^9}}], Cell[BoxData[ FractionBox[ SuperscriptBox["l", "2"], "S"]], "Output", CellChangeTimes->{3.5003185374346604`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cx", "=", RowBox[{"Cx0", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "^", "2"}], ")"}], "/", RowBox[{"(", RowBox[{"lyambda", "*", "Pi"}], ")"}]}], " ", RowBox[{"(*", RowBox[{ "\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442", " ", "\:0441\:0438\:043b\:044b", " ", "\:043b\:043e\:0431\:043e\:0432\:043e\:0433\:043e", " ", "\:0441\:043e\:043f\:0440\:043e\:0442\:0438\:0432\:043b\:0435\:043d\:0438\ \:044f"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.497599212898494*^9, 3.4975992231420794`*^9}, { 3.4976006112634754`*^9, 3.497600626936372*^9}, {3.497630054132078*^9, 3.4976300602564282`*^9}}], Cell[BoxData[ RowBox[{"Cx0", "+", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}]], "Output", CellChangeTimes->{3.5003185374736624`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"vk", "[", "t", "]"}], ")"}], "^", "2"}]}], ")"}], "/", "2"}], " ", RowBox[{"(*", RowBox[{ "\:0421\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", "\:043d\:0430\:043f\:043e\:0440"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975992278863506`*^9, 3.4975992500866203`*^9}, { 3.4976008624668436`*^9, 3.497600873638482*^9}}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]], "Output", CellChangeTimes->{3.5003185375036645`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Maer", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s", "*", "l"}], ",", RowBox[{ RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s", "*", "l"}], ",", RowBox[{ RowBox[{"kmz", "[", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", "t"}], "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s", "*", "ba"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\ \:0441\:043a\:0438\:0439", " ", "\:043c\:043e\:043c\:0435\:043d\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497599252372751*^9, 3.4975992689537*^9}, { 3.4975996393918877`*^9, 3.4975996416660175`*^9}, {3.497631684209313*^9, 3.4976316914417267`*^9}, {3.4976318215831704`*^9, 3.4976318355919714`*^9}, { 3.4976321594094925`*^9, 3.497632160889578*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], ",", RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], ",", RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}], "}"}]], "Output", CellChangeTimes->{3.500318537539666*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"faer", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "Cx"}], "*", "q", "*", "s"}], ",", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s"}], ",", RowBox[{ RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s"}]}], "}"}], " ", 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", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975992774281845`*^9, 3.4975992898668957`*^9}, { 3.4975996475543547`*^9, 3.497599647931376*^9}, {3.497633489397564*^9, 3.497633491926708*^9}, {3.497633566389968*^9, 3.4976335947475896`*^9}, 3.497634057808075*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}], "}"}]], "Output", CellChangeTimes->{3.5003185375736685`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"faersv", "=", RowBox[{"SM", ".", "faer"}]}], "]"}], RowBox[{"(*", RowBox[{ "\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\ \:0441\:043a\:0430\:044f", " ", "\:0441\:0438\:043b\:0430", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4976337675464735`*^9, 3.4976338336632547`*^9}, { 3.497633869195287*^9, 3.497633882677058*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318537650673*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Gsv", "=", RowBox[{ RowBox[{"Transpose", "[", "MM", "]"}], ".", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "G"}], ",", "0"}], "}"}]}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0421\:0438\:043b\:0430", " ", "\:0442\:044f\:0436\:0435\:0441\:0442\:0438", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4976346480768366`*^9, 3.497634648694872*^9}, { 3.497635502173688*^9, 3.497635557163833*^9}, {3.49763559067675*^9, 3.497635637043402*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}]}, { RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318537691675*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mx", "=", RowBox[{"Maer", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.497599697097188*^9, 3.4975997207445407`*^9}, 3.4976318518559017`*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]], "Output", CellChangeTimes->{3.5003185377286773`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"My", "=", RowBox[{"Maer", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4975997313221455`*^9, 3.4975997419277525`*^9}, 3.497631854434049*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]], "Output", CellChangeTimes->{3.500318537764679*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mz", "=", RowBox[{ RowBox[{"Maer", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{ RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], "*", "yp", "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.4975997524553547`*^9, 3.497599760986842*^9}, { 3.4976318576812353`*^9, 3.4976318603493876`*^9}, {3.497632985522744*^9, 3.497632988280902*^9}, {3.497633029105237*^9, 3.497633099148243*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "yp"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}]], "Output", CellChangeTimes->{3.500318537800681*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fx", "=", RowBox[{ RowBox[{"faersv", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Gsv", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.497599771100421*^9, 3.497599790104508*^9}, { 3.497635700736045*^9, 3.4976357440795245`*^9}, {3.4976357917792525`*^9, 3.4976357928873158`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.5003185378366833`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fy", "=", RowBox[{ RowBox[{"faersv", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Gsv", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{ RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], "*", RowBox[{"Sin", "[", "fip", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.4975997993640375`*^9, 3.4975998205822515`*^9}, { 3.497635769682989*^9, 3.497635774988292*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "fip", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.500318537870685*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fz", "=", RowBox[{ RowBox[{"faersv", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"Gsv", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4975998151999435`*^9, 3.4975998331629705`*^9}, { 3.4976358071431313`*^9, 3.4976358181837626`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.500318537904687*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"polnsystut", "=", RowBox[{"{", RowBox[{ "ukpd1", ",", "ukpd2", ",", "ukpd3", ",", "udpd1", ",", "udpd2", ",", "udpd3", ",", "ukvd1", ",", "ukvd2", ",", "ukvd3", ",", "udvd1", ",", "udvd2", ",", "udvd3"}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0423\:0442\:043e\:0447\:043d\:0435\:043d\:043d\:0430\:044f", " ", "\:043f\:043e\:043b\:043d\:0430\:044f", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0430", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:041b\:0410"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975998846329145`*^9, 3.4975998918743286`*^9}, { 3.4976367696301823`*^9, 3.4976368267394485`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "fip", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]}]}, { RowBox[{ RowBox[{"massa", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}]}]}, { RowBox[{ RowBox[{"wx", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wy", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wz", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}]}, { RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "yp"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185379816914`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vektorsost", "=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"R", ",", "v", ",", "w", ",", RowBox[{"{", RowBox[{ RowBox[{"LPsi", "[", "t", "]"}], ",", RowBox[{"LTeta", "[", "t", "]"}], ",", RowBox[{"LGamma", "[", "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", CellChangeTimes->{{3.4975881345350895`*^9, 3.49758818049277*^9}, { 3.497588237885271*^9, 3.4975883031401854`*^9}, {3.4975883656650953`*^9, 3.497588399392355*^9}, {3.497588932015461*^9, 3.497588942915084*^9}, { 3.4975889905478086`*^9, 3.49758903288223*^9}, {3.4975891226773663`*^9, 3.49758914041438*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"L", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}], ",", RowBox[{"dZ", "[", "t", "]"}], ",", RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{"LPsi", "[", "t", "]"}], ",", RowBox[{"LTeta", "[", "t", "]"}], ",", RowBox[{"LGamma", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5003185380156937`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"SystFK", "=", RowBox[{"Flatten", "[", RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{"polnsystut", ",", RowBox[{"D", "[", RowBox[{"vektorsost", ",", "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", CellChangeTimes->{{3.4975891496489086`*^9, 3.497589294773209*^9}, { 3.4975894013893075`*^9, 3.4975894152891026`*^9}, {3.4975894973097935`*^9, 3.4975896246110744`*^9}, {3.4975999110824275`*^9, 3.4975999117124634`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", "G", " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", "massa", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"2", " ", "massa", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "fip", "]"}]}], "-", RowBox[{"s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "-", RowBox[{"2", " ", "massa", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "massa", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}], RowBox[{"2", " ", "massa"}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"massa", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"massa", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], "massa"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Ixx", "2"], "+", SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Izz"}]}], ")"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "yp"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}]}], "Izz"]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{"wx", "[", "t", "]"}], "+", RowBox[{ RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318544875086*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"systema", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"SystFK", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"SystFK", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0421\:0438\:0441\:0442\:0435\:043c\:0430", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:041b\:0410", " ", "\:0432", " ", "\:0444\:043e\:0440\:043c\:0435", " ", "\:041a\:043e\:0448\:0438"}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975896281352763`*^9, 3.4975897694793606`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["L", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Cos", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["H", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Sin", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["dZ", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"Bteta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"BPsi", "[", "t", "]"}], "]"}], " ", RowBox[{"vk", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", "G", " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", "massa", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"2", " ", "massa", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"2", " ", "G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "fip", "]"}]}], "-", RowBox[{"s", " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "-", RowBox[{"2", " ", "massa", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "massa", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}], RowBox[{"2", " ", "massa"}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"massa", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"massa", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], "massa"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Ixx", "2"], "+", SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Izz"}]}], ")"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "yp"}], " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"P", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "+", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}]}], "Izz"]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LPsi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LTeta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["LGamma", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"wx", "[", "t", "]"}], "+", RowBox[{ RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185449550905`*^9}] }, Open ]], Cell[TextData[{ StyleBox["\:041f\:0440\:0435\:0434\:0441\:0442\:0430\:0432\:0438\:043c \ \:043d\:0435\:043b\:0438\:043d\:0435\:0439\:043d\:0443\:044e \:043d\:0435\ \:0441\:0442\:0430\:0446\:0438\:043e\:043d\:0430\:0440\:043d\:0443\:044e \ \:043c\:043e\:0434\:0435\:043b\:044c \:0434\:0432\:0438\:0436\:0435\:043d\ \:0438\:044f \:041b\:0410 \:0432 \:043c\:0430\:0442\:0440\:0438\:0447\:043d\ \:043e\:043c \:0432\:0438\:0434\:0435 ", FontSize->18, FontWeight->"Bold"], Cell[BoxData[ FormBox[ OverscriptBox["X", "\[CenterDot]"], TraditionalForm]], FontSize->18, FontWeight->"Bold"], StyleBox["[t]=Ax[t]+Bu[t]", FontSize->18, FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.49763697642101*^9, 3.497637034778348*^9}, { 3.497637085618256*^9, 3.4976370877733793`*^9}, {3.4976372993804827`*^9, 3.497637321028721*^9}, {3.4976373548366547`*^9, 3.4976373725756693`*^9}, { 3.497637404918519*^9, 3.4976374494570665`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MatrA", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"systema", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"vektorsost", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", "\"\<\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0433\:043e\>\"", " ", "\:041b\:0410"}], " ", "-", " ", RowBox[{"\:043c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "A"}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.497590262955586*^9, 3.497590407829872*^9}, { 3.4975984832567606`*^9, 3.4975984925212903`*^9}, {3.49763747644461*^9, 3.4976375171519384`*^9}, {3.4976375574552436`*^9, 3.4976375690639076`*^9}, { 3.49763902724131*^9, 3.497639030691508*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}], "0", "0", RowBox[{"wz", "[", "t", "]"}], RowBox[{"-", RowBox[{"wy", "[", "t", "]"}]}], "0", RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], RowBox[{"vy", "[", "t", "]"}], "0", RowBox[{"-", FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}], "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "s"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Sin", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}], RowBox[{"2", " ", "massa"}]]}], "0", RowBox[{"-", RowBox[{"wz", "[", "t", "]"}]}], "0", RowBox[{"wx", "[", "t", "]"}], RowBox[{"vz", "[", "t", "]"}], "0", RowBox[{"-", RowBox[{"vx", "[", "t", "]"}]}], "0", FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"], FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "massa"]}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], "massa"]}], "0", RowBox[{"wy", "[", "t", "]"}], RowBox[{"-", RowBox[{"wx", "[", "t", "]"}]}], "0", RowBox[{"-", RowBox[{"vy", "[", "t", "]"}]}], RowBox[{"vx", "[", "t", "]"}], "0", "0", RowBox[{"-", FractionBox[ RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}], FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}, {"0", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0"}, {"0", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["Ixx", "2"]}], "-", SuperscriptBox["Ixy", "2"], "+", RowBox[{"Ixx", " ", "Izz"}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"2", " ", "Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Ixx", "2"], "+", SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Izz"}]}], ")"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0"}, {"0", FractionBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}]}], "Izz"], "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{"2", " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"], FractionBox[ RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"2", " ", "Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"], FractionBox[ RowBox[{"ba", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmz", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "Izz"}]], "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "0", RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}, {"0", "0", "0", "0", "0", "0", "0", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], "0", "0", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}]}, {"0", "0", "0", "0", "0", "0", "1", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "0", RowBox[{ SuperscriptBox[ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318545015094*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"Perest", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0"}, {"0", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "1", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318545087098*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U", "=", RowBox[{"{", RowBox[{ RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0443\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:044f", " ", RowBox[{"U", "[", "t", "]"}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.4975908285409355`*^9, 3.4975908738595276`*^9}, { 3.497637524943384*^9, 3.4976375370880785`*^9}, {3.497637575964302*^9, 3.497637579740518*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5003185451160994`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MatrB", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"systema", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"U", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0434\:0430\:0447\:0438", " ", "\:0443\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0438\:044f"}], " ", "-", " ", "B"}], "*)"}]}]], "Input", CellChangeTimes->{{3.497590878917817*^9, 3.4975909367231236`*^9}, { 3.497598346758953*^9, 3.497598353916363*^9}, {3.4976375848708115`*^9, 3.497637610292266*^9}, {3.49763905031463*^9, 3.497639059193138*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", FractionBox[ RowBox[{"2", " ", "s", " ", "S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}], "0", RowBox[{"-", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "massa"}]]}], FractionBox[ RowBox[{ RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "massa"]}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "-", FractionBox[ RowBox[{"2", " ", "s", " ", "S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}], "0", FractionBox[ RowBox[{"s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "massa"}]], FractionBox[ RowBox[{ RowBox[{"Sin", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "massa"]}, { RowBox[{"-", FractionBox[ RowBox[{"s", " ", "S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "massa", " ", "\[Pi]"}]]}], "0", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "massa"}]], "0"}, {"0", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0"}, {"0", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0"}, { FractionBox[ RowBox[{"ba", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["kmz", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["kmz", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], ")"}]}], RowBox[{"2", " ", "Izz"}]], "0", "0", RowBox[{"-", FractionBox[ RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "Izz"]}]}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5003185451641026`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"MatrARazd", "=", RowBox[{"Perest", ".", "MatrA"}]}], "]"}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}], "0", "0", RowBox[{"wz", "[", "t", "]"}], RowBox[{"-", RowBox[{"wy", "[", "t", "]"}]}], "0", RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], RowBox[{"vy", "[", "t", "]"}], "0", RowBox[{"-", FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}], "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "s"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Sin", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}], RowBox[{"2", " ", "massa"}]]}], "0", RowBox[{"-", RowBox[{"wz", "[", "t", "]"}]}], "0", RowBox[{"wx", "[", "t", "]"}], RowBox[{"vz", "[", "t", "]"}], "0", RowBox[{"-", RowBox[{"vx", "[", "t", "]"}]}], "0", FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"], FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "massa"]}, {"0", FractionBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}]}], "Izz"], "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{"2", " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"], FractionBox[ RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"2", " ", "Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"], FractionBox[ RowBox[{"ba", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmz", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "Izz"}]], "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], "0", "0", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}]}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{"2", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], "massa"]}], "0", RowBox[{"wy", "[", "t", "]"}], RowBox[{"-", RowBox[{"wx", "[", "t", "]"}]}], "0", RowBox[{"-", RowBox[{"vy", "[", "t", "]"}]}], RowBox[{"vx", "[", "t", "]"}], "0", "0", RowBox[{"-", FractionBox[ RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}], FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}, {"0", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0"}, {"0", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"kmx", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"kmy", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["Ixx", "2"]}], "-", SuperscriptBox["Ixy", "2"], "+", RowBox[{"Ixx", " ", "Izz"}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"2", " ", "Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Ixx", "2"], "+", SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Izz"}]}], ")"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "0", RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}, {"0", "0", "0", "0", "0", "0", "1", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "0", RowBox[{ SuperscriptBox[ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318545214105*^9}] }, Open ]], Cell[TextData[StyleBox["\:041c\:0430\:0442\:0440\:0438\:0446\:0430 \:0441\ \:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f \"\:0441\:0432\:043e\:0431\ \:043e\:0434\:043d\:043e\:0433\:043e\" \:041b\:0410 \:0440\:0430\:0437\:0434\ \:0435\:043b\:044f\:0435\:0442\:0441\:044f \:043d\:0430 4 \:0441\:0443\:0431\ \:043c\:0430\:0442\:0440\:0438\:0446\:044b. \:0414\:0432\:0435 \:0438\:0437 \ \:043d\:0438\:0445 \:0445\:0430\:0440\:0430\:043a\:0442\:0435\:0440\:0438\ \:0437\:0443\:044e\:0442 \:0434\:0438\:043d\:0430\:043c\:0438\:043a\:0443 \ \:043f\:0440\:043e\:0434\:043e\:043b\:044c\:043d\:043e\:0433\:043e \:0434\ \:0432\:0438\:0436\:0435\:043d\:0438\:044f - Apr \:0438 \:0431\:043e\:043a\ \:043e\:0432\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\ \:044f - Abok, \:0441\:043e\:043e\:0442\:0432\:0435\:0442\:0441\:0442\:0432\ \:0435\:043d\:043d\:043e. \:0414\:0432\:0435 \:0434\:0440\:0443\:0433\:0438\ \:0435 \:0445\:0430\:0440\:0430\:043a\:0442\:0435\:0440\:0438\:0437\:0443\ \:044e\:0442 \:0432\:043b\:0438\:044f\:043d\:0438\:0435 \:0431\:043e\:043a\ \:043e\:0432\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \ \:043d\:0430 \:043f\:0440\:043e\:0434\:043e\:043b\:044c\:043d\:043e\:0435 \ \:0438 \:043f\:0440\:043e\:0434\:043e\:043b\:044c\:043d\:043e\:0433\:043e \ \:043d\:0430 \:0431\:043e\:043a\:043e\:0432\:0435. \:0422.\:043a. \ \:041b\:0410 \:0442\:0438\:043f\:0430 \"\:0441\:0430\:043c\:043e\:043b\:0435\ \:0442\" \:0438\:043c\:0435\:0435\:0442 \:043e\:0434\:043d\:0443 \:043e\:0441\ \:044c \:0441\:0438\:043c\:043c\:0435\:0442\:0440\:0438\:0438, \:0442\:043e \ \:0440\:0430\:0437\:0434\:0435\:043b\:0435\:043d\:0438\:0435 \:043d\:0430 \ \:043f\:0440\:043e\:0434\:043e\:043b\:044c\:043d\:043e\:0435 \:0438 \:0431\ \:043e\:043a\:043e\:0432\:043e\:0435 \:0434\:0432\:0438\:0436\:0435\:043d\ \:0438\:0435 \:0432\:043e\:0437\:043c\:043e\:0436\:043d\:043e \:0438 \:043a\ \:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:044b \:043c\ \:0430\:0442\:0440\:0438\:0446 \:0432\:0437\:0430\:0438\:043c\:043e\:0441\ \:0432\:044f\:0437\:0438 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:0439 \ \:043f\:0440\:0435\:043d\:0435\:0431\:0440\:0435\:0436\:0438\:043c\:043e \ \:043c\:0430\:043b\:044b \:043f\:043e \:0441\:0440\:0430\:0432\:043d\:0435\ \:043d\:0438\:044e \:0441 \:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\ \:0435\:043d\:0442\:0430\:043c\:0438 \:043c\:0430\:0442\:0440\:0438\:0446 Apr \ \:0438 Abok.", FontSize->18]], "Text", CellChangeTimes->{{3.5001943386470737`*^9, 3.5001943434903507`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"Apr", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrARazd", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "6"}], "}"}]}], "]"}]}], "]"}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", FractionBox[ RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Cx0", " ", SuperscriptBox["l", "2"], " ", "\[Pi]"}], "+", RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], RowBox[{"2", " ", "massa"}]]}], "0", "0", RowBox[{"wz", "[", "t", "]"}], RowBox[{"-", RowBox[{"wy", "[", "t", "]"}]}]}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "s"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Sin", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Cos", "[", RowBox[{"Betta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Alpha", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"Alpha0", "-", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}]}]}], RowBox[{"2", " ", "massa"}]]}], "0", RowBox[{"-", RowBox[{"wz", "[", "t", "]"}]}], "0", RowBox[{"wx", "[", "t", "]"}]}, {"0", FractionBox[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "ba", " ", "s", " ", RowBox[{"kmz", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "Alpha0"}], "+", RowBox[{"Alpha", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Alpha", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}], ",", "ugolstrel", ",", "ugolVobr", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"drv", "[", "t", "]"}]}], "]"}]}], ",", "ugolVobr", ",", RowBox[{"drv", "[", "t", "]"}], ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["Alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"H", "[", "t", "]"}], "]"}]}], "-", RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"H", "[", "t", "]"}]}], "]"}]}]}], "Izz"], "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500318545258108*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"Abok", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"MatrARazd", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "7", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "7", ",", "12"}], "}"}]}], "]"}]}], "]"}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0"}, { RowBox[{"-", RowBox[{"vy", "[", "t", "]"}]}], RowBox[{"vx", "[", "t", "]"}], "0", "0", RowBox[{"-", FractionBox[ RowBox[{"G", " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}], FractionBox[ RowBox[{"G", " ", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "massa"]}, { FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["Ixy", "2"], "+", SuperscriptBox["Iyy", "2"], "-", RowBox[{"Iyy", " ", "Izz"}]}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0"}, { FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["Ixx", "2"]}], "-", SuperscriptBox["Ixy", "2"], "+", RowBox[{"Ixx", " ", "Izz"}]}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{ RowBox[{"2", " ", "Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmx", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", "l", " ", "s", " ", RowBox[{"ro", "[", RowBox[{"H", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"vk", "[", "t", "]"}], "2"], " ", RowBox[{ SuperscriptBox["kmy", TagBox[ RowBox[{"(", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"Betta", "[", "t", "]"}], ",", "ugolstrel", ",", RowBox[{"deler", "[", "t", "]"}], ",", RowBox[{"drn", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"Mah", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Ixx", "2"], "+", SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Izz"}]}], ")"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"(", RowBox[{"Ixx", "+", "Iyy", "-", "Izz"}], ")"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["Ixy", "2"]}], "+", RowBox[{"2", " ", "Ixx", " ", "Iyy"}]}]], "0", "0", "0"}, {"0", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], "0", RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]}, {"1", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}]}], "0", RowBox[{ SuperscriptBox[ RowBox[{"Sec", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ RowBox[{"Tan", "[", RowBox[{"LTeta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"LGamma", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.50031854529711*^9}] }, Open ]], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"a1", "=", "0.635"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a2", "=", "5.47"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a3", "=", "2.72"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a4", "=", "0.269"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a5", "=", "3.26"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a6", "=", "0.709"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"a7", "=", "0.043"}], ";"}], TraditionalForm]}], "Input"], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"b1", "=", "3.1"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b2", "=", "20.2"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b3", "=", "17.6"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b4", "=", "0.072"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b5", "=", RowBox[{"-", "0.518"}]}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b6", "=", "0.057"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"b7", "=", "0.065"}], ";"}], TraditionalForm]}], "Input"], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"c1", "=", "0.82"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c2", "=", "11.0"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c3", "=", "8.8"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c4", "=", "1.2"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c5", "=", "0.3"}], ";"}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{"c6", "=", "7.3"}], ";"}], TraditionalForm]}], "Input"], Cell[TextData[StyleBox["\:0414\:043e\:043f\:0443\:0441\:0442\:0438\:043c\:043e\ \:0441\:0442\:044c \:0438\:0437\:043e\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:043d\:043e\:0433\:043e \:0438\:0441\:0441\:043b\:0435\:0434\:043e\ \:0432\:0430\:043d\:0438\:044f \:043a\:043e\:0440\:043e\:0442\:043a\:043e\ \:043f\:0435\:0440\:0438\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0433\ \:043e \:0438 \:0434\:043b\:0438\:043d\:043d\:043e\:043f\:0435\:0440\:0438\ \:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0433\:043e \:0434\:0432\ \:0438\:0436\:0435\:043d\:0438\:044f \:0441\:0430\:043c\:043e\:043b\:0435\ \:0442\:0430:", FontSize->18]], "Text", CellChangeTimes->{{3.5001941965489464`*^9, 3.5001942511160674`*^9}, { 3.500194384765712*^9, 3.5001943850907307`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"If", "[", RowBox[{ RowBox[{"c2", ">", "0"}], ",", " ", RowBox[{"Print", "[", "Dopustimo", "]"}], ",", RowBox[{"Print", "[", "Nedopustimo", "]"}]}], "]"}], TraditionalForm]], "Input", CellChangeTimes->{{3.5001941859223385`*^9, 3.500194191398652*^9}}], Cell[BoxData["Dopustimo"], "Print", CellChangeTimes->{3.500318545365114*^9}] }, Open ]], Cell[TextData[StyleBox["\:0414\:043e\:043f\:0443\:0441\:0442\:0438\:043c\:043e\ \:0441\:0442\:044c \:0438\:0437\:043e\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:043d\:043e\:0433\:043e \:0438\:0441\:0441\:043b\:0435\:0434\:043e\ \:0432\:0430\:043d\:0438\:044f \"\:0431\:044b\:0441\:0442\:0440\:043e\:0433\ \:043e\" \:0431\:043e\:043a\:043e\:0432\:043e\:0433\:043e \:0438 \:0441\:043f\ \:0438\:0440\:0430\:043b\:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\ \:0436\:0435\:043d\:0438\:044f \:0441\:0430\:043c\:043e\:043b\:0435\:0442\ \:0430:", FontSize->18]], "Text", CellChangeTimes->{{3.5001945244877033`*^9, 3.5001945744505615`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"b1", "*", RowBox[{"(", RowBox[{ RowBox[{"a1", "*", "a4"}], "+", "a2"}], ")"}]}], "-", RowBox[{"b2", "*", "b6"}], "+", RowBox[{"a1", "*", "b2", "*", "b7"}], "-", RowBox[{"a6", "*", RowBox[{"(", RowBox[{ RowBox[{"a4", "*", "b6"}], "+", RowBox[{"a2", "*", "b7"}]}], ")"}]}]}], "\[GreaterEqual]", RowBox[{"9", "*", "b2", "*", "b4"}]}], ",", " ", RowBox[{"Print", "[", "Dopustimo", "]"}], ",", RowBox[{"Print", "[", "Nedopustimo", "]"}]}], "]"}], TraditionalForm]], "Input", CellChangeTimes->{{3.5001945797468643`*^9, 3.500194580257893*^9}, { 3.5001946165159674`*^9, 3.500194683680809*^9}, {3.5001947159516544`*^9, 3.500194732362593*^9}}], Cell[BoxData["Dopustimo"], "Print", CellChangeTimes->{3.500318545404116*^9}] }, Open ]], Cell[TextData[StyleBox["\:0414\:043e\:043f\:0443\:0441\:0442\:0438\:043c\:043e\ \:0441\:0442\:044c \:0438\:0437\:043e\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:043d\:043e\:0433\:043e \:0438\:0441\:0441\:043b\:0435\:0434\:043e\ \:0432\:0430\:043d\:0438\:044f \:0441\:043e\:0441\:0442\:0430\:0432\:043b\ \:044f\:044e\:0449\:0435\:0439 \"\:0440\:044b\:0441\:043a\:0430\:043d\:0438\ \:0435-\:0441\:043a\:043e\:043b\:044c\:0436\:0435\:043d\:0438\:0435\" \:0438 \ \:043a\:0440\:0435\:043d\:043e\:0432\:043e\:0439 \:0441\:043e\:0441\:0442\ \:0430\:0432\:043b\:044f\:044e\:0449\:0435\:0439 \"\:0431\:044b\:0441\:0442\ \:0440\:043e\:0433\:043e\" \:0431\:043e\:043a\:043e\:0432\:043e\:0433\:043e \ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0441\:0430\:043c\:043e\ \:043b\:0435\:0442\:0430:", FontSize->18]], "Text", CellChangeTimes->{{3.500194415835489*^9, 3.5001944966481113`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"b1", "*", RowBox[{"(", RowBox[{ RowBox[{"a1", "*", "a4"}], "+", "a2"}], ")"}]}], ">=", RowBox[{"0.9", "*", RowBox[{"(", RowBox[{ RowBox[{"a1", "*", "b2", "*", "b7"}], "-", RowBox[{"b2", "*", "b6"}], "-", RowBox[{"a6", "*", RowBox[{"(", RowBox[{ RowBox[{"a4", "*", "b6"}], "+", RowBox[{"a2", "*", "b7"}]}], ")"}]}]}], ")"}]}]}], ",", " ", RowBox[{"Print", "[",