1697 lines
75 KiB
Mathematica
1697 lines
75 KiB
Mathematica
(* Content-type: application/vnd.wolfram.mathematica *)
|
|
|
|
(*** Wolfram Notebook File ***)
|
|
(* http://www.wolfram.com/nb *)
|
|
|
|
(* CreatedBy='Mathematica 10.0' *)
|
|
|
|
(*CacheID: 234*)
|
|
(* Internal cache information:
|
|
NotebookFileLineBreakTest
|
|
NotebookFileLineBreakTest
|
|
NotebookDataPosition[ 158, 7]
|
|
NotebookDataLength[ 76961, 1687]
|
|
NotebookOptionsPosition[ 74977, 1628]
|
|
NotebookOutlinePosition[ 75336, 1644]
|
|
CellTagsIndexPosition[ 75293, 1641]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
|
|
Cell[CellGroupData[{
|
|
Cell[TextData[{
|
|
"Similarity Group\n",
|
|
StyleBox["Representation", "Chapter"],
|
|
"\n",
|
|
StyleBox["Exponential and Logmap\nRetract and localCoordinate", "Chapter"]
|
|
}], "Title",
|
|
CellChangeTimes->{{3.6442457705813923`*^9, 3.644245851964954*^9}, {
|
|
3.644245883900199*^9, 3.644245897451631*^9}, {3.644246409411936*^9,
|
|
3.6442464411218433`*^9}, {3.644246632965823*^9, 3.644246721355283*^9},
|
|
3.644339337635804*^9, {3.6443397539003696`*^9, 3.644339805690949*^9}, {
|
|
3.6443398507824793`*^9, 3.644339940436355*^9}, {3.644339982058689*^9,
|
|
3.64434014492003*^9}, {3.644340183085711*^9, 3.64434030003795*^9}, {
|
|
3.644340442268632*^9, 3.644340457502075*^9}, {3.644340502643257*^9,
|
|
3.644340517682786*^9}, {3.644340590324332*^9, 3.644340590748303*^9}, {
|
|
3.6443655095926237`*^9, 3.644365512168627*^9}}],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"\[IndentingNewLine]",
|
|
RowBox[{
|
|
Cell["Lie group generators for similarity transform:"],
|
|
"\[IndentingNewLine]",
|
|
RowBox[{"G1", " ", "=", " ",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
|
|
"\[IndentingNewLine]",
|
|
RowBox[{"G2", " ", "=", " ",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
|
|
"\[IndentingNewLine]",
|
|
RowBox[{"G3", " ", "=", " ",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
|
|
"\[IndentingNewLine]",
|
|
RowBox[{"G4", " ", "=", " ",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",",
|
|
RowBox[{"-", "1"}], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
|
|
"\[IndentingNewLine]",
|
|
RowBox[{"G5", " ", "=", " ",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
|
|
"\[IndentingNewLine]",
|
|
RowBox[{"G6", " ", "=", " ",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",",
|
|
RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}],
|
|
"\[IndentingNewLine]",
|
|
RowBox[{"G7", " ", "=", " ",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",",
|
|
RowBox[{"-", "1"}]}], "}"}]}], "}"}]}]}]}]], "Input",
|
|
CellChangeTimes->{{3.644340621916498*^9, 3.644340623238144*^9}, {
|
|
3.64434081043055*^9, 3.644340996367342*^9}, {3.6443410615657*^9,
|
|
3.644341237564106*^9}, {3.644341297291617*^9, 3.6443413676185513`*^9}, {
|
|
3.644341671605256*^9, 3.64434167330084*^9}, {3.644345191055595*^9,
|
|
3.644345216636923*^9}}],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
InterpretationBox[Cell["\<\
|
|
The exponential map of similarity3 is:
|
|
\
|
|
\>"],
|
|
TextCell["The exponential map of similarity3 is:\n"]],
|
|
Function[BoxForm`e$,
|
|
MatrixForm[BoxForm`e$]]]], "Output",
|
|
CellChangeTimes->{3.644345200855969*^9}],
|
|
|
|
Cell[BoxData[
|
|
InterpretationBox[Cell["Lie group generators for similarity transform:"],
|
|
TextCell["Lie group generators for similarity transform:"]]], "Output",
|
|
CellChangeTimes->{3.644345200860836*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{3.644345200865378*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{3.6443452008696203`*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{3.64434520087387*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",",
|
|
RowBox[{"-", "1"}], ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{3.644345200878134*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{3.644345200887875*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",",
|
|
RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{3.644345200892788*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",",
|
|
RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{3.6443452008972893`*^9}]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[{Cell["Lie vectors similarity3 can be described as:"], "\
|
|
\[IndentingNewLine]",
|
|
RowBox[{"u", " ", "=", " ",
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "\[IndentingNewLine]",
|
|
RowBox[{"v", " ", "=", " ",
|
|
RowBox[{"{",
|
|
RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"simLieVector", " ", "=", " ",
|
|
RowBox[{"{",
|
|
RowBox[{"u", ",", "v", ",", "lambda"}], "}"}]}],
|
|
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
|
|
RowBox[{"simMatrix", " ", "=", " ",
|
|
RowBox[{"Table", "[",
|
|
RowBox[{"0", ",",
|
|
RowBox[{"{",
|
|
RowBox[{"i", ",", "4"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"simMatrix", "[",
|
|
RowBox[{"[",
|
|
RowBox[{
|
|
RowBox[{"1", ";;", "3"}], ",",
|
|
RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], " ", "=", " ",
|
|
RowBox[{"SkewSym", "[", "v", "]"}]}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"simMatrix", "[",
|
|
RowBox[{"[",
|
|
RowBox[{
|
|
RowBox[{"1", ";;", "3"}], ",", "4"}], "]"}], "]"}], " ", "=", " ",
|
|
"u"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"simMatrix", "[",
|
|
RowBox[{"[",
|
|
RowBox[{"4", ",", "4"}], "]"}], "]"}], " ", "=", " ",
|
|
"lambda"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"MatrixForm", "[", "simMatrix", "]"}], "\[IndentingNewLine]",
|
|
RowBox[{"(*",
|
|
RowBox[{"simExponetialMap", " ", "=", " ",
|
|
RowBox[{"Series", "[",
|
|
RowBox[{"simMatrix", ",",
|
|
RowBox[{"{",
|
|
RowBox[{"u", ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "2"}], "}"}]}],
|
|
"]"}]}], "*)"}],
|
|
"\[IndentingNewLine]"}], "\[IndentingNewLine]", Cell["Exponential map, \
|
|
refer to Ethan Eade"], "\[IndentingNewLine]",
|
|
RowBox[{"v_skew", " ", "=", " ",
|
|
RowBox[{"SkewSym",
|
|
RowBox[{"(", "v", ")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"theta", " ", "=",
|
|
RowBox[{"sqrt",
|
|
RowBox[{"(",
|
|
RowBox[{"Transpose",
|
|
RowBox[{
|
|
RowBox[{"(", "v", ")"}], ".", "v"}]}], ")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"X", " ", "=", " ",
|
|
RowBox[{"sin",
|
|
RowBox[{
|
|
RowBox[{"(", "theta", ")"}], "/", "theta"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"Y", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos",
|
|
RowBox[{"(", "theta", ")"}]}]}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{"theta", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"Z", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "X"}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{"theta", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"W", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"0.5", " ", "-", " ", "Y"}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{"theta", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"alpha", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"lambda", "^", "2"}], " ", "/", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"lambda", "^", "2"}], " ", "+", " ",
|
|
RowBox[{"theta", "^", "2"}]}], ")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"beta", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"exp",
|
|
RowBox[{"(",
|
|
RowBox[{"-", "lambda"}], ")"}]}], "-", "1", "+", "lambda"}], ")"}],
|
|
"/",
|
|
RowBox[{"(",
|
|
RowBox[{"lambda", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"gamma", " ", "=", " ",
|
|
RowBox[{"Y", " ", "-", " ",
|
|
RowBox[{"lambda", ".", "Z"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"mu", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-", "lambda", " ", "+", " ",
|
|
RowBox[{"0.5", "*",
|
|
RowBox[{"lambda", "^", "2"}]}], " ", "-", " ",
|
|
RowBox[{"exp",
|
|
RowBox[{"(",
|
|
RowBox[{"-", "lambda"}], ")"}]}]}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{"lambda", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"nu", " ", "=", " ",
|
|
RowBox[{"Z", "-",
|
|
RowBox[{"lambda", " ", "W"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"Av", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"exp",
|
|
RowBox[{"(",
|
|
RowBox[{"-", "lambda"}], ")"}]}]}], ")"}], "/",
|
|
"lambda"}]}], "\[IndentingNewLine]",
|
|
RowBox[{"Bv", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"alpha", " ", ".",
|
|
RowBox[{"(",
|
|
RowBox[{"beta", " ", "-", " ", "lambda"}], ")"}]}], " ", "+", " ",
|
|
"lambda"}]}], "\[IndentingNewLine]",
|
|
RowBox[{"Cv", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"alpha", " ", ".",
|
|
RowBox[{"(",
|
|
RowBox[{"mu", " ", "-", " ", "nv"}], ")"}]}], " ", "+", " ",
|
|
"nv"}]}], "\[IndentingNewLine]",
|
|
RowBox[{"a", " ", "=", " ",
|
|
RowBox[{"sin",
|
|
RowBox[{
|
|
RowBox[{"(", "theta", ")"}], "/", "theta"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"b", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos",
|
|
RowBox[{"(", "theta", ")"}]}]}], ")"}], "/",
|
|
RowBox[{"(",
|
|
RowBox[{"theta", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"R", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"IdentityMatrix", "[", "3", "]"}], "+", " ",
|
|
RowBox[{"a", ".", "v_skew"}], " ", "+", " ",
|
|
RowBox[{"b", ".", "v_skew", ".", "v_skew"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"V", " ", "=", " ",
|
|
RowBox[{
|
|
RowBox[{"Av", ".",
|
|
RowBox[{"IdentityMatrix", "[", "3", "]"}]}], "+",
|
|
RowBox[{"Bv", ".", "v_skew"}], " ", "+", " ",
|
|
RowBox[{
|
|
"Cv", ".", " ", "v_skew", ".", "v_skew"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"simExponetialMap", " ", "=", " ",
|
|
RowBox[{"Table", "[",
|
|
RowBox[{"0", ",",
|
|
RowBox[{"{",
|
|
RowBox[{"i", ",", "4"}], "}"}], ",",
|
|
RowBox[{"[",
|
|
RowBox[{"j", ",", "4"}], "]"}]}], "]"}]}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"simExponetialMap", "[",
|
|
RowBox[{"[",
|
|
RowBox[{
|
|
RowBox[{"1", ";;", "3"}], ",",
|
|
RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], " ", "=", " ",
|
|
"R"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"simExponetialMap", "[",
|
|
RowBox[{"[",
|
|
RowBox[{
|
|
RowBox[{"1", ";;", "3"}], ",", "4"}], "]"}], "]"}], " ", "=", " ",
|
|
RowBox[{"V", ".", "u"}]}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"simExponetialMap", "[",
|
|
RowBox[{"[",
|
|
RowBox[{"4", ",", "4"}], "]"}], "]"}], " ", "=", " ",
|
|
RowBox[{"exp",
|
|
RowBox[{"(",
|
|
RowBox[{"-", "lambda"}], ")"}]}]}], "\[IndentingNewLine]",
|
|
RowBox[{"MatrixForm", "[", "simExponetialMap",
|
|
"]"}], "\[IndentingNewLine]"}], "Input",
|
|
CellChangeTimes->CompressedData["
|
|
1:eJwlz2tIk2EYgOGVsbU2x7BZRi20jNFmZOHyRwuMQKwNMzv8SBwrUSuomaMo
|
|
S5GwSQwSyqxAR63Tx9ZJp2hEBzIxhMwlkVGsbQwthLKZS8Kw3Z8/Xi4eeHhu
|
|
3oyD9uLy+RKJxJB4mBzKa5LpxrfW2Gpu44q+Mh8K6qHnaG2/048TmvBb/Hjr
|
|
dQBHVZc/zHkoiIWC9hu2n6keXZjQW1f6HV3yqR+YL62O45PQ079YEL42gz17
|
|
a6VyOoPZSzGqbVyOQpVnDTaU79OjaePK9fgr9tWIA0r7JmztdpThI5m/Eveb
|
|
dMfxSl22aMf2+AmcPR9twh7952b0BzKv40lHkRvVlZYb+P701Xti3zvgE7vu
|
|
tV2o/F3Wh1lTjiiqapyinsgBxSJ69QYlqt0vHqQkfPmqpBsj+i39aFo3FsKK
|
|
im1jKHSVjuPAv4IJ9BqFGGbcPBvH5JnCeYsTDrYGpbijzScX57tJaWhtiIku
|
|
mU7V4qXeonTs2LPbMLcXyEdLc44TdbJII2bO1rtRs9niQY/1sE+8Y2sRXeZQ
|
|
d2LY9XgYbU7HCPp3Kb5g+v3cSUxLqhMVOo9OY1VLcIGG/7W5FLjqnVmFqz29
|
|
Kfjp1DMDqkpyNmCWvdaI58zFJtRf+JOHQ8dSzajxH9mJD98M/8SLI7mT+B8u
|
|
LiVI
|
|
"],
|
|
EmphasizeSyntaxErrors->True],
|
|
|
|
Cell[BoxData[
|
|
InterpretationBox[Cell["Lie vectors similarity3 can be described as:"],
|
|
TextCell["Lie vectors similarity3 can be described as:"]]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.6443674615039167`*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "y", ",", "z"}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461512148*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461520136*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}], ",", "lambda"}],
|
|
"}"}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461527494*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.6443674615362377`*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",",
|
|
RowBox[{"-", "w3"}], ",", "w2"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"w3", ",", "0", ",",
|
|
RowBox[{"-", "w1"}]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"-", "w2"}], ",", "w1", ",", "0"}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461544832*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{"x", ",", "y", ",", "z"}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461553432*^9}],
|
|
|
|
Cell[BoxData["lambda"], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461560822*^9}],
|
|
|
|
Cell[BoxData[
|
|
TagBox[
|
|
RowBox[{"(", "\[NoBreak]", GridBox[{
|
|
{"0",
|
|
RowBox[{"-", "w3"}], "w2", "x"},
|
|
{"w3", "0",
|
|
RowBox[{"-", "w1"}], "y"},
|
|
{
|
|
RowBox[{"-", "w2"}], "w1", "0", "z"},
|
|
{"0", "0", "0", "lambda"}
|
|
},
|
|
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.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461569426*^9}],
|
|
|
|
Cell[BoxData[
|
|
InterpretationBox[Cell["Exponential map, refer to Ethan Eade"],
|
|
TextCell["Exponential map, refer to Ethan Eade"]]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461580261*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"SkewSym", " ", "w1"}], ",",
|
|
RowBox[{"SkewSym", " ", "w2"}], ",",
|
|
RowBox[{"SkewSym", " ", "w3"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461588023*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.6443674615950117`*^9}],
|
|
|
|
Cell[BoxData["sin"], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461601419*^9}],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461607435*^9}],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"1", "-", "sin"}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461613455*^9}],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"0.5`", "\[VeryThinSpace]", "-",
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.6443674616197567`*^9}],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
SuperscriptBox["lambda", "2"],
|
|
RowBox[{
|
|
SuperscriptBox["lambda", "2"], "+",
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]}]]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.64436746162819*^9}],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "lambda", "-",
|
|
RowBox[{"exp", " ", "lambda"}]}],
|
|
SuperscriptBox["lambda", "2"]]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461636879*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], "-",
|
|
RowBox[{"lambda", ".",
|
|
FractionBox[
|
|
RowBox[{"1", "-", "sin"}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]}]}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461644608*^9}],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"1", "-", "lambda", "+",
|
|
RowBox[{"exp", " ", "lambda"}], "+",
|
|
RowBox[{"0.5`", " ",
|
|
SuperscriptBox["lambda", "2"]}]}],
|
|
SuperscriptBox["lambda", "2"]]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.6443674616517467`*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-", "sin"}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], "-",
|
|
FractionBox[
|
|
RowBox[{"lambda", " ",
|
|
RowBox[{"(",
|
|
RowBox[{"0.5`", "\[VeryThinSpace]", "-",
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]}], ")"}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461658148*^9}],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"1", "+",
|
|
RowBox[{"exp", " ", "lambda"}]}], "lambda"]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461664322*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"lambda", "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
SuperscriptBox["lambda", "2"],
|
|
RowBox[{
|
|
SuperscriptBox["lambda", "2"], "+",
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]}]], ".",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "lambda"}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "lambda", "-",
|
|
RowBox[{"exp", " ", "lambda"}]}],
|
|
SuperscriptBox["lambda", "2"]]}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461671301*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"nv", "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
SuperscriptBox["lambda", "2"],
|
|
RowBox[{
|
|
SuperscriptBox["lambda", "2"], "+",
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]}]], ".",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-", "lambda", "+",
|
|
RowBox[{"exp", " ", "lambda"}], "+",
|
|
RowBox[{"0.5`", " ",
|
|
SuperscriptBox["lambda", "2"]}]}],
|
|
SuperscriptBox["lambda", "2"]], "-", "nv"}], ")"}]}]}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461677743*^9}],
|
|
|
|
Cell[BoxData["sin"], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461684054*^9}],
|
|
|
|
Cell[BoxData[
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461690474*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"1", "+",
|
|
RowBox[{"sin", ".", "v_skew"}], "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".",
|
|
"v_skew"}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"sin", ".", "v_skew"}], "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".",
|
|
"v_skew"}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"sin", ".", "v_skew"}], "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".",
|
|
"v_skew"}]}]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"sin", ".", "v_skew"}], "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".",
|
|
"v_skew"}]}], ",",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"sin", ".", "v_skew"}], "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".",
|
|
"v_skew"}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"sin", ".", "v_skew"}], "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".",
|
|
"v_skew"}]}]}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"sin", ".", "v_skew"}], "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".",
|
|
"v_skew"}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"sin", ".", "v_skew"}], "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".",
|
|
"v_skew"}]}], ",",
|
|
RowBox[{"1", "+",
|
|
RowBox[{"sin", ".", "v_skew"}], "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-",
|
|
RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}]}]}],
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".",
|
|
"v_skew"}]}]}], "}"}]}], "}"}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.64436746170076*^9}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "+",
|
|
RowBox[{"exp", " ", "lambda"}]}], "lambda"], ".",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"lambda", "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
SuperscriptBox["lambda", "2"],
|
|
RowBox[{
|
|
SuperscriptBox["lambda", "2"], "+",
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]}]], ".",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{"-", "lambda"}], "+",
|
|
FractionBox[
|
|
RowBox[{
|
|
RowBox[{"-", "1"}], "+", "lambda", "-",
|
|
RowBox[{"exp", " ", "lambda"}]}],
|
|
SuperscriptBox["lambda", "2"]]}], ")"}]}]}], ")"}], ".", "v_skew"}],
|
|
"+",
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{"nv", "+",
|
|
RowBox[{
|
|
FractionBox[
|
|
SuperscriptBox["lambda", "2"],
|
|
RowBox[{
|
|
SuperscriptBox["lambda", "2"], "+",
|
|
RowBox[{
|
|
SuperscriptBox["sqrt", "2"], " ",
|
|
SuperscriptBox["Transpose", "2"], " ",
|
|
SuperscriptBox[
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
SuperscriptBox["w1", "2"], "+",
|
|
SuperscriptBox["w2", "2"], "+",
|
|
SuperscriptBox["w3", "2"]}], ")"}], "2"]}]}]], ".",
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
FractionBox[
|
|
RowBox[{"1", "-", "lambda", "+",
|
|
RowBox[{"exp", " ", "lambda"}], "+",
|
|
RowBox[{"0.5`", " ",
|
|
SuperscriptBox["lambda", "2"]}]}],
|
|
SuperscriptBox["lambda", "2"]], "-", "nv"}], ")"}]}]}], ")"}], ".",
|
|
"v_skew", ".", "v_skew"}]}]], "Output",
|
|
CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9},
|
|
3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
|
|
3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9,
|
|
3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9},
|
|
3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
|
|
3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
|
|
3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9,
|
|
3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9,
|
|
3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
|
|
3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
|
|
3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9,
|
|
3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9,
|
|
3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9},
|
|
3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9},
|
|
3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9,
|
|
3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9},
|
|
3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9,
|
|
3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
|
|
3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9,
|
|
3.644367373557184*^9, 3.644367461708905*^9}]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{812, 579},
|
|
WindowMargins->{{Automatic, -114}, {Automatic, 30}},
|
|
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
|
|
2014)",
|
|
StyleDefinitions->"Default.nb"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[CellGroupData[{
|
|
Cell[580, 22, 808, 14, 224, "Title"],
|
|
Cell[CellGroupData[{
|
|
Cell[1413, 40, 3597, 96, 166, "Input"],
|
|
Cell[5013, 138, 263, 9, 60, "Output"],
|
|
Cell[5279, 149, 204, 3, 31, "Output"],
|
|
Cell[5486, 154, 411, 11, 28, "Output"],
|
|
Cell[5900, 167, 413, 11, 28, "Output"],
|
|
Cell[6316, 180, 410, 11, 28, "Output"],
|
|
Cell[6729, 193, 432, 12, 28, "Output"],
|
|
Cell[7164, 207, 432, 12, 28, "Output"],
|
|
Cell[7599, 221, 432, 12, 28, "Output"],
|
|
Cell[8034, 235, 434, 12, 28, "Output"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[8505, 252, 7181, 205, 645, "Input"],
|
|
Cell[15689, 459, 1608, 22, 31, "Output"],
|
|
Cell[17300, 483, 1531, 22, 28, "Output"],
|
|
Cell[18834, 507, 1534, 22, 28, "Output"],
|
|
Cell[20371, 531, 1660, 27, 28, "Output"],
|
|
Cell[22034, 560, 1819, 30, 28, "Output"],
|
|
Cell[23856, 592, 1777, 31, 28, "Output"],
|
|
Cell[25636, 625, 1531, 22, 28, "Output"],
|
|
Cell[27170, 649, 1481, 20, 28, "Output"],
|
|
Cell[28654, 671, 2184, 42, 92, "Output"],
|
|
Cell[30841, 715, 1590, 22, 31, "Output"],
|
|
Cell[32434, 739, 1624, 25, 28, "Output"],
|
|
Cell[34061, 766, 1659, 26, 35, "Output"],
|
|
Cell[35723, 794, 1478, 20, 28, "Output"],
|
|
Cell[37204, 816, 1991, 37, 59, "Output"],
|
|
Cell[39198, 855, 1788, 31, 55, "Output"],
|
|
Cell[40989, 888, 2360, 48, 79, "Output"],
|
|
Cell[43352, 938, 1853, 33, 57, "Output"],
|
|
Cell[45208, 973, 1613, 25, 49, "Output"],
|
|
Cell[46824, 1000, 2392, 50, 59, "Output"],
|
|
Cell[49219, 1052, 1664, 26, 51, "Output"],
|
|
Cell[50886, 1080, 2821, 62, 79, "Output"],
|
|
Cell[53710, 1144, 1555, 23, 48, "Output"],
|
|
Cell[55268, 1169, 2162, 43, 57, "Output"],
|
|
Cell[57433, 1214, 2186, 43, 57, "Output"],
|
|
Cell[59622, 1259, 1478, 20, 28, "Output"],
|
|
Cell[61103, 1281, 1991, 37, 59, "Output"],
|
|
Cell[63097, 1320, 8325, 217, 475, "Output"],
|
|
Cell[71425, 1539, 3524, 85, 186, "Output"]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|
|
(* End of internal cache information *)
|