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 *)
							 | 
						||
| 
								 | 
							
								
							 |