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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      8885,        295]
NotebookOptionsPosition[      7969,        259]
NotebookOutlinePosition[      8314,        274]
CellTagsIndexPosition[      8271,        271]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"5", ",", "6", ",", "1"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "2", ",", 
       RowBox[{"-", "4"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixPower", "[", 
  RowBox[{"a", ",", 
   RowBox[{"-", "1"}]}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5720871838050537`*^9, 3.5720872739264126`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["26", "5"]}], ",", 
     FractionBox["12", "5"], ",", 
     RowBox[{"-", 
      FractionBox["23", "5"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["19", "5"], ",", 
     RowBox[{"-", 
      FractionBox["8", "5"]}], ",", 
     FractionBox["17", "5"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["16", "5"], ",", 
     RowBox[{"-", 
      FractionBox["7", "5"]}], ",", 
     FractionBox["13", "5"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5720879088631277`*^9, 3.5723248597383633`*^9, 
  3.572325031510265*^9, 3.572325064863123*^9, 3.572325175358117*^9, 
  3.5723352229613647`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "=", 
   RowBox[{"Inverse", "[", "a", "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5720873832202044`*^9, 3.5720873930482216`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["26", "5"]}], ",", 
     FractionBox["12", "5"], ",", 
     RowBox[{"-", 
      FractionBox["23", "5"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["19", "5"], ",", 
     RowBox[{"-", 
      FractionBox["8", "5"]}], ",", 
     FractionBox["17", "5"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["16", "5"], ",", 
     RowBox[{"-", 
      FractionBox["7", "5"]}], ",", 
     FractionBox["13", "5"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.572087908941128*^9, 3.5723248597695627`*^9, 
  3.5723250315726647`*^9, 3.5723250648943233`*^9, 3.5723251754049177`*^9, 
  3.572335222976965*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"5", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "2", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.572087430145087*^9, 3.572087455853932*^9}, {
  3.5720875269588566`*^9, 3.572087535616872*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5720874683651543`*^9, 3.572087497474805*^9}, {
   3.5720878103177547`*^9, 3.5720878149197626`*^9}, 3.572087897303507*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"d", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", "3", "}"}], ",", 
      RowBox[{"{", "3", "}"}]}], "]"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "d", "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.5720875524337015`*^9, 3.5720875804201508`*^9}, 
   3.5720877124899826`*^9, {3.572087762971671*^9, 3.57208776790128*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d", "=", 
  RowBox[{"c", "+", 
   RowBox[{"Transpose", "[", "c", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5720875994209843`*^9, 3.5720876140226097`*^9}, {
  3.572087725609606*^9, 3.5720877340024204`*^9}, {3.572087873373065*^9, 
  3.5720878826394815`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "5", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5720879089723277`*^9, 3.572324859785163*^9, 
  3.5723250315882645`*^9, 3.5723250649255233`*^9, 3.5723251754361176`*^9, 
  3.572335222992565*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "5", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2", ",", "0"}], "}"}]}], 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "d", "]"}]}], "Input",
 CellChangeTimes->{{3.572087836603801*^9, 3.572087845417816*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "5", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.572087908987928*^9, 3.572324859800763*^9, 
  3.572325031619465*^9, 3.5723250649411235`*^9, 3.5723251754361176`*^9, 
  3.572335222992565*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "5", 
      RowBox[{"-", "1"}]},
     {"5", "0", "2"},
     {
      RowBox[{"-", "1"}], "2", "0"}
    },
    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.572087908987928*^9, 3.572324859800763*^9, 
  3.572325031619465*^9, 3.5723250649411235`*^9, 3.5723251754361176`*^9, 
  3.572335222992565*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Theta]", "=", 
   RowBox[{"66", "/", "180"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"T", "=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{"a", ".", 
     RowBox[{"RotationMatrix", "[", 
      RowBox[{"\[Theta]", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ",", "8"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.5723247814886255`*^9, 3.572324850175546*^9}, {
  3.5723250172986393`*^9, 3.5723251190732183`*^9}, {3.572325156232484*^9, 
  3.5723251669497023`*^9}, {3.572335204756133*^9, 3.5723352053957343`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "3.`8.", ",", "2.36755023226995843925544815803735699674`8.", ",", 
     "3.37560452329334128189013049052653835775`8."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.`8.", ",", "5.95967096226155493388396958014611483504`8.", ",", 
     RowBox[{"-", "1.21750647701621360493964721938787219691`8."}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.`8."}], ",", 
     "0.4330324133965104254767818631644389611`8.", ",", 
     RowBox[{"-", "4.45112153607919289514865910375410711584`8."}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5723248598319635`*^9, 3.572325031635065*^9, 
  3.572325064956723*^9, 3.5723251754517174`*^9, 3.5723352230081654`*^9}]
}, Open  ]]
},
WindowSize->{648, 857},
WindowMargins->{{443, Automatic}, {Automatic, 12}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 609, 16, 112, "Input"],
Cell[1191, 40, 735, 24, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1963, 69, 190, 4, 52, "Input"],
Cell[2156, 75, 737, 24, 46, "Output"]
}, Open  ]],
Cell[2908, 102, 504, 14, 72, "Input"],
Cell[3415, 118, 170, 2, 31, "Input"],
Cell[3588, 122, 434, 11, 52, "Input"],
Cell[CellGroupData[{
Cell[4047, 137, 281, 6, 31, "Input"],
Cell[4331, 145, 468, 13, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4836, 163, 436, 13, 52, "Input"],
Cell[5275, 178, 464, 13, 31, "Output"],
Cell[5742, 193, 823, 23, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6602, 221, 599, 15, 52, "Input"],
Cell[7204, 238, 749, 18, 128, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)