(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      6717,        194]
NotebookOptionsPosition[      6117,        169]
NotebookOutlinePosition[      6472,        185]
CellTagsIndexPosition[      6429,        182]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"A", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"3", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.412382077008275*^9, 3.412382077175399*^9}, {
  3.412382401060014*^9, 3.412382401373021*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"3", "0"},
     {
      RowBox[{"-", "1"}], "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "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]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.412382401785273*^9, 3.41242642280389*^9, 
  3.412509432984531*^9, 3.412900746213668*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"uvec", "[", "t_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], ",", 
    RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.4123808458720617`*^9, 3.412380906432974*^9}, {
  3.412381106803796*^9, 3.41238110692699*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Black", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"uvec", "[", "t", "]"}]}], "}"}], "]"}], ",", "Thick", ",", 
       " ", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"A", ".", 
           RowBox[{"uvec", "[", "t", "]"}]}]}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "3"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "Pi"}], ",", 
     RowBox[{"Pi", "/", "24"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.412380925362596*^9, 3.412380927464979*^9}, {
  3.412380990286202*^9, 3.412381068286278*^9}, {3.4123811893926086`*^9, 
  3.4123811924269876`*^9}, {3.412381252074313*^9, 3.412381259971242*^9}, {
  3.412381342598394*^9, 3.412381345680275*^9}, {3.412381467434866*^9, 
  3.412381499518736*^9}, {3.412381531987493*^9, 3.412381606724053*^9}, {
  3.412381941152542*^9, 3.412381952878089*^9}, {3.412381990280631*^9, 
  3.4123819931641073`*^9}, {3.412382093610219*^9, 3.412382115234935*^9}, {
  3.412382521407611*^9, 3.412382549005479*^9}, {3.412509422511652*^9, 
  3.412509427600066*^9}, {3.4129010888718348`*^9, 3.412901157616222*^9}}],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`t$$ = 0, Typeset`show$$ = True, 
      Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{
        Hold[$CellContext`t$$], 0, 2 Pi, Rational[1, 24] Pi}}, 
      Typeset`size$$ = {540., {266., 276.}}, Typeset`update$$ = 0, 
      Typeset`initDone$$, Typeset`skipInitDone$$ = 
      True, $CellContext`t$1994$$ = 0}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       1, TraditionalForm, "Variables" :> {$CellContext`t$$ = 0}, 
        "ControllerVariables" :> {
          Hold[$CellContext`t$$, $CellContext`t$1994$$, 0]}, 
        "OtherVariables" :> {
         Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
          Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
          Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
          Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
        Graphics[{Thick, Black, 
           Arrow[{{0, 0}, 
             $CellContext`uvec[$CellContext`t$$]}], Thick, Red, 
           Arrow[{{0, 0}, 
             Dot[$CellContext`A, 
              $CellContext`uvec[$CellContext`t$$]]}]}, Axes -> True, 
          AspectRatio -> 1, PlotRange -> 3], 
        "Specifications" :> {{$CellContext`t$$, 0, 2 Pi, Rational[1, 24] Pi}},
         "Options" :> {}, "DefaultOptions" :> {}],
       ImageSizeCache->{587., {339.4375, 348.5625}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      SynchronousInitialization->True,
      UnsavedVariables:>{Typeset`initDone$$},
      UntrackedVariables:>{Typeset`size$$}], "Manipulate",
     Deployed->True,
     StripOnInput->False],
    TraditionalForm],
   Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.4129011597880907`*^9, 3.412901242263254*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Eigenvectors", "[", "A", "]"}], "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.412382060906167*^9, 3.4123820648062353`*^9}, {
  3.4125095228657227`*^9, 3.412509523871529*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Eigenvectors", "[", "A", "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.412509526541423*^9, 3.412509531713273*^9}}],

Cell[BoxData[
 RowBox[{"Eigenvalues", "[", "A", "]"}]], "Input",
 CellChangeTimes->{{3.412382047166789*^9, 3.412382057510989*^9}}]
},
WindowSize->{1225, 814},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.5,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 345, 10, 40, "Input"],
Cell[938, 35, 684, 19, 64, "Output"]
}, Open  ]],
Cell[1637, 57, 309, 8, 42, "Input"],
Cell[CellGroupData[{
Cell[1971, 69, 1604, 36, 64, "Input"],
Cell[3578, 107, 1967, 42, 713, "Output"]
}, Open  ]],
Cell[5560, 152, 235, 5, 40, "Input"],
Cell[5798, 159, 182, 4, 40, "Input"],
Cell[5983, 165, 130, 2, 40, "Input"]
}
]
*)

(* End of internal cache information *)