(* 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[      7044,        193]
NotebookOptionsPosition[      6221,        161]
NotebookOutlinePosition[      6697,        180]
CellTagsIndexPosition[      6654,        177]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{".1", ",", ".2", ",", ".3", ",", ".4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{".2", ",", ".2", ",", ".3", ",", ".3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{".5", ",", "0", ",", ".5", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{".6", ",", ".2", ",", ".1", ",", ".1"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "P", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"MatrixPower", "[", 
   RowBox[{"P", ",", "4"}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{".25", ",", ".25", ",", ".25", ",", ".25"}], "}"}], ".", 
  RowBox[{"MatrixPower", "[", 
   RowBox[{"P", ",", "4"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ".", 
  "%"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "9", ",", "16"}], "}"}], ".", "%%"}], "-", 
  SuperscriptBox["%", "2"]}]}], "Input",
 CellChangeTimes->{{3.573285257308569*^9, 3.573285330216529*^9}, {
   3.573285602014762*^9, 3.573285603725627*^9}, {3.573285636853928*^9, 
   3.573285638186577*^9}, {3.5732856963578577`*^9, 3.573285724119257*^9}, {
   3.5732875052176437`*^9, 3.573287521097151*^9}, {3.5732876702403812`*^9, 
   3.5732877636891613`*^9}, {3.573287849569543*^9, 3.573287858439868*^9}, {
   3.5732880893556213`*^9, 3.5732881125771646`*^9}, 3.5732881479022827`*^9, {
   3.573288181803026*^9, 3.57328818395857*^9}, {3.5732882309139423`*^9, 
   3.573288238992414*^9}, {3.573288455345742*^9, 3.573288456303607*^9}, {
   3.5732884864262943`*^9, 3.5732884879922237`*^9}, {3.5732891210171413`*^9, 
   3.5732891408651657`*^9}, {3.573289583262485*^9, 3.5732896864616957`*^9}, {
   3.573290410277865*^9, 3.573290412665965*^9}, {3.5732906703340187`*^9, 
   3.573290673130118*^9}, {3.6047696861737213`*^9, 3.6047698737940807`*^9}, {
   3.606495620029594*^9, 3.606495729023368*^9}, {3.6064958035528717`*^9, 
   3.6064958197218637`*^9}, {3.60649592354629*^9, 3.606495929400166*^9}, {
   3.606495959929604*^9, 3.60649598101693*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.1`", "0.2`", "0.3`", "0.4`"},
     {"0.2`", "0.2`", "0.3`", "0.3`"},
     {"0.5`", "0", "0.5`", "0"},
     {"0.6`", "0.2`", "0.1`", "0.1`"}
    },
    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.604769821009795*^9, 3.6047698770660887`*^9}, {
   3.606495691794282*^9, 3.6064957293706303`*^9}, 3.6064958206963377`*^9, 
   3.606495929987956*^9, 3.606495981806087*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.3616`", "0.13440000000000002`", "0.3192`", "0.18480000000000002`"},
     {"0.35190000000000005`", "0.13480000000000003`", "0.32220000000000004`", 
      "0.19110000000000002`"},
     {"0.3330000000000001`", "0.132`", "0.334`", "0.201`"},
     {"0.31770000000000004`", "0.1404`", "0.3258`", "0.21610000000000001`"}
    },
    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.604769821009795*^9, 3.6047698770660887`*^9}, {
   3.606495691794282*^9, 3.6064957293706303`*^9}, 3.6064958206963377`*^9, 
   3.606495929987956*^9, 3.606495981808874*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.34105`", ",", "0.13540000000000002`", ",", "0.32530000000000003`", ",", 
   "0.19824999999999998`"}], "}"}]], "Output",
 CellChangeTimes->{{3.604769821009795*^9, 3.6047698770660887`*^9}, {
   3.606495691794282*^9, 3.6064957293706303`*^9}, 3.6064958206963377`*^9, 
   3.606495929987956*^9, 3.606495981810899*^9}],

Cell[BoxData["2.38075`"], "Output",
 CellChangeTimes->{{3.604769821009795*^9, 3.6047698770660887`*^9}, {
   3.606495691794282*^9, 3.6064957293706303`*^9}, 3.6064958206963377`*^9, 
   3.606495929987956*^9, 3.60649598181218*^9}],

Cell[BoxData["1.3143794375000004`"], "Output",
 CellChangeTimes->{{3.604769821009795*^9, 3.6047698770660887`*^9}, {
   3.606495691794282*^9, 3.6064957293706303`*^9}, 3.6064958206963377`*^9, 
   3.606495929987956*^9, 3.6064959818133583`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{".25", "*", ".3", "*", ".5", "*", ".4"}]], "Input",
 CellChangeTimes->{{3.6064963737937183`*^9, 3.606496394937025*^9}, {
  3.606496518193055*^9, 3.6064965189510183`*^9}}],

Cell[BoxData["0.015`"], "Output",
 CellChangeTimes->{{3.6064963920745697`*^9, 3.60649639556706*^9}, 
   3.6064965197638073`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{".25", "*", "1.2", "*", ".5", "*", ".4"}]], "Input",
 CellChangeTimes->{{3.6064967725351553`*^9, 3.6064967740709743`*^9}}],

Cell[BoxData["0.06`"], "Output",
 CellChangeTimes->{3.606496776658236*^9}]
}, Open  ]]
},
WindowSize->{913, 689},
WindowMargins->{{4, Automatic}, {Automatic, 1}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PrivateNotebookOptions -> {
 "VersionedStylesheet" -> {"Default.nb"[8.] -> False}},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 2209, 46, 106, "Input"],
Cell[2791, 70, 893, 22, 89, "Output"],
Cell[3687, 94, 1067, 23, 89, "Output"],
Cell[4757, 119, 356, 7, 27, "Output"],
Cell[5116, 128, 226, 3, 27, "Output"],
Cell[5345, 133, 240, 3, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5622, 141, 193, 3, 27, "Input"],
Cell[5818, 146, 128, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5983, 153, 145, 2, 27, "Input"],
Cell[6131, 157, 74, 1, 27, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)