(* 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[ 22645, 533] NotebookOptionsPosition[ 21575, 497] NotebookOutlinePosition[ 21914, 512] CellTagsIndexPosition[ 21871, 509] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"AA", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.253863453677542`", ",", "0.`", ",", "0.161503079944659`", ",", "0.161503079944659`", ",", "0.`", ",", "0.161503079944659`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0403834924709515`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.253863453677542`", ",", "0.0923603737328831`", ",", "0.`", ",", "0.161503079944659`", ",", "0.`", ",", "0.161503079944659`", ",", "0.161503079944659`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0923603737328831`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0923603737328831`", ",", "0.0923603737328831`", ",", "0.0923603737328831`", ",", "0.0923603737328831`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.676992071083329`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.`", ",", "0.`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.639350434928982`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.253863453677542`", ",", "0.`", ",", "0.161503079944659`", ",", "0.161503079944659`", ",", "0.`", ",", "0.161503079944659`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.0177206191432437`", ",", "0.659271451940086`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.0177206191432437`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.659271451940086`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.639323899518702`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.253863453677542`", ",", "0.0923603737328831`", ",", "0.`", ",", "0.161503079944659`", ",", "0.`", ",", "0.161503079944659`", ",", "0.161503079944659`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.659244916529805`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.639323899518702`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0923603737328831`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.639323899518702`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0923603737328831`", ",", "0.0923603737328831`", ",", "0.0923603737328831`", ",", "0.0923603737328831`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.0199210170111031`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0199210170111031`", ",", "0.0199210170111031`", ",", "0.676992071083329`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.`", ",", "0.`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.0230686609864559`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0199210170111031`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.659271451940086`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.253863453677542`", ",", "0.`", ",", "0.161503079944659`", ",", "0.161503079944659`", ",", "0.`", ",", "0.161503079944659`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.639350434928982`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.0177206191432437`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.659271451940086`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.0056923217817208`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.639350434928982`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.253863453677542`", ",", "0.0923603737328831`", ",", "0.`", ",", "0.161503079944659`", ",", "0.`", ",", "0.161503079944659`", ",", "0.161503079944659`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0177206191432437`", ",", "0.659271451940086`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.639350434928982`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`", ",", "0.0923603737328831`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0403834924709515`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.639350434928982`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0923603737328831`", ",", "0.0923603737328831`", ",", "0.0923603737328831`", ",", "0.0923603737328831`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0000265354102803078`", ",", "0.0000265354102803078`", ",", "0.0000265354102803078`", ",", "0.0000265354102803078`", ",", "0.`", ",", "0.`", ",", "0.0199210170111031`", ",", "0.`", ",", "0.0199210170111031`", ",", "0.`", ",", "0.0199210170111031`", ",", "0.0199210170111031`", ",", "0.676992071083329`", ",", "0.676992071083329`", ",", "0.676992071083329`", ",", "0.676992071083329`", ",", "0.676992071083329`", ",", "0.676992071083329`", ",", "0.676992071083329`", ",", "0.676992071083329`", ",", "1.`"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.4155373321355*^9, 3.415537369838625*^9, {3.415538252401125*^9, 3.415538253119875*^9}, 3.415538297948*^9}], Cell["\<\ Question : what is the probability of ending an inning without ever loading \ the bases?\ \>", "Text", CellChangeTimes->{{3.415538341276125*^9, 3.415538359323*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"BB", "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Transpose", "[", "AA", "]"}], ",", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "25"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "26"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.41553748779175*^9, 3.415537568823*^9}, { 3.415538032651125*^9, 3.415538086401125*^9}, 3.415538283463625*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{"[", RowBox[{"26", ",", "26"}], "]"}], "]"}], "=", "1"}], ";"}]], "Input", CellChangeTimes->{{3.415537572369875*^9, 3.415537576463625*^9}, 3.415538287838625*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{"[", "26", "]"}], "]"}], "=", RowBox[{ RowBox[{"BB", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"BB", "[", RowBox[{"[", "8", "]"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.4155377335105*^9, 3.415537746338625*^9}, { 3.415537780448*^9, 3.415537782776125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{"[", "8", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "26"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.415537785073*^9, 3.4155378005105*^9}, { 3.415538096323*^9, 3.415538114088625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{"[", "26", "]"}], "]"}], "=", RowBox[{ RowBox[{"BB", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"BB", "[", RowBox[{"[", "16", "]"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.4155377335105*^9, 3.415537746338625*^9}, { 3.415537780448*^9, 3.415537782776125*^9}, {3.41553782372925*^9, 3.41553782422925*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{"[", "16", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "26"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.415537785073*^9, 3.415537829369875*^9}, { 3.415538120963625*^9, 3.415538125463625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{"[", "26", "]"}], "]"}], "=", RowBox[{ RowBox[{"BB", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"BB", "[", RowBox[{"[", "24", "]"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.4155377335105*^9, 3.415537746338625*^9}, { 3.415537780448*^9, 3.415537782776125*^9}, {3.41553783972925*^9, 3.41553784016675*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"BB", "[", RowBox[{"[", "24", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "26"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.415537785073*^9, 3.4155378005105*^9}, { 3.41553784491675*^9, 3.415537845776125*^9}, {3.415538134932375*^9, 3.415538139588625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"MatrixPower", "[", RowBox[{"BB", ",", "20"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.41553785066675*^9, 3.4155378626355*^9}, { 3.415537899588625*^9, 3.41553794622925*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.7157651711275486`*^-13", ",", "5.478734340303944`*^-13", ",", "1.1293844995043834`*^-13", ",", "6.70130322983392`*^-14", ",", "1.683725253986284`*^-12", ",", "2.776163825589068`*^-13", ",", "1.0860044479632768`*^-13", ",", "0.`", ",", "1.39273899563445`*^-11", ",", "2.8092273324088725`*^-11", ",", "5.846526804701558`*^-12", ",", "3.4340032840252578`*^-12", ",", "8.589596356062495`*^-11", ",", "1.4271415496276352`*^-11", ",", "5.5562402754551165`*^-12", ",", "0.`", ",", "3.411702355620142`*^-10", ",", "6.894477437788435`*^-10", ",", "1.4408052471551658`*^-10", ",", "8.404022219003194`*^-11", ",", "2.092566659749929`*^-9", ",", "3.504120423369559`*^-10", ",", "1.3589562093922584`*^-10", ",", "0.`", ",", "0.9372938619000183`", ",", "0.0627061341022726`"}], "}"}]], "Output", CellChangeTimes->{{3.41553791404175*^9, 3.41553794691675*^9}, 3.415538141619875*^9, 3.415538270088625*^9}] }, Open ]], Cell["\<\ Question : what is the probability of ending an inning without ever having a \ baserunner?\ \>", "Text", CellChangeTimes->{{3.4155383685105*^9, 3.415538388338625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"CC", "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Append", "[", RowBox[{ RowBox[{"Transpose", "[", "AA", "]"}], ",", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "25"}], "}"}]}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "26"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.41553748779175*^9, 3.415537568823*^9}, { 3.415538032651125*^9, 3.415538086401125*^9}, 3.415538283463625*^9, { 3.415538524901125*^9, 3.4155385257605*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CC", "[", RowBox[{"[", RowBox[{"26", ",", "26"}], "]"}], "]"}], "=", "1"}], ";"}]], "Input", CellChangeTimes->{{3.415537572369875*^9, 3.415537576463625*^9}, 3.415538287838625*^9, {3.415538529369875*^9, 3.415538530026125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Indices", " ", "=", " ", RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.415538672338625*^9, 3.4155387015105*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "Indices", "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"CC", "[", RowBox[{"[", "26", "]"}], "]"}], "=", RowBox[{ RowBox[{"CC", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"CC", "[", RowBox[{"[", RowBox[{"Indices", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}]}], ";", RowBox[{ RowBox[{"CC", "[", RowBox[{"[", RowBox[{"Indices", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"j", ",", "26"}], "}"}]}], "]"}]}]}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.415538703073*^9, 3.415538781151125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"MatrixPower", "[", RowBox[{"CC", ",", "20"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.41553785066675*^9, 3.4155378626355*^9}, { 3.415537899588625*^9, 3.41553794622925*^9}, {3.415538795151125*^9, 3.415538795838625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8215778435849084`*^-33", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.0691507042321059`*^-30", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.9807374709962256`*^-28", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.33278107633852777`", ",", "0.6672189236614706`"}], "}"}]], "Output", CellChangeTimes->{3.415538796276125*^9}] }, Open ]], Cell["Now, the real question : is this, in fact, correct?", "Text", CellChangeTimes->{{3.41553884179175*^9, 3.415538853151125*^9}}] }, WindowSize->{614, 530}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 12713, 226, 1932, "Input"], Cell[13284, 249, 175, 4, 29, "Text"], Cell[13462, 255, 660, 18, 52, "Input"], Cell[14125, 275, 242, 7, 31, "Input"], Cell[14370, 284, 372, 11, 31, "Input"], Cell[14745, 297, 341, 10, 31, "Input"], Cell[15089, 309, 420, 12, 31, "Input"], Cell[15512, 323, 347, 10, 31, "Input"], Cell[15862, 335, 420, 12, 31, "Input"], Cell[16285, 349, 393, 11, 31, "Input"], Cell[CellGroupData[{ Cell[16703, 364, 290, 7, 31, "Input"], Cell[16996, 373, 982, 16, 130, "Output"] }, Open ]], Cell[17993, 392, 178, 4, 29, "Text"], Cell[18174, 398, 708, 19, 52, "Input"], Cell[18885, 419, 288, 7, 31, "Input"], Cell[19176, 428, 423, 9, 52, "Input"], Cell[19602, 439, 928, 29, 72, "Input"], Cell[CellGroupData[{ Cell[20555, 472, 339, 8, 31, "Input"], Cell[20897, 482, 526, 9, 55, "Output"] }, Open ]], Cell[21438, 494, 133, 1, 29, "Text"] } ] *) (* End of internal cache information *)