(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     76961,       1687]
NotebookOptionsPosition[     74977,       1628]
NotebookOutlinePosition[     75336,       1644]
CellTagsIndexPosition[     75293,       1641]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "Similarity Group\n",
 StyleBox["Representation", "Chapter"],
 "\n",
 StyleBox["Exponential and Logmap\nRetract and localCoordinate", "Chapter"]
}], "Title",
 CellChangeTimes->{{3.6442457705813923`*^9, 3.644245851964954*^9}, {
   3.644245883900199*^9, 3.644245897451631*^9}, {3.644246409411936*^9, 
   3.6442464411218433`*^9}, {3.644246632965823*^9, 3.644246721355283*^9}, 
   3.644339337635804*^9, {3.6443397539003696`*^9, 3.644339805690949*^9}, {
   3.6443398507824793`*^9, 3.644339940436355*^9}, {3.644339982058689*^9, 
   3.64434014492003*^9}, {3.644340183085711*^9, 3.64434030003795*^9}, {
   3.644340442268632*^9, 3.644340457502075*^9}, {3.644340502643257*^9, 
   3.644340517682786*^9}, {3.644340590324332*^9, 3.644340590748303*^9}, {
   3.6443655095926237`*^9, 3.644365512168627*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
  Cell["Lie group generators for similarity transform:"], 
   "\[IndentingNewLine]", 
   RowBox[{"G1", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"G2", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"G3", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"G4", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", 
        RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"G5", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"G6", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"G7", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", 
        RowBox[{"-", "1"}]}], "}"}]}], "}"}]}]}]}]], "Input",
 CellChangeTimes->{{3.644340621916498*^9, 3.644340623238144*^9}, {
  3.64434081043055*^9, 3.644340996367342*^9}, {3.6443410615657*^9, 
  3.644341237564106*^9}, {3.644341297291617*^9, 3.6443413676185513`*^9}, {
  3.644341671605256*^9, 3.64434167330084*^9}, {3.644345191055595*^9, 
  3.644345216636923*^9}}],

Cell[BoxData[
 TagBox[
  InterpretationBox[Cell["\<\
The exponential map of similarity3 is:
\
\>"],
   TextCell["The exponential map of similarity3 is:\n"]],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.644345200855969*^9}],

Cell[BoxData[
 InterpretationBox[Cell["Lie group generators for similarity transform:"],
  TextCell["Lie group generators for similarity transform:"]]], "Output",
 CellChangeTimes->{3.644345200860836*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.644345200865378*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6443452008696203`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.64434520087387*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.644345200878134*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.644345200887875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.644345200892788*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6443452008972893`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{Cell["Lie vectors similarity3 can be described as:"], "\
\[IndentingNewLine]", 
 RowBox[{"u", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"v", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"simLieVector", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"u", ",", "v", ",", "lambda"}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"simMatrix", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{"0", ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"simMatrix", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", ";;", "3"}], ",", 
     RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], " ", "=", " ", 
  RowBox[{"SkewSym", "[", "v", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"simMatrix", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", ";;", "3"}], ",", "4"}], "]"}], "]"}], " ", "=", " ", 
  "u"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"simMatrix", "[", 
   RowBox[{"[", 
    RowBox[{"4", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
  "lambda"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "simMatrix", "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"simExponetialMap", " ", "=", " ", 
    RowBox[{"Series", "[", 
     RowBox[{"simMatrix", ",", 
      RowBox[{"{", 
       RowBox[{"u", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "2"}], "}"}]}], 
     "]"}]}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", Cell["Exponential map, \
refer to Ethan Eade"], "\[IndentingNewLine]", 
 RowBox[{"v_skew", " ", "=", " ", 
  RowBox[{"SkewSym", 
   RowBox[{"(", "v", ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"theta", " ", "=", 
  RowBox[{"sqrt", 
   RowBox[{"(", 
    RowBox[{"Transpose", 
     RowBox[{
      RowBox[{"(", "v", ")"}], ".", "v"}]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"X", " ", "=", " ", 
  RowBox[{"sin", 
   RowBox[{
    RowBox[{"(", "theta", ")"}], "/", "theta"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Y", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"cos", 
      RowBox[{"(", "theta", ")"}]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"theta", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Z", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "X"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"theta", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"W", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"0.5", " ", "-", " ", "Y"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"theta", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"alpha", " ", "=", " ", 
  RowBox[{
   RowBox[{"lambda", "^", "2"}], " ", "/", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"lambda", "^", "2"}], " ", "+", " ", 
     RowBox[{"theta", "^", "2"}]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"beta", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"exp", 
      RowBox[{"(", 
       RowBox[{"-", "lambda"}], ")"}]}], "-", "1", "+", "lambda"}], ")"}], 
   "/", 
   RowBox[{"(", 
    RowBox[{"lambda", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"gamma", " ", "=", " ", 
  RowBox[{"Y", " ", "-", " ", 
   RowBox[{"lambda", ".", "Z"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"mu", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "lambda", " ", "+", " ", 
     RowBox[{"0.5", "*", 
      RowBox[{"lambda", "^", "2"}]}], " ", "-", " ", 
     RowBox[{"exp", 
      RowBox[{"(", 
       RowBox[{"-", "lambda"}], ")"}]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"lambda", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"nu", " ", "=", " ", 
  RowBox[{"Z", "-", 
   RowBox[{"lambda", " ", "W"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Av", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"exp", 
      RowBox[{"(", 
       RowBox[{"-", "lambda"}], ")"}]}]}], ")"}], "/", 
   "lambda"}]}], "\[IndentingNewLine]", 
 RowBox[{"Bv", " ", "=", " ", 
  RowBox[{
   RowBox[{"alpha", " ", ".", 
    RowBox[{"(", 
     RowBox[{"beta", " ", "-", " ", "lambda"}], ")"}]}], " ", "+", " ", 
   "lambda"}]}], "\[IndentingNewLine]", 
 RowBox[{"Cv", " ", "=", " ", 
  RowBox[{
   RowBox[{"alpha", " ", ".", 
    RowBox[{"(", 
     RowBox[{"mu", " ", "-", " ", "nv"}], ")"}]}], " ", "+", " ", 
   "nv"}]}], "\[IndentingNewLine]", 
 RowBox[{"a", " ", "=", " ", 
  RowBox[{"sin", 
   RowBox[{
    RowBox[{"(", "theta", ")"}], "/", "theta"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"b", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"cos", 
      RowBox[{"(", "theta", ")"}]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"theta", "^", "2"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"R", " ", "=", " ", 
  RowBox[{
   RowBox[{"IdentityMatrix", "[", "3", "]"}], "+", " ", 
   RowBox[{"a", ".", "v_skew"}], " ", "+", " ", 
   RowBox[{"b", ".", "v_skew", ".", "v_skew"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"V", " ", "=", " ", 
  RowBox[{
   RowBox[{"Av", ".", 
    RowBox[{"IdentityMatrix", "[", "3", "]"}]}], "+", 
   RowBox[{"Bv", ".", "v_skew"}], " ", "+", " ", 
   RowBox[{
   "Cv", ".", " ", "v_skew", ".", "v_skew"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"simExponetialMap", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{"0", ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "4"}], "}"}], ",", 
    RowBox[{"[", 
     RowBox[{"j", ",", "4"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"simExponetialMap", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", ";;", "3"}], ",", 
     RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], " ", "=", " ", 
  "R"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"simExponetialMap", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", ";;", "3"}], ",", "4"}], "]"}], "]"}], " ", "=", " ", 
  RowBox[{"V", ".", "u"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"simExponetialMap", "[", 
   RowBox[{"[", 
    RowBox[{"4", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
  RowBox[{"exp", 
   RowBox[{"(", 
    RowBox[{"-", "lambda"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "simExponetialMap", 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->CompressedData["
1:eJwlz2tIk2EYgOGVsbU2x7BZRi20jNFmZOHyRwuMQKwNMzv8SBwrUSuomaMo
S5GwSQwSyqxAR63Tx9ZJp2hEBzIxhMwlkVGsbQwthLKZS8Kw3Z8/Xi4eeHhu
3oyD9uLy+RKJxJB4mBzKa5LpxrfW2Gpu44q+Mh8K6qHnaG2/048TmvBb/Hjr
dQBHVZc/zHkoiIWC9hu2n6keXZjQW1f6HV3yqR+YL62O45PQ079YEL42gz17
a6VyOoPZSzGqbVyOQpVnDTaU79OjaePK9fgr9tWIA0r7JmztdpThI5m/Eveb
dMfxSl22aMf2+AmcPR9twh7952b0BzKv40lHkRvVlZYb+P701Xti3zvgE7vu
tV2o/F3Wh1lTjiiqapyinsgBxSJ69QYlqt0vHqQkfPmqpBsj+i39aFo3FsKK
im1jKHSVjuPAv4IJ9BqFGGbcPBvH5JnCeYsTDrYGpbijzScX57tJaWhtiIku
mU7V4qXeonTs2LPbMLcXyEdLc44TdbJII2bO1rtRs9niQY/1sE+8Y2sRXeZQ
d2LY9XgYbU7HCPp3Kb5g+v3cSUxLqhMVOo9OY1VLcIGG/7W5FLjqnVmFqz29
Kfjp1DMDqkpyNmCWvdaI58zFJtRf+JOHQ8dSzajxH9mJD98M/8SLI7mT+B8u
LiVI
  "],
 EmphasizeSyntaxErrors->True],

Cell[BoxData[
 InterpretationBox[Cell["Lie vectors similarity3 can be described as:"],
  TextCell["Lie vectors similarity3 can be described as:"]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.6443674615039167`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", ",", "y", ",", "z"}], "}"}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461512148*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461520136*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}], ",", "lambda"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461527494*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.6443674615362377`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "w3"}], ",", "w2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w3", ",", "0", ",", 
     RowBox[{"-", "w1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "w2"}], ",", "w1", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461544832*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", ",", "y", ",", "z"}], "}"}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461553432*^9}],

Cell[BoxData["lambda"], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461560822*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", "w3"}], "w2", "x"},
     {"w3", "0", 
      RowBox[{"-", "w1"}], "y"},
     {
      RowBox[{"-", "w2"}], "w1", "0", "z"},
     {"0", "0", "0", "lambda"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461569426*^9}],

Cell[BoxData[
 InterpretationBox[Cell["Exponential map, refer to Ethan Eade"],
  TextCell["Exponential map, refer to Ethan Eade"]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461580261*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"SkewSym", " ", "w1"}], ",", 
   RowBox[{"SkewSym", " ", "w2"}], ",", 
   RowBox[{"SkewSym", " ", "w3"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461588023*^9}],

Cell[BoxData[
 RowBox[{"sqrt", " ", "Transpose", " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["w1", "2"], "+", 
    SuperscriptBox["w2", "2"], "+", 
    SuperscriptBox["w3", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.6443674615950117`*^9}],

Cell[BoxData["sin"], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461601419*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "-", 
   RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["w1", "2"], "+", 
      SuperscriptBox["w2", "2"], "+", 
      SuperscriptBox["w3", "2"]}], ")"}]}]}], 
  RowBox[{
   SuperscriptBox["sqrt", "2"], " ", 
   SuperscriptBox["Transpose", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["w1", "2"], "+", 
      SuperscriptBox["w2", "2"], "+", 
      SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461607435*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "-", "sin"}], 
  RowBox[{
   SuperscriptBox["sqrt", "2"], " ", 
   SuperscriptBox["Transpose", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["w1", "2"], "+", 
      SuperscriptBox["w2", "2"], "+", 
      SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461613455*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
   FractionBox[
    RowBox[{"1", "-", 
     RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["w1", "2"], "+", 
        SuperscriptBox["w2", "2"], "+", 
        SuperscriptBox["w3", "2"]}], ")"}]}]}], 
    RowBox[{
     SuperscriptBox["sqrt", "2"], " ", 
     SuperscriptBox["Transpose", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["w1", "2"], "+", 
        SuperscriptBox["w2", "2"], "+", 
        SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]}], 
  RowBox[{
   SuperscriptBox["sqrt", "2"], " ", 
   SuperscriptBox["Transpose", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["w1", "2"], "+", 
      SuperscriptBox["w2", "2"], "+", 
      SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.6443674616197567`*^9}],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["lambda", "2"], 
  RowBox[{
   SuperscriptBox["lambda", "2"], "+", 
   RowBox[{
    SuperscriptBox["sqrt", "2"], " ", 
    SuperscriptBox["Transpose", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["w1", "2"], "+", 
       SuperscriptBox["w2", "2"], "+", 
       SuperscriptBox["w3", "2"]}], ")"}], "2"]}]}]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.64436746162819*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "lambda", "-", 
   RowBox[{"exp", " ", "lambda"}]}], 
  SuperscriptBox["lambda", "2"]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461636879*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"1", "-", 
    RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["w1", "2"], "+", 
       SuperscriptBox["w2", "2"], "+", 
       SuperscriptBox["w3", "2"]}], ")"}]}]}], 
   RowBox[{
    SuperscriptBox["sqrt", "2"], " ", 
    SuperscriptBox["Transpose", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["w1", "2"], "+", 
       SuperscriptBox["w2", "2"], "+", 
       SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], "-", 
  RowBox[{"lambda", ".", 
   FractionBox[
    RowBox[{"1", "-", "sin"}], 
    RowBox[{
     SuperscriptBox["sqrt", "2"], " ", 
     SuperscriptBox["Transpose", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["w1", "2"], "+", 
        SuperscriptBox["w2", "2"], "+", 
        SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]}]}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461644608*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "-", "lambda", "+", 
   RowBox[{"exp", " ", "lambda"}], "+", 
   RowBox[{"0.5`", " ", 
    SuperscriptBox["lambda", "2"]}]}], 
  SuperscriptBox["lambda", "2"]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.6443674616517467`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"1", "-", "sin"}], 
   RowBox[{
    SuperscriptBox["sqrt", "2"], " ", 
    SuperscriptBox["Transpose", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["w1", "2"], "+", 
       SuperscriptBox["w2", "2"], "+", 
       SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{"lambda", " ", 
    RowBox[{"(", 
     RowBox[{"0.5`", "\[VeryThinSpace]", "-", 
      FractionBox[
       RowBox[{"1", "-", 
        RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["w1", "2"], "+", 
           SuperscriptBox["w2", "2"], "+", 
           SuperscriptBox["w3", "2"]}], ")"}]}]}], 
       RowBox[{
        SuperscriptBox["sqrt", "2"], " ", 
        SuperscriptBox["Transpose", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["w1", "2"], "+", 
           SuperscriptBox["w2", "2"], "+", 
           SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]}], ")"}]}], 
   RowBox[{
    SuperscriptBox["sqrt", "2"], " ", 
    SuperscriptBox["Transpose", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["w1", "2"], "+", 
       SuperscriptBox["w2", "2"], "+", 
       SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461658148*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   RowBox[{"exp", " ", "lambda"}]}], "lambda"]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461664322*^9}],

Cell[BoxData[
 RowBox[{"lambda", "+", 
  RowBox[{
   FractionBox[
    SuperscriptBox["lambda", "2"], 
    RowBox[{
     SuperscriptBox["lambda", "2"], "+", 
     RowBox[{
      SuperscriptBox["sqrt", "2"], " ", 
      SuperscriptBox["Transpose", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["w1", "2"], "+", 
         SuperscriptBox["w2", "2"], "+", 
         SuperscriptBox["w3", "2"]}], ")"}], "2"]}]}]], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "lambda"}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "1"}], "+", "lambda", "-", 
       RowBox[{"exp", " ", "lambda"}]}], 
      SuperscriptBox["lambda", "2"]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461671301*^9}],

Cell[BoxData[
 RowBox[{"nv", "+", 
  RowBox[{
   FractionBox[
    SuperscriptBox["lambda", "2"], 
    RowBox[{
     SuperscriptBox["lambda", "2"], "+", 
     RowBox[{
      SuperscriptBox["sqrt", "2"], " ", 
      SuperscriptBox["Transpose", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["w1", "2"], "+", 
         SuperscriptBox["w2", "2"], "+", 
         SuperscriptBox["w3", "2"]}], ")"}], "2"]}]}]], ".", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"1", "-", "lambda", "+", 
       RowBox[{"exp", " ", "lambda"}], "+", 
       RowBox[{"0.5`", " ", 
        SuperscriptBox["lambda", "2"]}]}], 
      SuperscriptBox["lambda", "2"]], "-", "nv"}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461677743*^9}],

Cell[BoxData["sin"], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461684054*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "-", 
   RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["w1", "2"], "+", 
      SuperscriptBox["w2", "2"], "+", 
      SuperscriptBox["w3", "2"]}], ")"}]}]}], 
  RowBox[{
   SuperscriptBox["sqrt", "2"], " ", 
   SuperscriptBox["Transpose", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["w1", "2"], "+", 
      SuperscriptBox["w2", "2"], "+", 
      SuperscriptBox["w3", "2"]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461690474*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "+", 
      RowBox[{"sin", ".", "v_skew"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}]}]}], 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".", 
       "v_skew"}]}], ",", 
     RowBox[{
      RowBox[{"sin", ".", "v_skew"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}]}]}], 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".", 
       "v_skew"}]}], ",", 
     RowBox[{
      RowBox[{"sin", ".", "v_skew"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}]}]}], 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".", 
       "v_skew"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"sin", ".", "v_skew"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}]}]}], 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".", 
       "v_skew"}]}], ",", 
     RowBox[{"1", "+", 
      RowBox[{"sin", ".", "v_skew"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}]}]}], 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".", 
       "v_skew"}]}], ",", 
     RowBox[{
      RowBox[{"sin", ".", "v_skew"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}]}]}], 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".", 
       "v_skew"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"sin", ".", "v_skew"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}]}]}], 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".", 
       "v_skew"}]}], ",", 
     RowBox[{
      RowBox[{"sin", ".", "v_skew"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}]}]}], 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".", 
       "v_skew"}]}], ",", 
     RowBox[{"1", "+", 
      RowBox[{"sin", ".", "v_skew"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"cos", " ", "sqrt", " ", "Transpose", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}]}]}], 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]], ".", "v_skew", ".", 
       "v_skew"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.64436746170076*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"1", "+", 
     RowBox[{"exp", " ", "lambda"}]}], "lambda"], ".", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"lambda", "+", 
     RowBox[{
      FractionBox[
       SuperscriptBox["lambda", "2"], 
       RowBox[{
        SuperscriptBox["lambda", "2"], "+", 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]}]], ".", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "lambda"}], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "1"}], "+", "lambda", "-", 
          RowBox[{"exp", " ", "lambda"}]}], 
         SuperscriptBox["lambda", "2"]]}], ")"}]}]}], ")"}], ".", "v_skew"}], 
  "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"nv", "+", 
     RowBox[{
      FractionBox[
       SuperscriptBox["lambda", "2"], 
       RowBox[{
        SuperscriptBox["lambda", "2"], "+", 
        RowBox[{
         SuperscriptBox["sqrt", "2"], " ", 
         SuperscriptBox["Transpose", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["w1", "2"], "+", 
            SuperscriptBox["w2", "2"], "+", 
            SuperscriptBox["w3", "2"]}], ")"}], "2"]}]}]], ".", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"1", "-", "lambda", "+", 
          RowBox[{"exp", " ", "lambda"}], "+", 
          RowBox[{"0.5`", " ", 
           SuperscriptBox["lambda", "2"]}]}], 
         SuperscriptBox["lambda", "2"]], "-", "nv"}], ")"}]}]}], ")"}], ".", 
   "v_skew", ".", "v_skew"}]}]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130310161*^9}, 3.644345228402564*^9, {3.644345294239305*^9, 
   3.6443453137058153`*^9}, {3.64434535496251*^9, 3.644345397456712*^9}, {
   3.644345453674008*^9, 3.6443454741593657`*^9}, 3.644345683963255*^9, {
   3.644345784991262*^9, 3.6443458090169373`*^9}, {3.6443458393601837`*^9, 
   3.644345852880629*^9}, 3.644345900196662*^9, 3.644346148937639*^9, 
   3.644346465932077*^9, {3.644364351433588*^9, 3.644364361690076*^9}, 
   3.644364444175256*^9, {3.644366154194023*^9, 3.6443661742894583`*^9}, 
   3.644366333614024*^9, 3.644366562449389*^9, 3.644366750790797*^9, 
   3.6443667923118773`*^9, {3.6443668797865257`*^9, 3.644366888321496*^9}, 
   3.6443669653333273`*^9, 3.644367012572801*^9, {3.6443670756055727`*^9, 
   3.6443671022081423`*^9}, 3.6443671488140087`*^9, 3.644367201888232*^9, {
   3.644367248576871*^9, 3.644367277024843*^9}, 3.644367338911738*^9, 
   3.644367373557184*^9, 3.644367461708905*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{812, 579},
WindowMargins->{{Automatic, -114}, {Automatic, 30}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 808, 14, 224, "Title"],
Cell[CellGroupData[{
Cell[1413, 40, 3597, 96, 166, "Input"],
Cell[5013, 138, 263, 9, 60, "Output"],
Cell[5279, 149, 204, 3, 31, "Output"],
Cell[5486, 154, 411, 11, 28, "Output"],
Cell[5900, 167, 413, 11, 28, "Output"],
Cell[6316, 180, 410, 11, 28, "Output"],
Cell[6729, 193, 432, 12, 28, "Output"],
Cell[7164, 207, 432, 12, 28, "Output"],
Cell[7599, 221, 432, 12, 28, "Output"],
Cell[8034, 235, 434, 12, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8505, 252, 7181, 205, 645, "Input"],
Cell[15689, 459, 1608, 22, 31, "Output"],
Cell[17300, 483, 1531, 22, 28, "Output"],
Cell[18834, 507, 1534, 22, 28, "Output"],
Cell[20371, 531, 1660, 27, 28, "Output"],
Cell[22034, 560, 1819, 30, 28, "Output"],
Cell[23856, 592, 1777, 31, 28, "Output"],
Cell[25636, 625, 1531, 22, 28, "Output"],
Cell[27170, 649, 1481, 20, 28, "Output"],
Cell[28654, 671, 2184, 42, 92, "Output"],
Cell[30841, 715, 1590, 22, 31, "Output"],
Cell[32434, 739, 1624, 25, 28, "Output"],
Cell[34061, 766, 1659, 26, 35, "Output"],
Cell[35723, 794, 1478, 20, 28, "Output"],
Cell[37204, 816, 1991, 37, 59, "Output"],
Cell[39198, 855, 1788, 31, 55, "Output"],
Cell[40989, 888, 2360, 48, 79, "Output"],
Cell[43352, 938, 1853, 33, 57, "Output"],
Cell[45208, 973, 1613, 25, 49, "Output"],
Cell[46824, 1000, 2392, 50, 59, "Output"],
Cell[49219, 1052, 1664, 26, 51, "Output"],
Cell[50886, 1080, 2821, 62, 79, "Output"],
Cell[53710, 1144, 1555, 23, 48, "Output"],
Cell[55268, 1169, 2162, 43, 57, "Output"],
Cell[57433, 1214, 2186, 43, 57, "Output"],
Cell[59622, 1259, 1478, 20, 28, "Output"],
Cell[61103, 1281, 1991, 37, 59, "Output"],
Cell[63097, 1320, 8325, 217, 475, "Output"],
Cell[71425, 1539, 3524, 85, 186, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)