From b6cf1ad4c357b9d3795e72595729d8bdcb7b29fe Mon Sep 17 00:00:00 2001 From: lvzhaoyang Date: Sat, 27 Jun 2015 00:43:05 -0400 Subject: [PATCH] fix: correct some mistakes --- doc/Mathematica/SimiliarityGroup.nb | 1541 ++++++++++++++++++++++++--- 1 file changed, 1412 insertions(+), 129 deletions(-) diff --git a/doc/Mathematica/SimiliarityGroup.nb b/doc/Mathematica/SimiliarityGroup.nb index 2dd8a5879..32bf38ffc 100644 --- a/doc/Mathematica/SimiliarityGroup.nb +++ b/doc/Mathematica/SimiliarityGroup.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 15602, 404] -NotebookOptionsPosition[ 14491, 364] -NotebookOutlinePosition[ 14850, 380] -CellTagsIndexPosition[ 14807, 377] +NotebookDataLength[ 76961, 1687] +NotebookOptionsPosition[ 74977, 1628] +NotebookOutlinePosition[ 75336, 1644] +CellTagsIndexPosition[ 75293, 1641] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -22,10 +22,9 @@ Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Similarity Group\n", - StyleBox["Representation\n", "Chapter"], - StyleBox["A similarity transformation is a combination ", "Text"], + StyleBox["Representation", "Chapter"], "\n", - StyleBox["Exponential and Logmap\n\nRetract and localCoordinate", "Chapter"] + 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, @@ -34,7 +33,10 @@ Cell[TextData[{ 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.644340517682786*^9}, {3.644340590324332*^9, 3.644340590748303*^9}, { + 3.6443655095926237`*^9, 3.644365512168627*^9}}], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", @@ -131,7 +133,120 @@ Cell[BoxData[ 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.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[{ @@ -147,8 +262,7 @@ Cell[BoxData[{Cell["Lie vectors similarity3 can be described as:"], "\ RowBox[{"simLieVector", " ", "=", " ", RowBox[{"{", RowBox[{"u", ",", "v", ",", "lambda"}], "}"}]}], - "\[IndentingNewLine]"}], "\[IndentingNewLine]", Cell["The matrix form of \ -the similarity vector is:"], "\[IndentingNewLine]", + "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"simMatrix", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", @@ -157,26 +271,191 @@ the similarity vector is:"], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ - RowBox[{ - RowBox[{"simMatrix", "[", - 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[{"1", ";;", "3"}], ",", - RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], " ", "=", " ", - RowBox[{"SkewSym", "[", "v", "]"}]}], - "\[IndentingNewLine]"}], "\[IndentingNewLine]", Cell["\<\ -The exponential map of similarity3 is: -\ -\>"]}], "Input", - CellChangeTimes->{{3.64434137002735*^9, 3.644341539824277*^9}, { - 3.644341595117811*^9, 3.644341750502033*^9}, {3.6443418211779013`*^9, - 3.644341871033806*^9}, {3.644341902145*^9, 3.6443419325955687`*^9}, { - 3.6443420032518187`*^9, 3.644342080926795*^9}, {3.644344115577599*^9, - 3.644344138921712*^9}, {3.644344183657415*^9, 3.644344243563266*^9}, { - 3.644344277871182*^9, 3.6443442927775*^9}, {3.6443443719167137`*^9, - 3.6443445055251913`*^9}, {3.6443445402223988`*^9, 3.644344621076252*^9}, { - 3.644344658699892*^9, 3.644344696943632*^9}, {3.644344750998406*^9, - 3.644344755470311*^9}, {3.6443451156161633`*^9, 3.644345149594688*^9}}], + 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:"], @@ -188,7 +467,19 @@ Cell[BoxData[ 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.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[{"{", @@ -200,7 +491,19 @@ Cell[BoxData[ 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.64434513031706*^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[{"{", @@ -212,7 +515,19 @@ Cell[BoxData[ 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.644345130321727*^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[{"{", @@ -229,19 +544,19 @@ Cell[BoxData[ 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.644345130326034*^9}}], - -Cell[BoxData[ - InterpretationBox[Cell["The matrix form of the similarity vector is:"], - TextCell["The matrix form of the similarity vector is:"]]], "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.64434513033029*^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[{"{", @@ -261,7 +576,19 @@ Cell[BoxData[ 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.644345130334682*^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[{"{", @@ -282,88 +609,1025 @@ Cell[BoxData[ 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.644345130339306*^9}}], - -Cell[BoxData[ - InterpretationBox[Cell["\<\ -The exponential map of similarity3 is: -\ -\>"], - TextCell["The exponential map of similarity3 is:\n"]]], "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.644345130343567*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"simExponetialMap", " ", "=", " ", - RowBox[{"Expand", "[", - RowBox[{"Series", "[", "]"}], "]"}]}], "\[IndentingNewLine]"}]], "Input", - CellChangeTimes->{{3.644341752983704*^9, 3.644341812107615*^9}}], - -Cell[BoxData[ - InterpretationBox[Cell["Lie vectors:"], - TextCell["Lie vectors:"]]], "Output", - CellChangeTimes->{3.644341528720538*^9, 3.64434162193827*^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.644341528720538*^9, 3.644341621943945*^9}], + 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[ - RowBox[{"{", - RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]], "Output", - CellChangeTimes->{3.644341528720538*^9, 3.644341621947913*^9}], + 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[{"{", - RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", - RowBox[{"{", - RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}], ",", "lambda"}], - "}"}]], "Output", - CellChangeTimes->{3.644341528720538*^9, 3.644341621951668*^9}], + 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[{"0", ",", - RowBox[{"-", "w3"}], ",", "w2"}], "}"}], ",", - RowBox[{"{", - RowBox[{"w3", ",", "0", ",", - RowBox[{"-", "w1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ - RowBox[{"-", "w2"}], ",", "w1", ",", "0"}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.644341528720538*^9, 3.644341621955081*^9}] -}, Open ]], - -Cell[CellGroupData[{ + 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[{"I3", " ", "=", " ", - RowBox[{"IdentyMatrix", "[", "3", "]"}]}]], "Input", - CellChangeTimes->{{3.6443405921748047`*^9, 3.6443406096153393`*^9}}], - -Cell[BoxData[ - RowBox[{"IdentyMatrix", "[", "3", "]"}]], "Output", - CellChangeTimes->{3.64434061119941*^9}] + 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->{808, 579}, -WindowMargins->{{Automatic, -111}, {Automatic, 20}}, +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" @@ -380,30 +1644,49 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[580, 22, 828, 14, 287, "Title"], -Cell[1411, 38, 3548, 95, 166, "Input"], +Cell[580, 22, 808, 14, 224, "Title"], Cell[CellGroupData[{ -Cell[4984, 137, 1814, 41, 206, "Input"], -Cell[6801, 180, 703, 10, 31, "Output"], -Cell[7507, 192, 627, 10, 28, "Output"], -Cell[8137, 204, 631, 10, 28, "Output"], -Cell[8771, 216, 757, 15, 28, "Output"], -Cell[9531, 233, 702, 10, 31, "Output"], -Cell[10236, 245, 914, 18, 28, "Output"], -Cell[11153, 265, 874, 19, 28, "Output"], -Cell[12030, 286, 702, 13, 49, "Output"] +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[12769, 304, 240, 5, 46, "Input"], -Cell[13012, 311, 157, 3, 31, "Output"], -Cell[13172, 316, 147, 3, 28, "Output"], -Cell[13322, 321, 150, 3, 28, "Output"], -Cell[13475, 326, 276, 8, 28, "Output"], -Cell[13754, 336, 393, 12, 28, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[14184, 353, 169, 3, 28, "Input"], -Cell[14356, 358, 107, 2, 28, "Output"] +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 ]] }