(* 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[ 430426, 12165] NotebookOptionsPosition[ 415685, 11667] NotebookOutlinePosition[ 416091, 11684] CellTagsIndexPosition[ 416048, 11681] 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 ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"MurKr", "=", RowBox[{"Delete", "[", RowBox[{"murB", ",", RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"MurKr", "=", RowBox[{"ReplaceAll", "[", RowBox[{"MurKr", ",", RowBox[{"{", RowBox[{"b8", "\[Rule]", "0"}], "}"}]}], "]"}]}], "]"}]}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"3.1`", "\[InvisibleSpace]", "+", "s"}], "0"}, { RowBox[{"-", "1"}], "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.5021029509922333`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Wkrenmx", "=", RowBox[{ RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"MurKr", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", "57.3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"MurKr", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], "]"}], "/", RowBox[{"Det", "[", "MurKr", "]"}]}], " ", RowBox[{"(*", RowBox[{ "\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:0430\:044f", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:044f", " ", RowBox[{"\:043a\:0440\:0435\:043d", "/", "Mx"}]}], "*)"}]}]], "Input"], Cell[BoxData[ FractionBox["57.3`", RowBox[{ RowBox[{"3.1`", " ", "s"}], "+", SuperscriptBox["s", "2"]}]]], "Output", CellChangeTimes->{3.502102951071238*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hkrenmx", "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"Wkrenmx", "/", "s"}], ",", "s", ",", "t"}], "]"}], RowBox[{"(*", RowBox[{ "\:041f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:0430\:044f", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:044f", " ", "\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0433\:043e", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5018751071152344`*^9, 3.5018751163251953`*^9}, { 3.5018752838828125`*^9, 3.501875287477539*^9}}], Cell[BoxData[ RowBox[{"57.3`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.10405827263267428`"}], "+", RowBox[{"0.10405827263267428`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "3.1`"}], " ", "t"}]]}], "+", RowBox[{"0.32258064516129026`", " ", "t"}]}], ")"}]}]], "Output", CellChangeTimes->{3.502102951143242*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"\:0410\:041f", "-", "\:043a\:0440\:0435\:043d"}], "*)"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tr", "=", "4", " ", RowBox[{"(*", RowBox[{ "\:0412\:0440\:0435\:043c\:044f", " ", "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\ \:044f"}], "*)"}]}]], "Input"], Cell[BoxData["4"], "Output", CellChangeTimes->{3.5021029511802444`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ "\:0421\:043e\:043e\:0442\:043d\:043e\:0448\:0435\:043d\:0438\:044f", " ", "\:0434\:043b\:044f", " ", "\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445", " ", "\:0447\:0438\:0441\:0435\:043b", " ", "\:0410\:041f"}], "*)"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"myue", "=", RowBox[{ RowBox[{"(", RowBox[{"18", "-", RowBox[{"b1", "*", "tr"}]}], ")"}], "/", RowBox[{"(", RowBox[{"b3", "*", "tr"}], ")"}]}]}]], "Input"], Cell[BoxData["0.07954545454545454`"], "Output", CellChangeTimes->{3.502102951215246*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ie", "=", RowBox[{"108", "/", RowBox[{"(", RowBox[{"b3", "*", "tr", "*", "tr"}], ")"}]}]}]], "Input"], Cell[BoxData["0.38352272727272724`"], "Output", CellChangeTimes->{3.502102951243248*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nyue", "=", RowBox[{"216", "/", RowBox[{"(", RowBox[{"b3", "*", "tr", "*", "tr", "*", "tr"}], ")"}]}]}]], "Input"], Cell[BoxData["0.19176136363636362`"], "Output", CellChangeTimes->{3.5021029512732496`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MurKrap", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "b1"}], ")"}], ",", "0", ",", "b3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "s", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"myue", ",", RowBox[{"(", RowBox[{"ie", "+", RowBox[{"nyue", "/", "s"}]}], ")"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], "]"}], RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", "\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0433\:043e", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5018751341308594`*^9, 3.5018751482158203`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"3.1`", "\[InvisibleSpace]", "+", "s"}], "0", "17.6`"}, { RowBox[{"-", "1"}], "s", "0"}, {"0.07954545454545454`", RowBox[{"0.38352272727272724`", "\[InvisibleSpace]", "+", FractionBox["0.19176136363636362`", "s"]}], RowBox[{"-", "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.5021029513012514`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"MurKrap0", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "b1"}], ")"}], ",", "0", ",", "b3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"myue", ",", RowBox[{"nyue", "/", "s"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], "]"}], RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", "\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0433\:043e\ ", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.501875151958008*^9, 3.5018751758320312`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"3.1`", "\[InvisibleSpace]", "+", "s"}], "0", "17.6`"}, { RowBox[{"-", "1"}], "0", "0"}, {"0.07954545454545454`", FractionBox["0.19176136363636362`", "s"], RowBox[{"-", "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.502102951331253*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Wgam", "=", RowBox[{ RowBox[{"Det", "[", "MurKrap0", "]"}], "/", RowBox[{"Det", "[", "MurKrap", "]"}]}], RowBox[{"(*", RowBox[{ "\:0420\:0430\:0441\:0447\:0435\:0442", " ", "\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0439\ ", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:0438"}], "*)"}]}]], "Input", CellChangeTimes->{{3.501875185088867*^9, 3.5018751961152344`*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox["3.375`", RowBox[{"s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "6.75`"}], "-", FractionBox["3.375`", "s"], "-", RowBox[{"4.5`", " ", "s"}], "-", SuperscriptBox["s", "2"]}], ")"}]}]]}]], "Output", CellChangeTimes->{3.5021029513602543`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hkrap", "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"Wgam", "/", "s"}], ",", "s", ",", "t"}], "]"}], RowBox[{"(*", RowBox[{ RowBox[{ "\:041f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:0430\:044f", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:044f", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", "\:041b\:0410"}], "-", "\:0410\:041f"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5018752559208984`*^9, 3.501875280783203*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "3.375`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1.5`"}], " ", "t"}]], " ", RowBox[{"(", RowBox[{"0.2962962962962963`", "\[InvisibleSpace]", "-", RowBox[{"0.2962962962962963`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.5`", " ", "t"}]]}], "+", RowBox[{"0.4444444444444444`", " ", "t"}], "+", RowBox[{"0.33333333333333337`", " ", SuperscriptBox["t", "2"]}]}], ")"}]}]], "Output", CellChangeTimes->{3.50210295162027*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{"hkrenmx", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0421\:0432\:043e\:0431\:043e\:0434\:043d\:044b\:0439", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442"}], "*)"}]}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwdi3k41HkcgIcJGUdmQtLKEKkhjbZtJfp8kZXZeTxuUdsxI79QOULKVVhF jlJKkSPHEytHjppxh5ZxG0WGJzWuXINxbIbadt/neZ/3r1eD4W13XhyHwzn8 8L8+DWNIGrjdOeo+3hT5ct3fpIlLpjuTPUCnckQzI9UAvr+tjSSTr4HFCFWw Ld4W5JMqSwgDEfA2tXa9uIgJT+vj1SXIMcDwvVRS4uMLegK3hO9YIrBRaJga JRiG5dO/rfcnAa1A+5BxeCRo5UkfWhMlwzVNbZG9fyxcNAm4tKr+GK5o8Kon DO9BWd9IzpJ5GjR86VB7xE6GNS/60AKWAQFzUrNrNU8gU2woZtUiCxT/aA6e IWfCsY572iv9z+BsSJVYqGY2TKZYNix55MCfJy+OKjLzIM5t45RQlAvsO2YB Oz7nA1d04cG8ej5syfVMiGsvgcC/d1IFpQXQNzKME068BNX7fW2z5oVghakm u2tUAIOC8NNYMewIP51tN8sCcdH1rqWQEqA3dj44El7943NUW7IoBTvs1n2S fh0EFcqwFvtfgvgRg9ssnzdASxqXXMwsA6tT8VTWYiP8FNTgsOBRDphRbElu RDPUm1+dF4gqgNO3+qS2rQWkeJ91ZtVZsOEWfcv+excM1NcEzEyywCFSOTZ+ pRsK8lIap0vZQOAUU8eEPWDtZ31myrwahLbetaViffBQmv1wAquDX6gVl7de GIDyqzS/Kyr1YM/sqZq8+wHSpn7dLgyph+XrtrOv6wbhcjcJW7RoAFZPjb7C /mEgpbWIL/S/geexDonRez+BSL4y38e4EYjW0k1K7z7B6M1sm/nMRhhdpJ70 jPwMlVhYusCjCUK52MTxST64/nzQaE7UDIpdjOBdveOQxcnwnVZvheE64j8N 5FlYSqmgfIxrhcmNp8efS83Bb1gbv/drKwikGWquC3Mwg191ZHM5sMe7Kfqm +zwYmlgbxdxqB92gDzk2dovQXbwuriPogttaSvwIbAXCOXo0gzNccBCFYQO+ 3+F56avdfyVzoeqFQj9HAod6U8zw2u1cGOJHbafY45AWdqJa5XAfyJWVG54X 4BAHH6WP2/oO+gKpnPx94kjZhEfqevseloWeXk71m1BRcQzvov4gNB94Vnjg EAFNkabiaOcGYZd72kR3LAHpBNKO7nkwCFr+5b11Hwko01gmi/91EKq76rLj YmVQUmucu2szD6L0pvEdfFkUyE9csDw1DGUcPs0iZwvKkGmLJFqMwJ2W5qN7 C0kIg57HM358WHjmbzldoYIuj+3llxd9AdVCuty+ak1E0IjS+Wg4D43nX2Py JApKUGijZJ0VwisBmyd/l4oYPIc6fPsKmNILmZJ+B5FvcxTDW2cNVDsIl+Ro hqjUR9ZexWoDpCaOIw7/CMoK9pqiOuNQpYss8UYHoIiMddulGTFE2P6w9RPb FOG4I6j6Oh6lN+02U4o2R7v93YMcKBJo24p+aEiQBRpdfuQkUyOJiOktcRlW log25hma5LsZbfKIVRo2tULWo3d1d+4kIJeVyJ5J6u9oqpFxo+WFDJJNMZNP /UZH+sT3auZn5NAHweDYaaE1IsDyuSGhPKL3TjoxmTbIctZ1VdNRAU143QvP OGuLBt64ibnqEVHH5m9+4GKHKm43nSYvE9H48so01dQeuUsEjHR2kpAkb+1a gbEDYvoFV8g+2YqSE4bDA3Qc0X5Mt5N+ThEZGOnq58g5oS6SnkzAYSV0zIo1 5SrljKqKIlL18MroVYC/KnPeGQWLUWzah5VRXm6ys3DmBPJJbMixmlNGuP9x Qf8CdYOJFw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0, 100}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{3.5021029518592834`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{"hkrap", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}], RowBox[{"(*", RowBox[{ RowBox[{ "\:0421\:0438\:0441\:0442\:0435\:043c\:0430", " ", "\:041b\:0410"}], "-", "\:0410\:041f\:043a\:0440\:0435\:043d\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{3.501873076553711*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwt13k0Vd8XAHBTKuNDmXnveaaQolHF3okGlQwpSUREhSLkayghZEpShkoi JCVKI2VImUmIpFKGMr1rHiu/01q/+89dn3XuPWfvu8899x6m/UkzRy4ODo73 nBwc/87Ko6FZ3Q6Rehz/P8qbGLv2M46B6B7tA3QbU735d6+DGYz/4Dj/cyFb 4/N6QnFP8/jaguCoCdvVQPqm3s2SaPoCxkV4/FcvtmBFvp4G5RAz73QJhKjA F2UvSvS+CKX8/d0aB4mGqoF2dbV6ipmL187OXYU8GbaTWvVHPRddL9cpehLo hkX/sR3r1Hvc3HlnfMsNUNtxytNA8Jfe7IldHSNOt+BRXLzT5VPDeqmcHRen DG+Dh83eB5b1E3oGdZeVJlvToPrK7oXn1v7W+5W4rXT82B1I985eeOMbJ0Q5 /LEem8sAgfNK9trACytXPp4eic4CukG7SrUBPzTNOccP07OBO8lF+3wADbwr 5FdS+ffA9nnnX9WnYiB9pblmaMt9SNyqsCjEVAJe20Q4DbY8gO9H3Jdl7pUB ezXkHnB6CG7OMy8uldOBa863Ydw/D1hN01/EzRWgudNCbtwwHzo+PVqwfF4R fO7zvxhtfQSctqLLH4uqg1FcL+9o6mO4zTCYqTurCbI+pXtHjhVA9QOnT2US WsA+dCNtWPsJVA/ZH44SWwUlW84MU3NP4GNaK3xdtQbilpnpUeVPoUClNaf+ v3XgILw8ih39DCi3TcdO9urAws8/VIboL+Cy8HeOsXUAbSWvvAZ/vQDt+HV1 7sKb4V5m4puB/JegJ5InYJKoD8Yexrb9W4oAhUxLVw8aAsNy2YM+gVdg6J+y Quv5NhjV5Zn71fIKfqjoR5+7vgOuLX557adTMShny0X9zN4NBWeMPE5LlkCg SE5Pb8seuNG/TmrMvwRCVt5uPi9oCm7vRZ1GDUuh21MzVek/cxC9Uck10loG f+UZEibDljAn9DT71KY34O/vI3rllBV0n083GU59A3mcdVOc8wfhqdPZFOpY OdDTvicwttnCrfYThifry8GgJtXsWuBhCN99YJCt/RZcjNamCznagdWq1RvY c29h3ahG9gODI7Alk/nd9fA7UHJvos2DA2hICYcPlb8DmcP0ZZJbHOHv376W wegKcN0auGb0sBPcrr7lPkCvgr3XlNwd/pyA8cQnat+iqmDhZiEznr2usNWp puvDTBUMNJ3c71/gBoPcUxYvm6pBN+ZnVkbVKViva7zhYlgt/KJ1vDHrOQ2R /A5j/uO1wBW10lXphSd8/fTf/VN2daCyfevC1XFeEOKdIW+5sR4cqx/uUN17 Bt4//M2lQjWAokmz9z5JPxCFxTaCmu+hJiC1ekzcHzYqx28Ic3gPhUI7fAVl AiBmPHvMt/E9GG3P+tS46hysvtziaJ/TCO4OfjzqzefhXLWGkZZtEwhW3J7V aAyFu/nPlHOuNkHu9yjB6oAw+JCoz61U2wSnDm7SM10eDopOlkWSOs1Q2SJw TenqRajmDtHkEGsBbv3v3uLhUSCu+1m04d1HuL8VFNXOXgZUPEpt//MRDocV CikNXoZj/CM1ZataweAk2/rWwTgo+sR74WlqK0wXL7cUgytg7609ddO3Df57 Wao5L3EVch9e/Oyi2Q5J7tnuv0WSoF+0P8rIrh2UFTqrRC4lgYq3kZ5qfDs0 MEUZ3oLJkLqJ/3bXTDscjFrNry50HeKqoo5avf0Mn3/EBAL9Jnh3XRrZZv0F ajaWSv4sToVb/DXBIoad0FRcJJBzPQP0dP2sA206wf/1u7l37AzocFNfQ53p JPPtaV6QfiZIfojsrb3XCc1TT7taBzLhcuKuHeG07/AdDXazDe9CsFK90Pzn 76DkExzkIpEDTtCYNOjRBVNzEjdWXcsDjrTJl58ju0CgMUTYuDIPEnlkO6rv dEGy8/mpB7N5UFl1VD77YxekDxQv1T2cD6p7f6c5buiGXpFjPJc1H8EvZ5X7 Xzl7oGFCbbKx9TEcjwt4/T62Fwwmjgc/sXoGbj3Lugpy++BBVwqDTSuGTptP i0qr+iBrOO/tjf3FYN4WrlnX3QeOen5qoSnFsL7m53890v1AH/rvTbB4CXDn Z9DEw/ohlGfY2TqzBBL9mXpnbAdgXmPm68aaUigVk0rSoQ1BAf/L+I2q5cDH DFH5tn4Y5geb8pNZVRBDq1G7fXgM/pwPL7oU2gj2n/cWc9dOgtZcFf0nrRXc 34bYn1SZBfbqNba6Th2Qf0rAXHLHH9i/5Npz3kudcNvvRP/K/RwYds7FZ3nf Dwi69dt0fJATs6MMaQ0/uoGjqROLfLnxU5ZSFNf1XlD2POqzV20B2j8sNLXa +Au6JxL28b/ixVTOKHuri32QtnnV6S9veNGhXf9ufEwf2EbXX3pYzYtqfDfs aq70QbvigirzNl5svy23RjOlDxrNPTbeGOPFBp/u8KpHffA6fxdjudpCfNaC 2paf+yDBlbPfOGEh5ihqq3Qu6wejnuMBce6L0GE6Ye9IUT9sDWDdN/BZhAd8 T/BhaT/oL+1onzy7CCWP2hREvu2HDYa71x+MWoSH7uX1S9X3g1rGijFW1iLk WOfJL/qtH/gdx52fdCzCPD1Hdw+OAajtDtjbtm0x8jUc9PyLA2DcHasuL8+H bWNPbiW+IO3q3c3Winx47zXDfbRoAHaeXnf2uhofbvN4M7yjZAC2c319L7mO Dy3sEuZH3g2APkPdW8yED0X7SgKUmwdgjfXbkkVBfKhs1CKowB4A2eYZi7Ee PjybWsLpwhiE/jf2gZUP+NFd69nDmLODQL/cdjymgB/dqo6aJZ8fhL02xhZ7 C/nxm4zM1fSQQXg9raPWWcmPrz+HcTyMGIS45SLNU138WH1MLCn72iBsTChW UZEWwPviV2RX5A5C1HHZhguhAsgaiXx04fMgaIp8lNtiK4if7m/Mz18xBL3R vUFXHQXxZfsPfV7tIbjJN/Xz5wlB1BHNFD2weggEeCQfRfkIYrPw6KmZ9UPQ P3lg68fLghiemrZNSX8IMjq+uB0rF0S2kOhetb1DIHu3p/jSMiEcMW0MG/Ee Aj6YsOsYE0I/8bMdD58Ngc9m1UVPZ4Vwve/JsLcvyPhbDuZe4hTGp28fuH8q HIKy7aWz+sLCKLBNefHv4iHwNYu+kq0mjD7BZ5w0KodgwFHprbedMJo08Mxt aBuC2igLVZEGYfS6Z64iOTUE24asphQsaGj807ls6Uo2pCwJbjpnScNDGq94 XmmxYXxjzsOOgzQMFBHrtF/FhtSIOadr9jQ0bJl0vLeWDbMqN9oWn6LhQq8f Naq6bLhv/+XFcAQNG2a9fnXtYAOtzdb/dQkNIz7mhFrZs6GtzIHTSkMERWol fAIvsWF4c7t0wAoRZCjSOYtj2bCwdM/qVG0R9A+gh/++zIa1xRuceteLYM/5 2TjPeDbEF9LqPAxFcKgxKs8yiQ17CooSI21EkKPH9MFIGhveZSxZ+SpWBOeb Pe+eeMKGJ+HlNowJETSTeCub2cqGu0Y1kmHTIjjXu8KnuI0NyQIfPgzNiaA+ 42Fr6yc2BMZ+21rIJYo15xmZCzrYsCtxVnMfTRSTlFQTLDrZ8CNr5Xykuih2 xlf5Vvxig1DFjVtTdqJ4tHLw8fQ0G44u8OqsrxfFx4PKMS/FKZCmV7XONYqi z7VwoSgJCurXyzWotoiiQqlLh7UkBWtd3r4K+iyKf5hD9r+lKOBtWnp97S9R 9OUQVFslR0FG6lOLFE4x7DkUIRXIoqB743S162oxdDewWnl9BQVHPPyeCCSL oYfnx7ujhqQ/7a9Plt0UQxO3LXsSt1LAN4pPt6aKYXaa3DHdbRTkufM+C8wU w4TTLdMXtlPw+9Tl5+OPxJCr7Ug8bScF105mFXbUiKFiYriMgAkFVS5Npff/ iOHj6Jp9tw5QsMJJvX6X3RK0k7kzsesEBV+P0U8+cFiCB3+ELvhKHOUiRhNy XoJD++ai3Vwo6HOfM21wW4J0qdN8Ma4UpPvXtJj6L8HafWdfvztJgUTciS/7 Eki7easP3ZOC+aKcwcN1S9B6/qKZuz8FDaIa/F46SzEm1McyN5ICPVfXvuub lqK5he5eqSgKcityK8qAtH/xHQkmjvHXCqFtXYrGeF3EMpqCXb1r/+SYLcUw 4BqZi6Gg+sVm6seJpfiqdvkp7TgK3h7e32SSshTLyxWCrBMpKMwNuq7BLY4n T7fUFKSTeuyykE7gFUdxo84EkTsUmPapJHHyiWP7Yg4+N+KfrLprH2niGF9b +V0pgwKxJIm4QHlxhHf/OV/OpOBE8P3wZh1x/KO7Q8oymwIZy49e/qfEMeU9 Szszl4KjE3fHe0+Lo01+08Fp4vw4v9OmZ8TRtuL4GqOHFGyrY7grnxXHqdgz M4PEp/VPuLyPFMf3ibJ1mvkU1GhwHFHMIv2v2v0j/TEFfpxqJrVfxLGCZ/8T i+cU9Brwtyl/F0dGtsiSm8Qm4YO257vF0ZwuqdlNrCj88OTaAXF8cZ/nqvsL CmplV19KnRZHxydr1lx8SYH8er16TzEJ3NcsNpFTREGZm9kuuR0SOJ3UK1la QuZXh+92twIJ1Pe95L+2ksy/M9mCl55JoB7dsfA4sZ1o24eHLyXwTkJDdQrx 8+1rDo2USGDu+4XWvFUk/yeUu2edBL66f25XE3FpjMN1314JdFAbDXeoocj6 Z8wOlZTEIqf9IY71FNzp8H+cJSOJO4I0WPHEDWdyfCrlJTE19GxCGbFy7iJu PiVJHOXS5KQ3UNAk/UYiWksSc5a87Wgh1hxft/mKkSQ2+pc1b2ykoCeTGX/L XxI/VO0r7WuiYDDk+wx3oCQKiNV8FG+mYNT+tq1zsCRa0n2KtxBz0JnqWhGS eNRRhf8msXQCo6wsQRJpfmdjd7eQ5xtGH+55JIlX/fPOZH6koMhJbpdGnyQ6 MSJa1n+i4I3hl/zYQUmsvLg07TBxNeumxAQliRvv9G0NJ279Jtv1apLk68Mj 3Uo8ul/Wdw+PFMr8UO33aKdAdbvMXQ+6FC5d/9Us/TMF8apSPC8spDD4eJrB ry8UWNsoZ3VZSuGmqk8Ci7+S+savMhKylsIFv+2fLiMumN8de8ReCjtjPz04 Ttz8MUhW6KQUbtY8oDVALHZhcPWRcCmsHLZP6/1GQdz3YkfBQincSmf3VHyn IDb5aIUdQxqXPM7w1Omh4Ix30Gl/ljQKX7jTbkZsY5ZCT1CWxoJKpWUuxBp8 H8/UakjjzjTuwBTiqv8MVdfpSKP7bU8Jrl4KuA4oXhQwk0aVMq35cmIviR9G z4KlcevdZ3obfpF8xv5MNoZK4+CUU4cJsUGDVPrgRWl08ZVydCIWDTOdY8ZK 42h4zbp44tzJkpyoG9Iob+nTPUj8q+WWgP0TabSNUDyR3EeBVfyheoGf0qgc JnC/t58C2cd8Mif6pdFPiAr6Tfyt8ZlT1ZA06oq93iI6QJH9qihn6Lg06gv6 BOsSu0W8WzXPKYMrUwr+xBEHBa5IGpGVQXejFkpnkIJsF06Hj2YyGFPaauUz RIFLZG7e6n0yWFb/JCGSWPPewT9xB2Qw+4FQaQrxo59Pru05LINBzwI+lRMX 2R+vqnSVwdXdR1k0NgXvLZs0C8Nl8NnSdvV04mmDjJlbr2XwhLPxpUKKAv/C W8HlpTLYxgw9VEPMoZ0s2FdO4nv8XPYz8UL6JaZ2jQx+rTN0myUWn/HZUd4q g6cNz9uuH6Zg1YNdSb+GZXDU+XBoPrHb0vH1WixZ/HPMST9phMy/SHaZhbIs /tYb2ZFF7MXVt8t3mSyKP5Y2eELsT305/GaFLGoJnaU1EkdWVYRbbJJF5U3f +BaNUnA34HrbfxayKDxxP/Y0cVePvk9ZmCwGbt6zavMYBfq36tPUImVxJnZ/ vjFxqqVVXVyMLJZ8smdaE9vUuCscuSqLg29ftnoTt+el1nKnEwtPp+QQf/D7 yzB8LYuKGkXpouNkfRJ5WVUxLouLvpt0fyRm1hiOr5iWxRd9tFc/iANDGuUT 52SxWuLsRTax3tSv085ccpjy4fKfBRMUvOyQkF9Mk8P6mzPmq4kfZXl5GKnL 4XDdf+UxxGm6WjJ1dnLI82rnwo2TZDxjvuA5BzmE40KvDIh/2Hb1L3OWQ1ET q2PGxKygqy9D3eSwqTA/w474zruZA+gnh9KcB3LDiDP2lCU+jpfDb926Cz8Q 37UzF0+ukEODBHuxw1MUVHponK2slsOT4vQcZ+JfwQt6J+vk0A69NrgTq2Y+ e2LeLIcmKUIYRJzdL2Mh+F0O7VWbf6YT3zvdfSVwVg7L74Xl9RA/uOAl4rRc HvvCuayPTJP1btOhoAsr5XHZ9S8Nx4k1xg3G0lfJ45+BmE0exPfsl7R06sjj M/VLHOeJ78LjRKut8ij7t2RVCvGdmWG6sa08NlD3d7USJ7u6aK65LI+BPmFe BjOkXop7b5nHy6OlbDFtJ7FUx0aaR4I8jlYkZpgSJxrxj+belEcBLaMiG+Kr KveeqN4j/Y3uTPEhjv3+c5PsG3nMz2Pr5BCHWRzZyT0hj4zXT6f4Z0k99nRY O07L4zfhpaaixEU7LNwq5uTx80hNuiTxqO62y5FcdOTIsVmjRGytrN4qRqPj IouWxXrE2lOj9orqdIzO6gggLwh8TQzyNbSj46qXd4qriWfi5iKzHOh4X6vO 5D3xkmjPm4ud6fj8m0xHC/GO80dL6tzoWMDe8r2TuOCYEe8+fzLeqGPmJHHE BtG4owl0nPouzmTOUbCm43Z2WB0d6deVOTyIaZrO0w/f07FXSzXGm3jwnOa2 tiY6vm7KlfAjvsMq7FZtp+N2X2u5EOIlJ5rp1b10tNuUP3aVeNafeycvBwPn y0cbnhN/4l9bul2KgSmbko/MEb9bnfSrQ5qBnM7Gx+eJCw79FnaXZeCTtXyu 3L/J831YZpNEZ+CrJXeP8hNvN9/zu0+JgbzOP9VkiJ8nO6+L1Gagpu2rWR3i xGXXH9TtZOApuf2NnsTjY1szgnczUDtl7X0f4j2vR2/o7GFguvZEkD8xr7lR VIYZA0sHGIohxF7+M8cDDjDw0+y9NVeIzRr2qy53YuAbml5SHrGA15L0qCAG Tk+zzv0idoaSZP0QBlpEzHwZIH6z2CVu+gIDo/NX6lDEvilvzjtcZGD/3w/d E8R9FR6HN8UycJGzqQj3H5K/dKPc4E0Gih86UyZLfK4kOnHnCwamLs9P2U3c /6UkfuYlA3WqZIJNiPfNjcVmFTFw4eQZB3NijbVWF7lLSP55IvIHiNtylH0L 3zHI+q3g6kCsnVB8UL2ZgYK3TwX4Eve6jsjzUww0zK/0u0NsGqko82KYgXvo xjxZxEV390s4jTJw2y3FiGziK12vhN9MkHj/NkTnEuOBCA6/3wyMeObq9Zw4 2YD1o38xE3NHVCpriHfLWGRUKzLxUL18zDBxYrdmyUFlJjaJ990aJe5+sOjz oAoTz9/OfDhO7I9FNGF1Jgac4a6aJr7vyPI312Litct+XRx/yf9b3ohZhy4T 2QXSL2jEFQYxHOx9TCxebzOuSSwq5CxzzpKJ4V+MKlcS27RuXkuzYqLoUqdk beLJYxMntA8xcZ3JGp21xMqXrFu9jzBRnmVlp0sc8kktd/4kE7MVdxzaSbzZ reKgyEUmXtQPFT5KPNvWt7U8golWL70anIgLtghon4li4uSGoOhj//qTMl30 5RITGftmuV2JBcrbC+5eY2KNf0r7aeI2KbYg3mGit5TLyvPEp94uKXErZmKU 7OHIZGK1letymKVMPG5wT/QGcVfygWvNZUw0v7078SbxvlMpLhveMdFzPjMl lXiTjKoUbx0TtflaEjKJF7lv9LjZTq63StF9RHxL1l6xdoLkd/WifSXxhlXq mvZTTKS3Jd2uIm7eMb5uepqJ+uFO36r/3X8mdKfibyb6rcL9df/ia7zn4c+l gPwRi9d/IMbQsRINYQU06RYq/kz8gwo5FK2qgBXvNg4MEfvzGjux1BRQuMOE hyIWl5Nwf6GugEEbdsgOExsZZYf0aCrgIf1f20eJH92py9Fdo4Bpu//GTxIH HxCfHdqsgAd2Bcz8JVZ8k3XN+KAChtWqzAnNk/2oxvSdDmsF3BLVMSRM7HNt ++PjNgo40XzrG4245lhfQ6idAjo/tigRJfagqS8udlLAU2aJ3uLExYdy/VZ4 KuDNzC3P5IitpgsO06IV8LGg1SV1Yh77BSdTYhQw60uSowZxbo1FgEasAu5V 4tm4nJjz1mTS9isKeMz+YJcm8V3D9U2BSQrIsFBX0yaeiCs0HMlQwN5knsvr iWOXl6l9eK2Ai5JoVQb/rl9/cHFQiQIu2ax5zfBfPFvGf2qVKaBGuav9VmL2 AeWMy28V8JXwvultxDtDI+imtQoYfrpHaicx7zezJe8/kXi5qlebEvvFdv2p G1fAd1/rGqyJ4677dwRMKiBrf2fQIeJ7mUsLl08rYH/wyjU2xG1F23yi5xTw k050gi3x2r6c0V1cLLx529jcnnh4s+fPGmEWvhtOy3IiPjrG01ilxsLiqdFK d2Kbewb11hosnAl4b+VBvM8upIZazsKzAtKD/7y1gfvdUi0WeseNCXgSK+dw FdqtY+EFs/fbvIl77DkyZraw8IrxwzRfYocPcz7LDrHwc8Xn4SBi64sbvYts WDiaauweTLwX/U7vOczC1Em9kX82yJ119TrCQm5WMhVCrBgxY196jIWMR9t7 Q4m7Nk/tOuDNQo3kycIIYvv8UcbFSyxsip/jjyN2CTL/bXSZhY9StSL+2cu8 oFXgCgtzzdoWXiEOn/CKib3GwnPqvpzx/+qvMzOXcJOFrjJM9lXimdL5j5k5 LPwodOFB0r/6fhCILq9gYe3amspU4uR0V+fQKhYGhePa28TpnvVbttew8Pse nfR/fioeO1tTz8Iet2d+acQdVmLOTS0sbJSYUL5DrNIlteVHFwvH3YaOZhGv LPCVv9PDQp0T7bX/vOHC5xnHnyx8ZmGufZd4l8rNvL5+FmrN98/9s8cJhvzI CAsPVRVfvEfsv+n8zKMxFmYflh785wuCP5o9J1i4dYDHOIc48WF6JPl24akP kbT7xGmBPE4vZ1l4Z9ky93/OMXXU9//NQo9jlo3/XKDwTk7vLwsbBKW1HhC/ HlOemZ9noWacW+w//w9h8Db/ "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0, 2}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{3.502102951955289*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ht", "[", "t_", "]"}], "=", RowBox[{"Abs", "[", "hkrap", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"3.375`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1.5`"}], " ", RowBox[{"Re", "[", "t", "]"}]}]], " ", RowBox[{"Abs", "[", RowBox[{"0.2962962962962963`", "\[InvisibleSpace]", "-", RowBox[{"0.2962962962962963`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.5`", " ", "t"}]]}], "+", RowBox[{"0.4444444444444444`", " ", "t"}], "+", RowBox[{"0.33333333333333337`", " ", SuperscriptBox["t", "2"]}]}], "]"}]}]], "Output", CellChangeTimes->{3.5021029519822903`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ksh", "=", "1000"}], ";"}], RowBox[{"(*", RowBox[{ "\:041a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\:043e", " ", "\:0448\:0430\:043e\:0432"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"dt", "=", RowBox[{"10", "/", "ksh"}], RowBox[{"(*", RowBox[{ "\:0432\:0435\:043b\:0438\:0447\:0438\:043d\:0430", " ", "\:0448\:0430\:0433\:0430"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5018753292890625`*^9, 3.501875347734375*^9}}], Cell[BoxData[ FractionBox["1", "100"]], "Output", CellChangeTimes->{3.5021029520302925`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"us", "=", RowBox[{"ht", "[", "1000", "]"}]}], ";"}], RowBox[{"(*", RowBox[{ "\:0423\:0441\:0442\:0430\:043d\:043e\:0432\:0438\:0432\:0448\:0435\:0435\ \:0441\:044f", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:043e\:0433\:043e", " ", "\:043f\:0440\:043e\:0446\:0435\:0441\:0441\:0430"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"hmax", "=", RowBox[{"ht", "[", "0", "]"}]}], ";"}], RowBox[{"(*", RowBox[{ "\:041d\:0430\:0447\:0430\:043b\:044c\:043d\:043e\:0435", " ", "\:043c\:0430\:043a\:0441\:0438\:043c\:0430\:043b\:044c\:043d\:043e\:0435\ ", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:0438"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5018753532109375`*^9, 3.501875413692383*^9}}], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "\:0427\:0438\:0441\:043b\:0435\:043d\:043d\:043e\:0435", " ", "\:0440\:0435\:0448\:0435\:043d\:0438\:0435", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", "h", RowBox[{"(", "t", ")"}]}], "=", RowBox[{ RowBox[{"0.95", " ", "\:0438", " ", "h", RowBox[{"(", "t", ")"}]}], "=", "1.05"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ "\:043e\:0431\:044a\:0435\:0434\:0438\:043d\:0435\:043d\:043d\:044b\:0445\ ", " ", "\:0432", " ", "\:043e\:0434\:043d\:043e"}], " ", "|", RowBox[{ RowBox[{"h", RowBox[{"(", "t", ")"}]}], "-", "1"}], "|", RowBox[{"-", "0.05"}]}], "=", "0"}], ",", " ", RowBox[{ RowBox[{ "\:0442", ".", "\:0435", ".", " ", "\:043d\:0430\:0445\:043e\:0436\:0434\:0435\:043d\:0438\:0435"}], " ", "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\ \:044f"}], ",", " ", RowBox[{ "\:0438", " ", "\:0442\:0430\:043a\:0436\:0435", " ", "\:0440\:0430\:0441\:0447\:0435\:0442", " ", "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\ \:0432\:0430\:043d\:0438\:044f"}]}], "*)"}]], "Input", CellChangeTimes->{{3.5018754763935547`*^9, 3.5018755326845703`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"ksh", "+", "1"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Sign", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"ht", "[", RowBox[{"dt", "*", RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}]}], "]"}], "-", "us"}], "]"}], "-", "0.05"}], "]"}], "\[NotEqual]", RowBox[{"Sign", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"ht", "[", RowBox[{"dt", "*", RowBox[{"(", "i", ")"}]}], "]"}], "-", "us"}], "]"}], "-", "0.05"}], "]"}]}], ",", RowBox[{"tr", "=", RowBox[{"dt", "*", RowBox[{"(", RowBox[{"i", "-", "0.5"}], ")"}]}]}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"hmax", "<", RowBox[{"ht", "[", RowBox[{"dt", "*", "i"}], "]"}]}], ",", RowBox[{"hmax", "=", RowBox[{"ht", "[", RowBox[{"dt", "*", "i"}], "]"}]}]}], "]"}]}], "}"}], ";", RowBox[{"i", "++"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"sig", "=", RowBox[{"Abs", "[", RowBox[{"100", "*", RowBox[{ RowBox[{"(", RowBox[{"hmax", "-", "us"}], ")"}], "/", "us"}]}], "]"}]}], "\[IndentingNewLine]", "tr"}], "Input"], Cell[BoxData["0.003930844818444967`"], "Output", CellChangeTimes->{3.502102952120298*^9}], Cell[BoxData["4.195`"], "Output", CellChangeTimes->{3.5021029521533003`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"kk", "=", "4"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"step", "=", RowBox[{ RowBox[{"(", RowBox[{"1.9", "-", "0.1"}], ")"}], "/", "2"}], RowBox[{"(*", RowBox[{ "\:0437\:0430\:0434\:0430\:0435\:043c", " ", "\:0448\:0430\:0433", " ", "\:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\:044f", " ", "\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445\ ", " ", "\:0447\:0438\:0441\:0435\:043b"}], "*)"}]}]], "Input", CellChangeTimes->{{3.501875575317383*^9, 3.5018755966621094`*^9}}], Cell[BoxData["0.8999999999999999`"], "Output", CellChangeTimes->{3.502102952261306*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"myun", "=", "1.2"}], ";", RowBox[{"nyun", "=", "1.8"}], ";", RowBox[{"in", "=", "3"}], ";"}], RowBox[{"(*", RowBox[{ "\:041d\:0430\:0447\:0430\:043b\:044c\:043d\:044b\:0435", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f", " ", "\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445\ ", " ", "\:0447\:0438\:0441\:0435\:043b"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5018755469248047`*^9, 3.5018755607529297`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"minTreg", "=", "100"}], ";"}]], "Input", CellChangeTimes->{{3.5018713925371094`*^9, 3.5018714023408203`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:041c\:0435\:0442\:043e\:0434 \:043f\:043e\:043b\:043d\:043e\:0433\:043e \ \:043f\:043b\:0430\:043d\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f \ \>", "Subsubtitle", CellChangeTimes->{{3.5018748883916016`*^9, 3.5018749090126953`*^9}}], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "kk"}], ",", RowBox[{"(*", RowBox[{"\:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\:0435", " ", RowBox[{ "\:043f\:0435\:0440\:0435\:0434", ".", " ", "\:0447\:0438\:0441\:043b\:0430"}], " ", "myu"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", "kk"}], ",", RowBox[{"(*", RowBox[{"\:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\:0435", " ", RowBox[{ "\:043f\:0435\:0440\:0435\:0434", ".", " ", "\:0447\:0438\:0441\:043b\:0430"}], " ", "nyu"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "<", "kk"}], ",", RowBox[{"(*", RowBox[{ "\:0438\:0437\:043c\:0435\:043d\:0435\:043d\:0438\:0435", " ", RowBox[{ "\:043f\:0435\:0440\:0435\:0434", ".", " ", "\:0447\:0438\:0441\:043b\:0430"}], " ", "i"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"myu", "=", RowBox[{"myun", "*", RowBox[{"(", RowBox[{"0.1", "+", RowBox[{"step", "*", RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"nyu", "=", RowBox[{"nyun", "*", RowBox[{"(", RowBox[{"0.1", "+", RowBox[{"step", "*", RowBox[{"(", RowBox[{"j", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ii", "=", RowBox[{"in", "*", RowBox[{"(", RowBox[{"0.1", "+", RowBox[{"step", "*", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "b1"}], ")"}], ",", "0", ",", "b3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "s", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"myu", ",", RowBox[{"(", RowBox[{"ii", "+", RowBox[{"nyu", "/", "s"}]}], ")"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", "\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0433\:043e\ ", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}], "\[IndentingNewLine]", RowBox[{"M0", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "b1"}], ")"}], ",", "0", ",", "b3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"myu", ",", RowBox[{"nyu", "/", "s"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", "\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\ \:0433\:043e", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}], "\[IndentingNewLine]", FormBox[ RowBox[{"wn", "=", RowBox[{ RowBox[{"Det", "[", "M0", "]"}], "/", RowBox[{"Det", "[", "M1", "]"}]}]}], TraditionalForm], ";", RowBox[{"(*", RowBox[{ "\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\ \:0430\:044f", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:044f"}], "*)"}], "\[IndentingNewLine]", RowBox[{"hkrap", "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"wn", "/", "s"}], ",", "s", ",", "t"}], "]"}]}], ";", RowBox[{"(*", RowBox[{ "\:041f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:0430\:044f", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:044f"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ht", "[", "t_", "]"}], "=", RowBox[{"Abs", "[", "hkrap", "]"}]}], ";", "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"us", "=", RowBox[{"ht", "[", "10000", "]"}]}], ";"}], RowBox[{"(*", RowBox[{ "\:0437\:0430\:0434\:0430\:0435\:043c", " ", "\:0443\:0441\:0442\:0430\:043d\:043e\:0432\:0438\:0432\ \:0448\:0435\:0435\:0441\:044f", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hmax", "=", "1"}], ";"}], RowBox[{"(*", RowBox[{ "\:0437\:0430\:0434\:0430\:0435\:043c", " ", "\:043c\:0430\:043a\:0441\:0438\:043c\:0430\:043b\:044c\ \:043d\:043e\:0435", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "\:0427\:0438\:0441\:043b\:0435\:043d\:043d\:043e\:0435", " ", "\:0440\:0435\:0448\:0435\:043d\:0438\:0435", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", RowBox[{"h", "(", "t", ")"}]}], "=", RowBox[{ RowBox[{"0.95", " ", "\:0438", " ", RowBox[{"h", "(", "t", ")"}]}], "=", "1.05"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ "\:043e\:0431\:044a\:0435\:0434\:0438\:043d\:0435\:043d\ \:043d\:044b\:0445", " ", "\:0432", " ", "\:043e\:0434\:043d\:043e"}], " ", "|", RowBox[{ RowBox[{"h", "(", "t", ")"}], "-", "1"}], "|", RowBox[{"-", "0.05"}]}], "=", "0"}], ",", " ", RowBox[{ RowBox[{ "\:0442", ".", "\:0435", ".", " ", "\:043d\:0430\:0445\:043e\:0436\:0434\:0435\:043d\:0438\ \:0435"}], " ", "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\ \:0430\:043d\:0438\:044f"}], ",", " ", RowBox[{ "\:0438", " ", "\:0442\:0430\:043a\:0436\:0435", " ", "\:0440\:0430\:0441\:0447\:0435\:0442", " ", "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\ \:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"l", "=", "1"}], ",", RowBox[{"l", "<", RowBox[{"ksh", "+", "1"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Sign", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"ht", "[", RowBox[{"dt", "*", RowBox[{"(", RowBox[{"l", "-", "1"}], ")"}]}], "]"}], "-", "us"}], "]"}], "-", "0.05"}], "]"}], "\[NotEqual]", RowBox[{"Sign", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"ht", "[", RowBox[{"dt", "*", RowBox[{"(", "l", ")"}]}], "]"}], "-", "us"}], "]"}], "-", "0.05"}], "]"}]}], ",", RowBox[{"trs", "=", RowBox[{"dt", "*", RowBox[{"(", RowBox[{"l", "-", "0.5"}], ")"}]}]}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"hmax", "<", RowBox[{"ht", "[", RowBox[{"dt", "*", "i"}], "]"}]}], ",", RowBox[{"hmax", "=", RowBox[{"ht", "[", RowBox[{"dt", "*", "i"}], "]"}]}]}], "]"}]}], "}"}], ";", RowBox[{"l", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"trs", "<", "minTreg"}], ",", RowBox[{"minTreg", "=", "trs"}], ",", RowBox[{"sigm", "=", RowBox[{"Round", "[", RowBox[{"Abs", "[", RowBox[{"100", "*", RowBox[{ RowBox[{"(", RowBox[{"hmax", "-", "us"}], ")"}], "/", "us"}]}], "]"}], "]"}]}]}], "]"}], ";"}]}], TraditionalForm]}], RowBox[{"(*", RowBox[{ "\:041d\:0430\:0445\:043e\:0434\:0438\:043c", " ", "\:043c\:0438\:043d\:0438\:043c\:0430\:043b\:044c\:043d\:043e\ \:0435", " ", "\:0432\:0440\:0435\:043c\:044f", " ", "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:0438\:044f", " ", "\:0438", " ", "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\ \:0440\:043e\:0432\:0430\:043d\:0438\:0435"}], "*)"}], "\[IndentingNewLine]", "}"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.501863327841797*^9, 3.5018634624384766`*^9}, 3.5018636246533203`*^9, 3.501863740973633*^9, {3.5018639826933594`*^9, 3.501863986158203*^9}, {3.501864557310547*^9, 3.5018645668847656`*^9}, { 3.5018659076279297`*^9, 3.5018659617373047`*^9}, 3.50186605253125*^9, { 3.5018665430234375`*^9, 3.501866589272461*^9}, {3.501866790216797*^9, 3.5018667995634766`*^9}, {3.5018668390664062`*^9, 3.501866876404297*^9}, 3.501866939185547*^9, {3.5018670946748047`*^9, 3.501867114328125*^9}, { 3.5018674136679688`*^9, 3.5018674658828125`*^9}, {3.5018674964628906`*^9, 3.5018675167910156`*^9}, {3.50186813640625*^9, 3.501868154366211*^9}, { 3.501868458345703*^9, 3.501868459166992*^9}, 3.501868531026367*^9, { 3.501868673665039*^9, 3.5018686741279297`*^9}, {3.501868835801758*^9, 3.501868881044922*^9}, {3.501869006323242*^9, 3.5018690099345703`*^9}, { 3.501869161291992*^9, 3.5018691672177734`*^9}, {3.501869225665039*^9, 3.5018692279765625`*^9}, {3.501869281817383*^9, 3.5018692829160156`*^9}, { 3.501869419678711*^9, 3.501869421953125*^9}, {3.5018694595615234`*^9, 3.501869461260742*^9}, {3.5018695609560547`*^9, 3.501869582373047*^9}, 3.5018696608945312`*^9, 3.501869712821289*^9, {3.501869840354492*^9, 3.5018698715117188`*^9}, {3.5018699082666016`*^9, 3.5018699303564453`*^9}, {3.501869988213867*^9, 3.5018699896367188`*^9}, { 3.5018702714316406`*^9, 3.5018702759472656`*^9}, 3.5018703147890625`*^9, { 3.5018705865146484`*^9, 3.5018706219248047`*^9}, {3.5018707085751953`*^9, 3.5018707096728516`*^9}, 3.501870754705078*^9, {3.5018714090410156`*^9, 3.5018716765585938`*^9}, {3.5018717242851562`*^9, 3.5018717434257812`*^9}, {3.501871832088867*^9, 3.501871833428711*^9}, { 3.5018756124765625`*^9, 3.5018756977148438`*^9}, {3.50187573321875*^9, 3.501875807538086*^9}, {3.5018758380341797`*^9, 3.501875901276367*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"myuoptim", "=", RowBox[{ RowBox[{"(", RowBox[{"18", "-", RowBox[{"b1", "*", "tr"}]}], ")"}], "/", RowBox[{"(", RowBox[{"b3", "*", "minTreg"}], ")"}]}]}], ";"}], RowBox[{"(*", RowBox[{ "\:043e\:043f\:0442\:0438\:043c\:0430\:043b\:044c\:043d\:044b\:0435", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f", " ", "\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445\ ", " ", "\:0447\:0438\:0441\:0435\:043b"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyuoptim", "=", RowBox[{"216", "/", RowBox[{"(", RowBox[{"b3", "*", RowBox[{"minTreg", "^", "3"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ioptim", "=", RowBox[{"108", "/", RowBox[{"(", RowBox[{"b3", "*", RowBox[{"minTreg", "^", "2"}]}], ")"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.5018726404785156`*^9, 3.5018727579140625`*^9}, { 3.501875912083008*^9, 3.5018759410810547`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Print", "[", RowBox[{ "\"\<\:0423\:0447\:0438\:0442\:044b\:044b\:0432\:0430\:044f \:0437\:043d\ \:0430\:0447\:0435\:043d\:0438\:044f \:0432\:0440\:0435\:043c\:0435\:043d\ \:0438 \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\ \:0438\:044f \:0438 \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\ \:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f, \:043f\:043e\:043b\:0443\ \:0447\:0430\:0435\:043c, \:0447\:0442\:043e \:043d\:0430\:0438\:0431\:043e\ \:043b\:0435\:0435 \:043e\:043f\:0442\:0438\:043c\:0430\:043b\:044c\:043d\ \:044b\:0435 \:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f \:043f\:0435\ \:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445 \:0447\:0438\ \:0441\:0435\:043b \:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442\ \:0430 \:0440\:0430\:0432\:043d\:044b: myu=\>\"", ",", " ", "myuoptim", ",", "\"\<, nyu=\>\"", ",", "nyuoptim", ",", "\"\<, i=\>\"", ",", "ioptim", ",", "\"\<. \:041f\:0440\:0438 \:044d\:0442\:043e\:043c \:0432\:0440\:0435\ \:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:0438\:044f \:0441\:043e\:0441\:0442\:0430\:0432\:043b\:044f\:0435\ \:0442 \>\"", ",", " ", "minTreg", ",", "\"\\"", ",", "sigm", ",", "\"\<%.\>\""}], "]"}]], "Input", CellChangeTimes->{{3.5018711045273438`*^9, 3.5018711048095703`*^9}, { 3.501871873276367*^9, 3.501871917333008*^9}, {3.501872559294922*^9, 3.501872635073242*^9}, {3.5018727677158203`*^9, 3.501872834397461*^9}, { 3.50187287478125*^9, 3.5018729733447266`*^9}, 3.501873115131836*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0423\:0447\:0438\:0442\:044b\:044b\:0432\:0430\:044f \:0437\ \:043d\:0430\:0447\:0435\:043d\:0438\:044f \:0432\:0440\:0435\:043c\:0435\ \:043d\:0438 \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:0438\:044f \:0438 \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\ \:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f, \:043f\:043e\:043b\ \:0443\:0447\:0430\:0435\:043c, \:0447\:0442\:043e \:043d\:0430\:0438\:0431\ \:043e\:043b\:0435\:0435 \:043e\:043f\:0442\:0438\:043c\:0430\:043b\:044c\ \:043d\:044b\:0435 \:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f \:043f\ \:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445 \:0447\ \:0438\:0441\:0435\:043b \:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\ \:0442\:0430 \:0440\:0430\:0432\:043d\:044b: myu=\"\>", "\[InvisibleSpace]", "0.11656477506066823`", "\[InvisibleSpace]", "\<\", nyu=\"\>", "\[InvisibleSpace]", "0.8500494421419487`", "\[InvisibleSpace]", "\<\", i=\"\>", "\[InvisibleSpace]", "1.0349351958078223`", "\[InvisibleSpace]", "\<\". \:041f\:0440\:0438 \:044d\:0442\:043e\:043c \ \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\ \:043e\:0432\:0430\:043d\:0438\:044f \:0441\:043e\:0441\:0442\:0430\:0432\ \:043b\:044f\:0435\:0442 \"\>", "\[InvisibleSpace]", "2.435`", "\[InvisibleSpace]", "\<\"c, \:0430 \:043f\:0435\:0440\:0435\:0440\:0435\ \:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 - \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0423\:0447\:0438\:0442\:044b\:044b\:0432\:0430\:044f \:0437\:043d\:0430\ \:0447\:0435\:043d\:0438\:044f \:0432\:0440\:0435\:043c\:0435\:043d\:0438 \ \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f\ \:0438 \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\ \:043e\:0432\:0430\:043d\:0438\:044f, \:043f\:043e\:043b\:0443\:0447\:0430\ \:0435\:043c, \:0447\:0442\:043e \:043d\:0430\:0438\:0431\:043e\:043b\:0435\ \:0435 \:043e\:043f\:0442\:0438\:043c\:0430\:043b\:044c\:043d\:044b\:0435 \ \:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f \:043f\:0435\:0440\:0435\ \:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445 \:0447\:0438\:0441\:0435\ \:043b \:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442\:0430 \:0440\ \:0430\:0432\:043d\:044b: myu=", 0.11656477506066823`, ", nyu=", 0.8500494421419487, ", i=", 1.0349351958078223`, ". \:041f\:0440\:0438 \:044d\:0442\:043e\:043c \:0432\:0440\:0435\:043c\ \:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\ \:0438\:044f \:0441\:043e\:0441\:0442\:0430\:0432\:043b\:044f\:0435\:0442 ", 2.435, "c, \:0430 \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\ \:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 - ", 0, "%."], Editable->False]], "Print", CellChangeTimes->{3.502102953603383*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:041b\:0430\:0442\:0438\:043d\:0441\:043a\:0438\:0439 \:043a\:0432\:0430\ \:0434\:0440\:0430\:0442 \ \>", "Subsubtitle", CellChangeTimes->{{3.5018748476123047`*^9, 3.501874876573242*^9}, { 3.501876390213867*^9, 3.501876391435547*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ksh", "=", "3"}], ";"}], " ", RowBox[{"(*", RowBox[{ "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\:043e", " ", "\:0443\:0440\:043e\:0432\:043d\:0435\:0439", " ", "\:0434\:043b\:044f", " ", "\:043a\:0430\:0436\:0434\:043e\:0433\:043e", " ", "\:0444\:0430\:043a\:0442\:043e\:0440\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5018749162734375`*^9, 3.5018749166660156`*^9}, { 3.501874987245117*^9, 3.501875035779297*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"step", "=", RowBox[{ RowBox[{"(", RowBox[{"1.9", "-", "0.1"}], ")"}], "/", "2"}]}], " ", ";"}], RowBox[{"(*", RowBox[{ "\:0432\:0435\:043b\:0438\:0447\:0438\:043d\:0430", " ", "\:0448\:0430\:0433\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5018750422353516`*^9, 3.5018750425820312`*^9}, { 3.501875974326172*^9, 3.5018759888515625`*^9}, 3.5018760821328125`*^9}], Cell[BoxData[ StyleBox[ RowBox[{"(*", RowBox[{ "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435", " ", "\:0432\:0441\:0435\:0445", " ", "\:0444\:0430\:043a\:0442\:043e\:0440\:043e\:0432", " ", "\:043d\:0430", " ", "\:043a\:0430\:0436\:0434\:043e\:043c", " ", RowBox[{"\:0443\:0440\:043e\:0432\:043d\:0435", ":"}]}], "*)"}], FontWeight->"Bold"]], "Input", CellChangeTimes->{{3.5018763574052734`*^9, 3.5018763665722656`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"myuf", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"myun", "*", RowBox[{"(", RowBox[{"0.1", "+", RowBox[{"step", "*", RowBox[{"(", "i", ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "ksh"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyuf", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"nyun", "*", RowBox[{"(", RowBox[{"0.1", "+", RowBox[{"step", "*", RowBox[{"(", "i", ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "ksh"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"iif", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"in", "*", RowBox[{"(", RowBox[{"0.1", "+", RowBox[{"step", "*", RowBox[{"(", "i", ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "ksh"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5018761392460938`*^9, 3.5018761487382812`*^9}, { 3.501876187915039*^9, 3.5018763474189453`*^9}}], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"ksh", "+", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"ksh", "+", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"myu", "=", RowBox[{"myuf", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nyu", "=", RowBox[{"nyuf", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"i", "=", RowBox[{"iif", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"M1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "b1"}], ")"}], ",", "0", ",", "b3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "s", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"myu", ",", RowBox[{"(", RowBox[{"ii", "+", RowBox[{"nyu", "/", "s"}]}], ")"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", "\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0433\:043e", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}], "\[IndentingNewLine]", RowBox[{"M0", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "b1"}], ")"}], ",", "0", ",", "b3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"myu", ",", RowBox[{"nyu", "/", "s"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", "\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\ \:0433\:043e", " ", "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}], "\[IndentingNewLine]", FormBox[ RowBox[{"wn", "=", RowBox[{ RowBox[{"Det", "[", "M0", "]"}], "/", RowBox[{"Det", "[", "M1", "]"}]}]}], TraditionalForm], ";", RowBox[{"(*", RowBox[{ "\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\ \:0430\:044f", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:044f"}], "*)"}], "\[IndentingNewLine]", RowBox[{"hkrap", "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"wn", "/", "s"}], ",", "s", ",", "t"}], "]"}]}], ";", RowBox[{"(*", RowBox[{ "\:041f\:0435\:0440\:0435\:0445\:043e\:0434\:043d\:0430\:044f", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:044f"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ht", "[", "t_", "]"}], "=", RowBox[{"Abs", "[", "hkrap", "]"}]}], ";", "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{"us", "=", RowBox[{"ht", "[", "10000", "]"}]}], ";"}], RowBox[{"(*", RowBox[{ "\:0437\:0430\:0434\:0430\:0435\:043c", " ", "\:0443\:0441\:0442\:0430\:043d\:043e\:0432\:0438\:0432\:0448\ \:0435\:0435\:0441\:044f", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hmax", "=", "1"}], ";"}], RowBox[{"(*", RowBox[{ "\:0437\:0430\:0434\:0430\:0435\:043c", " ", "\:043c\:0430\:043a\:0441\:0438\:043c\:0430\:043b\:044c\:043d\ \:043e\:0435", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "\:0427\:0438\:0441\:043b\:0435\:043d\:043d\:043e\:0435", " ", "\:0440\:0435\:0448\:0435\:043d\:0438\:0435", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", RowBox[{"h", "(", "t", ")"}]}], "=", RowBox[{ RowBox[{"0.95", " ", "\:0438", " ", RowBox[{"h", "(", "t", ")"}]}], "=", "1.05"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ "\:043e\:0431\:044a\:0435\:0434\:0438\:043d\:0435\:043d\:043d\ \:044b\:0445", " ", "\:0432", " ", "\:043e\:0434\:043d\:043e"}], " ", "|", RowBox[{ RowBox[{"h", "(", "t", ")"}], "-", "1"}], "|", RowBox[{"-", "0.05"}]}], "=", "0"}], ",", " ", RowBox[{ RowBox[{ "\:0442", ".", "\:0435", ".", " ", "\:043d\:0430\:0445\:043e\:0436\:0434\:0435\:043d\:0438\:0435\ "}], " ", "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:0438\:044f"}], ",", " ", RowBox[{ "\:0438", " ", "\:0442\:0430\:043a\:0436\:0435", " ", "\:0440\:0430\:0441\:0447\:0435\:0442", " ", "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\ \:0440\:043e\:0432\:0430\:043d\:0438\:044f"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"l", "=", "1"}], ",", RowBox[{"l", "<", RowBox[{"ksh", "+", "1"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Sign", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"ht", "[", RowBox[{"dt", "*", RowBox[{"(", RowBox[{"l", "-", "1"}], ")"}]}], "]"}], "-", "us"}], "]"}], "-", "0.05"}], "]"}], "\[NotEqual]", RowBox[{"Sign", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"ht", "[", RowBox[{"dt", "*", RowBox[{"(", "l", ")"}]}], "]"}], "-", "us"}], "]"}], "-", "0.05"}], "]"}]}], ",", RowBox[{"trs", "=", RowBox[{"dt", "*", RowBox[{"(", RowBox[{"l", "-", "0.5"}], ")"}]}]}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"hmax", "<", RowBox[{"ht", "[", RowBox[{"dt", "*", "i"}], "]"}]}], ",", RowBox[{"hmax", "=", RowBox[{"ht", "[", RowBox[{"dt", "*", "i"}], "]"}]}]}], "]"}]}], "}"}], ";", RowBox[{"l", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"trs", "<", "minTreg"}], ",", RowBox[{"minTreg", "=", "trs"}], ",", RowBox[{"sigm", "=", RowBox[{"Round", "[", RowBox[{"Abs", "[", RowBox[{"100", "*", RowBox[{ RowBox[{"(", RowBox[{"hmax", "-", "us"}], ")"}], "/", "us"}]}], "]"}], "]"}]}]}], "]"}]}], TraditionalForm]}], RowBox[{"(*", RowBox[{ "\:041d\:0430\:0445\:043e\:0434\:0438\:043c", " ", "\:043c\:0438\:043d\:0438\:043c\:0430\:043b\:044c\:043d\:043e\ \:0435", " ", "\:0432\:0440\:0435\:043c\:044f", " ", "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:0438\:044f", " ", "\:0438", " ", "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\ \:0440\:043e\:0432\:0430\:043d\:0438\:0435"}], "*)"}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"iif", "=", RowBox[{"RotateLeft", "[", RowBox[{"iif", ",", "1"}], "]"}]}], ";"}], RowBox[{"(*", RowBox[{ "\:0421\:0434\:0432\:0438\:0433", " ", "\:043c\:0430\:0441\:0441\:0438\:0432\:0430", " ", "\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\ \:0433\:043e", " ", "\:0447\:0438\:0441\:043b\:0430", " ", "i", " ", "\:0432\:043b\:0435\:0432\:043e", " ", "\:043d\:0430", " ", "1", " ", "\:043f\:043e\:0437\:0438\:0446\:0438\:044e"}], "*)"}], "}"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5018763793291016`*^9, 3.5018765761816406`*^9}, { 3.501876606413086*^9, 3.501876661216797*^9}, {3.501876704364258*^9, 3.501876866826172*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"myuoptim", "=", RowBox[{ RowBox[{"(", RowBox[{"18", "-", RowBox[{"b1", "*", "tr"}]}], ")"}], "/", RowBox[{"(", RowBox[{"b3", "*", "minTreg"}], ")"}]}]}], ";"}], RowBox[{"(*", RowBox[{ "\:043e\:043f\:0442\:0438\:043c\:0430\:043b\:044c\:043d\:044b\:0435", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f", " ", "\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445\ ", " ", "\:0447\:0438\:0441\:0435\:043b"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyuoptim", "=", RowBox[{"216", "/", RowBox[{"(", RowBox[{"b3", "*", RowBox[{"minTreg", "^", "3"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ioptim", "=", RowBox[{"108", "/", RowBox[{"(", RowBox[{"b3", "*", RowBox[{"minTreg", "^", "2"}]}], ")"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.5018768910908203`*^9, 3.5018768921992188`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Print", "[", RowBox[{ "\"\<\:0423\:0447\:0438\:0442\:044b\:044b\:0432\:0430\:044f \:0437\:043d\ \:0430\:0447\:0435\:043d\:0438\:044f \:0432\:0440\:0435\:043c\:0435\:043d\ \:0438 \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\ \:0438\:044f \:0438 \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\ \:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f, \:043f\:043e\:043b\:0443\ \:0447\:0430\:0435\:043c, \:0447\:0442\:043e \:043d\:0430\:0438\:0431\:043e\ \:043b\:0435\:0435 \:043e\:043f\:0442\:0438\:043c\:0430\:043b\:044c\:043d\ \:044b\:0435 \:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f \:043f\:0435\ \:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445 \:0447\:0438\ \:0441\:0435\:043b \:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442\ \:0430 \:0440\:0430\:0432\:043d\:044b: myu=\>\"", ",", " ", "myuoptim", ",", "\"\<, nyu=\>\"", ",", "nyuoptim", ",", "\"\<, i=\>\"", ",", "ioptim", ",", "\"\<. \:041f\:0440\:0438 \:044d\:0442\:043e\:043c \:0432\:0440\:0435\ \:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:0438\:044f \:0441\:043e\:0441\:0442\:0430\:0432\:043b\:044f\:0435\ \:0442 \>\"", ",", " ", "minTreg", ",", "\"\\"", ",", "sigm", ",", "\"\<%.\>\""}], "]"}]], "Input", CellChangeTimes->{{3.5018769065859375`*^9, 3.501876907665039*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"\:0423\:0447\:0438\:0442\:044b\:044b\:0432\:0430\:044f \:0437\ \:043d\:0430\:0447\:0435\:043d\:0438\:044f \:0432\:0440\:0435\:043c\:0435\ \:043d\:0438 \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\ \:043d\:0438\:044f \:0438 \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\ \:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f, \:043f\:043e\:043b\ \:0443\:0447\:0430\:0435\:043c, \:0447\:0442\:043e \:043d\:0430\:0438\:0431\ \:043e\:043b\:0435\:0435 \:043e\:043f\:0442\:0438\:043c\:0430\:043b\:044c\ \:043d\:044b\:0435 \:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f \:043f\ \:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445 \:0447\ \:0438\:0441\:0435\:043b \:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\ \:0442\:0430 \:0440\:0430\:0432\:043d\:044b: myu=\"\>", "\[InvisibleSpace]", "0.11656477506066823`", "\[InvisibleSpace]", "\<\", nyu=\"\>", "\[InvisibleSpace]", "0.8500494421419487`", "\[InvisibleSpace]", "\<\", i=\"\>", "\[InvisibleSpace]", "1.0349351958078223`", "\[InvisibleSpace]", "\<\". \:041f\:0440\:0438 \:044d\:0442\:043e\:043c \ \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\ \:043e\:0432\:0430\:043d\:0438\:044f \:0441\:043e\:0441\:0442\:0430\:0432\ \:043b\:044f\:0435\:0442 \"\>", "\[InvisibleSpace]", "2.435`", "\[InvisibleSpace]", "\<\"c, \:0430 \:043f\:0435\:0440\:0435\:0440\:0435\ \:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 - \"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "\:0423\:0447\:0438\:0442\:044b\:044b\:0432\:0430\:044f \:0437\:043d\:0430\ \:0447\:0435\:043d\:0438\:044f \:0432\:0440\:0435\:043c\:0435\:043d\:0438 \ \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f\ \:0438 \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\ \:043e\:0432\:0430\:043d\:0438\:044f, \:043f\:043e\:043b\:0443\:0447\:0430\ \:0435\:043c, \:0447\:0442\:043e \:043d\:0430\:0438\:0431\:043e\:043b\:0435\ \:0435 \:043e\:043f\:0442\:0438\:043c\:0430\:043b\:044c\:043d\:044b\:0435 \ \:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f \:043f\:0435\:0440\:0435\ \:0434\:0430\:0442\:043e\:0447\:043d\:044b\:0445 \:0447\:0438\:0441\:0435\ \:043b \:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442\:0430 \:0440\ \:0430\:0432\:043d\:044b: myu=", 0.11656477506066823`, ", nyu=", 0.8500494421419487, ", i=", 1.0349351958078223`, ". \:041f\:0440\:0438 \:044d\:0442\:043e\:043c \:0432\:0440\:0435\:043c\ \:044f \:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\ \:0438\:044f \:0441\:043e\:0441\:0442\:0430\:0432\:043b\:044f\:0435\:0442 ", 2.435, "c, \:0430 \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\ \:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 - ", 0, "%."], Editable->False]], "Print", CellChangeTimes->{3.5021029537353907`*^9}] }, Open ]] }, Open ]], Cell["\<\ \:0412 \:0440\:0435\:0437\:0443\:043b\:044c\:0442\:0430\:0442\:0435 \:043f\ \:043e\:043b\:0443\:0447\:0438\:043b\:0438, \:0447\:0442\:043e \:043e\:043f\ \:0442\:0438\:043c\:0430\:043b\:044c\:043d\:044b\:0435 \:0437\:043d\:0430\ \:0447\:0435\:043d\:0438\:044f \:043f\:0435\:0440\:0435\:0434\:0430\:0442\ \:043e\:0447\:043d\:044b\:0445 \:0447\:0438\:0441\:0435\:043b \:0430\:0432\ \:0442\:043e\:043f\:0438\:043b\:043e\:0442\:0430 \:043f\:0440\:0438 \:0438\ \:0441\:043f\:043e\:043b\:044c\:0437\:043e\:0432\:0430\:043d\:0438\:0438 \ \:043f\:043e\:043b\:043d\:043e\:0433\:043e \:0444\:0430\:043a\:0442\:043e\ \:0440\:043d\:043e\:0433\:043e \:044d\:043a\:0441\:043f\:0435\:0440\:0438\ \:043c\:0435\:043d\:0442\:0430 \:0438 \:043b\:0430\:0442\:0438\:043d\:0441\ \:043a\:043e\:0433\:043e \:043a\:0432\:0430\:0434\:0440\:0430\:0442\:0430 \ \:0441\:043e\:0432\:043f\:0430\:0434\:0430\:044e\:0442. \:041f\:0440\:0438 \ \:044d\:0442\:043e\:043c \:0432 \:043f\:0435\:0440\:0432\:043e\:043c \:043c\ \:0435\:0442\:043e\:0434\:0435 \:0431\:044b\:043b\:043e N^3 \ \:043f\:0440\:043e\:0433\:043e\:043d\:043e\:0432 (\:0447\:0438\:0441\:043b\ \:043e \:0443\:0440\:043e\:0432\:043d\:0435\:0439 N = 3), \:0430 \:0432\:043e \ \:0432\:0442\:043e\:0440\:043e\:043c - N^2. \:0421\:043b\:0435\:0434\:043e\ \:0432\:0430\:0442\:0435\:043b\:044c\:043d\:043e, \:0438\:0441\:043f\:043e\ \:043b\:044c\:0437\:0443\:044f \:043c\:0435\:0442\:043e\:0434 \"\:041b\:0430\ \:0442\:0438\:043d\:0441\:043a\:0438\:0439 \:043a\:0432\:0430\:0434\:0440\ \:0430\:0442\" \:043c\:044b \:044d\:043a\:043e\:043d\:043e\:043c\:0438\:043c \ \:0432\:0440\:0435\:043c\:044f \:0438 \:0440\:0435\:0441\:0443\:0440\:0441\ \:044b.\ \>", "Subsubtitle", CellChangeTimes->{{3.5018770627109375`*^9, 3.501877180864258*^9}, { 3.5018772217333984`*^9, 3.5018772265742188`*^9}, {3.5019039257177734`*^9, 3.5019039310273438`*^9}, {3.5019040306289062`*^9, 3.5019040473115234`*^9}, { 3.5019040830195312`*^9, 3.501904206899414*^9}}] }, Open ]] }, WindowSize->{1423, 869}, 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, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2550, 97, 286, 9, 31, "Input"], Cell[2839, 108, 284, 9, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3160, 122, 286, 9, 31, "Input"], Cell[3449, 133, 286, 9, 44, "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, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6362, 237, 812, 23, 50, "Input"], Cell[7177, 262, 894, 27, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8108, 294, 143, 4, 30, "Input"], Cell[8254, 300, 1611, 48, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9902, 353, 370, 11, 30, "Input"], Cell[10275, 366, 591, 18, 71, "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, 71, "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, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22078, 759, 703, 22, 31, "Input"], Cell[22784, 783, 885, 27, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23706, 815, 647, 20, 31, "Input"], Cell[24356, 837, 884, 27, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25277, 869, 165, 4, 31, "Input"], Cell[25445, 875, 3178, 95, 71, "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, 71, "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, 71, "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, 71, "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, 71, "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, 74, "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, 38, "Input"], Cell[152333, 4650, 19529, 506, 483, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[171899, 5161, 563, 16, 65, "Input"], Cell[172465, 5179, 26758, 726, 478, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199260, 5910, 253, 7, 38, "Input"], Cell[199516, 5919, 258, 7, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199811, 5931, 541, 16, 38, "Input"], Cell[200355, 5949, 22906, 620, 410, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[223298, 6574, 2347, 54, 115, "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, 480, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[246428, 7162, 124, 3, 38, "Input"], Cell[246555, 7167, 25739, 698, 470, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[272331, 7870, 124, 3, 38, "Input"], Cell[272458, 7875, 19540, 532, 406, "Output"] }, Open ]], Cell[292013, 8410, 489, 16, 38, "Input"], Cell[292505, 8428, 489, 16, 38, "Input"], Cell[292997, 8446, 213, 4, 36, "Text"], Cell[CellGroupData[{ Cell[293235, 8454, 407, 12, 38, "Input"], Cell[293645, 8468, 9205, 244, 217, "Output"] }, Open ]], Cell[302865, 8715, 195, 4, 36, "Text"], Cell[CellGroupData[{ Cell[303085, 8723, 408, 12, 38, "Input"], Cell[303496, 8737, 12441, 346, 232, "Output"] }, Open ]], Cell[315952, 9086, 488, 16, 38, "Input"], Cell[316443, 9104, 489, 16, 38, "Input"], Cell[316935, 9122, 208, 4, 36, "Text"], Cell[CellGroupData[{ Cell[317168, 9130, 407, 12, 38, "Input"], Cell[317578, 9144, 7398, 198, 235, "Output"] }, Open ]], Cell[324991, 9345, 190, 4, 36, "Text"], Cell[CellGroupData[{ Cell[325206, 9353, 407, 12, 38, "Input"], Cell[325616, 9367, 4672, 131, 202, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[330325, 9503, 631, 16, 38, "Input"], Cell[330959, 9521, 884, 28, 126, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[331880, 9554, 362, 11, 38, "Input"], Cell[332245, 9567, 721, 23, 126, "Output"] }, Open ]], Cell[332981, 9593, 297, 8, 38, "Input"], Cell[333281, 9603, 315, 9, 38, "Input"], Cell[333599, 9614, 252, 7, 38, "Input"], Cell[CellGroupData[{ Cell[333876, 9625, 1166, 31, 38, "Input"], Cell[335045, 9658, 1000, 30, 126, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[336082, 9693, 1062, 28, 38, "Input"], Cell[337147, 9723, 863, 25, 126, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[338047, 9753, 104, 3, 38, "Input"], Cell[338154, 9758, 614, 18, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[338805, 9781, 130, 3, 38, "Input"], Cell[338938, 9786, 1180, 35, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[340155, 9826, 203, 6, 38, "Input"], Cell[340361, 9834, 426, 13, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[340824, 9852, 141, 4, 38, "Input"], Cell[340968, 9858, 2305, 68, 126, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[343310, 9931, 1112, 29, 38, "Input"], Cell[344425, 9962, 1111, 32, 126, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[345573, 9999, 905, 28, 65, "Input"], Cell[346481, 10029, 702, 20, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[347220, 10054, 750, 22, 38, "Input"], Cell[347973, 10078, 169, 5, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[348179, 10088, 590, 12, 38, "Input"], Cell[348772, 10102, 374, 10, 41, "Output"] }, Open ]], Cell[349161, 10115, 108, 2, 38, "Input"], Cell[CellGroupData[{ Cell[349294, 10121, 226, 6, 38, "Input"], Cell[349523, 10129, 72, 1, 37, "Output"] }, Open ]], Cell[349610, 10133, 315, 7, 38, "Input"], Cell[CellGroupData[{ Cell[349950, 10144, 204, 7, 38, "Input"], Cell[350157, 10153, 89, 1, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[350283, 10159, 137, 4, 38, "Input"], Cell[350423, 10165, 89, 1, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[350549, 10171, 150, 4, 38, "Input"], Cell[350702, 10177, 91, 1, 37, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[350830, 10183, 931, 25, 38, "Input"], Cell[351764, 10210, 891, 24, 101, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[352692, 10239, 881, 24, 38, "Input"], Cell[353576, 10265, 821, 23, 101, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[354434, 10293, 440, 10, 38, "Input"], Cell[354877, 10305, 324, 10, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[355238, 10320, 517, 12, 38, "Input"], Cell[355758, 10334, 543, 14, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[356338, 10353, 428, 12, 38, "Input"], Cell[356769, 10367, 2209, 42, 315, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[359015, 10414, 486, 14, 38, "Input"], Cell[359504, 10430, 9659, 164, 316, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[369200, 10599, 113, 3, 38, "Input"], Cell[369316, 10604, 566, 14, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[369919, 10623, 511, 14, 65, "Input"], Cell[370433, 10639, 94, 2, 58, "Output"] }, Open ]], Cell[370542, 10644, 940, 22, 65, "Input"], Cell[371485, 10668, 1368, 33, 65, "Input"], Cell[CellGroupData[{ Cell[372878, 10705, 1548, 48, 90, "Input"], Cell[374429, 10755, 90, 1, 37, "Output"], Cell[374522, 10758, 77, 1, 37, "Output"] }, Open ]], Cell[374614, 10762, 68, 2, 38, "Input"], Cell[CellGroupData[{ Cell[374707, 10768, 501, 11, 38, "Input"], Cell[375211, 10781, 88, 1, 37, "Output"] }, Open ]], Cell[375314, 10785, 520, 12, 38, "Input"], Cell[375837, 10799, 145, 3, 38, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[376019, 10807, 251, 6, 82, "Subsubtitle"], Cell[376273, 10815, 13287, 283, 515, "Input"], Cell[389563, 11100, 1055, 30, 90, "Input"], Cell[CellGroupData[{ Cell[390643, 11134, 1706, 26, 65, "Input"], Cell[392352, 11162, 2926, 43, 53, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[395327, 11211, 249, 7, 82, "Subsubtitle"], Cell[395579, 11220, 509, 11, 38, "Input"], Cell[396091, 11233, 450, 12, 38, "Input"], Cell[396544, 11247, 457, 10, 38, "Input"], Cell[397004, 11259, 1151, 37, 90, "Input"], Cell[398158, 11298, 10059, 229, 465, "Input"], Cell[408220, 11529, 1004, 29, 90, "Input"], Cell[CellGroupData[{ Cell[409249, 11562, 1483, 23, 65, "Input"], Cell[410735, 11587, 2928, 43, 53, "Print"] }, Open ]] }, Open ]], Cell[413690, 11634, 1979, 30, 106, "Subsubtitle"] }, Open ]] } ] *) (* End of internal cache information *)