(* 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[ 150266, 4000] NotebookOptionsPosition[ 142619, 3742] NotebookOutlinePosition[ 142998, 3758] CellTagsIndexPosition[ 142955, 3755] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["1. \:041b\:0438\:043d\:0435\:0430\:0440\:0438\:0437\ \:0430\:0446\:0438\:044f \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\ \:044f \:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:044b\:0445 \:0441\ \:0438\:043b", FontSize->24, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.5006570718227777`*^9, 3.500657133569309*^9}, { 3.5017386862756367`*^9, 3.501738694928131*^9}}], Cell[TextData[StyleBox["\:0414\:0438\:043d\:0430\:043c\:0438\:0447\:0435\:0441\ \:043a\:0438\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f \ \:0432\:0440\:0430\:0449\:0430\:0442\:0435\:043b\:044c\:043d\:043e\:0433\:043e\ \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", FontSize->18]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], ",", "0", ",", RowBox[{"-", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "\[Psi]", "]"}], ",", "0", ",", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.5017466135751505`*^9, 3.501746615852754*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", "\[Psi]", "]"}], "0", RowBox[{"-", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}, {"0", "1", "0"}, { RowBox[{"Sin", "[", "\[Psi]", "]"}], "0", RowBox[{"Cos", "[", "\[Psi]", "]"}]} }, 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.5017447416872606`*^9, 3.5017466293779783`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], ",", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], ",", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448792466793`*^9}, { 3.50174661906636*^9, 3.5017466203767624`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], "0"}, { RowBox[{"-", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], "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.50174488112858*^9, 3.50174663056358*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"m3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Cos", "[", "\[Gamma]", "]"}], ",", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], ",", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, { 3.5017449390427017`*^9, 3.5017449986727157`*^9}, {3.5017466234343677`*^9, 3.50174662486957*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", RowBox[{"Cos", "[", "\[Gamma]", "]"}], RowBox[{"Sin", "[", "\[Gamma]", "]"}]}, {"0", RowBox[{"-", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], RowBox[{"Cos", "[", "\[Gamma]", "]"}]} }, 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.5017450006872272`*^9, 3.501746631858382*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Mlg", "=", RowBox[{"m3", ".", "m2", ".", "m1"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, { 3.5017449390427017`*^9, 3.5017450522066045`*^9}, {3.501746521509713*^9, 3.5017465238029175`*^9}, {3.501746647084009*^9, 3.5017466776912627`*^9}, { 3.5017473914961505`*^9, 3.501747393371051*^9}, {3.5017491712107525`*^9, 3.501749171590774*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]} }, 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.501745053804489*^9, 3.5017465250665197`*^9, 3.501746633262385*^9, 3.5017472991139665`*^9, 3.5017486558492756`*^9, 3.5017491740619154`*^9, { 3.5017492988600535`*^9, 3.501749307608554*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Mag", "=", RowBox[{"ReplaceAll", "[", RowBox[{"MNormSvjaz", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "\[Rule]", "\[CapitalPsi]"}], ",", RowBox[{"\[CurlyTheta]", "\[Rule]", "\[CapitalTheta]"}], ",", RowBox[{"\[Gamma]", "\[Rule]", "\[CapitalGamma]"}]}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0432", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:0443\:044e"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, { 3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, { 3.501746916257436*^9, 3.501746980654349*^9}, {3.5017470567462873`*^9, 3.501747110461187*^9}, {3.501747151088579*^9, 3.5017471555634212`*^9}, { 3.501747211096614*^9, 3.5017472180943937`*^9}, {3.50174738330851*^9, 3.501747399763796*^9}, {3.5017491939440527`*^9, 3.501749194550087*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}]}], RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], " ", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}], RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}]} }, 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.5017470777264185`*^9, 3.5017471179933934`*^9, 3.50174724428021*^9, 3.5017473002554283`*^9, {3.501748653101118*^9, 3.5017486582354116`*^9}, 3.501749195912165*^9, {3.5017492997751055`*^9, 3.501749309246648*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Mkg", "=", RowBox[{"ReplaceAll", "[", RowBox[{"MNormSkor", ",", RowBox[{"{", RowBox[{"\[CapitalGamma]", "\[Rule]", "0"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0432", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:0443\:044e"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, { 3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, { 3.501746916257436*^9, 3.5017469586115103`*^9}, {3.5017470681673026`*^9, 3.5017470699952*^9}, {3.5017471730291615`*^9, 3.5017471891080294`*^9}, { 3.5017472556592226`*^9, 3.501747285979056*^9}, {3.5017473474345746`*^9, 3.5017474017647033`*^9}, {3.5017492139431963`*^9, 3.5017492144332247`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}]}], RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}]}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}], RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}], RowBox[{ RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}]}]}, { RowBox[{"Sin", "[", "\[CapitalPsi]", "]"}], "0", RowBox[{"Cos", "[", "\[CapitalPsi]", "]"}]} }, 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.5017472648667192`*^9, 3.5017473017923093`*^9}, { 3.5017486468697615`*^9, 3.5017486604475384`*^9}, 3.501749215541288*^9, 3.5017493104377155`*^9, 3.5017497976675835`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Mak", "=", RowBox[{"ReplaceAll", "[", RowBox[{"m3", ",", RowBox[{"{", RowBox[{"\[Gamma]", "\[Rule]", "\[CapitalGamma]"}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0432", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:0443\:044e"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, { 3.5017470681673026`*^9, 3.5017470699952*^9}, {3.501747339479344*^9, 3.501747371096449*^9}, 3.501747404973076*^9, {3.5017474695311646`*^9, 3.501747478834467*^9}, {3.5017488333974304`*^9, 3.501748834073469*^9}, { 3.50174912203994*^9, 3.5017491390929155`*^9}, {3.5017492271069493`*^9, 3.5017492275119724`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}, {"0", RowBox[{"-", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]} }, 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.5017489911674547`*^9, 3.5017492478281345`*^9, 3.5017493149289722`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Mla", "=", RowBox[{"ReplaceAll", "[", RowBox[{"Mkg", ",", RowBox[{"{", RowBox[{ RowBox[{"\[CapitalPsi]", "\[Rule]", "\[Alpha]"}], ",", RowBox[{"\[CapitalTheta]", "\[Rule]", "\[Beta]"}]}], "}"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "\:043f\:0435\:0440\:0435\:0445\:043e\:0434\:0430", " ", "\:0438\:0437", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:0443\:044e"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, { 3.5017470681673026`*^9, 3.5017470699952*^9}, {3.501747339479344*^9, 3.501747371096449*^9}, 3.501747404973076*^9, {3.5017474695311646`*^9, 3.501747478834467*^9}, {3.5017488333974304`*^9, 3.501748859146903*^9}, { 3.501748920479411*^9, 3.50174897744867*^9}, {3.501749242375823*^9, 3.501749270493431*^9}, 3.5017498133694816`*^9, {3.5017498680566096`*^9, 3.501749871849827*^9}, {3.501750548421524*^9, 3.501750552419753*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], RowBox[{"Sin", "[", "\[Beta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}, { RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], RowBox[{"Cos", "[", "\[Beta]", "]"}], RowBox[{ RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}]}, { RowBox[{"Sin", "[", "\[Alpha]", "]"}], "0", RowBox[{"Cos", "[", "\[Alpha]", "]"}]} }, 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.5017474801255364`*^9, 3.5017486632997017`*^9, 3.50174898811228*^9, 3.5017492449509697`*^9, 3.501749317541122*^9, 3.501749706252355*^9, 3.5017498155496063`*^9, {3.501749846634384*^9, 3.501749872804881*^9}, 3.5017505529817853`*^9}] }, Open ]], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ "\:041e\:0431\:044b\:0447\:043d\:043e", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f", " ", "\:0441\:0438\:043b", " ", "\:043f\:0440\:043e\:0435\:0446\:0438\:0440\:0443\:044e\:0442", " ", "\:043d\:0430", " ", "\:043e\:0441\:0438", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439"}], " "}], FontFamily->"Courier New", FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{ "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], ",", RowBox[{ RowBox[{ "\:0442\:0430\:043a", " ", "\:043a\:0430\:043a", " ", "\:0432", " ", "\:044d\:0442\:043e", " ", "\:0441\:043b\:0443\:0447\:0430\:0435", " ", "Vx"}], "=", "V"}], ",", "\[IndentingNewLine]", RowBox[{"Vy", "=", RowBox[{"Vz", "=", RowBox[{ "0", " ", "\:0438", " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f", " ", "\:043f\:043e\:043b\:0443\:0447\:0430\:044e\:0442", " ", "\:0432", " ", "\:0434\:043e\:0441\:0442\:0430\:0442\:043e\:0447\:043d\:043e"}]}]}]}], FontFamily->"Courier New", FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{" ", RowBox[{"\:043f\:0440\:043e\:0441\:0442\:043e\:043c", " ", RowBox[{ "\:0432\:0438\:0434\:0435", ".", "\[IndentingNewLine]", "\[IndentingNewLine]", "\:0412\:044b\:0440\:0430\:0437\:0438\:043c"}], " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442\:044b", " ", "\:0432\:0441\:0435\:0445", " ", "\:0441\:0438\:043b", " ", "\:0432", " ", "\:0431\:0430\:0437\:0438\:0441\:0435", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b"}]}], FontFamily->"Courier New", FontSize->18]}], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017477023561287`*^9}, { 3.5017477643506374`*^9, 3.501747764912238*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"1.", " ", "\:0421\:0438\:043b\:0430", " ", RowBox[{ "\:0442\:044f\:0436\:0435\:0441\:0442\:0438", ".", "\:041f\:043e\:0441\:043a\:043e\:043b\:044c\:043a\:0443"}], " ", "\:044d\:0442\:0430", " ", "\:0441\:0438\:043b\:0430", " ", "\:043d\:0430\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0430", " ", "\:043f\:043e", " ", "\:043c\:0435\:0441\:0442\:043d\:043e\:0439", " ", "\:0432\:0435\:0440\:0442\:0438\:043a\:0430\:043b\:0438"}], ",", RowBox[{ "\:0435\:0451", " ", "\:043e\:0431\:044b\:0447\:043d\:043e", " ", "\:0437\:0430\:0434\:0430\:044e\:0442", " ", "\:0432", " ", "\:0431\:0430\:0437\:0438\:0441\:0435", " ", "\:043d\:043e\:0440\:043c\:0430\:043b\:044c\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", RowBox[{ "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", ":"}]}]}], FontFamily->"Courier New", FontSize->16]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017477023561287`*^9}, { 3.5017477643506374`*^9, 3.501747785348274*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"VG", "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "G"}], ",", "0"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017477023561287`*^9}, { 3.5017477643506374`*^9, 3.501747770465848*^9}, {3.5017478271875477`*^9, 3.501747859713605*^9}}], Cell[BoxData[{ RowBox[{"2.", " ", "\:0421\:0438\:043b\:0430", " ", "\:0442\:044f\:0433\:0438", " ", "\:0434\:0432\:0438\:0433\:0430\:0442\:0435\:043b\:044f", " ", "\:043f\:0440\:0438\:043b\:043e\:0436\:0435\:043d\:0430", " ", "\:0432", " ", "\:0446\:0435\:043d\:0442\:0440\:0435", " ", "\:043c\:0430\:0441\:0441", " ", "\:0434\:0432\:0438\:0433\:0430\:0442\:0435\:043b\:044f", " ", "\:0438", " ", "\:043d\:0430\:043f\:0440\:0430\:0432\:043b\:0435\:043d\:0430", " ", "\:043f\:043e", " ", "\:043e\:0441\:0438", " ", "OX"}], "\n", RowBox[{"\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", RowBox[{ "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", ".", "\:041e\:043d\:0430"}], " ", "\:0437\:0430\:0434\:0430\:0435\:0442\:0441\:044f", " ", "\:0432", " ", "\:0431\:0430\:0437\:0438\:0441\:0435", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:044b", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}]}], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017477023561287`*^9}, { 3.5017477643506374`*^9, 3.501747770465848*^9}, {3.5017478271875477`*^9, 3.501747874518031*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VP", "=", RowBox[{"{", RowBox[{"P", ",", "0", ",", "0"}], "}"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017477023561287`*^9}, { 3.5017477643506374`*^9, 3.501747770465848*^9}, {3.5017478271875477`*^9, 3.501747874518031*^9}, {3.5017479555321054`*^9, 3.5017480081665974`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"P", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.5017480003197837`*^9, 3.5017480098046007`*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{"3.", " ", "\:0420\:0430\:0432\:043d\:043e\:0434\:0435\:0439\:0441\:0442\:0432\:0443\ \:044e\:0449\:0430\:044f", " ", "\:0430\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\ \:0441\:043a\:0438\:0445", " ", "\:0441\:0438\:043b", " ", "\:043e\:0431\:044b\:0447\:043d\:043e", " ", "\:0437\:0430\:043f\:0438\:0441\:044b\:0432\:0430\:0435\:0442\:0441\:044f", " ", "\:0432", " ", "\:0431\:0430\:0437\:0438\:0441\:0435"}], "\n", RowBox[{"\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:043d\:043e\:0439", " ", RowBox[{"\:0441\:0438\:0441\:0442\:0435\:043c\:044b", ":"}]}]}], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481854613085`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VR", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "X"}], ",", "Y", ",", "Z"}], "}"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017482058193445`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "X"}], ",", "Y", ",", "Z"}], "}"}]], "Output", CellChangeTimes->{3.5017482075821476`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ "\:0433\:0434\:0435", " ", "X", " ", "\[Dash]", " ", "\:0441\:0438\:043b\:0430", " ", "\:043b\:043e\:0431\:043e\:0432\:043e\:0433\:043e", " ", "\:0441\:043e\:043f\:0440\:043e\:0442\:0438\:0432\:043b\:0435\:043d\:0438\ \:044f"}], ";"}], "\n", RowBox[{ RowBox[{ "Y", " ", "\[Dash]", " ", "\:043f\:043e\:0434\:044a\:0435\:043c\:043d\:0430\:044f", " ", "\:0441\:0438\:043b\:0430"}], ";"}], "\n", RowBox[{"Z", " ", "\[Dash]", " ", "\:0431\:043e\:043a\:043e\:0432\:0430\:044f", " ", "\:0441\:0438\:043b\:0430"}]}], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.501748230077387*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ "\:0417\:0430\:043f\:0438\:0448\:0435\:043c", " ", "\:044d\:0442\:0438", " ", "\:0441\:0438\:043b\:044b", " ", "\:0432", " ", "\:043f\:0440\:043e\:0435\:043a\:0446\:0438\:044f\:0445", " ", "\:043d\:0430", " ", "\:043e\:0441\:0438", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", RowBox[{"\:0441\:0438\:0441\:0442\:0435\:043c\:044b", ":"}]}], FontFamily->"Courier New", FontSize->16]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483166806316`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"VGt", "=", RowBox[{"Mkg", ".", "VG"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, {3.5017483272842035`*^9, 3.5017483529871902`*^9}, {3.5017483872552366`*^9, 3.5017483906056175`*^9}, {3.5017486295647717`*^9, 3.501748633759012*^9}, { 3.5017487021059213`*^9, 3.5017487024429407`*^9}, {3.501749363418746*^9, 3.50174936627691*^9}, {3.5017494850167007`*^9, 3.5017494947272563`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}]}, { RowBox[{ RowBox[{"-", "G"}], " ", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}]}, {"0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5017487056021214`*^9, 3.5017493673609715`*^9, {3.5017494901259933`*^9, 3.5017494956343083`*^9}, 3.5017499192065353`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"FullSimplify", "[", RowBox[{"VPt", "=", RowBox[{ RowBox[{"Transpose", "[", "Mak", "]"}], ".", RowBox[{"Transpose", "[", "Mla", "]"}], ".", "VP"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, {3.5017483272842035`*^9, 3.5017483529871902`*^9}, {3.5017483872552366`*^9, 3.5017483906056175`*^9}, {3.5017486295647717`*^9, 3.501748633759012*^9}, { 3.5017487021059213`*^9, 3.5017487097663593`*^9}, {3.501748809977091*^9, 3.50174881083014*^9}, {3.501749058238291*^9, 3.501749059380356*^9}, { 3.5017493263376255`*^9, 3.501749335322139*^9}, {3.501749370624158*^9, 3.5017493731823044`*^9}, {3.501749444240369*^9, 3.5017494503787203`*^9}, { 3.501749583990362*^9, 3.5017495895306787`*^9}, 3.5017496368853874`*^9, { 3.50175010426712*^9, 3.5017501126976023`*^9}, {3.501750443164504*^9, 3.5017504520910144`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"P", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}, { RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}]}, { RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}]} }, 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.501748635838131*^9, 3.501748667784958*^9, {3.5017493472258196`*^9, 3.501749373834342*^9}, 3.5017494531018753`*^9, 3.5017495914817905`*^9, 3.501749892455005*^9, 3.5017499565836735`*^9, 3.5017501134466453`*^9, 3.5017504528670588`*^9, {3.5017505635293884`*^9, 3.5017505834555283`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"\:0410\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\ \:0435\:0441\:043a\:0438\:0435", " ", "\:0441\:0438\:043b\:044b", " ", "\:0432\:044b\:0440\:0430\:0437\:044f\:0442\:0441\:044f", " ", RowBox[{"\:0442\:0430\:043a", ":"}]}]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750630102196*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"VRt", "=", RowBox[{ RowBox[{"Transpose", "[", "Mak", "]"}], ".", "VR"}]}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.5017506679083586`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"-", "X"}]}, { RowBox[{ RowBox[{"Y", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "-", RowBox[{"Z", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}]}, { RowBox[{ RowBox[{"Z", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"Y", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}]} }, 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.5017506711265426`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Vt", "=", RowBox[{"{", RowBox[{ RowBox[{"V", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, {3.5017512597072077`*^9, 3.501751270488824*^9}, { 3.5017513316033196`*^9, 3.501751363936169*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"V", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.501751354985657*^9, 3.501751780496995*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"wb", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalPsi]", "[", "t", "]"}], ",", "t"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalPsi]", "[", "t", "]"}], ",", "t"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}]}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"\[CapitalTheta]", "[", "t", "]"}], ",", "t"}], "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0421\:043a\:043e\:0440\:043e\:0441\:0442\:044c", " ", "\:0432\:0440\:0430\:0449\:0435\:043d\:0438\:044f", " ", "\:0431\:0430\:0437\:0438\:0441\:0430"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, {3.5017512597072077`*^9, 3.501751270488824*^9}, { 3.5017513316033196`*^9, 3.5017513331404076`*^9}, {3.5017513673503647`*^9, 3.501751398901169*^9}, {3.5017514375153775`*^9, 3.5017514753945436`*^9}, { 3.501751522494238*^9, 3.5017515514418936`*^9}, {3.501751582808688*^9, 3.501751618247715*^9}, {3.501751650493559*^9, 3.5017516551678267`*^9}, { 3.501751702293522*^9, 3.501751702990562*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalPsi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalPsi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5017517048596687`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"Vt", ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, {3.5017512597072077`*^9, 3.501751270488824*^9}, { 3.5017513316033196`*^9, 3.5017513331404076`*^9}, {3.5017513673503647`*^9, 3.501751398901169*^9}, {3.5017514375153775`*^9, 3.5017514753945436`*^9}, { 3.501751522494238*^9, 3.501751545965581*^9}, 3.501751729865099*^9, { 3.5017517615169096`*^9, 3.5017517731505747`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.5017517739176188`*^9, 3.5017517839031897`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dvtdt", "=", RowBox[{ RowBox[{"D", "[", RowBox[{"Vt", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"wb", ",", "Vt"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, {3.5017512597072077`*^9, 3.501751270488824*^9}, { 3.5017513316033196`*^9, 3.5017513331404076`*^9}, {3.5017513673503647`*^9, 3.501751398901169*^9}, {3.5017514375153775`*^9, 3.5017514753945436`*^9}, { 3.501751522494238*^9, 3.501751545965581*^9}, 3.501751729865099*^9, { 3.5017517615169096`*^9, 3.501751771722493*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], ",", RowBox[{ RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}]}], " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalPsi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.5017513876535254`*^9, 3.501751399891226*^9}, 3.501751731164173*^9, {3.5017517632140064`*^9, 3.501751787437392*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{ "--", "\:0423\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f"}]}], " ", "\:0441\:0438\:043b", " ", "\:0432", " ", "\:043f\:0440\:043e\:0435\:043a\:0446\:0438\:044f\:0445", " ", "\:043d\:0430", " ", "\:043e\:0441\:0438", " ", "\:0442\:0440\:0430\:0435\:043a\:0442\:043e\:0440\:043d\:043e\:0439", " ", RowBox[{ RowBox[{"\:0441\:0438\:0441\:0442\:0435\:043c\:044b", "--"}], "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"m", "*", "dvtdt"}], "]"}], "\[Equal]", RowBox[{"MatrixForm", "[", RowBox[{"VGt", "+", "VPt", "+", "VRt"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, {3.5017518094406505`*^9, 3.5017518669869423`*^9}, {3.5017519003728514`*^9, 3.501751941534206*^9}, { 3.501752081016184*^9, 3.5017521087057676`*^9}, {3.501752160202713*^9, 3.5017521603837233`*^9}, {3.5017522151448555`*^9, 3.5017522270515366`*^9}, {3.501753586339283*^9, 3.5017536127347927`*^9}}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"m", " ", RowBox[{ SuperscriptBox["V", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{"m", " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}, { RowBox[{ RowBox[{"-", "m"}], " ", RowBox[{"Cos", "[", RowBox[{"\[CapitalTheta]", "[", "t", "]"}], "]"}], " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalPsi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "\[Equal]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"-", "X"}], "+", RowBox[{"P", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}], " ", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Sin", "[", "\[CapitalTheta]", "]"}]}]}]}, { RowBox[{ RowBox[{"Y", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], "-", RowBox[{"Z", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"Z", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"Y", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Beta]", "]"}]}], " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}]}]} }, 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.5017519424882603`*^9, 3.501752109924837*^9, 3.5017521617248*^9, 3.501752228088596*^9, 3.5017536171950483`*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{"\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435", " ", StyleBox["\:043e\:0441\:043d\:043e\:0432\:043d\:043e\:0435", FontWeight->"Bold"], " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435"}], FontSize->16]], "Input", Evaluatable->False, CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.5017534922289004`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"IOU", "=", RowBox[{ RowBox[{"m", "*", RowBox[{"dvtdt", "[", RowBox[{"[", "2", "]"}], "]"}]}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"VGt", "+", "VPt", "+", "VRt"}], ")"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.5017535474370584`*^9}, 3.501754071774049*^9}], Cell[BoxData[ RowBox[{ RowBox[{"m", " ", RowBox[{"V", "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["\[CapitalTheta]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"Y", " ", RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}]}], "-", RowBox[{"G", " ", RowBox[{"Cos", "[", "\[CapitalTheta]", "]"}]}], "-", RowBox[{"Z", " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}], "+", RowBox[{"P", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[CapitalGamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}], " ", RowBox[{"Sin", "[", "\[CapitalGamma]", "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.501753548763134*^9, 3.5017540752912493`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ StyleBox["\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435", FontSize->16], StyleBox[" ", FontSize->16], StyleBox[ "\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0435", FontSize->16, FontWeight->"Bold"], StyleBox[" ", FontSize->16], RowBox[{ StyleBox["\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", FontSize->16], StyleBox[":", FontSize->16], StyleBox["\[IndentingNewLine]", FontSize->16], RowBox[{ "\:041f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:044b", " ", "\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0433\:043e\ ", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:043e\:0442\:043b\:0438\:0447\:0430\:044e\:0442\:0441\:044f", " ", "\:043e\:0442", " ", "\:043f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:043e\:0432", " ", "\:043d\:0435\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\ \:0433\:043e"}]}]}], "\n", RowBox[{"\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:043d\:0430", " ", "\:043d\:0435\:043a\:043e\:0442\:043e\:0440\:0443\:044e", " ", "\:043c\:0430\:043b\:0443\:044e", " ", "\:0432\:0435\:043b\:0438\:0447\:0438\:043d\:0443"}], "\n", RowBox[{"\:041f\:0440\:0438\:0434\:0430\:0434\:0438\:043c", " ", "\:043f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:0430\:043c", " ", "\:0438\:0445", " ", RowBox[{ "\:043f\:0440\:0438\:0440\:0430\:0449\:0435\:043d\:0438\:044f", ":"}]}]}], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx1", "[", "t", "]"}], ",", RowBox[{"wy1", "[", "t", "]"}], ",", RowBox[{"wz1", "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"K", "=", RowBox[{"TI", ".", "w"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M", "=", RowBox[{"{", RowBox[{"Mx1", ",", "My1", ",", "Mz1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mz1", "=", RowBox[{"Mrz1", "-", RowBox[{"P1", "*", "yp", "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wx1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wx0", "[", "t", "]"}], "+", RowBox[{"dwx", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wy1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wy0", "[", "t", "]"}], "+", RowBox[{"dwy", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wz1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wz0", "[", "t", "]"}], "+", RowBox[{"dwz", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mrz1", "=", RowBox[{"Mrz0", "+", "dMrz"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P1", "=", RowBox[{"P0", "+", "dP"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"IVU", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"K", ",", "t"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{ RowBox[{"Cross", "[", RowBox[{"w", ",", "K"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"dwx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"dwy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"dwy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"dwy", "[", "t", "]"}], "2"]}], "-", RowBox[{"2", " ", "Ixy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wx0", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "Ixy", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx0", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx0", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy0", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", RowBox[{"Mrz0", "+", RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"(", RowBox[{"P0", "+", RowBox[{"dsg", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "+", RowBox[{"dv", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}], ")"}]}]}]}]}], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, {3.5017542426218204`*^9, 3.501754261232885*^9}, {3.501754528513172*^9, 3.501754529196212*^9}, { 3.501754605483575*^9, 3.501754625084696*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0412\:0435\:043a\:0442\:043e\:0440", " ", "\:0443\:0433\:043b\:043e\:0432\:043e\:0439", " ", "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", "\:041b\:0410", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5006572489009056`*^9, 3.500657249721953*^9}, { 3.501744506894403*^9, 3.5017445078088517`*^9}, {3.5017445705282316`*^9, 3.5017445846101923`*^9}, {3.5017446491110706`*^9, 3.501744650337537*^9}, { 3.5017446938730826`*^9, 3.501744739257329*^9}, {3.501744774891453*^9, 3.5017448024373384`*^9}, {3.5017448438665695`*^9, 3.5017448953639455`*^9}, {3.5017449390427017`*^9, 3.5017450239926805`*^9}, {3.5017466852416763`*^9, 3.5017466858968773`*^9}, {3.5017467253337464`*^9, 3.5017467263321486`*^9}, {3.501746916257436*^9, 3.5017469586115103`*^9}, 3.5017470681673026`*^9, {3.5017476238567905`*^9, 3.5017476289579997`*^9}, { 3.5017481765536933`*^9, 3.5017481907341185`*^9}, {3.5017482243365774`*^9, 3.5017482330725927`*^9}, 3.5017483272842035`*^9, {3.5017506237408323`*^9, 3.501750633061365*^9}, 3.5017512597072077`*^9, 3.5017518094406505`*^9, { 3.5017534816382947`*^9, 3.501753497569206*^9}, 3.5017542426218204`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Psi]", "]"}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}], RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", "\[CurlyTheta]", "]"}]}], " ", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], " ", RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], " ", RowBox[{"Sin", "[", "\[CurlyTheta]", "]"}], " ", RowBox[{"Sin", "[", "\[Psi]", "]"}]}]}]} }, 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.500794832557768*^9, 3.5017390262270803`*^9, 3.5017411686146183`*^9, 3.5017447348450937`*^9, 3.5017448765137296`*^9, 3.501746954992304*^9}], Cell[BoxData[ TagBox["Mnormskor", Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.500794832557768*^9, 3.5017390262270803`*^9, 3.5017411686146183`*^9, 3.5017447348450937`*^9, 3.5017448765137296`*^9, 3.5017469550235043`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.500794832557768*^9, 3.5017390262270803`*^9, 3.5017411686146183`*^9, 3.5017447348450937`*^9, 3.5017448765137296`*^9, 3.5017469550547037`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"K", "=", RowBox[{"TI", ".", "w"}]}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0413\:043b\:0430\:0432\:043d\:044b\:0439", " ", "\:043c\:043e\:043c\:0435\:043d\:0442", " ", "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442"}], "*)"}]}]], "Input", CellChangeTimes->{{3.500657219049198*^9, 3.5006572197712393`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}]}]}]}, { RowBox[{"Izz", " ", RowBox[{"wz", "[", "t", "]"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5007948326045675`*^9, 3.5017390263190856`*^9, 3.5017411687076235`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"M", "=", RowBox[{"{", RowBox[{"Mx", ",", "My", ",", "Mz"}], "}"}], " ", RowBox[{"(*", RowBox[{ "\:0420\:0435\:0437\:0443\:043b\:044c\:0442\:0438\:0440\:0443\:044e\:0449\ \:0438\:0439", " ", "\:043c\:043e\:043c\:0435\:043d\:0442", " ", "\:0430\:044d\:0440\:043e\:0434\:0438\:043d\:0430\:043c\:0438\:0447\:0435\ \:0441\:043a\:0438\:0445", " ", "\:0441\:0438\:043b", " ", "\:0438", " ", "\:0442\:044f\:0433\:0438", " ", "\:0432", " ", "\:0441\:0432\:044f\:0437\:0430\:043d\:043d\:043e\:0439", " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0435", " ", "\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442", RowBox[{"(", RowBox[{ RowBox[{ "\:041c\:043e\:043c\:0435\:043d\:0442", " ", "\:0441\:0438\:043b\:044b", " ", "\:0442\:044f\:0436\:0435\:0441\:0442\:0438"}], ",", " ", RowBox[{ "\:0446\:0435\:043d\:0442\:0440\:043e\:0431\:0435\:0436\:043d\:044b\ \:0445", " ", "\:0438", " ", "\:043a\:043e\:0440\:0438\:043e\:043b\:0438\:0441\:043e\:0432\:044b\ \:0445", " ", "\:0441\:0438\:043b", " ", "\:0438\:043d\:0435\:0440\:0446\:0438\:0438", " ", "\:0432\:043e\:043a\:0440\:0443\:0433", " ", "\:0446\:0435\:043d\:0442\:0440\:0430", " ", "\:043c\:0430\:0441\:0441", " ", "\:041b\:0410", " ", "\:0440\:0430\:0432\:0435\:043d", " ", "\:043d\:0443\:043b\:044e"}]}], ")"}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.5006572705591445`*^9, 3.5006572714001923`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"Mx", ",", "My", ",", RowBox[{"Mrz", "-", RowBox[{"P", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.500794832635768*^9, 3.5017390265881014`*^9, 3.501741168788628*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mz", "=", RowBox[{"Mrz", "-", RowBox[{"P", "*", "yp", "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.5006593549133625`*^9, 3.5006593560114255`*^9}}], Cell[BoxData[ RowBox[{"Mrz", "-", RowBox[{"P", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]], "Output", CellChangeTimes->{3.500794832729368*^9, 3.501739026675106*^9, 3.5017411688806334`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lchudvd", "=", RowBox[{ RowBox[{"D", "[", RowBox[{"K", ",", "t"}], "]"}], "+", RowBox[{"Cross", "[", RowBox[{"w", ",", "K"}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:041f\:043e\:043b\:043d\:0430\:044f", " ", "\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f", " ", "\:043f\:043e", " ", "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", "\:0433\:043b\:0430\:0432\:043d\:043e\:0433\:043e", " ", "\:0432\:0435\:043a\:0442\:043e\:0440\:0430", " ", "\:043c\:043e\:043c\:0435\:043d\:0442\:0430", " ", "\:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432", " ", "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.500657284677952*^9, 3.500657285527001*^9}, { 3.501741146308342*^9, 3.501741147230395*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Ixy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Iyy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{"Ixx", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Izz", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{"wy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", RowBox[{ SuperscriptBox["wx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{ SuperscriptBox["wy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.5007948327605677`*^9, 3.5017390267731113`*^9, 3.5017411689696383`*^9}] }, Open ]], Cell[TextData[StyleBox["\:041f\:043e\:043b\:043d\:0430\:044f \:043f\:0440\ \:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:044f \:0433\:043b\:0430\ \:0432\:043d\:043e\:0433\:043e \:0432\:0435\:043a\:0442\:043e\:0440\:0430 \ \:043c\:043e\:043c\:0435\:043d\:0442\:0430 \:043a\:043e\:043b\:0438\:0447\ \:0435\:0441\:0442\:0432 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \ \:0440\:0430\:0432\:043d\:0430 \:0433\:043b\:0430\:0432\:043d\:043e\:043c\ \:0443 \:043c\:043e\:043c\:0435\:043d\:0442\:0443 \:0432\:043d\:0435\:0448\ \:043d\:0438\:0445 \:0441\:0438\:043b, \:0434\:0435\:0439\:0441\:0442\:0432\ \:0443\:044e\:0449\:0438\:0445 \:043d\:0430 \:0442\:0435\:043b\:043e.", FontSize->16]], "Text", CellChangeTimes->{{3.5006573007108693`*^9, 3.5006573015319157`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UrT", "=", RowBox[{ RowBox[{"lchudvd", "[", RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}], " ", RowBox[{"(*", RowBox[{ "\:0423\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435", " ", "\:043c\:043e\:043c\:0435\:043d\:0442\:0430", " ", "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5006573104704275`*^9, 3.500657332071663*^9}, { 3.5006573960903244`*^9, 3.5006574083980284`*^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[{"Mrz", "-", RowBox[{"P", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Output", CellChangeTimes->{3.501741169086645*^9}] }, Open ]], Cell[CellGroupData[{ 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[{"Mrz", "-", RowBox[{"P", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.5017401043997483`*^9, 3.5017401056928225`*^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[{"Mrz", "-", RowBox[{"P", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Output", CellChangeTimes->{3.5017411692686553`*^9}] }, Open ]], Cell[TextData[StyleBox["Clear[vx,vy,vz];\nV={vx[t],vy[t],vz[t]}; (*\:0432\ \:0435\:043a\:0442\:043e\:0440 \:0441\:043a\:043e\:0440\:043e\:0441\:0442\ \:0438 \:041b\:0410*)\nQ=m*D[V,t]", "Input", FontSize->16]], "Text", Evaluatable->True, CellChangeTimes->{{3.5006583694859996`*^9, 3.500658392289304*^9}, { 3.500658426295249*^9, 3.50065842928942*^9}, {3.500658892689925*^9, 3.500658910979971*^9}, {3.500658979408885*^9, 3.500658991920601*^9}, { 3.5017401104980974`*^9, 3.50174015792581*^9}, {3.501740374466195*^9, 3.5017403758322735`*^9}, {3.501740412747385*^9, 3.5017404909948606`*^9}, { 3.5017410985096083`*^9, 3.5017411193768015`*^9}, {3.5017420548783092`*^9, 3.501742055521346*^9}, {3.501742200483638*^9, 3.501742205303913*^9}}], Cell[TextData[StyleBox["R={}", "Input", FontSize->16]], "Text", Evaluatable->True, CellChangeTimes->{{3.5006583694859996`*^9, 3.500658392289304*^9}, { 3.500658426295249*^9, 3.50065842928942*^9}, {3.500658892689925*^9, 3.500658910979971*^9}, {3.500658979408885*^9, 3.500658991920601*^9}, { 3.5017401104980974`*^9, 3.50174015792581*^9}, {3.501740374466195*^9, 3.5017403758322735`*^9}, {3.501740412747385*^9, 3.5017404909948606`*^9}, { 3.5017410985096083`*^9, 3.5017411193768015`*^9}, {3.5017420548783092`*^9, 3.501742055521346*^9}, {3.501742200483638*^9, 3.5017422141754208`*^9}, { 3.501742689762623*^9, 3.501742690726678*^9}}], Cell[TextData[StyleBox["\n\:0423\:0440\:0430\:0432\:043d\:0435\:043d\:0438\ \:044f \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0446\:0435\:043d\ \:0442\:0440\:0430 \:043c\:0430\:0441\:0441 \:041b\:0410 \:043f\:043e\:043b\ \:0443\:0447\:0438\:043c \:043e\:0441\:043d\:043e\:0432\:0430\:043d\:0438\ \:0438 \:0437\:0430\:043a\:043e\:043d\:0430 \:0438\:0437\:043c\:0435\:043d\ \:0435\:043d\:0438\:044f \:043a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\ \:0432\:0430 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f \:0446\:0435\ \:043d\:0442\:0440\:0430 \:043c\:0430\:0441\:0441: dQ/dt={Fi", FontFamily->"Times New Roman", FontSize->16]], "Text", Evaluatable->True, CellChangeTimes->{{3.5006583694859996`*^9, 3.500658392289304*^9}, { 3.500658426295249*^9, 3.50065842928942*^9}, {3.500658892689925*^9, 3.500658910979971*^9}, {3.500658979408885*^9, 3.500658991920601*^9}, { 3.5017401104980974`*^9, 3.50174015792581*^9}, {3.501740374466195*^9, 3.5017403758322735`*^9}, {3.501740412747385*^9, 3.5017404909948606`*^9}, { 3.5017410985096083`*^9, 3.5017411193768015`*^9}, {3.5017420548783092`*^9, 3.501742055521346*^9}, {3.501742200483638*^9, 3.5017422141754208`*^9}, { 3.501742689762623*^9, 3.501742723001524*^9}, {3.5017441956189966`*^9, 3.5017442166091976`*^9}}, EmphasizeSyntaxErrors->True], Cell[TextData[{ StyleBox["\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435 ", FontSize->16], StyleBox["\:043e\:0441\:043d\:043e\:0432\:043d\:043e\:0435", FontSize->16, FontWeight->"Bold"], StyleBox[" \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:043c\ \:043e\:043c\:0435\:043d\:0442\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\ \:0430 :", FontSize->16] }], "Text", CellChangeTimes->{{3.5006583694859996`*^9, 3.500658392289304*^9}, { 3.500658426295249*^9, 3.50065842928942*^9}, {3.500658892689925*^9, 3.500658910979971*^9}, {3.500658979408885*^9, 3.500658991920601*^9}, { 3.5017401104980974`*^9, 3.5017401332774*^9}, {3.5017442424146733`*^9, 3.501744245307839*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx0", "[", "t", "]"}], ",", RowBox[{"wy0", "[", "t", "]"}], ",", RowBox[{"wz0", "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"K", "=", RowBox[{"TI", ".", "w"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M", "=", RowBox[{"{", RowBox[{"Mx0", ",", "My0", ",", "Mz0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mz0", "=", RowBox[{"Mrz0", "-", RowBox[{"P0", "*", "yp", "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"IOU", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"K", ",", "t"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{ RowBox[{"Cross", "[", RowBox[{"w", ",", "K"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.5006590460196953`*^9, 3.500659046567726*^9}, 3.500659304612486*^9, {3.500659504332909*^9, 3.500659682659109*^9}, { 3.5006607685202165`*^9, 3.50066077558362*^9}, {3.5006610469231405`*^9, 3.5006610496182947`*^9}, {3.5006611272247334`*^9, 3.500661134635157*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"wx0", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx0", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx0", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy0", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{"Mrz0", "-", RowBox[{"P0", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}]}]}]], "Output", CellChangeTimes->{3.5007948328385677`*^9, 3.5017390270511274`*^9, 3.501741169488668*^9}] }, Open ]], Cell[TextData[{ StyleBox["\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435 ", FontSize->16], StyleBox["\:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0435", FontSize->16, FontWeight->"Bold"], StyleBox[" \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:043c\ \:043e\:043c\:0435\:043d\:0442\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\ \:0430 :", FontSize->16] }], "Text", CellChangeTimes->{{3.5006608473157234`*^9, 3.500660885978935*^9}, { 3.5006628222566833`*^9, 3.5006628307381687`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"w", "=", RowBox[{"{", RowBox[{ RowBox[{"wx1", "[", "t", "]"}], ",", RowBox[{"wy1", "[", "t", "]"}], ",", RowBox[{"wz1", "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"K", "=", RowBox[{"TI", ".", "w"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M", "=", RowBox[{"{", RowBox[{"Mx1", ",", "My1", ",", "Mz1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mz1", "=", RowBox[{"Mrz1", "-", RowBox[{"P1", "*", "yp", "*", RowBox[{"Cos", "[", "fip", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wx1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wx0", "[", "t", "]"}], "+", RowBox[{"dwx", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wy1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wy0", "[", "t", "]"}], "+", RowBox[{"dwy", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wz1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"wz0", "[", "t", "]"}], "+", RowBox[{"dwz", "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mrz1", "=", RowBox[{"Mrz0", "+", "dMrz"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P1", "=", RowBox[{"P0", "+", "dP"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"IVU", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{"K", ",", "t"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{ RowBox[{"Cross", "[", RowBox[{"w", ",", "K"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], "\[Equal]", RowBox[{"M", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.500660014598095*^9, 3.500660015185128*^9}, { 3.500660293819065*^9, 3.500660351687375*^9}, {3.5006607853241777`*^9, 3.500660840114311*^9}, {3.5006610579647717`*^9, 3.5006610656822133`*^9}, { 3.500661140483492*^9, 3.500661144442718*^9}, {3.50066138680158*^9, 3.5006613942780075`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"dwx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"dwy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"dwy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"dwy", "[", "t", "]"}], "2"]}], "-", RowBox[{"2", " ", "Ixy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "-", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wx0", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "Ixy", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"wx0", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"wx0", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"wy0", "[", "t", "]"}], "2"]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", RowBox[{"Mrz0", "+", RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{"(", RowBox[{"P0", "+", RowBox[{"dsg", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "+", RowBox[{"dv", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.500794832869768*^9, 3.501739027164134*^9, 3.501741169595674*^9}] }, Open ]], Cell[TextData[{ StyleBox["\:041f\:043e\:043b\:0443\:0447\:0430\:0435\:043c \ \:0432\:043e\:0437\:043c\:0443\:0449\:0435\:043d\:043d\:043e\:0435 \:0443\ \:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:043c\:043e\:043c\:0435\ \:043d\:0442\:0430 \:0442\:0430\:043d\:0433\:0430\:0436\:0430, \:0442.\:0435. \ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:0432 ", FontSize->16], StyleBox["\:0432\:0430\:0440\:0438\:0430\:0446\:0438\:044f\:0445:", FontSize->16, FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.500661896897756*^9, 3.5006619830126815`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UrVD", "=", RowBox[{ RowBox[{ RowBox[{"IVU", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"IOU", "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[Equal]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"IVU", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"IOU", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5006615282366695`*^9, 3.5006616497146177`*^9}, { 3.5006617414878674`*^9, 3.500661766455295*^9}, {3.5006620917879033`*^9, 3.5006621357194157`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Ixy"}], " ", SuperscriptBox[ RowBox[{"dwx", "[", "t", "]"}], "2"]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"dwy", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"dwy", "[", "t", "]"}]}], "+", RowBox[{"Ixy", " ", SuperscriptBox[ RowBox[{"dwy", "[", "t", "]"}], "2"]}], "-", RowBox[{"2", " ", "Ixy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wx0", "[", "t", "]"}]}], "-", RowBox[{"Ixx", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"Iyy", " ", RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "+", RowBox[{"2", " ", "Ixy", " ", RowBox[{"dwy", "[", "t", "]"}], " ", RowBox[{"wy0", "[", "t", "]"}]}], "-", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "+", RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], "\[Equal]", RowBox[{ RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"dsg", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "-", RowBox[{"dv", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}]}]], "Output", CellChangeTimes->{3.5007948329633684`*^9, 3.5017390275061536`*^9, 3.5017411700547004`*^9}] }, Open ]], Cell[TextData[StyleBox["\:0418\:0441\:0445\:043e\:0434\:043d\:043e\:0435 \ \:043e\:0441\:043d\:043e\:0432\:043d\:043e\:0435 \:0434\:0432\:0438\:0436\ \:0435\:043d\:0438\:0435 \:041b\:0410 - \:043f\:0440\:044f\:043c\:043e\:043b\ \:0438\:043d\:0435\:0439\:043d\:044b\:0439 \:0433\:043e\:0440\:0438\:0437\ \:043e\:043d\:0442\:0430\:043b\:044c\:043d\:044b\:0439 \:043f\:043e\:043b\ \:0435\:0442: wx0[t]=0, wy0[t]=0 ,wz0[t]=0, wz0'[t]=0.\n\:041f\:0440\:0435\ \:043d\:0435\:0431\:0440\:0435\:0436\:0435\:043c \:0432\:0442\:043e\:0440\ \:044b\:043c \:043f\:043e\:0440\:044f\:0434\:043a\:043e\:043c \:043c\:0430\ \:043b\:043e\:0441\:0442\:0438, \:0442.\:0435. \:043f\:0440\:043e\:0438\:0437\ \:0432\:0435\:0434\:0435\:043d\:0438\:044f \:0432\:0430\:0440\:0438\:0430\ \:0446\:0438\:0439 \:0438 \:0438\:0445 \:0441\:0442\:0435\:043f\:0435\:043d\ \:0438 \:0432\:044b\:0448\:0435 1-\:0439 \:043f\:0440\:0438\:0440\:0430\:0432\ \:043d\:044f\:0435\:043c \:043a \:043d\:0443\:043b\:044e.", FontSize->16]], "Text", CellChangeTimes->{{3.5006622816487627`*^9, 3.500662428154142*^9}, 3.5006626005280013`*^9, 3.5006627816793623`*^9, {3.500662946746804*^9, 3.5006629823538404`*^9}, {3.5006630258623295`*^9, 3.500663035357872*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UrVD", "=", RowBox[{"ReplaceAll", "[", RowBox[{"UrVD", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"wx0", "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"wy0", "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"wz0", "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ SuperscriptBox["wz0", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", "0"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"dwx", "[", "t", "]"}], "2"], "\[Rule]", "0"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"dwy", "[", "t", "]"}], "2"], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"dwx", "[", "t", "]"}], " ", RowBox[{"dwy", "[", "t", "]"}]}], "\[Rule]", "0"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.500661726192992*^9, 3.5006617399907813`*^9}, { 3.5006617921987677`*^9, 3.500661862363781*^9}, {3.500662037084774*^9, 3.500662078478142*^9}, {3.5006621754346876`*^9, 3.5006622521680765`*^9}, { 3.5006628682593145`*^9, 3.5006628694613833`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"dsg", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "-", RowBox[{"dv", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}]}]], "Output", CellChangeTimes->{3.500794833010168*^9, 3.501739027634161*^9, 3.5017411701897078`*^9}] }, Open ]], Cell[TextData[StyleBox["\:0422.\:043a. \:0441\:0438\:043b\:044b \:0438 \:043c\ \:043e\:043c\:0435\:043d\:0442\:044b \:0437\:0430\:0432\:0438\:0441\:044f\ \:0442 \:043e\:0442 \:043f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\:043e\ \:0432 \:043f\:043e\:043b\:0435\:0442\:0430 \:0438 \:0441\:043e\:043e\:0442\ \:0432\:0435\:0442\:0441\:0442\:0432\:0435\:043d\:043d\:043e, \:043d\:0430 \ \:0438\:0445 \:0432\:0435\:043b\:0438\:0447\:0438\:043d\:044b \:0432\:043b\ \:0438\:044f\:044e\:0442 \:0447\:0430\:0441\:0442\:043d\:044b\:0435 \:043f\ \:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:044b\:0435 \:043e\:0442 \ \:044d\:0442\:0438\:0445 \:043f\:0430\:0440\:0430\:043c\:0435\:0442\:0440\ \:043e\:0432, \:0442\:043e \:043c\:043e\:0436\:043d\:043e \:0437\:0430\:043f\ \:0438\:0441\:0430\:0442\:044c:", FontSize->16]], "Text", CellChangeTimes->{{3.5007912084721923`*^9, 3.500791225398222*^9}, { 3.500791345761634*^9, 3.500791347477637*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dMrz", "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", "wz", "]"}], ",", "wz"}], "]"}], "*", "wz"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", "alpha", "]"}], ",", "alpha"}], "]"}], "*", "dalpha"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", "Mah", "]"}], ",", "Mah"}], "]"}], "*", RowBox[{"dv", "/", "a"}]}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"alpha", "[", "t", "]"}], ",", "t"}], "]"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"alpha", "[", "t", "]"}], ",", "t"}], "]"}]}], "]"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"alpha", "[", "t", "]"}], ",", "t"}], "]"}]}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", "drv", "]"}], ",", "drv"}], "]"}], "*", "drv"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Mrz", "[", "dzak", "]"}], ",", "dzak"}], "]"}], "*", "dzak"}]}]}]], "Input", CellChangeTimes->{{3.5006630798254156`*^9, 3.5006631319883995`*^9}, { 3.5006631692305293`*^9, 3.500663200945343*^9}, {3.500663269020237*^9, 3.5006633777094536`*^9}, 3.500663954178426*^9, {3.5006639889854164`*^9, 3.500663994171713*^9}, {3.5006642279610853`*^9, 3.5006642952269325`*^9}, { 3.5006643387294207`*^9, 3.50066448330569*^9}, {3.500664667673235*^9, 3.500664672686522*^9}, {3.500664717602091*^9, 3.500664782324793*^9}, { 3.5006648457294197`*^9, 3.5006648892579093`*^9}, 3.50066493228537*^9, { 3.500665019546361*^9, 3.5006650224015245`*^9}, {3.5006664042505617`*^9, 3.500666456191533*^9}, 3.50078998897005*^9, 3.5007903961931653`*^9, 3.5007905027101526`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}]}]], "Output", CellChangeTimes->{3.5007948330569687`*^9, 3.501739027736167*^9, 3.501741170555729*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dP", "=", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", "dsg", "]"}], ",", "dsg"}], "]"}], "*", "dsg"}], "+", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", "dv", "]"}], ",", "dv"}], "]"}], "*", "dv"}]}]}]], "Input", CellChangeTimes->{{3.5006650616797714`*^9, 3.5006651210421667`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"dsg", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "+", RowBox[{"dv", " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}]], "Output", CellChangeTimes->{3.5007948331037683`*^9, 3.5017390277971706`*^9, 3.5017411706857367`*^9}] }, Open ]], Cell[TextData[StyleBox["\:0423\:0442\:043e\:0447\:043d\:0435\:043d\:043d\:043e\ \:0435 \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:0438\:043c\ \:0435\:0435\:0442 \:0432\:0438\:0434:", FontSize->16]], "Text", CellChangeTimes->{{3.5007914865050807`*^9, 3.5007915168007345`*^9}}], Cell[CellGroupData[{ Cell[BoxData["UrVD"], "Input", CellChangeTimes->{{3.500665511882521*^9, 3.5006655192449427`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "+", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "+", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "+", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "+", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "+", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "-", RowBox[{"dsg", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "-", RowBox[{"dv", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}]}]], "Output", CellChangeTimes->{3.5007948331505685`*^9, 3.501739027859174*^9, 3.5017411708207445`*^9}] }, Open ]], Cell[TextData[StyleBox["\:0412\:044b\:0447\:0442\:0435\:043c \:0438\:0437 \ \:043b\:0435\:0432\:043e\:0439 \:0447\:0430\:0441\:0442\:0438 \:0443\:0440\ \:0430\:0432\:043d\:0435\:043d\:0438\:044f \:043f\:0440\:0430\:0432\:0443\ \:044e \:0438 \:0440\:0430\:0437\:0434\:0435\:043b\:0438\:043c \:043f\:043e\ \:043b\:0443\:0447\:0438\:0432\:0448\:0435\:0435\:0441\:044f \:0443\:0440\ \:0430\:0432\:043d\:0435\:043d\:0438\:0435 \:043d\:0430 \:043a\:043e\:044d\ \:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442 \:043f\:0440\:0438 \:043f\ \:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:043e\:0439 \:0443\:0433\ \:043b\:043e\:0432\:043e\:0439 \:0441\:043a\:043e\:0440\:043e\:0441\:0442\ \:0438 \:0442\:0430\:043d\:0433\:0430\:0436\:0430:", FontSize->16]], "Text", CellChangeTimes->{{3.5007915243043475`*^9, 3.500791524756748*^9}, { 3.5007916107908993`*^9, 3.5007916122573023`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UrVD", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"UrVD", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", "Izz"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.500665257111949*^9, 3.500665312395111*^9}, { 3.5006653467050734`*^9, 3.500665436764225*^9}, {3.5006656499604187`*^9, 3.500665662620143*^9}}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"dalpha", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}]}], "-", RowBox[{"drv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}]}], "-", RowBox[{"dzak", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}]}], "-", FractionBox[ RowBox[{"dv", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}]}], "a"], "-", RowBox[{"wz", " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}]}], "-", RowBox[{ RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], " ", RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}]}], "+", RowBox[{"dsg", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}]}], "+", RowBox[{"dv", " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}]}]}], "Izz"], "\[Equal]", "0"}]], "Output", CellChangeTimes->{3.5007948331973686`*^9, 3.501739028000182*^9, 3.501741170973753*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"M", ",", "P"}], "]"}], "\[IndentingNewLine]", RowBox[{"UrVD", "=", RowBox[{"ReplaceAll", "[", RowBox[{"UrVD", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "alpha", "]"}], "\[Rule]", SubsuperscriptBox["M", "z", "\[Alpha]"]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "drv", "]"}], "->", SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0412"]]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "dzak", "]"}], "->", SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0417"]]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "Mah", "]"}], "->", SubsuperscriptBox["M", "z", "M"]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", "wz", "]"}], "->", SubsuperscriptBox["M", "z", SubscriptBox["\[Omega]", "z"]]}], ",", RowBox[{ RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dsg", "]"}], "\[Rule]", SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]]}], ",", RowBox[{ RowBox[{ SuperscriptBox["P", "\[Prime]", MultilineFunction->None], "[", "dv", "]"}], "\[Rule]", SuperscriptBox["P", "v"]}], ",", RowBox[{ RowBox[{ SuperscriptBox["Mrz", "\[Prime]", MultilineFunction->None], "[", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "]"}], "->", SubsuperscriptBox["M", "z", OverscriptBox["\[Alpha]", "."]]}]}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5007885092986517`*^9, 3.5007885468323174`*^9}, { 3.500788663957323*^9, 3.5007886981681833`*^9}, {3.5007887818623304`*^9, 3.500788786885539*^9}, {3.5007888530296555`*^9, 3.50078895233943*^9}, { 3.5007890871392665`*^9, 3.500789246965947*^9}, {3.500789296293234*^9, 3.500789323172081*^9}, {3.500789395072607*^9, 3.500789513306415*^9}, { 3.500789551932083*^9, 3.500789777059278*^9}, {3.5007898121437397`*^9, 3.5007898179313498`*^9}, {3.5007921871851115`*^9, 3.500792188464314*^9}}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"dv", " ", SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "+", RowBox[{"dsg", " ", SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ RowBox[{"dv", " ", SubsuperscriptBox["M", "z", "M"]}], "a"], "-", RowBox[{"dalpha", " ", SubsuperscriptBox["M", "z", "\[Alpha]"]}], "-", RowBox[{"drv", " ", SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0412"]]}], "-", RowBox[{"dzak", " ", SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0417"]]}], "-", RowBox[{"wz", " ", SubsuperscriptBox["M", "z", SubscriptBox["\[Omega]", "z"]]}], "-", RowBox[{ SubsuperscriptBox["M", "z", OverscriptBox["\[Alpha]", "."]], " ", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"Izz", " ", RowBox[{ SuperscriptBox["dwz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "Izz"], "\[Equal]", "0"}]], "Output", CellChangeTimes->{3.500794833306569*^9, 3.5017390280751863`*^9, 3.5017411711267614`*^9}] }, Open ]], Cell[TextData[StyleBox["\:041b\:0438\:043d\:0435\:0430\:0440\:0438\:0437\:043e\ \:0432\:0430\:043d\:043d\:043e\:0435 \:0443\:0440\:0430\:0432\:043d\:0435\ \:043d\:0438\:0435 \:043c\:043e\:043c\:0435\:043d\:0442\:0430 \:0442\:0430\ \:043d\:0433\:0430\:0436\:0430:", FontFamily->"Times New Roman", FontSize->16, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.5007925577093644`*^9, 3.5007926208786755`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U1", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"], ",", SubscriptBox["\[Omega]", "z"], ",", OverscriptBox["\[Alpha]", "."], ",", "\[Alpha]", ",", "\[CapitalDelta]v", ",", SubscriptBox["\[Delta]", "\:0412"], ",", SubscriptBox["\[Delta]", "\:0421\:0413"], ",", SubscriptBox["\[Delta]", "\:0417"]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "c1", "}"}], ",", RowBox[{"{", "c5", "}"}], ",", RowBox[{"{", "c2", "}"}], ",", RowBox[{"{", "e3", "}"}], ",", RowBox[{"{", "\:04413", "}"}], ",", RowBox[{"{", "r3", "}"}], ",", RowBox[{"{", "c12", "}"}]}], "}"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.5007911059488125`*^9, 3.5007911068068137`*^9}, { 3.5007917464175377`*^9, 3.5007919239002495`*^9}, {3.5007920122620044`*^9, 3.5007920129640055`*^9}, 3.5007943786125703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Alpha]", " ", SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "\[Alpha]"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "Izz"}]]}], "-", FractionBox[ RowBox[{"\[Rho]V", " ", OverscriptBox["\[Alpha]", "."], " ", SubsuperscriptBox["m", "z", OverscriptBox["\[Alpha]", "."]], " ", SubsuperscriptBox["Sb", "A", "2"]}], RowBox[{"2", " ", "Izz"}]], "+", FractionBox[ RowBox[{"\[CapitalDelta]v", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "M"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "a"}]]}], ")"}]}], "Izz"], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0412"]], " ", SubscriptBox["Sb", "A"], " ", SubscriptBox["\[Delta]", "\:0412"]}], RowBox[{"2", " ", "Izz"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0417"]], " ", SubscriptBox["Sb", "A"], " ", SubscriptBox["\[Delta]", "\:0417"]}], RowBox[{"2", " ", "Izz"}]], "+", FractionBox[ RowBox[{ SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", SubscriptBox["\[Delta]", "\:0421\:0413"]}], "Izz"], "-", FractionBox[ RowBox[{"\[Rho]V", " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Omega]", "z"]], " ", SubsuperscriptBox["Sb", "A", "2"], " ", SubscriptBox["\[Omega]", "z"]}], RowBox[{"2", " ", "Izz"}]], "+", SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{3.500794833337769*^9, 3.5017390281531906`*^9, 3.5017411712797704`*^9}] }, Open ]], Cell[TextData[StyleBox["\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\ \:043d\:0442\:044b \:043b\:0438\:043d\:0435\:0439\:043d\:043e\:0433\:043e \ \:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f:", FontFamily->"Times New Roman", FontSize->16, FontWeight->"Bold"]], "Text", CellChangeTimes->{{3.5007926377423053`*^9, 3.5007926812987823`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "wz"}], "]"}]}]], "Input", CellChangeTimes->{{3.5006656708966165`*^9, 3.500665695915047*^9}, { 3.5006658219692574`*^9, 3.50066584579762*^9}, {3.5007884987530327`*^9, 3.500788503089841*^9}, {3.5007900368465343`*^9, 3.500790046846152*^9}, 3.5007904111691914`*^9}], Cell[BoxData[ RowBox[{"-", FractionBox[ SubsuperscriptBox["M", "z", SubscriptBox["\[Omega]", "z"]], "Izz"]}]], "Output", CellChangeTimes->{3.500794833368969*^9, 3.501739028215194*^9, 3.5017411715327845`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c2", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "dalpha"}], "]"}]}]], "Input", CellChangeTimes->{{3.5006656396728306`*^9, 3.5006656403038664`*^9}, { 3.5006658573732824`*^9, 3.500665885425887*^9}, 3.500665922869028*^9, 3.5006662896430063`*^9, {3.500666354248702*^9, 3.500666359297991*^9}, { 3.5007904368780365`*^9, 3.500790440856044*^9}, 3.500790492492134*^9}], Cell[BoxData[ RowBox[{"-", FractionBox[ SubsuperscriptBox["M", "z", "\[Alpha]"], "Izz"]}]], "Output", CellChangeTimes->{3.5007948334313693`*^9, 3.5017390282751975`*^9, 3.501741171657792*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\:04413", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "drv"}], "]"}]}]], "Input", CellChangeTimes->{{3.500790525657793*^9, 3.5007905579822493`*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0412"]], "Izz"]}]], "Output", CellChangeTimes->{3.500794833462569*^9, 3.501739028334201*^9, 3.5017411717878*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c5", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ SuperscriptBox["alpha", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5007905667026653`*^9, 3.500790589946706*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ SubsuperscriptBox["M", "z", OverscriptBox["\[Alpha]", "."]], "Izz"]}]], "Output", CellChangeTimes->{3.500794833493769*^9, 3.501739028386204*^9, 3.5017411719078064`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c12", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "dzak"}], "]"}]}]], "Input", CellChangeTimes->{{3.5007905959839163`*^9, 3.5007905963583174`*^9}, { 3.5007906365595875`*^9, 3.500790658696027*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0417"]], "Izz"]}]], "Output", CellChangeTimes->{3.500794833524969*^9, 3.501739028435207*^9, 3.5017411720158124`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"e3", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "dv"}], "]"}]}]], "Input", CellChangeTimes->{{3.5007906630640345`*^9, 3.5007907017989025`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ SubsuperscriptBox["M", "z", "M"], "a"]}], "Izz"]], "Output", CellChangeTimes->{3.5007948335561695`*^9, 3.501739028479209*^9, 3.5017411721208186`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r3", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"UrVD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "dsg"}], "]"}]}]], "Input", CellChangeTimes->{{3.500790712890522*^9, 3.5007907237013407`*^9}, { 3.5007907616874075`*^9, 3.50079076288861*^9}}], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "Izz"]], "Output", CellChangeTimes->{3.5007948335873694`*^9, 3.5017390285232115`*^9, 3.5017411722208242`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U2", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"], ",", SubscriptBox["\[Omega]", "z"], ",", OverscriptBox["\[Alpha]", "."], ",", "\[Alpha]", ",", "\[CapitalDelta]v", ",", SubscriptBox["\[Delta]", "\:0412"], ",", SubscriptBox["\[Delta]", "\:0421\:0413"], ",", SubscriptBox["\[Delta]", "\:0417"]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "c1", "}"}], ",", RowBox[{"{", "c5", "}"}], ",", RowBox[{"{", "c2", "}"}], ",", RowBox[{"{", "e3", "}"}], ",", RowBox[{"{", "\:04413", "}"}], ",", RowBox[{"{", "r3", "}"}], ",", RowBox[{"{", "c12", "}"}]}], "}"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.5007908094546914`*^9, 3.500791061629134*^9}, { 3.500791095075593*^9, 3.5007910977275977`*^9}, 3.500791945977488*^9, { 3.5007919925903697`*^9, 3.5007920071919956`*^9}, {3.500794372029359*^9, 3.5007943757265654`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Alpha]", " ", SubsuperscriptBox["M", "z", "\[Alpha]"]}], "Izz"]}], "-", FractionBox[ RowBox[{ OverscriptBox["\[Alpha]", "."], " ", SubsuperscriptBox["M", "z", OverscriptBox["\[Alpha]", "."]]}], "Izz"], "+", FractionBox[ RowBox[{"\[CapitalDelta]v", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ SubsuperscriptBox["M", "z", "M"], "a"]}], ")"}]}], "Izz"], "-", FractionBox[ RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0412"]], " ", SubscriptBox["\[Delta]", "\:0412"]}], "Izz"], "-", FractionBox[ RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0417"]], " ", SubscriptBox["\[Delta]", "\:0417"]}], "Izz"], "+", FractionBox[ RowBox[{ SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", SubscriptBox["\[Delta]", "\:0421\:0413"]}], "Izz"], "-", FractionBox[ RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Omega]", "z"]], " ", SubscriptBox["\[Omega]", "z"]}], "Izz"], "+", SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{3.5007948336185694`*^9, 3.5017390285692143`*^9, 3.5017411723268304`*^9}] }, Open ]], Cell[TextData[StyleBox["\:0417\:0430\:043f\:0438\:0448\:0435\:043c \:043a\ \:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:044b \:0432 \ \:043f\:0440\:0438\:043d\:044f\:0442\:043e\:0439 \:0444\:043e\:0440\:043c\ \:0435 :", FontSize->16]], "Text", CellChangeTimes->{{3.5007942541847515`*^9, 3.5007942803943977`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c1", "=", RowBox[{"ReplaceAll", "[", RowBox[{"c1", ",", RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Omega]", "z"]], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", SubscriptBox["\[Omega]", "z"]], FractionBox["\[Rho]V", "2"], SubsuperscriptBox["Sb", "A", "2"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5007929710224905`*^9, 3.5007929895709233`*^9}, { 3.5007930255445867`*^9, 3.500793062844252*^9}, {3.5007931416867905`*^9, 3.500793177738454*^9}, {3.500793211980514*^9, 3.500793257048993*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"\[Rho]V", " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Omega]", "z"]], " ", SubsuperscriptBox["Sb", "A", "2"]}], RowBox[{"2", " ", "Izz"}]]}]], "Output", CellChangeTimes->{3.50079483364977*^9, 3.5017390286242175`*^9, 3.501741172510841*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c2", "=", RowBox[{"ReplaceAll", "[", RowBox[{"c2", ",", RowBox[{ SubsuperscriptBox["M", "z", "\[Alpha]"], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", "\[Alpha]"], FractionBox[ SuperscriptBox["\[Rho]V", "2"], "2"], SubscriptBox["Sb", "A"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.50079326670541*^9, 3.500793311040688*^9}, { 3.500793341148741*^9, 3.5007933476539526`*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "\[Alpha]"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "Izz"}]]}]], "Output", CellChangeTimes->{3.5007948336809697`*^9, 3.5017390286712203`*^9, 3.501741172612847*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\:04413", "=", RowBox[{"ReplaceAll", "[", RowBox[{"\:04413", ",", RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0412"]], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0412"]], FractionBox[ SuperscriptBox["\[Rho]V", "2"], "2"], SubscriptBox["Sb", "A"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.500793406341255*^9, 3.5007934069028563`*^9}, { 3.500793444047722*^9, 3.500793504466628*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0412"]], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "Izz"}]]}]], "Output", CellChangeTimes->{3.5007948337121696`*^9, 3.501739028720223*^9, 3.5017411727108526`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c5", "=", RowBox[{"ReplaceAll", "[", RowBox[{"c5", ",", RowBox[{ SubsuperscriptBox["M", "z", OverscriptBox["\[Alpha]", "."]], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", OverscriptBox["\[Alpha]", "."]], FractionBox["\[Rho]V", "2"], SubsuperscriptBox["Sb", "A", "2"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5007935240446625`*^9, 3.5007935692223415`*^9}, 3.500793607099208*^9, {3.5007936375816617`*^9, 3.500793651387686*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"\[Rho]V", " ", SubsuperscriptBox["m", "z", OverscriptBox["\[Alpha]", "."]], " ", SubsuperscriptBox["Sb", "A", "2"]}], RowBox[{"2", " ", "Izz"}]]}]], "Output", CellChangeTimes->{3.5007948337433696`*^9, 3.501739028769226*^9, 3.501741172812858*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c12", "=", RowBox[{"ReplaceAll", "[", RowBox[{"c12", ",", RowBox[{ SubsuperscriptBox["M", "z", SubscriptBox["\[Delta]", "\:0417"]], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0417"]], FractionBox[ SuperscriptBox["\[Rho]V", "2"], "2"], SubscriptBox["Sb", "A"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.500793802513958*^9, 3.5007938305940075`*^9}, { 3.500793873821683*^9, 3.5007938985009265`*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0417"]], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "Izz"}]]}]], "Output", CellChangeTimes->{3.5007948337745695`*^9, 3.5017390288202286`*^9, 3.501741172917864*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"e3", "=", RowBox[{"ReplaceAll", "[", RowBox[{"e3", ",", RowBox[{ SubsuperscriptBox["M", "z", "M"], "\[Rule]", RowBox[{ SubsuperscriptBox["m", "z", "M"], FractionBox[ SuperscriptBox["\[Rho]V", "2"], "2"], SubscriptBox["Sb", "A"]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.500794103098486*^9, 3.5007941418801537`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "M"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "a"}]]}], "Izz"]], "Output", CellChangeTimes->{3.50079483380577*^9, 3.5017390288722315`*^9, 3.5017411730498714`*^9}] }, Open ]], Cell[TextData[StyleBox["\:041e\:043a\:043e\:043d\:0447\:0430\:0442\:0435\:043b\ \:044c\:043d\:043e\:0435 \:0432\:044b\:0440\:0430\:0436\:0435\:043d\:0438\ \:0435 \:0438\:043c\:0435\:0435\:0442 \:0432\:0438\:0434 :", FontSize->18]], "Text", CellChangeTimes->{{3.5007943282240815`*^9, 3.50079435001772*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U3", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"], ",", SubscriptBox["\[Omega]", "z"], ",", OverscriptBox["\[Alpha]", "."], ",", "\[Alpha]", ",", "\[CapitalDelta]v", ",", SubscriptBox["\[Delta]", "\:0412"], ",", SubscriptBox["\[Delta]", "\:0421\:0413"], ",", SubscriptBox["\[Delta]", "\:0417"]}], "}"}], ".", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "c1", "}"}], ",", RowBox[{"{", "c5", "}"}], ",", RowBox[{"{", "c2", "}"}], ",", RowBox[{"{", "e3", "}"}], ",", RowBox[{"{", "\:04413", "}"}], ",", RowBox[{"{", "r3", "}"}], ",", RowBox[{"{", "c12", "}"}]}], "}"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.5007943037476387`*^9, 3.500794322296071*^9}, 3.5007943816545753`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Alpha]", " ", SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "\[Alpha]"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "Izz"}]]}], "-", FractionBox[ RowBox[{"\[Rho]V", " ", OverscriptBox["\[Alpha]", "."], " ", SubsuperscriptBox["m", "z", OverscriptBox["\[Alpha]", "."]], " ", SubsuperscriptBox["Sb", "A", "2"]}], RowBox[{"2", " ", "Izz"}]], "+", FractionBox[ RowBox[{"\[CapitalDelta]v", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["P", "v"], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", "M"], " ", SubscriptBox["Sb", "A"]}], RowBox[{"2", " ", "a"}]]}], ")"}]}], "Izz"], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0412"]], " ", SubscriptBox["Sb", "A"], " ", SubscriptBox["\[Delta]", "\:0412"]}], RowBox[{"2", " ", "Izz"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Rho]V", "2"], " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Delta]", "\:0417"]], " ", SubscriptBox["Sb", "A"], " ", SubscriptBox["\[Delta]", "\:0417"]}], RowBox[{"2", " ", "Izz"}]], "+", FractionBox[ RowBox[{ SuperscriptBox["P", SubscriptBox["\[Delta]", "\:0421\:0413"]], " ", "yp", " ", RowBox[{"Cos", "[", "fip", "]"}], " ", SubscriptBox["\[Delta]", "\:0421\:0413"]}], "Izz"], "-", FractionBox[ RowBox[{"\[Rho]V", " ", SubsuperscriptBox["m", "z", SubscriptBox["\[Omega]", "z"]], " ", SubsuperscriptBox["Sb", "A", "2"], " ", SubscriptBox["\[Omega]", "z"]}], RowBox[{"2", " ", "Izz"}]], "+", SubscriptBox[ OverscriptBox["\[Omega]", "."], "z"]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{3.50079483383697*^9, 3.501739028929235*^9, 3.5017411731668787`*^9}] }, Open ]] }, WindowSize->{675, 650}, WindowMargins->{{1, Automatic}, {Automatic, -3}}, Magnification->0.8999999761581421, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 407, 7, 37, "Text"], Cell[955, 29, 312, 4, 31, "Text"], Cell[CellGroupData[{ Cell[1292, 37, 844, 21, 27, "Input"], Cell[2139, 60, 864, 24, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3040, 89, 969, 21, 27, "Input"], Cell[4012, 112, 886, 24, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4935, 141, 1005, 23, 27, "Input"], Cell[5943, 166, 870, 24, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6850, 195, 1104, 20, 46, "Input"], Cell[7957, 217, 2651, 70, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10645, 292, 1588, 30, 46, "Input"], Cell[12236, 324, 2832, 70, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15105, 399, 1440, 27, 46, "Input"], Cell[16548, 428, 1543, 39, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18128, 472, 1520, 30, 46, "Input"], Cell[19651, 504, 927, 25, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20615, 534, 1708, 32, 46, "Input"], Cell[22326, 568, 1533, 41, 62, "Output"] }, Open ]], Cell[23874, 612, 2642, 56, 170, "Input", Evaluatable->False], Cell[26519, 670, 1727, 32, 50, "Input", Evaluatable->False], Cell[28249, 704, 920, 17, 27, "Input"], Cell[29172, 723, 1829, 30, 46, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[31026, 757, 929, 15, 27, "Input"], Cell[31958, 774, 153, 3, 27, "Output"] }, Open ]], Cell[32126, 780, 1378, 22, 46, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[33529, 806, 849, 15, 27, "Input"], Cell[34381, 823, 146, 4, 27, "Output"] }, Open ]], Cell[34542, 830, 1384, 28, 64, "Input", Evaluatable->False], Cell[35929, 860, 1309, 23, 29, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[37263, 887, 1200, 19, 27, "Input"], Cell[38466, 908, 993, 29, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39496, 942, 1661, 28, 27, "Input"], Cell[41160, 972, 1912, 49, 62, "Output"] }, Open ]], Cell[43087, 1024, 1153, 18, 27, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[44265, 1046, 1007, 17, 27, "Input"], Cell[45275, 1065, 1083, 32, 62, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46395, 1102, 1089, 18, 27, "Input"], Cell[47487, 1122, 176, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47700, 1131, 2094, 42, 46, "Input"], Cell[49797, 1175, 649, 18, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50483, 1198, 1260, 19, 27, "Input"], Cell[51746, 1219, 248, 7, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52031, 1231, 1371, 23, 27, "Input"], Cell[53405, 1256, 750, 20, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54192, 1281, 1950, 37, 46, "Input"], Cell[56145, 1320, 3756, 100, 94, "Output"] }, Open ]], Cell[59916, 1423, 1252, 21, 29, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[61193, 1448, 1262, 23, 27, "Input"], Cell[62458, 1473, 911, 25, 27, "Output"] }, Open ]], Cell[63384, 1501, 2627, 54, 82, "Input"], Cell[66014, 1557, 6237, 173, 312, "Input"], Cell[CellGroupData[{ Cell[72276, 1734, 1980, 35, 298, "Input"], Cell[74259, 1771, 2598, 69, 62, "Output"], Cell[76860, 1842, 266, 6, 39, "Output"], Cell[77129, 1850, 341, 8, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77507, 1863, 679, 15, 46, "Input"], Cell[78189, 1880, 1149, 35, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79375, 1920, 1516, 30, 82, "Input"], Cell[80894, 1952, 273, 7, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81204, 1964, 214, 5, 27, "Input"], Cell[81421, 1971, 210, 5, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81668, 1981, 869, 19, 46, "Input"], Cell[82540, 2002, 1973, 58, 66, "Output"] }, Open ]], Cell[84528, 2063, 771, 10, 47, "Text"], Cell[CellGroupData[{ Cell[85324, 2077, 539, 13, 27, "Input"], Cell[85866, 2092, 752, 23, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86655, 2120, 779, 23, 46, "Input"], Cell[87437, 2145, 754, 23, 46, "Output"] }, Open ]], Cell[88206, 2171, 749, 11, 66, "Text", Evaluatable->True], Cell[88958, 2184, 645, 10, 28, "Text", Evaluatable->True], Cell[89606, 2196, 1314, 20, 66, "Text", Evaluatable->True], Cell[90923, 2218, 696, 15, 29, "Text"], Cell[CellGroupData[{ Cell[91644, 2237, 1349, 38, 100, "Input"], Cell[92996, 2277, 812, 24, 46, "Output"] }, Open ]], Cell[93823, 2304, 524, 12, 29, "Text"], Cell[CellGroupData[{ Cell[94372, 2320, 2128, 63, 190, "Input"], Cell[96503, 2385, 3430, 101, 132, "Output"] }, Open ]], Cell[99948, 2489, 576, 11, 29, "Text"], Cell[CellGroupData[{ Cell[100549, 2504, 577, 16, 27, "Input"], Cell[101129, 2522, 3105, 90, 114, "Output"] }, Open ]], Cell[104249, 2615, 1219, 16, 85, "Text"], Cell[CellGroupData[{ Cell[105493, 2635, 1164, 30, 50, "Input"], Cell[106660, 2667, 1681, 49, 61, "Output"] }, Open ]], Cell[108356, 2719, 940, 13, 47, "Text"], Cell[CellGroupData[{ Cell[109321, 2736, 1862, 49, 64, "Input"], Cell[111186, 2787, 1127, 34, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[112350, 2826, 381, 12, 27, "Input"], Cell[112734, 2840, 381, 11, 27, "Output"] }, Open ]], Cell[113130, 2854, 291, 4, 28, "Text"], Cell[CellGroupData[{ Cell[113446, 2862, 98, 1, 27, "Input"], Cell[113547, 2865, 1683, 49, 61, "Output"] }, Open ]], Cell[115245, 2917, 879, 12, 47, "Text"], Cell[CellGroupData[{ Cell[116149, 2933, 457, 13, 27, "Input"], Cell[116609, 2948, 1767, 51, 104, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118413, 3004, 2519, 62, 87, "Input"], Cell[120935, 3068, 1309, 37, 77, "Output"] }, Open ]], Cell[122259, 3108, 412, 7, 29, "Text"], Cell[CellGroupData[{ Cell[122696, 3119, 1155, 29, 64, "Input"], Cell[123854, 3150, 2158, 62, 97, "Output"] }, Open ]], Cell[126027, 3215, 361, 6, 29, "Text"], Cell[CellGroupData[{ Cell[126413, 3225, 409, 9, 27, "Input"], Cell[126825, 3236, 223, 6, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127085, 3247, 458, 9, 27, "Input"], Cell[127546, 3258, 201, 5, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127784, 3268, 236, 6, 27, "Input"], Cell[128023, 3276, 224, 6, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128284, 3287, 328, 9, 27, "Input"], Cell[128615, 3298, 224, 6, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128876, 3309, 286, 7, 27, "Input"], Cell[129165, 3318, 228, 6, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129430, 3329, 232, 6, 27, "Input"], Cell[129665, 3337, 317, 9, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[130019, 3351, 281, 7, 27, "Input"], Cell[130303, 3360, 279, 7, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[130619, 3372, 1201, 30, 64, "Input"], Cell[131823, 3404, 1535, 45, 95, "Output"] }, Open ]], Cell[133373, 3452, 331, 5, 25, "Text"], Cell[CellGroupData[{ Cell[133729, 3461, 593, 14, 36, "Input"], Cell[134325, 3477, 323, 9, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[134685, 3491, 457, 12, 38, "Input"], Cell[135145, 3505, 317, 9, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135499, 3519, 531, 14, 38, "Input"], Cell[136033, 3535, 347, 10, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[136417, 3550, 521, 13, 36, "Input"], Cell[136941, 3565, 325, 9, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[137303, 3579, 525, 14, 38, "Input"], Cell[137831, 3595, 347, 10, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[138215, 3610, 395, 11, 38, "Input"], Cell[138613, 3623, 436, 13, 48, "Output"] }, Open ]], Cell[139064, 3639, 307, 4, 27, "Text"], Cell[CellGroupData[{ Cell[139396, 3647, 1049, 28, 24, "Input"], Cell[140448, 3677, 2155, 62, 87, "Output"] }, Open ]] } ] *) (* End of internal cache information *)