diff --git a/doc/Mathematica/SimiliarityGroup.nb b/doc/Mathematica/SimiliarityGroup.nb
index 32bf38ffc..c4a35eb1c 100644
--- a/doc/Mathematica/SimiliarityGroup.nb
+++ b/doc/Mathematica/SimiliarityGroup.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[     76961,       1687]
-NotebookOptionsPosition[     74977,       1628]
-NotebookOutlinePosition[     75336,       1644]
-CellTagsIndexPosition[     75293,       1641]
+NotebookDataLength[     13070,        375]
+NotebookOptionsPosition[     12606,        355]
+NotebookOutlinePosition[     12963,        371]
+CellTagsIndexPosition[     12920,        368]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -36,8 +36,6 @@ Cell[TextData[{
    3.644340517682786*^9}, {3.644340590324332*^9, 3.644340590748303*^9}, {
    3.6443655095926237`*^9, 3.644365512168627*^9}}],
 
-Cell[CellGroupData[{
-
 Cell[BoxData[
  RowBox[{"\[IndentingNewLine]", 
   RowBox[{
@@ -136,119 +134,8 @@ Cell[BoxData[
   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[""], "Input",
+ CellChangeTimes->{{3.644369249242889*^9, 3.644369249253479*^9}}],
 
 Cell[BoxData[{Cell["Lie vectors similarity3 can be described as:"], "\
 \[IndentingNewLine]", 
@@ -417,8 +304,8 @@ refer to Ethan Eade"], "\[IndentingNewLine]",
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "4"}], "}"}], ",", 
-    RowBox[{"[", 
-     RowBox[{"j", ",", "4"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
+    RowBox[{"{", 
+     RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"simExponetialMap", "[", 
    RowBox[{"[", 
@@ -439,1195 +326,35 @@ refer to Ethan Eade"], "\[IndentingNewLine]",
   RowBox[{"exp", 
    RowBox[{"(", 
     RowBox[{"-", "lambda"}], ")"}]}]}], "\[IndentingNewLine]", 
- RowBox[{"MatrixForm", "[", "simExponetialMap", 
-  "]"}], "\[IndentingNewLine]"}], "Input",
+ RowBox[{
+  RowBox[{"MatrixForm", "[", "simExponetialMap", "]"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f", "[", "lambda_", "]"}], " ", "=", " ", 
+  "simExponetialMap"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"f", "'"}], "[", "lambda", "]"}], "\[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],
+1:eJwl0l1Ik3EUBvCZsrU2x7CtlFpoGaN3iiauLlpgBGJtqFntInGshlqBTX2x
+bOUQsUnsQiizBB312sfLZvkxRSM0yYkxyJwSFtXaxvADIW3pkqHYnr8Xhx8H
+DufhwEm5Yiwq3cHhcNKjBeN9Oc08+dIpk970HO4fNzggK54agbreFxNwReL/
+BGc7XR44J3r4ZdurXpjPyhZg753quZ1R7eaSRWjlr/2GudzqMHzrexeBef4n
+G3DoYh2Xj5zJzL0wKGvaB9lK5jBsLNVSUJV1IAP+Cf1SQrfQeAy2D9IG2M1z
+lsNLKnkVfGTOJPadCdfArXvBZjhEfW+BTk9qG7xJF9qguFzzFE7ffvyK5Nvd
+DpJrOzIAhauGcZi2RgehyGQhMoHLgl3Iq1cIodj2/nVC1NEPxYMwQJ2cgKr0
+eR8sKzs9D9mBkiXo3sxbgXYlG4Ipz+6GYfxGfszuqJPtXi482+Hgk/5lbCLU
+NYaIe9alMvhgrDAZ9l04r9ie8+RCTUu2Bcp5gSaYulVvg5ITGgYyumsOskff
+Skyixf3Qb+2ZgXoL/RU6zwl+wOSu439hYqyZyPZXrMPKVm+cBPd1WAXw4Ge1
+CB5ixhLgt9phBRQVZx+FacY6JWxQF6kgdf9fDpy6IVVDifN6AXzzcWYZal3U
+KhyNKCOwVttAdP2c5kjxBxW34uB/2UIzug==
+  "]],
 
-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  ]]
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.644369188660811*^9, 3.644369188678254*^9}}]
 }, Open  ]]
 },
 WindowSize->{812, 579},
-WindowMargins->{{Automatic, -114}, {Automatic, 30}},
+WindowMargins->{{Automatic, 17}, {Automatic, 31}},
 FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
 2014)",
 StyleDefinitions->"Default.nb"
@@ -1645,49 +372,10 @@ CellTagsIndex->{}
 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  ]]
+Cell[1391, 38, 3597, 96, 166, "Input"],
+Cell[4991, 136, 92, 1, 28, InheritFromParent],
+Cell[5086, 139, 7409, 210, 696, "Input"],
+Cell[12498, 351, 92, 1, 28, InheritFromParent]
 }, Open  ]]
 }
 ]