(* 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[ 22157, 721] NotebookOptionsPosition[ 20303, 651] NotebookOutlinePosition[ 20647, 666] CellTagsIndexPosition[ 20604, 663] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["r={x[t], y[t], z[t]}", "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"z", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.4964213469913645`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["vg={vgx[t], vgy[t], vgz[t]}", "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"vgx", "[", "t", "]"}], ",", RowBox[{"vgy", "[", "t", "]"}], ",", RowBox[{"vgz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.4964213511326017`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["MatrixForm[D[r,t]]==MatrixForm[vg]", "Input"], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ SuperscriptBox["x", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}, { RowBox[{ SuperscriptBox["z", "\[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[{ RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"vx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"vz", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"vz", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], " ", RowBox[{"vx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"vz", "[", "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.496421353115715*^9, 3.496421817759291*^9, 3.496461374413602*^9}] }, Open ]], Cell[CellGroupData[{ Cell["w={wx[t], wy[t], wz[t]}", "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", "t", "]"}], ",", RowBox[{"wy", "[", "t", "]"}], ",", RowBox[{"wz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.496421354967821*^9}] }, Open ]], Cell[CellGroupData[{ Cell["v={vx[t], vy[t], vz[t]}", "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"vx", "[", "t", "]"}], ",", RowBox[{"vy", "[", "t", "]"}], ",", RowBox[{"vz", "[", "t", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.496421356571913*^9}] }, Open ]], Cell[CellGroupData[{ Cell["f={fx,fy,fz}", "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]], "Output", CellChangeTimes->{3.4964213579099894`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["ud=m*(D[v,t]+Cross[w,v])==f", "Input", CellChangeTimes->{{3.4964608480904975`*^9, 3.496460851547695*^9}, { 3.4964618455525494`*^9, 3.4964618643586245`*^9}, {3.4964619461973057`*^9, 3.4964619716557617`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], ",", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"vz", "[", "t", "]"}]}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}], ",", RowBox[{"m", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], ")"}]}]}], "}"}], "\[Equal]", RowBox[{"{", RowBox[{"fx", ",", "fy", ",", "fz"}], "}"}]}]], "Output", CellChangeTimes->{ 3.4964618668467674`*^9, {3.4964619511805906`*^9, 3.4964619727088223`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Solve[ud, {D[vx[t], t], D[vy[t], t], D[vz[t], t]}]", "Input", CellChangeTimes->{{3.4964608480904975`*^9, 3.496460851547695*^9}, { 3.4964618455525494`*^9, 3.4964618643586245`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["vx", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", FractionBox[ RowBox[{"fx", "-", RowBox[{"m", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], "m"]}], ",", RowBox[{ RowBox[{ SuperscriptBox["vy", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", FractionBox[ RowBox[{"fy", "+", RowBox[{"m", " ", RowBox[{"vz", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "-", RowBox[{"m", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wz", "[", "t", "]"}]}]}], "m"]}], ",", RowBox[{ RowBox[{ SuperscriptBox["vz", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[Rule]", FractionBox[ RowBox[{"fz", "-", RowBox[{"m", " ", RowBox[{"vy", "[", "t", "]"}], " ", RowBox[{"wx", "[", "t", "]"}]}], "+", RowBox[{"m", " ", RowBox[{"vx", "[", "t", "]"}], " ", RowBox[{"wy", "[", "t", "]"}]}]}], "m"]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.4964213591690617`*^9, 3.4964608531397867`*^9, 3.4964618690258913`*^9, { 3.4964619546347885`*^9, 3.496461975817*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"mgamma", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], ",", " ", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], ",", " ", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}], "}"}]}], " ", "}"}]}], "]"}], TraditionalForm]], "Input", CellChangeTimes->{{3.496421405145691*^9, 3.4964214070137978`*^9}, { 3.4964612522226124`*^9, 3.4964612641972976`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]}]}, {"0", RowBox[{"Sin", "[", RowBox[{"gam", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"gam", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{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.4964612654933715`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"mpsi", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], ",", " ", "0", ",", " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], ",", " ", "0", ",", " ", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}], TraditionalForm]], "Input", CellChangeTimes->{{3.4964612746948977`*^9, 3.4964612862935615`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], "0", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}, {"0", "1", "0"}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{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.496421425682866*^9, 3.496461287798648*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"mteta", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], ",", " ", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}]}], ",", " ", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], ",", " ", RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], ",", " ", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], TraditionalForm]], "Input", CellChangeTimes->{{3.4964608977913404`*^9, 3.496460905267768*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}]}], "0"}, { RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], "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.496421431593204*^9, 3.496460906822857*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"u", "=", RowBox[{"mteta", ".", "mpsi"}]}], "]"}], TraditionalForm]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{ RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}]}], RowBox[{ RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}]}, { RowBox[{ RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}]}], RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}]}, { RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], "0", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]} }, 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.4964214387536135`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"ReplaceAll", "[", RowBox[{"u", ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"angteta", "[", "t", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{ RowBox[{"psi", "[", "t", "]"}], "\[Rule]", "0"}]}], "}"}]}], "]"}], "]"}], " "}], TraditionalForm]], "Input", CellChangeTimes->{{3.496460518306635*^9, 3.49646053361351*^9}, { 3.49646099726003*^9, 3.496461029455871*^9}, {3.4964610899143295`*^9, 3.4964610913264103`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "1", "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.4964605379837604`*^9, {3.4964610253526363`*^9, 3.4964610299398985`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"MatrixForm", "[", RowBox[{"vg", "=", RowBox[{"u", ".", "v"}]}], "]"}], TraditionalForm]], "Input", CellChangeTimes->{{3.496460518306635*^9, 3.49646053361351*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"vx", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"vz", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"vy", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"angteta", "[", "t", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"vz", "[", "t", "]"}]}]}]}, { RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"psi", "[", "t", "]"}], "]"}]}], " ", RowBox[{"vx", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"psi", "[", "t", "]"}], "]"}], " ", RowBox[{"vz", "[", "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.4964605401688857`*^9, 3.49646110776335*^9, 3.4964613696863313`*^9}] }, Open ]], Cell[BoxData[ FormBox["", TraditionalForm]], "Input"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.496463106088648*^9, 3.496463106141651*^9}}] }, WindowSize->{1264, 665}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, 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[CellGroupData[{ Cell[567, 22, 37, 0, 31, "Input"], Cell[607, 24, 214, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[858, 35, 44, 0, 31, "Input"], Cell[905, 37, 220, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1162, 48, 51, 0, 31, "Input"], Cell[1216, 50, 3390, 96, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4643, 151, 40, 0, 31, "Input"], Cell[4686, 153, 215, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4938, 164, 40, 0, 31, "Input"], Cell[4981, 166, 215, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5233, 177, 29, 0, 31, "Input"], Cell[5265, 179, 130, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5432, 187, 218, 3, 31, "Input"], Cell[5653, 192, 1466, 45, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7156, 242, 188, 2, 31, "Input"], Cell[7347, 246, 1475, 42, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8859, 293, 860, 23, 30, "Input"], Cell[9722, 318, 961, 28, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10720, 351, 796, 22, 30, "Input"], Cell[11519, 375, 981, 28, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12537, 408, 817, 24, 30, "Input"], Cell[13357, 434, 997, 28, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14391, 467, 148, 4, 30, "Input"], Cell[14542, 473, 1685, 49, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16264, 527, 560, 15, 30, "Input"], Cell[16827, 544, 714, 20, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17578, 569, 207, 5, 30, "Input"], Cell[17788, 576, 2347, 66, 57, "Output"] }, Open ]], Cell[20150, 645, 54, 1, 30, "Input"], Cell[20207, 648, 92, 1, 31, InheritFromParent] } ] *) (* End of internal cache information *)