148 lines
4.0 KiB
Mathematica
148 lines
4.0 KiB
Mathematica
(* Content-type: application/vnd.wolfram.mathematica *)
|
|
|
|
(*** Wolfram Notebook File ***)
|
|
(* http://www.wolfram.com/nb *)
|
|
|
|
(* CreatedBy='Mathematica 8.0' *)
|
|
|
|
(*CacheID: 234*)
|
|
(* Internal cache information:
|
|
NotebookFileLineBreakTest
|
|
NotebookFileLineBreakTest
|
|
NotebookDataPosition[ 157, 7]
|
|
NotebookDataLength[ 3876, 137]
|
|
NotebookOptionsPosition[ 3514, 119]
|
|
NotebookOutlinePosition[ 3867, 135]
|
|
CellTagsIndexPosition[ 3824, 132]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
Cell[BoxData[{
|
|
RowBox[{
|
|
RowBox[{"roll", "=",
|
|
RowBox[{"ArcTan", "[",
|
|
RowBox[{"g3", ",", "g2"}], "]"}]}], ";"}], "\n",
|
|
RowBox[{
|
|
RowBox[{"pitch", "=",
|
|
RowBox[{"ArcTan", "[",
|
|
RowBox[{
|
|
RowBox[{"-", "g1"}], ",",
|
|
SqrtBox[
|
|
RowBox[{
|
|
SuperscriptBox["g2", "2"], "+",
|
|
SuperscriptBox["g3", "2"]}]]}], "]"}]}], ";"}], "\n"}], "Input",
|
|
CellChangeTimes->{{3.535838264320565*^9, 3.535838380686434*^9}, {
|
|
3.53583852660116*^9, 3.5358385374458313`*^9}, {3.5358391717151127`*^9,
|
|
3.535839173489215*^9}}],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"(", "\[NoBreak]", GridBox[{
|
|
{
|
|
RowBox[{"D", "[",
|
|
RowBox[{"roll", ",", "g1"}], "]"}],
|
|
RowBox[{"D", "[",
|
|
RowBox[{"roll", ",", "g2"}], "]"}],
|
|
RowBox[{"D", "[",
|
|
RowBox[{"roll", ",", "g3"}], "]"}]},
|
|
{
|
|
RowBox[{"D", "[",
|
|
RowBox[{"pitch", ",", "g1"}], "]"}],
|
|
RowBox[{"D", "[",
|
|
RowBox[{"pitch", ",", "g2"}], "]"}],
|
|
RowBox[{"D", "[",
|
|
RowBox[{"pitch", ",", "g3"}], "]"}]},
|
|
{"0", "0", "0"}
|
|
}], "\[NoBreak]", ")"}], "//", "FullSimplify"}]], "Input",
|
|
CellChangeTimes->{{3.535838384786139*^9, 3.535838492987266*^9}, {
|
|
3.535838580947555*^9, 3.535838595178028*^9}}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",",
|
|
FractionBox["g3",
|
|
RowBox[{
|
|
SuperscriptBox["g2", "2"], "+",
|
|
SuperscriptBox["g3", "2"]}]], ",",
|
|
RowBox[{"-",
|
|
FractionBox["g2",
|
|
RowBox[{
|
|
SuperscriptBox["g2", "2"], "+",
|
|
SuperscriptBox["g3", "2"]}]]}]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
FractionBox[
|
|
SqrtBox[
|
|
RowBox[{
|
|
SuperscriptBox["g2", "2"], "+",
|
|
SuperscriptBox["g3", "2"]}]],
|
|
RowBox[{
|
|
SuperscriptBox["g1", "2"], "+",
|
|
SuperscriptBox["g2", "2"], "+",
|
|
SuperscriptBox["g3", "2"]}]], ",",
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"g1", " ", "g2"}],
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{
|
|
SuperscriptBox["g2", "2"], "+",
|
|
SuperscriptBox["g3", "2"]}]], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["g1", "2"], "+",
|
|
SuperscriptBox["g2", "2"], "+",
|
|
SuperscriptBox["g3", "2"]}], ")"}]}]]}], ",",
|
|
RowBox[{"-",
|
|
FractionBox[
|
|
RowBox[{"g1", " ", "g3"}],
|
|
RowBox[{
|
|
SqrtBox[
|
|
RowBox[{
|
|
SuperscriptBox["g2", "2"], "+",
|
|
SuperscriptBox["g3", "2"]}]], " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["g1", "2"], "+",
|
|
SuperscriptBox["g2", "2"], "+",
|
|
SuperscriptBox["g3", "2"]}], ")"}]}]]}]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.5358383879873047`*^9, 3.535838493685678*^9},
|
|
3.53583853974876*^9, {3.535838581771779*^9, 3.535838595765464*^9}}]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{740, 752},
|
|
WindowMargins->{{4, Automatic}, {Automatic, 4}},
|
|
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 5, \
|
|
2011)",
|
|
StyleDefinitions->"Default.nb"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[557, 20, 544, 16, 75, "Input"],
|
|
Cell[CellGroupData[{
|
|
Cell[1126, 40, 692, 20, 61, "Input"],
|
|
Cell[1821, 62, 1677, 54, 109, "Output"]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|
|
(* End of internal cache information *)
|
|
|