(* 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[ 357134, 10398] NotebookOptionsPosition[ 345576, 9999] NotebookOutlinePosition[ 345982, 10016] CellTagsIndexPosition[ 345939, 10013] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ \: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\ \>", "Title"], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"vg", "=", RowBox[{"{", RowBox[{ RowBox[{"vgx", "[", "t", "]"}], ",", " ", RowBox[{"vgy", "[", "t", "]"}], ",", " ", RowBox[{"vgz", "[", "t", "]"}]}], "}"}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"vgx", "[", "t", "]"}], ",", RowBox[{"vgy", "[", "t", "]"}], ",", RowBox[{"vgz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5021029472730207`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"r", "=", RowBox[{"{", RowBox[{ RowBox[{"l", "[", "t", "]"}], ",", " ", RowBox[{"h", "[", "t", "]"}], ",", " ", RowBox[{"z", "[", "t", "]"}]}], "}"}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"l", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.502102947342025*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"kur1", "=", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "t"}], "]"}], "==", RowBox[{"vg", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[ RowBox[{ RowBox[{ SuperscriptBox["l", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"vgx", "[", "t", "]"}]}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029473900275`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"kur2", "=", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "t"}], "]"}], "==", RowBox[{"vg", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{ RowBox[{ SuperscriptBox["h", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"vgy", "[", "t", "]"}]}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102947416029*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"kur3", "=", RowBox[{"TableForm", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "t"}], "]"}], "==", RowBox[{"vg", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{ RowBox[{ SuperscriptBox["z", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"vgz", "[", "t", "]"}]}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029474390306`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pr", "=", RowBox[{"{", RowBox[{"kur1", ",", " ", "kur2", ",", " ", "kur3"}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[ RowBox[{ RowBox[{ SuperscriptBox["l", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"vgx", "[", "t", "]"}]}], Function[BoxForm`e$, TableForm[BoxForm`e$]]], ",", TagBox[ RowBox[{ RowBox[{ SuperscriptBox["h", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"vgy", "[", "t", "]"}]}], Function[BoxForm`e$, TableForm[BoxForm`e$]]], ",", TagBox[ RowBox[{ RowBox[{ SuperscriptBox["z", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"vgz", "[", "t", "]"}]}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]}], "}"}]], "Output", CellChangeTimes->{3.5021029474620314`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"m1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029474920335`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"m2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], ",", " ", "0", ",", " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], ",", " ", "0", ",", " ", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}]}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], "0", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}, {"0", "1", "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102947522035*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"TableForm", "[", RowBox[{"m3", "=", RowBox[{"m2", ".", "m1"}]}], "]"}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}, { RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], "0"}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]}], RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102947547036*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"TableForm", "[", RowBox[{"ReplaceAll", "[", RowBox[{"m3", ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", "t", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{ RowBox[{"\[Psi]", "[", "t", "]"}], "\[Rule]", "0"}]}], "}"}]}], "]"}], "]"}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102947570038*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"rg", "=", RowBox[{"m3", ".", "vg"}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.5021029475960393`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"q1", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", "t"}], "]"}], "\[Equal]", RowBox[{"rg", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["l", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.5021029476180406`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"q2", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "t"}], "]"}], "\[Equal]", RowBox[{"rg", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["h", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.502102947644042*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"q3", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}], ",", " ", "t"}], "]"}], "\[Equal]", RowBox[{"rg", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["z", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.502102947668043*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"{", RowBox[{"q1", ",", " ", "q2", ",", " ", "q3"}], "}"}], "]"}]}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["l", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["h", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["z", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102947690045*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \: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\ \>", "Title", CellChangeTimes->{3.502103677496787*^9}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"v", "=", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", " ", RowBox[{"vy", "[", "t", "]"}], ",", " ", RowBox[{"vz", "[", "t", "]"}]}], "}"}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.502102947713046*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", " ", RowBox[{"wy", "[", "t", "]"}], ",", " ", RowBox[{"wz", "[", "t", "]"}]}], "}"}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.502102947734047*^9}] }, Open ]], Cell["\<\ (*\: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*)\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"mm1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], ",", " ", "0", ",", " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], ",", " ", "0", ",", " ", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], "0", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}, {"0", "1", "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029477550488`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"mm2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], ",", " ", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], ",", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.50210294777905*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"mm3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"1", "0", "0"}, {"0", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]}, {"0", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029478000507`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"mm4", "=", RowBox[{"Transpose", "[", RowBox[{"mm3", ".", "mm2", ".", "mm1"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}]}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029478210526`*^9}] }, Open ]], Cell["\<\ (*\: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*)\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TableForm", "[", RowBox[{"sm1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], " "}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], "0"}, {"0", "0", "1"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029478460536`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"sm2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], ",", "0", ",", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], ",", "0", ",", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], "0", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}, {"0", "1", "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102947867055*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"sm3", "=", RowBox[{"Transpose", "[", RowBox[{"sm2", ".", "sm1"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}]}, { RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], "0", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102947889056*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], ",", RowBox[{"alfa", "[", "t", "]"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], "-", "alfa0"}], ")"}], " ", 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"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "alfa0"}], "+", RowBox[{"alfa", "[", "t", "]"}]}], ")"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}]], "Output", CellChangeTimes->{3.5021029479120574`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lyam", "=", 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"], Cell[BoxData[ FractionBox[ SuperscriptBox["l", "2"], "S"]], "Output", CellChangeTimes->{3.502102947938059*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cx", "=", RowBox[{"Cx0", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "^", "2"}], ")"}], "/", RowBox[{"(", RowBox[{"lyam", "*", "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"], Cell[BoxData[ RowBox[{"Cx0", "+", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}]], "Output", CellChangeTimes->{3.50210294796206*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], "*", RowBox[{"vk", "^", "2"}]}], ")"}], "/", "2"}], " ", RowBox[{"(*", RowBox[{ "\:0421\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", "\:043d\:0430\:043f\:043e\:0440"}], "*)"}]}]], "Input"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["vk", "2"], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}]], "Output", CellChangeTimes->{3.5021029479830613`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"faer", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "Cx"}], "*", "q", "*", "s"}], ",", RowBox[{ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "*", "q", "*", "s"}], ",", RowBox[{ RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "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"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.5021029480040627`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TableForm", "[", RowBox[{"faersv", "=", RowBox[{"sm3", ".", "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"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}]}]}, { RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102948030064*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TableForm", "[", RowBox[{"gs", "=", RowBox[{ RowBox[{"Transpose", "[", "mm4", "]"}], ".", 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"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029480820675`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fx", "=", RowBox[{ RowBox[{"faersv", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"gs", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", "v", ",", RowBox[{"h", "[", "t", "]"}]}], "]"}], "*", RowBox[{"Cos", "[", "phi", "]"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}]], "Output", CellChangeTimes->{3.5021029481040688`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fy", "=", RowBox[{ RowBox[{"faersv", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"gs", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}], "*", RowBox[{"Sin", "[", "phi", "]"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "phi", "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}]}]], "Output", CellChangeTimes->{3.50210294813107*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fz", "=", RowBox[{ RowBox[{"faersv", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"gs", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]}]], "Output", CellChangeTimes->{3.502102948152071*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "phi", "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.5021029481740723`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"f1", "=", RowBox[{"{", RowBox[{ RowBox[{"fx1", "[", RowBox[{ RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], ",", " ", RowBox[{"fy1", "[", RowBox[{ RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], ",", " ", RowBox[{"fz1", "[", RowBox[{ RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "}"}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"fx1", "[", RowBox[{ RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], ",", RowBox[{"fy1", "[", RowBox[{ RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], ",", RowBox[{"fz1", "[", RowBox[{ RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.502102948200074*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"m", "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{"v", ",", " ", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"w", ",", " ", "v"}], "]"}]}], ")"}]}]}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], ",", RowBox[{"m", " ", 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[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.5021029482320757`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"q4", "=", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "1", "]"}], "]"}], "==", RowBox[{"f", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", 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", "[", "phi", "]"}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}]}]], "Output", CellChangeTimes->{3.502102948255077*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"q5", "=", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "2", "]"}], "]"}], "==", RowBox[{"f", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", 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[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "phi", "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}]}]}]], "Output", CellChangeTimes->{3.5021029482810783`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"q6", "=", RowBox[{ RowBox[{"d", "[", RowBox[{"[", "3", "]"}], "]"}], "==", RowBox[{"f", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", 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[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]}]}]], "Output", CellChangeTimes->{3.50210294830408*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"{", RowBox[{"q4", ",", " ", "q5", ",", " ", "q6"}], "}"}], "]"}]}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{"m", " ", 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", "[", "phi", "]"}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}]}]}, { RowBox[{ RowBox[{"m", " ", 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[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "phi", "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}]}]}]}, { RowBox[{ RowBox[{"m", " ", 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[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029483530827`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \: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\ \>", "Title", CellChangeTimes->{3.502103375657523*^9}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"ug", "=", RowBox[{"{", RowBox[{ RowBox[{"psi", "[", "t", "]"}], ",", " ", RowBox[{"teta", "[", "t", "]"}], ",", " ", RowBox[{"gam", "[", "t", "]"}]}], "}"}]}]}], TraditionalForm]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"psi", "[", "t", "]"}], ",", RowBox[{"teta", "[", "t", "]"}], ",", RowBox[{"gam", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.502102948380084*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", " ", RowBox[{"wy", "[", "t", "]"}], ",", " ", RowBox[{"wz", "[", "t", "]"}]}], "}"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5021029484020853`*^9}] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"TableForm", "[", RowBox[{"mm4", "=", RowBox[{"mm3", ".", "mm2", ".", "mm1"}]}], "]"}], "*)"}]}], TraditionalForm]], "Input"], Cell[CellGroupData[{ Cell["\<\ \:0421\:043f\: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\:044c\:044f, \:0442\:0430\ \:043d\:0433\:0430\:0436\:0430 \:0438 \:043a\:0440\:0435\:043d\:0430 \:043d\ \:0430 \:043e\:0441\:0438 \:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\ \:0439 \:0441.\:043a.\ \>", "Subsubtitle", CellChangeTimes->{{3.4970722216083984`*^9, 3.497072265201172*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"prpsi", "=", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"mm2", ".", "mm3"}], "]"}], ".", RowBox[{"{", RowBox[{"0", ",", RowBox[{"D", "[", RowBox[{ RowBox[{"psi", "[", "t", "]"}], ",", "t"}], "]"}], ",", "0"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.4970723837089844`*^9, 3.4970724387285156`*^9}, { 3.4970725976191406`*^9, 3.4970726448808594`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.5021029484280868`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"prteta", "=", RowBox[{ RowBox[{"Transpose", "[", "mm3", "]"}], ".", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"D", "[", RowBox[{ RowBox[{"teta", "[", "t", "]"}], ",", "t"}], "]"}]}], "}"}]}]}]}]], "Input", CellChangeTimes->{{3.497072758939453*^9, 3.49707277871875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.5021029484500885`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"prgam", "=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"gam", "[", "t", "]"}], ",", "t"}], "]"}], ",", "0", ",", "0"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.4970727853554688`*^9, 3.4970727986240234`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["gam", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.5021029484710894`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"pr", "=", RowBox[{"prgam", "+", "prpsi", "+", "prteta"}]}]}]], "Input", CellChangeTimes->{{3.497072909881836*^9, 3.4970729462128906`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["gam", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.5021029484950905`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"q7", "=", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], "==", RowBox[{"pr", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.497072515258789*^9, 3.4970725713554688`*^9}, 3.497072659428711*^9, {3.4970729607060547`*^9, 3.4970729921777344`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wx", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["gam", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.5021029485170918`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"q8", "=", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}], "==", RowBox[{"pr", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.4970728045791016`*^9, 3.4970728351689453`*^9}, { 3.4970729731845703`*^9, 3.4970729759833984`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wy", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.502102948539093*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"q9", "=", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "3", "]"}], "]"}], "==", RowBox[{"pr", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.497072839439453*^9, 3.4970728727626953`*^9}, { 3.49707297828125*^9, 3.4970729808779297`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wz", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]], "Output", CellChangeTimes->{3.502102948565095*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"{", RowBox[{"q7", ",", " ", "q8", ",", " ", "q9"}], "}"}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{"wx", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["gam", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wy", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wz", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102948587096*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \: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\ \>", "Title", CellChangeTimes->{{3.4970730647041016`*^9, 3.497073078645508*^9}, 3.50210370867257*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TableForm", "[", 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"}], "*)"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.497073102783203*^9, 3.4970731236416016`*^9}, { 3.497073161123047*^9, 3.497073162623047*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"Ixx", RowBox[{"-", "Ixy"}], RowBox[{"-", "Ixz"}]}, { RowBox[{"-", "Iyx"}], "Iyy", RowBox[{"-", "Iyz"}]}, { RowBox[{"-", "Izx"}], RowBox[{"-", "Izy"}], "Izz"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029486120977`*^9}] }, Open ]], Cell["\<\ \:0422.\:043a. 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, \:0442\:043e\ \>", "Text", CellChangeTimes->{{3.4970732330478516`*^9, 3.4970732528828125`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Ixz", "=", RowBox[{"Izx", "=", RowBox[{"Iyz", "=", RowBox[{"Izy", "=", "0", " "}]}]}]}]}]], "Input", CellChangeTimes->{{3.4970731367734375`*^9, 3.4970731370976562`*^9}, 3.4970732316464844`*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.502102948637099*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Iyx", "=", "Ixy"}]}]], "Input", CellChangeTimes->{{3.497073147826172*^9, 3.497073148583008*^9}}], Cell[BoxData["Ixy"], "Output", CellChangeTimes->{3.5021029486621003`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"TableForm", "[", "TI", "]"}]}]], "Input", CellChangeTimes->{{3.4970731754121094`*^9, 3.4970731954052734`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"Ixx", RowBox[{"-", "Ixy"}], "0"}, { RowBox[{"-", "Ixy"}], "Iyy", "0"}, {"0", "0", "Izz"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102948686102*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \: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:\ \>", "Subsubtitle", CellChangeTimes->{{3.4970732178271484`*^9, 3.4970732256503906`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"K", "=", RowBox[{"TI", ".", "w"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.497073185026367*^9, 3.4970732160976562`*^9}}], Cell[BoxData[ TagBox[ 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" -> {{Left}}, "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], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102948712103*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{"{", RowBox[{ RowBox[{"Mx", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", " ", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], ",", RowBox[{"My", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", " ", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], ",", RowBox[{"Mz", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", " ", RowBox[{"mah", "[", "t", "]"}], ",", " ", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.4970732691376953`*^9, 3.497073269541992*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Mx", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], ",", RowBox[{"My", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], ",", RowBox[{"Mz", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.502102948738105*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \: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\ \>", "Subsubtitle", CellChangeTimes->{{3.4970733012558594`*^9, 3.497073301758789*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TableForm", "[", RowBox[{"pdtgv", "=", RowBox[{ RowBox[{"D", "[", RowBox[{"K", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"w", ",", "K"}], "]"}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.497073305866211*^9, 3.497073356705078*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { 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", "]"}]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102948764106*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"q10", "=", RowBox[{ RowBox[{"pdtgv", "[", RowBox[{"[", "1", "]"}], "]"}], "==", RowBox[{"M", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.4970733664179688`*^9, 3.49707341978125*^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]", RowBox[{"Mx", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]], "Output", CellChangeTimes->{3.5021029487921076`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"q11", "=", RowBox[{ RowBox[{"pdtgv", "[", RowBox[{"[", "2", "]"}], "]"}], "==", RowBox[{"M", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.497073430461914*^9, 3.4970734459541016`*^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]", RowBox[{"My", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]], "Output", CellChangeTimes->{3.5021029488231096`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"q12", "=", RowBox[{ RowBox[{"pdtgv", "[", RowBox[{"[", "3", "]"}], "]"}], "==", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.497073442741211*^9, 3.497073452970703*^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]", RowBox[{"Mz", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]], "Output", CellChangeTimes->{3.5021029488531113`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"TableForm", "[", RowBox[{"{", RowBox[{"q10", ",", " ", "q11", ",", " ", "q12"}], "}"}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { 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[{"Mx", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}, { 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[{"My", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}, { 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[{"Mz", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5021029488801126`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"urav", "=", RowBox[{"{", RowBox[{ "q1", ",", " ", "q2", ",", " ", "q3", ",", " ", "q4", ",", " ", "q5", ",", " ", "q6", ",", " ", "q7", ",", " ", "q8", ",", " ", "q9", ",", " ", "q10", ",", " ", "q11", ",", " ", "q12"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["l", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["h", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["z", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"m", " ", 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", "[", "phi", "]"}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}]}]}]}, { RowBox[{ RowBox[{"m", " ", 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[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "phi", "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}]}]}]}, { RowBox[{ RowBox[{"m", " ", 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[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]}]}]}, { RowBox[{ RowBox[{"wx", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["gam", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wy", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{"wz", "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["teta", "\[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[{"Mx", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}, { 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[{"My", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}, { 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[{"Mz", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "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.5021029489131145`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vxq", "=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{"r", ",", "t"}], "]"}], ",", " ", RowBox[{"D", "[", RowBox[{"v", ",", "t"}], "]"}], ",", " ", RowBox[{"D", "[", RowBox[{"w", ",", "t"}], "]"}], ",", " ", RowBox[{"D", "[", RowBox[{"ug", ",", "t"}], "]"}]}], "}"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["l", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["h", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["z", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["gam", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5021029489511166`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"vq", "=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"r", ",", "v", ",", " ", "w", ",", " ", "ug"}], "}"}], "]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"l", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}], ",", RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}], ",", RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}], ",", RowBox[{"psi", "[", "t", "]"}], ",", RowBox[{"teta", "[", "t", "]"}], ",", RowBox[{"gam", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.502102948986119*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"fk", "=", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{"urav", ",", "vxq", ",", " ", RowBox[{"Sort", "\[Rule]", "False"}]}], "]"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["l", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["h", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["z", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "phi", "]"}]}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"m", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], "m"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "phi", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"m", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], "m"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"m", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], "m"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{"Mx", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"My", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"Ixx", " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Iyy", "2"], " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", "Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"Mx", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{"My", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ SuperscriptBox["Ixx", "2"], " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", "Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", "Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"Mz", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "-", 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["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["gam", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "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.502102949113126*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"uravn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"fk", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"fk", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["l", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["h", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["z", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "phi", "]"}]}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"m", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], "m"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "phi", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"m", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], "m"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"m", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], "m"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{"Mx", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"My", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"Ixx", " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Iyy", "2"], " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", "Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"Mx", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{"My", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ SuperscriptBox["Ixx", "2"], " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", "Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", "Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"Mz", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "-", 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["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["gam", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "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], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.502102949168129*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"matrA", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"uravn", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"vq", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", "1", ",", "12"}], "}"}]}], "]"}]}], "]"}]}]], "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", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], "0", FractionBox[ RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "m"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"m", " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], "0", RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], RowBox[{"vy", "[", "t", "]"}], "0", FractionBox[ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "m"], "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], "0", RowBox[{"-", RowBox[{"wz", "[", "t", "]"}]}], "0", RowBox[{"wx", "[", "t", "]"}], RowBox[{"vz", "[", "t", "]"}], "0", RowBox[{"-", RowBox[{"vx", "[", "t", "]"}]}], "0", FractionBox[ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "m"], FractionBox[ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], "m"]}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}]}], "m"]}], "0", RowBox[{"wy", "[", "t", "]"}], RowBox[{"-", RowBox[{"wx", "[", "t", "]"}]}], "0", RowBox[{"-", RowBox[{"vy", "[", "t", "]"}]}], RowBox[{"vx", "[", "t", "]"}], "0", "0", FractionBox[ RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "m"], RowBox[{"-", FractionBox[ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "m"]}]}, {"0", "0", "0", "0", "0", "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "Ixx"}], " ", "Ixy", " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Iyy", "2"], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", "Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "Ixx"}], " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Iyy", "2"], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", "Izz", " ", RowBox[{"wy", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["Ixx", "2"]}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", "Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Ixx", " ", "Ixy", " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["Ixx", "2"]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", "Izz", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", "Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wy", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "Ixx"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"]}], "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}, {"0", "0", "0", "0", "0", "0", "0", FractionBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]], FractionBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]], "0", "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}, {"0", "0", "0", "0", "0", "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], FractionBox[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]], "0", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], "-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]} }, 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.502102949239133*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"upr", "=", RowBox[{"{", RowBox[{ RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", " ", RowBox[{"de", "[", "t", "]"}], ",", " ", RowBox[{"dsg", "[", "t", "]"}]}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5021029492931366`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"matrB", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"uravn", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", " ", RowBox[{"upr", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "12"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, { RowBox[{"-", FractionBox[ RowBox[{ FractionBox[ RowBox[{"s", " ", "S", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}]}], "m"]}], RowBox[{"-", FractionBox[ RowBox[{"s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "m"}]]}], "0", FractionBox[ RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"1", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "m"]}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], "-", FractionBox[ RowBox[{"s", " ", "S", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], "m"]}], FractionBox[ RowBox[{"s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "m"}]], "0", FractionBox[ RowBox[{ RowBox[{"Sin", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "m"]}, { RowBox[{"-", FractionBox[ RowBox[{"s", " ", "S", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "m", " ", "\[Pi]"}]]}], FractionBox[ RowBox[{"s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "m"}]], "0", "0"}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}]}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}]}, { FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "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.502102949384142*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"matper", "=", 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", ",", "0", ",", "1", ",", "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"}], "}"}]}], "}"}]}], "]"}]}]], "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", "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"} }, 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.5021029494381447`*^9}] }, Open ]], Cell[BoxData[""], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"prodbok", "=", RowBox[{"matper", ".", "fk"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ SuperscriptBox["l", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["h", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "phi", "]"}]}], " ", RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"m", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], "m"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"p", "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", "phi", "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "-", RowBox[{"m", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], "m"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"Mz", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "-", 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["teta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["z", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Theta]", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[Psi]", "[", "t", "]"}], "]"}], " ", RowBox[{"vgz", "[", "t", "]"}]}]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}]}], "+", RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"m", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], "m"]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{"Mx", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{"My", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "-", RowBox[{"Ixx", " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Iyy", "2"], " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", "Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{"Mz", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "-", 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["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}]}, { RowBox[{ RowBox[{ SuperscriptBox["gam", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "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.5021029494851475`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"mrazdA", "=", RowBox[{"matper", ".", "matrA"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], "0", FractionBox[ RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "m"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"m", " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], "0", RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], RowBox[{"vy", "[", "t", "]"}], "0", FractionBox[ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "m"], "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], "0", RowBox[{"-", RowBox[{"wz", "[", "t", "]"}]}], "0", RowBox[{"wx", "[", "t", "]"}], RowBox[{"vz", "[", "t", "]"}], "0", RowBox[{"-", RowBox[{"vx", "[", "t", "]"}]}], "0", FractionBox[ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "m"], FractionBox[ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], "m"]}, {"0", "0", "0", "0", "0", "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "Ixx"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"]}], "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", FractionBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]], FractionBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]], "0", "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}]}], "m"]}], "0", RowBox[{"wy", "[", "t", "]"}], RowBox[{"-", RowBox[{"wx", "[", "t", "]"}]}], "0", RowBox[{"-", RowBox[{"vy", "[", "t", "]"}]}], RowBox[{"vx", "[", "t", "]"}], "0", "0", FractionBox[ RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "m"], RowBox[{"-", FractionBox[ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "m"]}]}, {"0", "0", "0", "0", "0", "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "Ixx"}], " ", "Ixy", " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Iyy", "2"], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", "Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "Ixx"}], " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Iyy", "2"], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", "Izz", " ", RowBox[{"wy", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "Ixx"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"]}], "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", FractionBox[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}, {"0", "0", "0", "0", "0", "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], FractionBox[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]], "0", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], "-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]} }, 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.5021029495381503`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"mrazdB", "=", RowBox[{"matper", ".", "matrB"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, { RowBox[{"-", FractionBox[ RowBox[{ FractionBox[ RowBox[{"s", " ", "S", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}]}], "m"]}], RowBox[{"-", FractionBox[ RowBox[{"s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "m"}]]}], "0", FractionBox[ RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"1", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "m"]}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], "-", FractionBox[ RowBox[{"s", " ", "S", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], "m"]}], FractionBox[ RowBox[{"s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "m"}]], "0", FractionBox[ RowBox[{ RowBox[{"Sin", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "m"]}, { FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"]}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"}, { RowBox[{"-", FractionBox[ RowBox[{"s", " ", "S", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "m", " ", "\[Pi]"}]]}], FractionBox[ RowBox[{"s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "m"}]], "0", "0"}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}]}, { FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"]}, {"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.5021029495961533`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "7"}], ",", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "7"}], ",", " ", RowBox[{"j", "<", "13"}], ",", RowBox[{ RowBox[{ RowBox[{"mrazdA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0"}], ";", RowBox[{"j", "++"}]}]}], "]"}], ";", RowBox[{"i", "++"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "7"}], ",", RowBox[{"i", "<", "13"}], ",", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", "7"}], ",", RowBox[{ RowBox[{ RowBox[{"mrazdA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0"}], ";", RowBox[{"j", "++"}]}]}], "]"}], ";", RowBox[{"i", "++"}]}]}], "]"}]], "Input"], Cell["\<\ \:041c\:0430\:0442\:0440\:0438\:0446\:0430 \:0410 \:0434\:043b\:044f \:043f\ \:0440\:043e\:0434\:043e\:043b\:044c\:043d\:043e\:0433\:043e \:0434\:0432\ \:0438\:0436\:0435\:043d\:0438\:044f:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"mApr", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"mrazdA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "6"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0"}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], "0", FractionBox[ RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}], "m"], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"m", " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}]}, {"0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "Cx0"}], "-", FractionBox[ RowBox[{"S", " ", SuperscriptBox[ RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], "2"]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cz", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["ro", "\[Prime]", MultilineFunction->None], "[", RowBox[{"h", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "phi", "]"}], " ", RowBox[{ SuperscriptBox["p", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"dsg", "[", "t", "]"}], ",", RowBox[{"vk", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}]}], "]"}]}]}], "m"]}], "0", RowBox[{"-", RowBox[{"wz", "[", "t", "]"}]}], "0", RowBox[{"wx", "[", "t", "]"}]}, {"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.502102949653157*^9}] }, Open ]], Cell["\<\ \:041c\:0430\:0442\:0440\:0438\:0446\:0430 \:0410 \:0434\:043b\:044f \:0431\ \:043e\:043a\:043e\:0432\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\ \:043d\:0438\:044f:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"mAb", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"mrazdA", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "7", ",", " ", "12"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "7", ",", " ", "12"}], "}"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "0", "0"}, { RowBox[{"-", RowBox[{"vy", "[", "t", "]"}]}], RowBox[{"vx", "[", "t", "]"}], "0", "0", FractionBox[ RowBox[{"g", " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "m"], RowBox[{"-", FractionBox[ RowBox[{"g", " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "m"]}]}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "Ixx"}], " ", "Ixy", " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Iyy", "2"], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", "Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "Ixx"}], " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", "Iyy", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", "Izz", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Ixy", "2"], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["Iyy", "2"], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", "Izz", " ", RowBox[{"wy", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], "0", "0", "0"}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "Ixy", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "Ixx"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}]}], "Izz"]}], "0", "0", "0", "0"}, {"0", FractionBox[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], "0", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], FractionBox[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]], "0", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], "-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"Tan", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}], " ", RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Sec", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"teta", "[", "t", "]"}], "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], "2"]}]]}]} }, 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.50210294970616*^9}] }, Open ]], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "7"}], ",", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "3"}], ",", " ", RowBox[{"j", "<", "5"}], ",", RowBox[{ RowBox[{ RowBox[{"mrazdB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0"}], ";", RowBox[{"j", "++"}]}]}], "]"}], ";", RowBox[{"i", "++"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "7"}], ",", RowBox[{"i", "<", "13"}], ",", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", "3"}], ",", RowBox[{ RowBox[{ RowBox[{"mrazdB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0"}], ";", RowBox[{"j", "++"}]}]}], "]"}], ";", RowBox[{"i", "++"}]}]}], "]"}]], "Input"], Cell["\<\ \:041c\:0430\:0442\:0440\:0438\:0446\:0430 B \:0434\:043b\:044f \:043f\:0440\ \:043e\:0434\:043e\:043b\:044c\:043d\:043e\:0433\:043e \:0434\:0432\:0438\ \:0436\:0435\:043d\:0438\:044f:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"mBpr", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"mrazdB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "6"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "1", ",", " ", "2"}], "}"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"}, { RowBox[{"-", FractionBox[ RowBox[{ FractionBox[ RowBox[{"s", " ", "S", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]], "-", RowBox[{ FractionBox["1", "2"], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}]}], "m"]}], RowBox[{"-", FractionBox[ RowBox[{"s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "m"}]]}]}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], "-", FractionBox[ RowBox[{"s", " ", "S", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"Cos", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cy", "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cy", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", "ugstrel", ",", RowBox[{"dzak", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}]}], "]"}]}], RowBox[{ SuperscriptBox["l", "2"], " ", "\[Pi]"}]]}], "m"]}], FractionBox[ RowBox[{"s", " ", SuperscriptBox["vk", "2"], " ", RowBox[{"ro", "[", RowBox[{"h", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"alfa", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"beta", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["Cz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}]}], "]"}]}], RowBox[{"2", " ", "m"}]]}, { FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"]}, {"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.502102949814166*^9}] }, Open ]], Cell["\<\ \:041c\:0430\:0442\:0440\:0438\:0446\:0430 B \:0434\:043b\:044f \:0431\:043e\ \:043a\:043e\:0432\:043e\:0433\:043e \:0434\:0432\:0438\:0436\:0435\:043d\ \:0438\:044f:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"mBb", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"mrazdB", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "6", ",", " ", "12"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "3", ",", " ", "4"}], "}"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0"}, {"0", "0"}, {"0", "0"}, { RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}], RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["Mx", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}], "+", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["My", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}]}]}], RowBox[{ SuperscriptBox["Ixy", "2"], "-", RowBox[{"Ixx", " ", "Iyy"}]}]]}]}, { FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"], FractionBox[ RowBox[{ SuperscriptBox["Mz", TagBox[ RowBox[{"(", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{ RowBox[{"alfa", "[", "t", "]"}], ",", RowBox[{"mah", "[", "t", "]"}], ",", RowBox[{"dv", "[", "t", "]"}], ",", RowBox[{"dh", "[", "t", "]"}], ",", RowBox[{"de", "[", "t", "]"}], ",", RowBox[{"dsg", "[", "t", "]"}]}], "]"}], "Izz"]}, {"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.502102949862169*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Xb", "=", RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"beta", "[", "t", "]"}], ",", RowBox[{"gam", "[", "t", "]"}], ",", RowBox[{"psi", "[", "t", "]"}]}], "}"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", "\:0431\:043e\:043a\:043e\:0432\:043e\:0433\:043e", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f"}], "*)"}]}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"wx", "[", "t", "]"}]}, { RowBox[{"wy", "[", "t", "]"}]}, { RowBox[{"beta", "[", "t", "]"}]}, { RowBox[{"gam", "[", "t", "]"}]}, { RowBox[{"psi", "[", "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.5021029499941764`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Ub", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"dh", "[", "t", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"de", "[", "t", "]"}], "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"dh", "[", "t", "]"}]}, { RowBox[{"de", "[", "t", "]"}]}, {"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.5021029500471797`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"a1", "=", "0.635"}], ";", RowBox[{"a2", "=", "5.47"}], ";", RowBox[{"a3", "=", "2.72"}], ";", RowBox[{"a4", "=", "0.269"}], ";", RowBox[{"a5", "=", "3.26"}], ";", RowBox[{"a6", "=", "0.709"}], ";", RowBox[{"a7", "=", "0.043"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"b1", "=", "3.1"}], ";", RowBox[{"b2", "=", "20.2"}], ";", RowBox[{"b3", "=", "17.6"}], ";", RowBox[{"b4", "=", "0.072"}], ";", RowBox[{"b5", "=", RowBox[{"-", "0.518"}]}], ";", RowBox[{"b6", "=", "0.057"}], ";", RowBox[{"b7", "=", "0.065"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"c1", "=", "0.82"}], ";", RowBox[{"c2", "=", "11.0"}], ";", RowBox[{"c3", "=", "8.8"}], ";", RowBox[{"c4", "=", "1.2"}], ";", RowBox[{"c5", "=", "0.3"}], ";", RowBox[{"c6", "=", "7.3"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Ab", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "b1"}], ",", RowBox[{"-", "a6"}], ",", RowBox[{"-", "b2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "b6"}], ",", RowBox[{"-", "a1"}], ",", RowBox[{"-", "a2"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"b7", ",", "a8", ",", RowBox[{"-", "a4"}], ",", "b4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "a9"}], ",", "0", ",", "b8", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "a10", ",", "0", ",", RowBox[{"-", "b9"}], ",", "0"}], "}"}]}], "}"}]}], "]"}], RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0410", " ", "\:0434\:043b\:044f", " ", "\:0431\:043e\:043a\:043e\:0432\:043e\:0433\:043e", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f"}], "*)"}]}]], "Input", CellChangeTimes->{{3.501904463591797*^9, 3.5019044773984375`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "3.1`"}], RowBox[{"-", "0.709`"}], RowBox[{"-", "20.2`"}], "0", "0"}, { RowBox[{"-", "0.057`"}], RowBox[{"-", "0.635`"}], RowBox[{"-", "5.47`"}], "0", "0"}, {"0.065`", "a8", RowBox[{"-", "0.269`"}], "0.072`", "0"}, {"1", RowBox[{"-", "a9"}], "0", "b8", "0"}, {"0", "a10", "0", RowBox[{"-", "b9"}], "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.5021029500961823`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Bb", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "a5"}], ",", RowBox[{"-", "a3"}], ",", RowBox[{"-", "a7"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "b3"}], ",", RowBox[{"-", "b5"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "]"}], RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0412", " ", "\:0434\:043b\:044f", " ", "\:0431\:043e\:043a\:043e\:0432\:043e\:0433\:043e", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5019044812265625`*^9, 3.5019044936904297`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "3.26`"}], RowBox[{"-", "2.72`"}], RowBox[{"-", "0.043`"}], "0", "0"}, { RowBox[{"-", "17.6`"}], "0.518`", "0", "0", "0"}, {"0", "0", "0", "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.502102950130184*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dxb", "=", RowBox[{"D", "[", RowBox[{"Xb", ",", "t"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["beta", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["gam", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ SuperscriptBox["psi", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.502102950197188*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lxb", "=", RowBox[{"LaplaceTransform", "[", RowBox[{"dxb", ",", "t", ",", "s"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"s", " ", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", RowBox[{"wx", "[", "0", "]"}]}], ",", RowBox[{ RowBox[{"s", " ", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"wy", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", RowBox[{"wy", "[", "0", "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"beta", "[", "0", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"beta", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"gam", "[", "0", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"gam", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}], ",", RowBox[{ RowBox[{"s", " ", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"psi", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", RowBox[{"psi", "[", "0", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.502102950790222*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lxb", "=", RowBox[{"Xb", ".", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{"s", ",", "s", ",", "s", ",", "s", ",", "s"}], "}"}], "]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"s", " ", RowBox[{"wx", "[", "t", "]"}]}], ",", RowBox[{"s", " ", RowBox[{"wy", "[", "t", "]"}]}], ",", RowBox[{"s", " ", RowBox[{"beta", "[", "t", "]"}]}], ",", RowBox[{"s", " ", RowBox[{"gam", "[", "t", "]"}]}], ",", RowBox[{"s", " ", RowBox[{"psi", "[", "t", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.5021029508692265`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"urB", "=", RowBox[{"MatrixForm", "[", RowBox[{"lxb", "-", RowBox[{"Ab", ".", "Xb"}]}], "]"}]}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"20.2`", " ", RowBox[{"beta", "[", "t", "]"}]}], "+", RowBox[{"3.1`", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"0.709`", " ", RowBox[{"wy", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{"5.47`", " ", RowBox[{"beta", "[", "t", "]"}]}], "+", RowBox[{"0.057`", " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"0.635`", " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"wy", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{"0.269`", " ", RowBox[{"beta", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"beta", "[", "t", "]"}]}], "-", RowBox[{"0.072`", " ", RowBox[{"gam", "[", "t", "]"}]}], "-", RowBox[{"0.065`", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"a8", " ", RowBox[{"wy", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "b8"}], " ", RowBox[{"gam", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"gam", "[", "t", "]"}]}], "-", RowBox[{"wx", "[", "t", "]"}], "+", RowBox[{"a9", " ", RowBox[{"wy", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{"b9", " ", RowBox[{"gam", "[", "t", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"psi", "[", "t", "]"}]}], "-", RowBox[{"a10", " ", RowBox[{"wy", "[", "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.5021029509262295`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"murB", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"urB", "[", RowBox[{"[", RowBox[{"1", ",", "i"}], "]"}], "]"}], ",", RowBox[{"Xb", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "5"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "\:043c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043a\:043e\:044d\:0444\:0444"}], "-", RowBox[{"\:0432", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", RowBox[{"\:043b\:0438\:043d", ".", " ", "\:0443\:0440"}]}], "-", RowBox[{"\:0439", " ", "\:0432", " ", "\:043e\:043f\:0435\:0440"}], "-", RowBox[{ "\:0439", " ", "\:0444\:043e\:0440\:043c\:0435", " ", "\:0431\:043e\:043a\:043e\:0432\:043e\:0433\:043e", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f"}]}], "*)"}]}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"3.1`", "\[InvisibleSpace]", "+", "s"}], "0.709`", "20.2`", "0", "0"}, {"0.057`", RowBox[{"0.635`", "\[InvisibleSpace]", "+", "s"}], "5.47`", "0", "0"}, { RowBox[{"-", "0.065`"}], RowBox[{"-", "a8"}], RowBox[{"0.269`", "\[InvisibleSpace]", "+", "s"}], RowBox[{"-", "0.072`"}], "0"}, { RowBox[{"-", "1"}], "a9", "0", RowBox[{ RowBox[{"-", "b8"}], "+", "s"}], "0"}, {"0", RowBox[{"-", "a10"}], "0", "b9", "s"} }, 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.502102950958232*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1432, 906}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 310, 5, 83, "Title"], Cell[CellGroupData[{ Cell[902, 31, 247, 7, 30, "Input"], Cell[1152, 40, 220, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1409, 51, 240, 7, 30, "Input"], Cell[1652, 60, 212, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1901, 71, 323, 10, 30, "Input"], Cell[2227, 83, 286, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2550, 97, 286, 9, 31, "Input"], Cell[2839, 108, 284, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3160, 122, 286, 9, 31, "Input"], Cell[3449, 133, 286, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3772, 147, 126, 3, 31, "Input"], Cell[3901, 152, 817, 27, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4755, 184, 663, 19, 31, "Input"], Cell[5421, 205, 904, 27, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6362, 237, 812, 23, 50, "Input"], Cell[7177, 262, 894, 27, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8108, 294, 143, 4, 30, "Input"], Cell[8254, 300, 1611, 48, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9902, 353, 370, 11, 30, "Input"], Cell[10275, 366, 591, 18, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10903, 389, 105, 3, 30, "Input"], Cell[11011, 394, 1598, 47, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12646, 446, 332, 10, 50, "Input"], Cell[12981, 458, 755, 22, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13773, 485, 332, 10, 50, "Input"], Cell[14108, 497, 463, 14, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14608, 516, 288, 9, 30, "Input"], Cell[14899, 527, 775, 23, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15711, 555, 205, 6, 50, "Input"], Cell[15919, 563, 2673, 76, 57, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18641, 645, 341, 7, 137, "Title"], Cell[CellGroupData[{ Cell[19007, 656, 243, 7, 30, "Input"], Cell[19253, 665, 215, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19505, 676, 243, 7, 30, "Input"], Cell[19751, 685, 215, 6, 30, "Output"] }, Open ]], Cell[19981, 694, 461, 7, 29, "Text"], Cell[CellGroupData[{ Cell[20467, 705, 687, 20, 31, "Input"], Cell[21157, 727, 884, 27, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22078, 759, 703, 22, 31, "Input"], Cell[22784, 783, 885, 27, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23706, 815, 647, 20, 31, "Input"], Cell[24356, 837, 884, 27, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25277, 869, 165, 4, 31, "Input"], Cell[25445, 875, 3178, 95, 57, "Output"] }, Open ]], Cell[28638, 973, 461, 7, 29, "Text"], Cell[CellGroupData[{ Cell[29124, 984, 687, 21, 31, "Input"], Cell[29814, 1007, 888, 27, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30739, 1039, 651, 20, 31, "Input"], Cell[31393, 1061, 886, 27, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32316, 1093, 153, 4, 31, "Input"], Cell[32472, 1099, 1575, 48, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34084, 1152, 930, 25, 31, "Input"], Cell[35017, 1179, 583, 18, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35637, 1202, 363, 9, 31, "Input"], Cell[36003, 1213, 114, 3, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36154, 1221, 765, 20, 31, "Input"], Cell[36922, 1243, 454, 13, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37413, 1261, 368, 11, 31, "Input"], Cell[37784, 1274, 208, 6, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38029, 1285, 1004, 26, 31, "Input"], Cell[39036, 1313, 1460, 42, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40533, 1360, 523, 12, 31, "Input"], Cell[41059, 1374, 5748, 153, 119, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46844, 1532, 595, 16, 31, "Input"], Cell[47442, 1550, 1119, 35, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48598, 1590, 387, 12, 31, "Input"], Cell[48988, 1604, 2224, 65, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51249, 1674, 420, 13, 31, "Input"], Cell[51672, 1689, 2180, 64, 91, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53889, 1758, 187, 6, 31, "Input"], Cell[54079, 1766, 1319, 39, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55435, 1810, 109, 3, 31, "Input"], Cell[55547, 1815, 5969, 168, 218, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61553, 1988, 802, 23, 30, "Input"], Cell[62358, 2013, 740, 21, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63135, 2039, 334, 11, 50, "Input"], Cell[63472, 2052, 1285, 41, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64794, 2098, 216, 7, 30, "Input"], Cell[65013, 2107, 2680, 78, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67730, 2190, 258, 8, 50, "Input"], Cell[67991, 2200, 2663, 78, 91, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70691, 2283, 258, 8, 50, "Input"], Cell[70952, 2293, 1750, 52, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72739, 2350, 205, 6, 50, "Input"], Cell[72947, 2358, 8521, 225, 119, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[81517, 2589, 341, 7, 137, "Title"], Cell[CellGroupData[{ Cell[81883, 2600, 290, 8, 50, "Input"], Cell[82176, 2610, 219, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82432, 2621, 250, 7, 52, "Input"], Cell[82685, 2630, 217, 6, 30, "Output"] }, Open ]], Cell[82917, 2639, 229, 7, 50, "Input"], Cell[CellGroupData[{ Cell[83171, 2650, 500, 8, 28, "Subsubtitle"], Cell[CellGroupData[{ Cell[83696, 2662, 422, 12, 31, "Input"], Cell[84121, 2676, 860, 26, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85018, 2707, 383, 11, 52, "Input"], Cell[85404, 2720, 501, 15, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85942, 2740, 317, 9, 52, "Input"], Cell[86262, 2751, 224, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86523, 2763, 201, 4, 52, "Input"], Cell[86727, 2769, 1438, 44, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88202, 2818, 327, 8, 31, "Input"], Cell[88532, 2828, 434, 13, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89003, 2846, 347, 9, 52, "Input"], Cell[89353, 2857, 600, 18, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89990, 2880, 342, 9, 52, "Input"], Cell[90335, 2891, 622, 19, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90994, 2915, 170, 4, 52, "Input"], Cell[91167, 2921, 2291, 67, 57, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[93519, 2995, 380, 8, 137, "Title"], Cell[CellGroupData[{ Cell[93924, 3007, 805, 24, 52, "Input"], Cell[94732, 3033, 737, 24, 57, "Output"] }, Open ]], Cell[95484, 3060, 338, 7, 47, "Text"], Cell[CellGroupData[{ Cell[95847, 3071, 271, 7, 52, "Input"], Cell[96121, 3080, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[96228, 3086, 155, 3, 52, "Input"], Cell[96386, 3091, 74, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[96497, 3097, 169, 3, 52, "Input"], Cell[96669, 3102, 643, 20, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97349, 3127, 454, 8, 47, "Subsubtitle"], Cell[CellGroupData[{ Cell[97828, 3139, 216, 5, 52, "Input"], Cell[98047, 3146, 1013, 33, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[99097, 3184, 1153, 29, 52, "Input"], Cell[100253, 3215, 998, 27, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[101300, 3248, 508, 9, 47, "Subsubtitle"], Cell[CellGroupData[{ Cell[101833, 3261, 340, 10, 52, "Input"], Cell[102176, 3273, 2569, 74, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[104782, 3352, 295, 8, 52, "Input"], Cell[105080, 3362, 975, 28, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[106092, 3395, 296, 8, 52, "Input"], Cell[106391, 3405, 975, 28, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107403, 3438, 294, 8, 52, "Input"], Cell[107700, 3448, 943, 28, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108680, 3481, 177, 5, 52, "Input"], Cell[108860, 3488, 3696, 101, 74, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[112593, 3594, 394, 9, 90, "Input"], Cell[112990, 3605, 15919, 419, 321, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128946, 4029, 402, 12, 38, "Input"], Cell[129351, 4043, 1334, 39, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[130722, 4087, 208, 6, 65, "Input"], Cell[130933, 4095, 576, 15, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131546, 4115, 242, 6, 38, "Input"], Cell[131791, 4123, 20073, 507, 483, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[151901, 4635, 429, 13, 31, "Input"], Cell[152333, 4650, 19529, 506, 373, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[171899, 5161, 563, 16, 52, "Input"], Cell[172465, 5179, 26758, 726, 369, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199260, 5910, 253, 7, 31, "Input"], Cell[199516, 5919, 258, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199811, 5931, 541, 16, 31, "Input"], Cell[200355, 5949, 22906, 620, 314, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[223298, 6574, 2347, 54, 92, "Input"], Cell[225648, 6630, 1399, 28, 257, "Output"] }, Open ]], Cell[227062, 6661, 26, 0, 38, "Input"], Cell[CellGroupData[{ Cell[227113, 6665, 122, 3, 38, "Input"], Cell[227238, 6670, 19153, 487, 370, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[246428, 7162, 124, 3, 31, "Input"], Cell[246555, 7167, 25739, 698, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[272331, 7870, 124, 3, 31, "Input"], Cell[272458, 7875, 19540, 532, 311, "Output"] }, Open ]], Cell[292013, 8410, 489, 16, 31, "Input"], Cell[292505, 8428, 489, 16, 31, "Input"], Cell[292997, 8446, 213, 4, 29, "Text"], Cell[CellGroupData[{ Cell[293235, 8454, 407, 12, 31, "Input"], Cell[293645, 8468, 9205, 244, 160, "Output"] }, Open ]], Cell[302865, 8715, 195, 4, 29, "Text"], Cell[CellGroupData[{ Cell[303085, 8723, 408, 12, 31, "Input"], Cell[303496, 8737, 12441, 346, 172, "Output"] }, Open ]], Cell[315952, 9086, 488, 16, 31, "Input"], Cell[316443, 9104, 489, 16, 31, "Input"], Cell[316935, 9122, 208, 4, 29, "Text"], Cell[CellGroupData[{ Cell[317168, 9130, 407, 12, 31, "Input"], Cell[317578, 9144, 7398, 198, 174, "Output"] }, Open ]], Cell[324991, 9345, 190, 4, 29, "Text"], Cell[CellGroupData[{ Cell[325206, 9353, 407, 12, 31, "Input"], Cell[325616, 9367, 4672, 131, 148, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[330325, 9503, 631, 16, 31, "Input"], Cell[330959, 9521, 884, 28, 87, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[331880, 9554, 362, 11, 31, "Input"], Cell[332245, 9567, 721, 23, 87, "Output"] }, Open ]], Cell[332981, 9593, 297, 8, 31, "Input"], Cell[333281, 9603, 315, 9, 31, "Input"], Cell[333599, 9614, 252, 7, 31, "Input"], Cell[CellGroupData[{ Cell[333876, 9625, 1166, 31, 31, "Input"], Cell[335045, 9658, 1000, 30, 87, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[336082, 9693, 1062, 28, 31, "Input"], Cell[337147, 9723, 863, 25, 87, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[338047, 9753, 104, 3, 31, "Input"], Cell[338154, 9758, 614, 18, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[338805, 9781, 130, 3, 31, "Input"], Cell[338938, 9786, 1180, 35, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[340155, 9826, 203, 6, 31, "Input"], Cell[340361, 9834, 426, 13, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[340824, 9852, 141, 4, 31, "Input"], Cell[340968, 9858, 2305, 68, 87, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[343310, 9931, 1112, 29, 31, "Input"], Cell[344425, 9962, 1111, 32, 87, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)