(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 29173, 813] NotebookOptionsPosition[ 28706, 792] NotebookOutlinePosition[ 29049, 807] CellTagsIndexPosition[ 29006, 804] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "In a 4D Minkowski space, this notebook calculates the spherical tangent \ space basis for a spherical parameterization of ", Cell[BoxData[ FormBox[ RowBox[{"span", RowBox[{"{", SubscriptBox["e", "2"]}]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["e", "3"], ",", " ", SubscriptBox["e", "4"]}], TraditionalForm]]], "} and their duals on that volume. The duals are calculated using the \ Geometric algebra methods, instead of matrix inversion." }], "Text", CellChangeTimes->{{3.608242226478157*^9, 3.608242281900327*^9}, { 3.6082429931440077`*^9, 3.6082430004464254`*^9}, {3.6082430644690876`*^9, 3.608243104935402*^9}, {3.6082431935314693`*^9, 3.608243214981696*^9}, { 3.608244675745247*^9, 3.6082446780213776`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"<<", "\"\\""}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"$SetSignature", "=", " ", "3", " "}]}], "Input", CellChangeTimes->{{3.6082894574531355`*^9, 3.6082894582391806`*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.6082895140093703`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{ "xVec", ",", " ", "x", ",", " ", "xx", ",", " ", "xr", ",", " ", "xAlpha", ",", " ", "xphi", ",", " ", "basis", ",", " ", "xRAlphaPhi", ",", " ", "reciprocals"}], "]"}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xVec", "[", RowBox[{"xParam_", ",", " ", "r_", ",", " ", "alpha_", ",", " ", "phi_"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"xParam", ",", " ", RowBox[{"r", " ", RowBox[{"Sinh", "[", "alpha", "]"}], " ", RowBox[{"Cos", "[", "phi", "]"}]}], ",", " ", RowBox[{"r", " ", RowBox[{"Sinh", "[", "alpha", "]"}], RowBox[{"Sin", "[", "phi", "]"}]}], ",", RowBox[{"r", " ", RowBox[{"Cosh", "[", "alpha", "]"}]}]}], "}"}], " ", "//", " ", "ToBasis"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xr", "[", RowBox[{"r_", ",", " ", "alpha_", ",", " ", "phi_"}], "]"}], " ", "=", " ", RowBox[{"D", "[", RowBox[{ RowBox[{"xVec", "[", RowBox[{"x", ",", " ", "u", ",", " ", "alpha", ",", " ", "phi"}], "]"}], ",", " ", "u"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xAlpha", "[", RowBox[{"r_", ",", " ", "alpha_", ",", " ", "phi_"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"xVec", "[", RowBox[{"x", ",", " ", "r", ",", " ", "u", ",", " ", "phi"}], "]"}], ",", " ", "u"}], "]"}], " ", "/.", " ", RowBox[{"u", "\[Rule]", " ", "alpha"}]}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"xphi", "[", RowBox[{"r_", ",", " ", "alpha_", ",", " ", "phi_"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"xVec", "[", RowBox[{"x", ",", " ", "r", ",", " ", "alpha", ",", " ", "u"}], "]"}], ",", " ", "u"}], "]"}], " ", "/.", " ", RowBox[{"u", "\[Rule]", " ", "phi"}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"basis", " ", "=", " ", RowBox[{"{", " ", RowBox[{ RowBox[{"xr", "[", RowBox[{"r", ",", " ", "\[Alpha]", ",", " ", "\[Phi]"}], "]"}], ",", " ", RowBox[{"xAlpha", "[", RowBox[{"r", ",", " ", "\[Alpha]", ",", " ", "\[Phi]"}], "]"}], ",", " ", RowBox[{"xphi", "[", RowBox[{"r", ",", " ", "\[Alpha]", ",", " ", "\[Phi]"}], "]"}]}], " ", "}"}]}], " ", ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"duals", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"OuterProduct", "[", RowBox[{ RowBox[{"basis", "[", RowBox[{"[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"basis", "[", RowBox[{"[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "]"}], " ", "&"}], " ", "/@", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}]}], " ", "//", " ", "Simplify"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Factor"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xRAlphaPhi", " ", "=", " ", RowBox[{ RowBox[{"OuterProduct", "[", " ", RowBox[{ RowBox[{"basis", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{"basis", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", RowBox[{"basis", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "]"}], " ", "//", " ", "Simplify"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"reciprocals", " ", "=", " ", RowBox[{ RowBox[{"MapThread", "[", " ", RowBox[{"GeometricProduct", ",", " ", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{"duals", ",", " ", "\[IndentingNewLine]", RowBox[{"Array", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"xRAlphaPhi", " ", "//", " ", "MultivectorInverse"}], " ", ")"}], "+", " ", "0"}], "&"}], ",", " ", "3"}], "]"}]}], " ", RowBox[{"(*", RowBox[{"Repeat", " ", "3", " ", RowBox[{"times", "."}]}], "*)"}], "\[IndentingNewLine]", "}"}]}], " ", "]"}], " ", "//", " ", "Simplify"}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Grid", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[OverscriptBox[\(e\), \(\[RightVector]\)], \ \(i\)]\)\[CenterDot] \!\(\*SubscriptBox[OverscriptBox[\(e\), \(\[RightVector]\ \)], \(j\)]\) = \>\"", ",", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"InnerProduct", "[", RowBox[{ RowBox[{"e", "[", "i", "]"}], ",", RowBox[{"e", "[", "j", "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", "4"}], "}"}]}], "]"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "MatrixForm"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*OverscriptBox[\(x\), \(\[RightVector]\)]\) = \>\"", ",", " ", RowBox[{"xVec", "[", RowBox[{"x", ",", "r", ",", " ", "\[Alpha]", ",", " ", "\[Phi]"}], "]"}]}], " ", " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \ \(r\)]\) = \>\"", ",", " ", RowBox[{"basis", "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \(\ \[Alpha]\)]\) = \>\"", ",", " ", RowBox[{"basis", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \(\ \[Phi]\)]\) = \>\"", ",", RowBox[{"basis", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \ \(i\)]\)\[CenterDot] \!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\ \)], \(j\)]\) = \>\"", ",", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"InnerProduct", "[", RowBox[{ RowBox[{"basis", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"basis", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", "3"}], "}"}]}], "]"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "MatrixForm"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SuperscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \ \(r\)]\) = \>\"", ",", " ", RowBox[{ RowBox[{ RowBox[{"reciprocals", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Factor"}]}], " ", " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SuperscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \(\ \[Alpha]\)]\) = \>\"", ",", " ", RowBox[{ RowBox[{ RowBox[{"reciprocals", "[", RowBox[{"[", "2", "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Factor"}]}], " ", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SuperscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \(\ \[Phi]\)]\) = \>\"", ",", RowBox[{ RowBox[{ RowBox[{"reciprocals", "[", RowBox[{"[", "3", "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Factor"}]}], " ", " ", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \(\ \[Alpha]\)]\) \[Wedge] \!\(\*SubscriptBox[OverscriptBox[\(x\), \(\ \[RightVector]\)], \(\[Phi]\)]\) = \>\"", ",", " ", RowBox[{ RowBox[{ RowBox[{"duals", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Factor"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \(\ \[Phi]\)]\) \[Wedge] \!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\ \)], \(r\)]\) = \>\"", ",", " ", RowBox[{ RowBox[{ RowBox[{"duals", "[", RowBox[{"[", "2", "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Factor"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \ \(r\)]\) \[Wedge] \!\(\*SubscriptBox[OverscriptBox[\(x\), \ \(\[RightVector]\)], \(\[Alpha]\)]\) = \>\"", ",", " ", RowBox[{ RowBox[{ RowBox[{"duals", "[", RowBox[{"[", "3", "]"}], "]"}], " ", "//", " ", "Expand"}], " ", "//", " ", "Factor"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \ \(r\)]\) \[Wedge] \!\(\*SubscriptBox[OverscriptBox[\(x\), \ \(\[RightVector]\)], \(\[Alpha]\)]\) \[Wedge] \ \!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \(\[Phi]\)]\) = \ \>\"", ",", " ", "xRAlphaPhi"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SuperscriptBox[OverscriptBox[\(x\), \(\[RightVector]\)], \ \(i\)]\)\[CenterDot] \!\(\*SubscriptBox[OverscriptBox[\(x\), \(\[RightVector]\ \)], \(j\)]\) = \>\"", ",", " ", RowBox[{ RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"InnerProduct", "[", RowBox[{ RowBox[{"basis", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"reciprocals", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", "3"}], "}"}]}], "]"}], " ", "//", " ", "Simplify"}], " ", "//", " ", "MatrixForm"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], " ", "]"}], " ", "//", " ", "TraditionalForm"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.608236473563262*^9, 3.6082365276843576`*^9}, { 3.6082365847666225`*^9, 3.6082366152933683`*^9}, {3.608236654891633*^9, 3.6082366550356417`*^9}, {3.608236765888982*^9, 3.6082367744394712`*^9}, { 3.6082369041538906`*^9, 3.6082369045329123`*^9}, {3.6082421188390007`*^9, 3.6082421193280287`*^9}, {3.608242160556387*^9, 3.6082421637515697`*^9}, { 3.608242306808752*^9, 3.6082423881014013`*^9}, {3.608242787702257*^9, 3.6082428738671856`*^9}, {3.608242917899704*^9, 3.60824296590445*^9}, { 3.608243043512889*^9, 3.6082430551475544`*^9}, {3.6082431333520274`*^9, 3.6082431380732975`*^9}, 3.6082434625518565`*^9, {3.608243531303789*^9, 3.6082436479124584`*^9}, {3.608243710687049*^9, 3.608243829426841*^9}, { 3.608243868996104*^9, 3.6082440777240424`*^9}, {3.608244140210616*^9, 3.6082442613205433`*^9}, {3.6082443218840075`*^9, 3.608244339184997*^9}, { 3.6082443979023557`*^9, 3.6082444508823857`*^9}, {3.608244529742896*^9, 3.608244531050971*^9}, {3.608244562916794*^9, 3.608244571314274*^9}, 3.608244668115811*^9, {3.608247930633416*^9, 3.608248018785458*^9}, { 3.608248086145311*^9, 3.6082480938157496`*^9}, {3.6082481408674407`*^9, 3.6082481875641117`*^9}, {3.6082482624433947`*^9, 3.608248398964203*^9}, { 3.6082484671451025`*^9, 3.6082484685791845`*^9}}], Cell[BoxData[ FormBox[ TagBox[GridBox[{ {"\<\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(e\\), \ \\(\[RightVector]\\)], \\(i\\)]\\)\[CenterDot] \ \\!\\(\\*SubscriptBox[OverscriptBox[\\(e\\), \\(\[RightVector]\\)], \ \\(j\\)]\\) = \"\>", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"\<\"\\!\\(\\*OverscriptBox[\\(x\\), \\(\[RightVector]\\)]\\) = \"\>", RowBox[{ RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", "r", " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"sin", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", "r", " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"cos", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", "r", " ", RowBox[{"cosh", "(", "\[Alpha]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "1"], DisplayForm], TraditionalForm], " ", "x"}]}]}, {"\<\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(r\\)]\\) = \"\>", RowBox[{ RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"sin", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"cos", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", RowBox[{"cosh", "(", "\[Alpha]", ")"}]}]}]}, {"\<\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(\[Alpha]\\)]\\) = \"\>", RowBox[{ RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", "r", " ", RowBox[{"cosh", "(", "\[Alpha]", ")"}], " ", RowBox[{"cos", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", "r", " ", RowBox[{"cosh", "(", "\[Alpha]", ")"}], " ", RowBox[{"sin", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", "r", " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}]}]}]}, {"\<\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(\[Phi]\\)]\\) = \"\>", RowBox[{ RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", "r", " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"cos", "(", "\[Phi]", ")"}]}], "-", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", "r", " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"sin", "(", "\[Phi]", ")"}]}]}]}, {"\<\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(i\\)]\\)\[CenterDot] \ \\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \\(\[RightVector]\\)], \ \\(j\\)]\\) = \"\>", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1"}], "0", "0"}, {"0", SuperscriptBox["r", "2"], "0"}, {"0", "0", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ SuperscriptBox["sinh", "2"], "(", "\[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$]]]}, {"\<\"\\!\\(\\*SuperscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(r\\)]\\) = \"\>", RowBox[{ RowBox[{"-", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"sin", "(", "\[Phi]", ")"}]}]}], "-", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"cos", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", RowBox[{"(", RowBox[{"-", RowBox[{"cosh", "(", "\[Alpha]", ")"}]}], ")"}]}]}]}, {"\<\"\\!\\(\\*SuperscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(\[Alpha]\\)]\\) = \"\>", FractionBox[ RowBox[{ RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", RowBox[{"cosh", "(", "\[Alpha]", ")"}], " ", RowBox[{"cos", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", RowBox[{"cosh", "(", "\[Alpha]", ")"}], " ", RowBox[{"sin", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}]}]}], "r"]}, {"\<\"\\!\\(\\*SuperscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(\[Phi]\\)]\\) = \"\>", FractionBox[ RowBox[{ RowBox[{"csch", "(", "\[Alpha]", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", RowBox[{"cos", "(", "\[Phi]", ")"}]}], "-", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", RowBox[{"sin", "(", "\[Phi]", ")"}]}]}], ")"}]}], "r"]}, {"\<\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(\[Alpha]\\)]\\) \[Wedge] \ \\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \\(\[RightVector]\\)], \\(\[Phi]\ \\)]\\) = \"\>", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"sin", "(", "\[Phi]", ")"}]}], "-", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"cos", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", RowBox[{"cosh", "(", "\[Alpha]", ")"}]}]}], ")"}]}]}, {"\<\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(\[Phi]\\)]\\) \[Wedge] \ \\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \\(\[RightVector]\\)], \ \\(r\\)]\\) = \"\>", RowBox[{"r", " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", RowBox[{"cosh", "(", "\[Alpha]", ")"}], " ", RowBox[{"cos", "(", "\[Phi]", ")"}]}], "-", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", RowBox[{"cosh", "(", "\[Alpha]", ")"}], " ", RowBox[{"sin", "(", "\[Phi]", ")"}]}], "-", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}]}]}], ")"}]}]}, {"\<\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(r\\)]\\) \[Wedge] \ \\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \\(\[RightVector]\\)], \\(\ \[Alpha]\\)]\\) = \"\>", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", RowBox[{"(", RowBox[{"-", "r"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", RowBox[{"sin", "(", "\[Phi]", ")"}]}], "+", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", RowBox[{"cos", "(", "\[Phi]", ")"}]}]}], ")"}]}]}, {"\<\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(r\\)]\\) \[Wedge] \ \\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \\(\[RightVector]\\)], \\(\ \[Alpha]\\)]\\) \[Wedge] \\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \\(\ \[RightVector]\\)], \\(\[Phi]\\)]\\) = \"\>", RowBox[{ FormBox[ TagBox[ SubscriptBox["e", "2"], DisplayForm], TraditionalForm], " ", FormBox[ TagBox[ SubscriptBox["e", "3"], DisplayForm], TraditionalForm], " ", FormBox[ TagBox[ SubscriptBox["e", "4"], DisplayForm], TraditionalForm], " ", SuperscriptBox["r", "2"], " ", RowBox[{"sinh", "(", "\[Alpha]", ")"}]}]}, {"\<\"\\!\\(\\*SuperscriptBox[OverscriptBox[\\(x\\), \ \\(\[RightVector]\\)], \\(i\\)]\\)\[CenterDot] \ \\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \\(\[RightVector]\\)], \ \\(j\\)]\\) = \"\>", 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$]]]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], TraditionalForm]], "Output", CellChangeTimes->{ 3.6082443415161304`*^9, {3.608244406579852*^9, 3.6082444526854887`*^9}, { 3.6082445084526787`*^9, 3.6082445321900363`*^9}, 3.608244575661523*^9, 3.608248024389779*^9, {3.608248067013217*^9, 3.608248094885811*^9}, { 3.608248171255179*^9, 3.6082481886981764`*^9}, 3.6082483434430275`*^9, 3.608248401559352*^9, 3.608248558518329*^9, 3.6082895187826433`*^9}] }, Open ]] }, WindowSize->{1584, 765}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 805, 20, 66, "Text"], Cell[CellGroupData[{ Cell[1387, 44, 269, 6, 91, "Input"], Cell[1659, 52, 72, 1, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1768, 58, 13113, 320, 1194, "Input"], Cell[14884, 380, 13806, 409, 584, "Output"] }, Open ]] } ] *) (* End of internal cache information *)