(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 11080, 313] NotebookOptionsPosition[ 10553, 289] NotebookOutlinePosition[ 10990, 308] CellTagsIndexPosition[ 10947, 305] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Example 3.67", "Subsection", CellChangeTimes->{{3.79299149202369*^9, 3.79299157839533*^9}, { 3.793964113443028*^9, 3.793964136542459*^9}, {3.799428150071086*^9, 3.79942816601798*^9}, {3.799428281892652*^9, 3.799428286187307*^9}, 3.7997444644629917`*^9, {3.800945090493619*^9, 3.800945094219781*^9}, { 3.8287747198371077`*^9, 3.828774725059779*^9}, {3.828775864633349*^9, 3.8287758782119102`*^9}, {3.829103317389337*^9, 3.829103345835208*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"P", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "0.5", ",", " ", "0.5"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0.5", ",", " ", "0", ",", " ", "0.5"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"\[Alpha]", "=", RowBox[{"{", RowBox[{"0.2", ",", " ", "0.3", ",", " ", "0.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"MatrixForm", "[", RowBox[{"MatrixPower", "[", RowBox[{"P", ",", "n"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"\[Alpha]", ".", RowBox[{"MatrixPower", "[", RowBox[{"P", ",", "n"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "2"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"MatrixForm", "[", RowBox[{"MatrixPower", "[", RowBox[{"P", ",", "n"}], "]"}], "]"}], ",", RowBox[{"MatrixForm", "[", RowBox[{"\[Alpha]", ".", RowBox[{"MatrixPower", "[", RowBox[{"P", ",", "n"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "5", ",", "100", ",", "95"}], "}"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.607682720443488*^9, 3.607682721902609*^9}, { 3.607682790205782*^9, 3.6076828271334343`*^9}, {3.8287748416142483`*^9, 3.8287749226286592`*^9}, {3.828778124291153*^9, 3.828778125867352*^9}, 3.829103402942651*^9, {3.829115733680925*^9, 3.829115734407096*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0.5`", "0.5`"}, {"0.5`", "0.`", "0.5`"}, {"1.`", "0.`", "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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.65`"}, {"0.1`"}, {"0.25`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"2", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.75`", "0.`", "0.25`"}, {"0.5`", "0.25`", "0.25`"}, {"0.`", "0.5`", "0.5`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.30000000000000004`"}, {"0.325`"}, {"0.375`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]} }, 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.607682816530802*^9, 3.607682828135364*^9}, 3.828774882708968*^9, 3.828774923318355*^9, {3.829103391795014*^9, 3.829103413637576*^9}, 3.829115735371297*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.375`", "0.28125`", "0.34375`"}, {"0.40625`", "0.25`", "0.34375`"}, {"0.5625`", "0.125`", "0.3125`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.478125`"}, {"0.19375`"}, {"0.328125`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}, {"100", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.4444444444444444`", "0.22222222222222224`", "0.3333333333333333`"}, {"0.4444444444444444`", "0.22222222222222224`", "0.33333333333333337`"}, {"0.4444444444444444`", "0.2222222222222222`", "0.3333333333333333`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.4444444444444444`"}, {"0.2222222222222222`"}, {"0.33333333333333337`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]} }, 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.607682816530802*^9, 3.607682828135364*^9}, 3.828774882708968*^9, 3.828774923318355*^9, {3.829103391795014*^9, 3.829103413637576*^9}, 3.829115735379293*^9}] }, Open ]] }, Open ]] }, WindowSize->{917, 694}, WindowMargins->{{4, Automatic}, {2, Automatic}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, Magnification:>1.5 Inherited, FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \ 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 467, 6, 65, "Subsection"], Cell[CellGroupData[{ Cell[1072, 32, 1863, 51, 269, "Input"], Cell[2938, 85, 3676, 98, 186, "Output"], Cell[6617, 185, 3908, 100, 186, "Output"] }, Open ]] }, Open ]] } ] *)