(* 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[     15602,        404]
NotebookOptionsPosition[     14491,        364]
NotebookOutlinePosition[     14850,        380]
CellTagsIndexPosition[     14807,        377]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "Similarity Group\n",
 StyleBox["Representation\n", "Chapter"],
 StyleBox["A similarity transformation is a combination ", "Text"],
 "\n",
 StyleBox["Exponential and Logmap\n\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}}],

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}}],

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]", Cell["The matrix form of \
the similarity vector is:"], "\[IndentingNewLine]", 
 RowBox[{"simMatrix", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{"0", ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"simMatrix", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", "3"}], ",", 
      RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"SkewSym", "[", "v", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", Cell["\<\
The exponential map of similarity3 is:
\
\>"]}], "Input",
 CellChangeTimes->{{3.64434137002735*^9, 3.644341539824277*^9}, {
  3.644341595117811*^9, 3.644341750502033*^9}, {3.6443418211779013`*^9, 
  3.644341871033806*^9}, {3.644341902145*^9, 3.6443419325955687`*^9}, {
  3.6443420032518187`*^9, 3.644342080926795*^9}, {3.644344115577599*^9, 
  3.644344138921712*^9}, {3.644344183657415*^9, 3.644344243563266*^9}, {
  3.644344277871182*^9, 3.6443442927775*^9}, {3.6443443719167137`*^9, 
  3.6443445055251913`*^9}, {3.6443445402223988`*^9, 3.644344621076252*^9}, {
  3.644344658699892*^9, 3.644344696943632*^9}, {3.644344750998406*^9, 
  3.644344755470311*^9}, {3.6443451156161633`*^9, 3.644345149594688*^9}}],

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}}],

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.64434513031706*^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.644345130321727*^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.644345130326034*^9}}],

Cell[BoxData[
 InterpretationBox[Cell["The matrix form of the similarity vector is:"],
  TextCell["The matrix form of the similarity vector is:"]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.64434513033029*^9}}],

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.644345130334682*^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.644345130339306*^9}}],

Cell[BoxData[
 InterpretationBox[Cell["\<\
The exponential map of similarity3 is:
\
\>"],
  TextCell["The exponential map of similarity3 is:\n"]]], "Output",
 CellChangeTimes->{{3.6443419121329803`*^9, 3.644341920689967*^9}, 
   3.644342083088463*^9, {3.644344124265246*^9, 3.6443441324042997`*^9}, {
   3.6443441881168823`*^9, 3.6443441950748997`*^9}, {3.644344229943321*^9, 
   3.644344245111559*^9}, {3.644344284483355*^9, 3.6443442933267717`*^9}, 
   3.6443444220909557`*^9, {3.6443444591254807`*^9, 3.6443445061756277`*^9}, {
   3.6443445415799227`*^9, 3.64434458046883*^9}, 3.644344622442521*^9, {
   3.644344676089139*^9, 3.644344697634576*^9}, {3.644345119918116*^9, 
   3.644345130343567*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"simExponetialMap", " ", "=", " ", 
   RowBox[{"Expand", "[", 
    RowBox[{"Series", "[", "]"}], "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.644341752983704*^9, 3.644341812107615*^9}}],

Cell[BoxData[
 InterpretationBox[Cell["Lie vectors:"],
  TextCell["Lie vectors:"]]], "Output",
 CellChangeTimes->{3.644341528720538*^9, 3.64434162193827*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", ",", "y", ",", "z"}], "}"}]], "Output",
 CellChangeTimes->{3.644341528720538*^9, 3.644341621943945*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}]], "Output",
 CellChangeTimes->{3.644341528720538*^9, 3.644341621947913*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w1", ",", "w2", ",", "w3"}], "}"}], ",", "lambda"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.644341528720538*^9, 3.644341621951668*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "w3"}], ",", "w2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"w3", ",", "0", ",", 
     RowBox[{"-", "w1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "w2"}], ",", "w1", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.644341528720538*^9, 3.644341621955081*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"I3", " ", "=", " ", 
  RowBox[{"IdentyMatrix", "[", "3", "]"}]}]], "Input",
 CellChangeTimes->{{3.6443405921748047`*^9, 3.6443406096153393`*^9}}],

Cell[BoxData[
 RowBox[{"IdentyMatrix", "[", "3", "]"}]], "Output",
 CellChangeTimes->{3.64434061119941*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{808, 579},
WindowMargins->{{Automatic, -111}, {Automatic, 20}},
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, 828, 14, 287, "Title"],
Cell[1411, 38, 3548, 95, 166, "Input"],
Cell[CellGroupData[{
Cell[4984, 137, 1814, 41, 206, "Input"],
Cell[6801, 180, 703, 10, 31, "Output"],
Cell[7507, 192, 627, 10, 28, "Output"],
Cell[8137, 204, 631, 10, 28, "Output"],
Cell[8771, 216, 757, 15, 28, "Output"],
Cell[9531, 233, 702, 10, 31, "Output"],
Cell[10236, 245, 914, 18, 28, "Output"],
Cell[11153, 265, 874, 19, 28, "Output"],
Cell[12030, 286, 702, 13, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12769, 304, 240, 5, 46, "Input"],
Cell[13012, 311, 157, 3, 31, "Output"],
Cell[13172, 316, 147, 3, 28, "Output"],
Cell[13322, 321, 150, 3, 28, "Output"],
Cell[13475, 326, 276, 8, 28, "Output"],
Cell[13754, 336, 393, 12, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14184, 353, 169, 3, 28, "Input"],
Cell[14356, 358, 107, 2, 28, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)