(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 156637, 3751] NotebookOptionsPosition[ 155783, 3720] NotebookOutlinePosition[ 156126, 3735] CellTagsIndexPosition[ 156083, 3732] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ This notebook runs an early version of Google\[CloseCurlyQuote]s PageRank \ algorithm for internet searches (as described in Gareth William\ \[CloseCurlyQuote]s Linear Algebra book). \ \>", "Text", CellChangeTimes->{{3.5752826021777573`*^9, 3.575282679084757*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"n", "=", "3"}], ";"}], " ", RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "webpages", " ", "on", " ", "your", " ", "internet"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Steps", "=", "50"}], ";"}], " ", RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "steps", " ", "of", " ", "the", " ", "Markov", " ", "chain", " ", "to", " ", "compute"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"G", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";", RowBox[{"G", "=", RowBox[{"Sign", "[", RowBox[{"G", "+", RowBox[{"IdentityMatrix", "[", "n", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"G", "//", "MatrixForm"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"GraphPlot", "[", RowBox[{ RowBox[{"Transpose", "[", "G", "]"}], ",", RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", RowBox[{"SelfLoopStyle", "\[Rule]", "0.2"}], ",", RowBox[{"MultiedgeStyle", "\[Rule]", "True"}], ",", RowBox[{"VertexLabeling", "\[Rule]", "True"}]}], "]"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "=", RowBox[{"Transpose", "[", RowBox[{ RowBox[{"Transpose", "[", "G", "]"}], "/", RowBox[{"Total", "[", "G", "]"}]}], "]"}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{ "Makes", " ", "all", " ", "columns", " ", "sum", " ", "to", " ", "1"}], ",", " ", RowBox[{"as", " ", "required", " ", "for", " ", "stochastic", " ", RowBox[{"matrices", "."}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"P", "//", "MatrixForm"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"Total", "[", "P", "]"}], "-", "1"}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"s", ">", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"P", "//", "MatrixForm"}], ",", "\"\< is not stochastic\>\""}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";", RowBox[{"g", "=", RowBox[{"SparseArray", "[", RowBox[{"Transpose", "[", RowBox[{"Round", "[", RowBox[{"P", ",", ".01"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"GraphPlot", "[", RowBox[{"g", ",", RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", RowBox[{"SelfLoopStyle", "\[Rule]", "0.2"}], ",", RowBox[{"MultiedgeStyle", "\[Rule]", "True"}], ",", RowBox[{"VertexLabeling", "\[Rule]", "True"}], ",", RowBox[{"EdgeRenderingFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{"#", ",", "0.1"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"[", RowBox[{ RowBox[{"First", "[", "#2", "]"}], ",", RowBox[{"Last", "[", "#2", "]"}]}], "]"}], "]"}], ",", RowBox[{"LineScaledCoordinate", "[", "#1", "]"}], ",", RowBox[{"Background", "\[Rule]", "White"}]}], "]"}]}], "}"}], "&"}], ")"}]}]}], "]"}], "]"}], ";", RowBox[{"(*", RowBox[{ "Draws", " ", "the", " ", "directed", " ", "graph", " ", "of", " ", "P"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"eigs", "=", RowBox[{"Eigensystem", "[", "P", "]"}]}], ";", RowBox[{ SubscriptBox["\[Lambda]", "1"], "=", RowBox[{ RowBox[{"eigs", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", RowBox[{ SubscriptBox["v", "1"], "=", RowBox[{ RowBox[{ RowBox[{"eigs", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{"Total", "[", RowBox[{ RowBox[{"eigs", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"P", "//", "MatrixForm"}], ",", "\"\<, we find \!\(\*SubscriptBox[\(\[Lambda]\), \(1\)]\)=\>\"", ",", SubscriptBox["\[Lambda]", "1"], ",", "\"\< with \!\(\*SubscriptBox[\(v\), \(1\)]\)=\>\"", ",", RowBox[{ SubscriptBox["v", "1"], "//", "MatrixForm"}], ",", "\"\<=\>\"", ",", RowBox[{ RowBox[{"Round", "[", RowBox[{ SubscriptBox["v", "1"], ",", "0.001"}], "]"}], "//", "MatrixForm"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"q", "=", RowBox[{ RowBox[{"Count", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", "P", "]"}], "-", RowBox[{"Diagonal", "[", "P", "]"}]}], ",", "0"}], "]"}], "/", "n"}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "Fraction", " ", "of", " ", "states", " ", "that", " ", "do", " ", "not", " ", "have", " ", "at", " ", "least", " ", "one", " ", "outgoing", " ", RowBox[{"link", ".", " ", "If"}], " ", "q"}], ">", "0"}], ",", " ", RowBox[{ "we", " ", "need", " ", "to", " ", "adjust", " ", "P", " ", "so", " ", "that", " ", "the", " ", "chain", " ", "is", " ", "not", " ", "absorbed", " ", "into", " ", "such", " ", "a", " ", RowBox[{"state", "."}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"q", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "q", ",", "\"\<. There is at least one absorbing state in the Markov chain. I \ will adjust P using P*(1-q)+q/n.\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"P", "=", RowBox[{ RowBox[{"P", "*", RowBox[{"(", RowBox[{"1", "-", "q"}], ")"}]}], "+", RowBox[{"q", "/", "n"}]}]}], ";", RowBox[{"(*", RowBox[{ RowBox[{ "Multiply", " ", "each", " ", "entry", " ", "of", " ", "P", " ", "by", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "q"}], ")"}], ".", " ", "The"}], " ", "second", " ", "term", " ", "simply", " ", "makes", " ", "all", " ", "columns", " ", "sum", " ", "to", " ", "1"}], ",", RowBox[{"as", " ", "required", " ", "for", " ", "stochastic", " ", RowBox[{"matrices", "."}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"s", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"Total", "[", "P", "]"}], "-", "1"}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"s", ">", "0"}], ",", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"P", "//", "MatrixForm"}], ",", "\"\< is not stochastic\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Needs", "[", "\"\\"", "]"}], ";", RowBox[{"Clear", "[", "g", "]"}], ";", RowBox[{"g", "=", RowBox[{"SparseArray", "[", RowBox[{"Transpose", "[", RowBox[{"Round", "[", RowBox[{"P", ",", ".01"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"GraphPlot", "[", RowBox[{"g", ",", RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", RowBox[{"SelfLoopStyle", "\[Rule]", "0.2"}], ",", RowBox[{"MultiedgeStyle", "\[Rule]", "True"}], ",", RowBox[{"VertexLabeling", "\[Rule]", "True"}], ",", RowBox[{"EdgeRenderingFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{"#", ",", "0.1"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"[", RowBox[{ RowBox[{"First", "[", "#2", "]"}], ",", RowBox[{"Last", "[", "#2", "]"}]}], "]"}], "]"}], ",", RowBox[{"LineScaledCoordinate", "[", "#1", "]"}], ",", RowBox[{"Background", "\[Rule]", "White"}]}], "]"}]}], "}"}], "&"}], ")"}]}]}], "]"}], "]"}], ";", RowBox[{"(*", RowBox[{ "Draws", " ", "the", " ", "directed", " ", "graph", " ", "of", " ", "P"}], "*)"}], "\[IndentingNewLine]", RowBox[{"eigs", "=", RowBox[{"Eigensystem", "[", "P", "]"}]}], ";", RowBox[{ SubscriptBox["\[Lambda]", "1"], "=", RowBox[{ RowBox[{"eigs", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", RowBox[{ SubscriptBox["v", "1"], "=", RowBox[{ RowBox[{ RowBox[{"eigs", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{"Total", "[", RowBox[{ RowBox[{"eigs", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"P", "//", "MatrixForm"}], ",", "\"\<, we find \!\(\*SubscriptBox[\(\[Lambda]\), \(1\)]\)=\>\"", ",", SubscriptBox["\[Lambda]", "1"], ",", "\"\< with \!\(\*SubscriptBox[\(v\), \(1\)]\)=\>\"", ",", RowBox[{ SubscriptBox["v", "1"], "//", "MatrixForm"}], ",", "\"\<=\>\"", ",", RowBox[{ RowBox[{"Round", "[", RowBox[{ SubscriptBox["v", "1"], ",", "0.001"}], "]"}], "//", "MatrixForm"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"set", " ", "initial", " ", "state"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"ConstantArray", "[", RowBox[{"1", ",", "n"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "=", RowBox[{"x", "/", RowBox[{"Total", "[", "x", "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Do", " ", "dynamical", " ", "evolution"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", "y", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y", "[", "0", "]"}], "=", "x"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "\[LessEqual]", "Steps"}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y", "[", "k", "]"}], "=", RowBox[{"P", ".", RowBox[{"y", "[", RowBox[{"k", "-", "1"}], "]"}]}]}], ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"y", "[", "k", "]"}], ",", "0.001"}], "]"}], "//", "MatrixForm"}], ",", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{ RowBox[{"y", "[", "k", "]"}], "-", SubscriptBox["v", "1"]}], ",", "0.001"}], "]"}], "//", "MatrixForm"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "Steps"}], "}"}]}], "]"}], "//", "TableForm"}]}], "Input", CellChangeTimes->{{3.556371343837824*^9, 3.5563714236448035`*^9}, { 3.556371651751831*^9, 3.5563716718618307`*^9}, {3.5563717834628305`*^9, 3.556371828652831*^9}, {3.556372002740712*^9, 3.556372006933131*^9}, { 3.5563720395503926`*^9, 3.5563720952969666`*^9}, {3.556372143226759*^9, 3.556372145249962*^9}, {3.5563722041238484`*^9, 3.556372613642796*^9}, { 3.556372651660598*^9, 3.556372712822713*^9}, {3.5563727436227927`*^9, 3.5563728388513145`*^9}, {3.5563728718526144`*^9, 3.5563728721726465`*^9}, {3.556372909302359*^9, 3.5563729661280413`*^9}, { 3.556373030338462*^9, 3.5563730397864065`*^9}, {3.5563730841958466`*^9, 3.5563731792323494`*^9}, {3.5563747265896225`*^9, 3.5563747270846224`*^9}, {3.5563748032246227`*^9, 3.5563748126866226`*^9}, {3.5563748463096223`*^9, 3.5563748556676226`*^9}, {3.5563750947976227`*^9, 3.5563751158206224`*^9}, {3.5563751599874334`*^9, 3.5563751721636505`*^9}, {3.5563752959450274`*^9, 3.556375361434576*^9}, { 3.5563758636781588`*^9, 3.556375947978015*^9}, {3.556375983639146*^9, 3.5563759849904165`*^9}, {3.5563760330567265`*^9, 3.5563760456579866`*^9}, {3.556376289392358*^9, 3.5563763999614134`*^9}, { 3.5563764330187187`*^9, 3.556376469551372*^9}, {3.5563765025606723`*^9, 3.5563765032517414`*^9}, {3.5563766115845737`*^9, 3.5563767305314674`*^9}, {3.5563769288152933`*^9, 3.556377023877799*^9}, { 3.5563771004004507`*^9, 3.556377208148224*^9}, {3.556377370754483*^9, 3.556377383594767*^9}, {3.556377428852292*^9, 3.556377588625268*^9}, { 3.5563776220126066`*^9, 3.55637787660357*^9}, {3.5563780567988195`*^9, 3.5563780582048197`*^9}, {3.556378135349819*^9, 3.5563781541008196`*^9}, { 3.5563782527618194`*^9, 3.5563783002148194`*^9}, {3.556378336625819*^9, 3.5563784026968193`*^9}, {3.556378435382819*^9, 3.5563784487898197`*^9}, { 3.5563785021228194`*^9, 3.5563786634238195`*^9}, {3.5563787217708197`*^9, 3.5563787378418193`*^9}, {3.5563803383510284`*^9, 3.5563803566548586`*^9}, {3.5563806160497956`*^9, 3.55638063219341*^9}, { 3.556383953818245*^9, 3.556383971151511*^9}, {3.55638403015661*^9, 3.556384093083317*^9}, {3.5563845443863945`*^9, 3.556384578175394*^9}, { 3.5563847369023943`*^9, 3.556384737837394*^9}, {3.5563847815393944`*^9, 3.556384782627394*^9}, {3.5570649570681553`*^9, 3.557064970802529*^9}, { 3.5570650882952766`*^9, 3.557065120608508*^9}, {3.5579346480665855`*^9, 3.5579346903948183`*^9}, {3.562770284221653*^9, 3.5627703217126527`*^9}, { 3.5627703991876526`*^9, 3.562770431844653*^9}, {3.562770474261653*^9, 3.562770559544653*^9}, {3.5627706058646526`*^9, 3.562770723431426*^9}, { 3.5627707949305754`*^9, 3.5627707998740697`*^9}, {3.5627708307471566`*^9, 3.5627708487199535`*^9}, {3.5627708831643977`*^9, 3.5627708926443453`*^9}, {3.562856419684062*^9, 3.562856424487542*^9}, { 3.562856467728866*^9, 3.562856581955288*^9}, {3.5628603838823366`*^9, 3.562860455209469*^9}, {3.5628605061315603`*^9, 3.5628605185157986`*^9}, { 3.562860679415887*^9, 3.5628606932662725`*^9}, {3.5628607259635415`*^9, 3.562860767884733*^9}, {3.5628608184227867`*^9, 3.562860842415186*^9}, 3.5628608910180454`*^9, {3.5628609591158543`*^9, 3.562861050800022*^9}, { 3.562861081753117*^9, 3.562861093065248*^9}, {3.562861127834725*^9, 3.5628611503709784`*^9}, {3.562861396174556*^9, 3.5628615245063877`*^9}, { 3.5628615759875355`*^9, 3.5628617697299223`*^9}, {3.562861987242922*^9, 3.562862038903922*^9}, {3.5628620706779222`*^9, 3.5628621255459223`*^9}, 3.562862176118922*^9, 3.562862213364922*^9, {3.562862304168922*^9, 3.5628623290529222`*^9}, {3.562862417415679*^9, 3.562862445757513*^9}, { 3.5628625741733537`*^9, 3.562862587370673*^9}, {3.5628630596228933`*^9, 3.562863090782009*^9}, 3.562863121025033*^9, {3.5628632746623955`*^9, 3.5628632754544744`*^9}, {3.5628633120401325`*^9, 3.562863428884816*^9}, { 3.562863595727499*^9, 3.5628638989568186`*^9}, {3.562863929544877*^9, 3.562864011532075*^9}, {3.5628640486297846`*^9, 3.562864421088026*^9}, { 3.562864475799497*^9, 3.5628644814610634`*^9}, {3.562864555103427*^9, 3.562864557016618*^9}, {3.5628645991268287`*^9, 3.562864602970213*^9}, { 3.562864637231639*^9, 3.5628646383227477`*^9}, {3.5628646825331683`*^9, 3.5628647219791126`*^9}, {3.562865305522461*^9, 3.5628654620951166`*^9}, { 3.5628654963365407`*^9, 3.562865586499556*^9}, {3.562865735062411*^9, 3.5628657878756914`*^9}, {3.562865830895993*^9, 3.562865952305235*^9}, { 3.562865993699954*^9, 3.5628664698595057`*^9}, {3.562868184140327*^9, 3.562868197434656*^9}, {3.562868795599467*^9, 3.562868798239731*^9}, 3.562869309937896*^9, {3.5628693835472555`*^9, 3.562869404278329*^9}, { 3.5628694396558657`*^9, 3.5628696607929773`*^9}, {3.5628696924171395`*^9, 3.5628697672236195`*^9}, {3.5628699837341127`*^9, 3.562870173308153*^9}, { 3.562870316659693*^9, 3.5628704040426927`*^9}, {3.5628706163306923`*^9, 3.5628707293776927`*^9}, {3.562870769617693*^9, 3.562870856409693*^9}, { 3.5628709136546926`*^9, 3.562870935084693*^9}, {3.5629395740338125`*^9, 3.5629395834916487`*^9}, {3.5629396151791525`*^9, 3.562939645522252*^9}, 3.562939718563158*^9, {3.5629397510198927`*^9, 3.562939774657982*^9}, { 3.562939826587722*^9, 3.56293986617268*^9}, {3.5629398977758403`*^9, 3.5629399401520777`*^9}, {3.562939978128875*^9, 3.562939978930955*^9}, { 3.5629404515183063`*^9, 3.5629404522983265`*^9}, {3.562940841370778*^9, 3.562940848671672*^9}, {3.5629443936876926`*^9, 3.5629445342083845`*^9}, { 3.562947797806187*^9, 3.5629478140515623`*^9}, {3.563200316766032*^9, 3.563200340780032*^9}, {3.563200371650032*^9, 3.5632003894720325`*^9}, { 3.5632015276588135`*^9, 3.5632015382978773`*^9}, {3.5632123785538416`*^9, 3.5632124617891645`*^9}, {3.563212493703356*^9, 3.563212495381523*^9}, { 3.56354116819516*^9, 3.5635411730636473`*^9}, {3.563541969988332*^9, 3.5635421481836715`*^9}, {3.563542197636671*^9, 3.5635422495696716`*^9}, { 3.5635422849046717`*^9, 3.5635423759696712`*^9}, {3.5635424345976715`*^9, 3.5635426627696123`*^9}, {3.5635427040107355`*^9, 3.563542707871122*^9}, 3.563542746135948*^9, {3.5635428027056046`*^9, 3.5635428054258766`*^9}, { 3.5635428907364063`*^9, 3.563542895505883*^9}, {3.5635429506794004`*^9, 3.563542977802112*^9}, {3.5635431621605463`*^9, 3.5635432945207806`*^9}, { 3.5635433271400423`*^9, 3.56354335931826*^9}, {3.563543392288557*^9, 3.5635435984371696`*^9}, 3.5752140643059525`*^9, {3.5752145507805953`*^9, 3.5752145557120886`*^9}, {3.575215757171222*^9, 3.575215766492154*^9}, { 3.5752158024287477`*^9, 3.5752158061681213`*^9}, {3.5752160117666793`*^9, 3.575216079323434*^9}, 3.5752161224597473`*^9, {3.575218995578049*^9, 3.5752191298274727`*^9}, {3.57521921390688*^9, 3.5752193545959473`*^9}, { 3.5752379381707478`*^9, 3.5752380260757475`*^9}, {3.575238059649748*^9, 3.5752380772977476`*^9}, {3.5752383123517475`*^9, 3.5752383170197477`*^9}, {3.5752385562437477`*^9, 3.575238561123748*^9}, { 3.5752386002717476`*^9, 3.575238606050748*^9}, {3.575238654621748*^9, 3.575238736345748*^9}, {3.575238800911748*^9, 3.575238888748748*^9}, { 3.5752389233377476`*^9, 3.575239038683748*^9}, {3.575239078175748*^9, 3.575239111199748*^9}, {3.5752392391727476`*^9, 3.5752392796157475`*^9}, { 3.5752393570757475`*^9, 3.5752394926397476`*^9}, {3.575239616452748*^9, 3.575239681378748*^9}, {3.5752397172967477`*^9, 3.575239812992748*^9}, { 3.5752399098417478`*^9, 3.575239928083748*^9}, {3.575240027569748*^9, 3.575240131011748*^9}, {3.575240233472748*^9, 3.5752402960067477`*^9}, { 3.575240444640748*^9, 3.5752404514767475`*^9}, {3.5752405031867476`*^9, 3.5752405207717476`*^9}, {3.575240561636748*^9, 3.5752405734627476`*^9}, { 3.575240627781748*^9, 3.575240632642748*^9}, {3.575240903386748*^9, 3.575240935767748*^9}, {3.5752410226467476`*^9, 3.5752410296537476`*^9}, { 3.575241169704748*^9, 3.575241172070748*^9}, {3.5752413298637476`*^9, 3.575241386086748*^9}, {3.575241418788748*^9, 3.575241419465748*^9}, { 3.5752415427907476`*^9, 3.575241550274748*^9}, {3.575241909213748*^9, 3.575241968654748*^9}, {3.5752425248777475`*^9, 3.575242527836748*^9}, { 3.575242575872748*^9, 3.5752425995397477`*^9}, {3.5752426422307477`*^9, 3.575242675279748*^9}, {3.5752427067317476`*^9, 3.5752427735827475`*^9}, { 3.575242836336748*^9, 3.575242839725748*^9}, 3.575243042360748*^9, { 3.575243119558748*^9, 3.5752431204937477`*^9}, {3.575243245303748*^9, 3.5752432595237474`*^9}, {3.575243316326748*^9, 3.575243395768748*^9}, { 3.5752434438157477`*^9, 3.5752435510007477`*^9}, 3.575243600897748*^9, { 3.575243787689748*^9, 3.5752437973747478`*^9}, {3.575243874306748*^9, 3.575243947997748*^9}, {3.5752440647317476`*^9, 3.575244101524748*^9}, { 3.575244141586748*^9, 3.5752441507977476`*^9}, {3.5752441950097475`*^9, 3.5752442153117476`*^9}, {3.575244250897748*^9, 3.5752443068047476`*^9}, { 3.575244349895748*^9, 3.575244351333748*^9}, {3.5752444496727476`*^9, 3.5752444900997477`*^9}, {3.575244523590748*^9, 3.575244533055748*^9}, 3.575244563383748*^9, {3.575244602084748*^9, 3.5752448407977476`*^9}, { 3.5752449432927475`*^9, 3.5752449442197475`*^9}, {3.575244983081748*^9, 3.575245002201748*^9}, {3.5752451094837475`*^9, 3.5752451881277475`*^9}, { 3.575245238706748*^9, 3.5752452764907475`*^9}, {3.5752453710527477`*^9, 3.5752453860137477`*^9}, {3.575245554551748*^9, 3.575245573371748*^9}, { 3.575245835418748*^9, 3.575245879018748*^9}, {3.575245910873748*^9, 3.5752459698047476`*^9}, {3.575246023305748*^9, 3.575246102557748*^9}, { 3.575246153852748*^9, 3.575246199786748*^9}, {3.575246232586748*^9, 3.575246433956748*^9}, {3.575246477923748*^9, 3.575246560333748*^9}, { 3.5752465965917478`*^9, 3.575246620024748*^9}, {3.575247043935748*^9, 3.5752471059407477`*^9}, {3.5752471845357475`*^9, 3.5752472201257477`*^9}, {3.5752473056607475`*^9, 3.5752473065097475`*^9}, {3.575282593537757*^9, 3.5752825964357567`*^9}, { 3.5752826874807568`*^9, 3.575282798998757*^9}, {3.575282841044757*^9, 3.575282841275757*^9}, {3.575283019216199*^9, 3.5752830200162783`*^9}, { 3.575284955219551*^9, 3.575285163194589*^9}, {3.5752851947187414`*^9, 3.5752852841586847`*^9}, {3.575285317669035*^9, 3.575285335532821*^9}, { 3.575285415289796*^9, 3.5752854556278296`*^9}, {3.575285662020467*^9, 3.575285768034067*^9}, {3.5752858125435176`*^9, 3.5752858581980824`*^9}, { 3.5752862353937984`*^9, 3.575286267080967*^9}, {3.575321897166*^9, 3.5753219255*^9}, {3.575322011826*^9, 3.575322138*^9}, {3.575322179125*^9, 3.5753221805620003`*^9}, {3.5753223092200003`*^9, 3.575322312451*^9}, 3.575322485508*^9, {3.575322520415*^9, 3.575322568255*^9}, { 3.575365108498316*^9, 3.5753651120096674`*^9}, {3.5753651577892447`*^9, 3.5753651586673326`*^9}, {3.5753652286483297`*^9, 3.5753653748059444`*^9}, {3.575365416647128*^9, 3.5753654447439375`*^9}, { 3.5753654789223547`*^9, 3.575365551793641*^9}, {3.5753655939258537`*^9, 3.575365594216883*^9}, {3.5753657490278416`*^9, 3.575365816214842*^9}, 3.5753659281008415`*^9, 3.5753659643608418`*^9, {3.5753784193617935`*^9, 3.5753784225837936`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"For G=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "0"}, {"1", "1", "0"}, {"1", "1", "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$]]]}], SequenceForm["For G=", MatrixForm[{{1, 1, 0}, {1, 1, 0}, {1, 1, 1}}]], Editable->False]], "Print", CellChangeTimes->{{3.575246204897748*^9, 3.575246434603748*^9}, 3.5752464815617476`*^9, {3.5752465191487474`*^9, 3.575246561036748*^9}, { 3.575246598202748*^9, 3.5752466206157475`*^9}, {3.575247044954748*^9, 3.575247107070748*^9}, 3.5752471886797476`*^9, 3.5752472204157476`*^9, { 3.5752472833747478`*^9, 3.575247341971748*^9}, 3.575282505783757*^9, 3.5752831183171077`*^9, 3.5752849346715508`*^9, {3.5752853667899466`*^9, 3.5752853802942967`*^9}, 3.575285456744941*^9, {3.5752857460368676`*^9, 3.575285769506214*^9}, {3.5752858397172346`*^9, 3.5752858452927923`*^9}, { 3.575286236326892*^9, 3.575286257324991*^9}, {3.575322019762*^9, 3.575322073516*^9}, {3.5753221817130003`*^9, 3.575322188502*^9}, 3.5753223133120003`*^9, {3.575322488578*^9, 3.5753224961870003`*^9}, { 3.5753225281219997`*^9, 3.575322542988*^9}, 3.575322588863*^9, 3.575365113048771*^9, 3.5753651592873945`*^9, {3.575365260163481*^9, 3.575365288995364*^9}, {3.57536544707317*^9, 3.5753654795214148`*^9}, { 3.5753655424447064`*^9, 3.575365557606222*^9}, {3.5753655904395056`*^9, 3.57536559988445*^9}, 3.5753657645778418`*^9, {3.575365800134842*^9, 3.5753658372968416`*^9}, 3.5753784236177936`*^9}], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsComplexBox[CompressedData[" 1:eJw9kHs0FPgDxVmhBzVa1o48o5Ycrzzy7JZKQ21CitrNJhLLJlaUSEvUyiul LdVSKpRkJzVm5euZVBIVsYSZMZiHeeQ1SbbfOb+z95x77jmfv+69BoGHvIO/ kpOTO/jF/0ulrHyS1doPuf9LtXz4vnROhBQrZ23Obf5/fCxk0fjHRj7ubVi3 ZMtwP2j653T3MeZqYp87Oxe+G0ClrszRrD6KmBWzF82UDCL6a91HdyxySE7c CoORnSwob7dctNv1Oskfv3zpTDsL75MnbHfm3CNPK439FlDY+KtCq1Nx40Ny 1chJLkiVjSHXwqP9yY9J5Ko4blsLCwX3bTllDvVEFq5TyfBgIc/Oae981yYi y0vT2X55EP43FkVWXWkmHw/GplQ/GcBMp/sPodQWErq5hyuo64e6Nn9J1qUW Evuh3/HdZB92MUZXspe2kIZuxU5Vr15cYafPrs5uJoNWk68CpT2wLDUZ+M2y ifSdWfxmarIbz1MtjHKM6onPT0iZiuqGZYj5yR7fx0QhiHFwOrIbXm4qP3I1 HpLFJ68mGUq6Eer5ZxTN+R6xi1stsxztQa1R9pTnTCEJc1SgOW3qhX6Ac/C8 lmxywNqFuWu0DwUrDdmruYeJuP0l/TW9HyqesXpKSuM1x7ZxL/K//Jv2wYrZ R2XCTUv+QKnOIGx3hFF4qbW463Mt5LuwQRRvOH2DOdmAjjtvCz1qBtH7VrFu 655mEP12uozKwsZLQ9Rs+jNQvl3ar5nAgrxk2jHucyvS9vxKSR1m4fM/KZGJ V19B20gwutyfDa2R7hWqNh1I/r4h8nLLKLqUFX+eMeFA2/O1j6srDwourU4m Eg7WJTwKb6vj4WZ3JWWOPoS8+etrqDQ+hE0/vUEUFx59AeZTb/iYX2A7WG46 DPMHvrlOBwVQnVBX1xgYhlVuZh1DXoj3nufe22WNgBOsdXltoRAGIeV+7+1H oWncNv1SVQT1DxNBxUEj2PLDg1WUljHEXTH4wyR1GEPLNU1yj48hX393tG0p F+RZ/9gh4zEsrv7Ip7QPocOX01v7Qgib5/UacjMcnNx7o+J6qBAbJxJU3Yw5 WLhsfZLNnACpDTK20ZfdMd4tty5mCBDn4nmmL4MFVROpnr4OF4xbvY3Xp1oR 8x3LOa5oCModf5/k9zzDdtmsId9oCMkBVPPzbc2Yifi1o+AaB4H3IvRyOhux +ZJvYIMaBxObtASvxHUIrA+YTUxko5HtsD5ubQ0C2Cvb5IdYcFD1FIY2MXCX kj8Zv4kFI58D2uZxdCwu7mplykS4oLHB3pjOh2l1wbXk2yJMvNN78+1ZAaL6 To+EXRDhmz21osBoIcJ+sdjIaRRB47Sy/dGdY9jWlRNBoYpxZO90kZGhCAo6 JS/Mw8TYMCFI+vhUhDSx99ktbWLMMGrrduqIEa1pFu6xTgKTDMX4rDVi+AqP Gi97IMG7zYc+qViJ4RT9IC/aQArn1o+SHQvFSJWjhmSekCKCs/HtvAwRFjgY rO1/IsXzhZorVDrH8Fm+kV4mkcLiz5iZ8M9C0NaQlt8/SRHvQ5NGaQqRHiIO v8iVYivjiLjIWgA3yPzzKqRQG77KpAXzkWrTONG8T4o3ky6P+dU8FOdsk8ud /dIncMZ4CY2HRp19y+UzJLh9zL1oKYWHIyq7B6lUCariq15FU3lQExnamdwR oyDGWz1qPw+7l+XdktsqxoK6WBXdER78EhysXBXEoJQaRry+woeRld+Kry96 EOsOBm2yio/upGl/d7Nc4iVfcsFDiQ+xab7Pw99vEvsF+cdlv/Fw/q5ZVWZx BWFLBo+kO/JATq1xOTHMIHZZiS/aVvPQE11nul9IyKdyXVpwOA8qjaFrvtJo ICWHYo+VsXgoePZzR3FmE7E0PXXO9Cwf856WSdotm4l9maHF5j0CfP/3FqUP 3c1keUL2mf0QQttKfUX88Wai0Rd63mblGPSPdV0c1XtClk6m/2U3O4YuQQrP eqCB2Hh0slbRRbjR4d6axq8lojmLw9XaYrDa/SrMZplEPrPolzJXMXh9Waci CZ2E+Rh6/0gT47VX6bhacAnhqnns2GUmRrlyFX38yiUSpNDz6OywCOUpNw8z BTGkLtF/KnudCAWCLqbx1AmouHm46keP4QlJsSqISkfaHz4GlVlC/OOXd98/ ORXSpIqwjGIBqC/PpXpZuYPps7bc+hUf/wLse1gF "], { {RGBColor[0.5, 0., 0.], Arrowheads[{{0.0415821958114814, 0.7}}], ArrowBox[{1, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 1}], ArrowBox[{1, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 2}], ArrowBox[{1, 3}], ArrowBox[{2, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 1}], ArrowBox[{2, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 2}], ArrowBox[{2, 3}], ArrowBox[{3, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 3}]}, {InsetBox[ FrameBox["1", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 1], InsetBox[ FrameBox["2", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 2], InsetBox[ FrameBox["3", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 3]}}], Annotation[#, VertexCoordinateRules -> {{0.4969214793365925, 0.}, {0.9999936537910529, 0.8642445136515993}, {0., 0.8677954451079566}}]& ], AspectRatio->Automatic, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Print", CellChangeTimes->{{3.575246204897748*^9, 3.575246434603748*^9}, 3.5752464815617476`*^9, {3.5752465191487474`*^9, 3.575246561036748*^9}, { 3.575246598202748*^9, 3.5752466206157475`*^9}, {3.575247044954748*^9, 3.575247107070748*^9}, 3.5752471886797476`*^9, 3.5752472204157476`*^9, { 3.5752472833747478`*^9, 3.575247341971748*^9}, 3.575282505783757*^9, 3.5752831183171077`*^9, 3.5752849346715508`*^9, {3.5752853667899466`*^9, 3.5752853802942967`*^9}, 3.575285456744941*^9, {3.5752857460368676`*^9, 3.575285769506214*^9}, {3.5752858397172346`*^9, 3.5752858452927923`*^9}, { 3.575286236326892*^9, 3.575286257324991*^9}, {3.575322019762*^9, 3.575322073516*^9}, {3.5753221817130003`*^9, 3.575322188502*^9}, 3.5753223133120003`*^9, {3.575322488578*^9, 3.5753224961870003`*^9}, { 3.5753225281219997`*^9, 3.575322542988*^9}, 3.575322588863*^9, 3.575365113048771*^9, 3.5753651592873945`*^9, {3.575365260163481*^9, 3.575365288995364*^9}, {3.57536544707317*^9, 3.5753654795214148`*^9}, { 3.5753655424447064`*^9, 3.575365557606222*^9}, {3.5753655904395056`*^9, 3.57536559988445*^9}, 3.5753657645778418`*^9, {3.575365800134842*^9, 3.5753658372968416`*^9}, 3.5753784236497936`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"For P=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox["1", "3"], FractionBox["1", "3"], "0"}, { FractionBox["1", "3"], FractionBox["1", "3"], "0"}, { FractionBox["1", "3"], FractionBox["1", "3"], "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$]]]}], SequenceForm["For P=", MatrixForm[{{ Rational[1, 3], Rational[1, 3], 0}, { Rational[1, 3], Rational[1, 3], 0}, { Rational[1, 3], Rational[1, 3], 1}}]], Editable->False]], "Print", CellChangeTimes->{{3.575246204897748*^9, 3.575246434603748*^9}, 3.5752464815617476`*^9, {3.5752465191487474`*^9, 3.575246561036748*^9}, { 3.575246598202748*^9, 3.5752466206157475`*^9}, {3.575247044954748*^9, 3.575247107070748*^9}, 3.5752471886797476`*^9, 3.5752472204157476`*^9, { 3.5752472833747478`*^9, 3.575247341971748*^9}, 3.575282505783757*^9, 3.5752831183171077`*^9, 3.5752849346715508`*^9, {3.5752853667899466`*^9, 3.5752853802942967`*^9}, 3.575285456744941*^9, {3.5752857460368676`*^9, 3.575285769506214*^9}, {3.5752858397172346`*^9, 3.5752858452927923`*^9}, { 3.575286236326892*^9, 3.575286257324991*^9}, {3.575322019762*^9, 3.575322073516*^9}, {3.5753221817130003`*^9, 3.575322188502*^9}, 3.5753223133120003`*^9, {3.575322488578*^9, 3.5753224961870003`*^9}, { 3.5753225281219997`*^9, 3.575322542988*^9}, 3.575322588863*^9, 3.575365113048771*^9, 3.5753651592873945`*^9, {3.575365260163481*^9, 3.575365288995364*^9}, {3.57536544707317*^9, 3.5753654795214148`*^9}, { 3.5753655424447064`*^9, 3.575365557606222*^9}, {3.5753655904395056`*^9, 3.57536559988445*^9}, 3.5753657645778418`*^9, {3.575365800134842*^9, 3.5753658372968416`*^9}, 3.5753784236517935`*^9}], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{{{ArrowBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQzdY/e3//2fv2DFCwztmB3/v5fXsPhUlyiTv+7ys/ bWOz8MYD+61yP610DxXt113xmPv3yof2xcJy21frT9w/sUJV8UXYI3v2AAPu KKdF+2d/mTWz8+Ij+3vNX03DJq7bf2KrRgSnwGP7TRulrrG6bNs/V8WaIYX3 sf1Tp4WV95v37i/Qqnh2/uQj+wUbTJ+stTy0/2eO7NYdXo/sp5lZx3E4Hd3/ c1q7bMCsh/aRi7kLds45vv9XRnnLnmMP7H9f84zJlDy5P9P91rM3B+/bi8i8 5u+feXJ/+ef7Vje+3bUP3/FS7bHQyf2Hb7Je4w28Yz/ncfdfownH9z80/HYh 6dMte4NVmg+aDI7uv9vJd+X7t5v2p9v0VSaqHNofnGDf8r3opr1Bul7jrdC9 +5lTdmT8KLhpH+jGE/tMdNt+vsa5Dcofb9pn+s8v8rBZt9+swuinwctb9gdU Jnz3/71wf5YVs4e16x17hXibVJaTE/anGdvuCn95136BmvJjo2eF+z9cPLf5 8ub79jz+5fJsbF/2oYc/AAFuylM= "], 0.1], InsetBox["0.33`", {0.49621126693920425`, -0.1999987437941121}, Background->GrayLevel[1]]}, { ArrowBox[{{0.4969214793365925, 0.}, {0.526479527167296, 0.101957185704988}, {0.5348712913772224, 0.12911725808649668`}, { 0.5442082427785997, 0.15596707329725956`}, {0.5544789467652385, 0.18247374939862382`}, {0.5656708251999801, 0.2086048246812401}, { 0.5777701718186581, 0.23432829741967257`}, {0.590762169015634, 0.25961266506368463`}, {0.604630905990351, 0.28442696281820334`}, { 0.8058597757721347, 0.6301247682788426}, {0.8205882680144643, 0.6544386070253555}, {0.8361584781049842, 0.6782222105382983}, { 0.8525513378047147, 0.7014464519508558}, {0.8697467714072584, 0.7240828894255182}, {0.8877237203247483, 0.7461038009857092}, { 0.9064601688774926, 0.7674822184658259}, {0.9259331712557324, 0.7881919605381179}, {0.9999936537910529, 0.8642445136515993}}, 0.1], InsetBox["0.33`", {0.7052453408812427, 0.4572758655485226}, Background->GrayLevel[1]]}, { ArrowBox[{{0.4969214793365925, 0.}, {0., 0.8677954451079566}}, 0.1], InsetBox["0.33`", {0.24846073966829624`, 0.4338977225539783}, Background->GrayLevel[1]]}, { ArrowBox[{{0.9999936537910529, 0.8642445136515993}, { 0.9704356059603495, 0.7622873279466114}, {0.962043841750423, 0.7351272555651027}, {0.9527068903490458, 0.7082774403543398}, { 0.942436186362407, 0.6817707642529756}, {0.9312443079276653, 0.6556396889703593}, {0.9191449613089874, 0.6299162162319267}, { 0.9061529641120114, 0.6046318485879147}, {0.8922842271372945, 0.579817550833396}, {0.6910553573555106, 0.23411974537275682`}, { 0.6763268651131812, 0.20980590662624385`}, {0.6607566550226611, 0.18602230311330112`}, {0.6443637953229308, 0.16279806170074368`}, { 0.627168361720387, 0.14016162422608117`}, {0.609191412802897, 0.11814071266589027`}, {0.5904549642501528, 0.09676229518577352}, { 0.570981961871913, 0.07605255311348152}, {0.4969214793365925, 0.}}, 0.1], InsetBox["0.33`", {0.7916697922464027, 0.4069686481030766}, Background->GrayLevel[1]]}, {ArrowBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAADa/nsPL/7z+EMTwc5KfrPw6o1826 +e8/lRVDOCiz6z8rvKCeg6fvP/XYH9QYjOw/ct2I6GqV7z8WW8DvYnPtP2pu L0TkxO8/FYgHOHlW7j9O15FtEBnwP3Ze+KQkI+8/Ax2pzC5q8D9D9eyA+sjv P4fwUoxLz/A/+7jAwVYd8D9zFy1sSkDxPymNBXuPN/A/Ve15KBu08T/YR2/8 DDHwPztztJZzIfI/PM368VQK8D+GABlnjn/yP23kRNUEje8/CTkhPt/G8j/L ChclDNbuP/4BxLOt8fI/L591+2z+7T9IN7/JivzyP3tTSPJyF+0/i2fwbJfm 8j9MuHbwpDPsP0Y/+VmWsfI/Eeedukhl6z+GNMT1x2HyP9T2Pb3rvOo/qJFO AJP98T/YYvsoD0jqP8QdYSIBjfE/p3pJpBIQ6j92DFrhGRnxP7l7udBzGeo/ Ee8jNimr8D+gdVIUcmPqP1oblqYATPA/CcF3DB7o6j9YfTkxQgPwPxCqI23T nOs/Da/nsPL/7z+EMTwc5KfrP7NVzKA= "], 0.1], InsetBox["0.33`", {1.1735527445740124`, 0.9636288380064227}, Background->GrayLevel[1]]}, { ArrowBox[{{0.9999936537910529, 0.8642445136515993}, {0., 0.8677954451079566}}, 0.1], InsetBox["0.33`", {0.49999682689552644`, 0.8660199793797779}, Background->GrayLevel[1]]}, {ArrowBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPv0rm//Dry2l7FMEJVeLrXfuNLOzy+7Xxtf7Ph R6Sn7uT9gYwrp3qxvbb/oD07eFvX0v0WnLNrfja9sp+yRndn34qN+x9/fFjW bfXKfn+ruW398x37zfrrzpw3emV/q/igdvLb/fv/rJfzSM15Zc9zJNOcSfTw /pX55VVrH72yX3Aq+9KKvqP7DbRbJ2n3vLZnObH240WD4/st1irru0e/sffd 7c32+ebx/Uq1EzqT7d/ayxiKqFbXHN8vejdzionaO3uFquvTX8of2y/0rXuT 2d939tfftLwyfnB4v4nXtUdam9/bL77kebb99YH97//rF+6R+WD/6GLERt2/ u/Yz9i3JW+v0wf7V3f7Wgv2b92cFKwfFenywvxy46otg6sr9zwS9QsJ1P9iv Z9+5+cucmftTmG9t73n+3n59y9LCXW9K9x+si/w+weG9/YI313dpfK+353Hz clIofmd/bH+L4YKibvv2GcGKW/vf2t+OmLYhsrnN/lPDxqzeFW/sJc9Nags0 9LTfFWy33vjCa3v08AcAV+XQvg== "], 0.1], InsetBox["1.`", {-0.1728488913931452, 0.9684098708382314}, Background->GrayLevel[1]]}}, GraphicsComplexBox[CompressedData[" 1:eJw9kHs0FPgDxVmhBzVa1o48o5Ycrzzy7JZKQ21CitrNJhLLJlaUSEvUyiul LdVSKpRkJzVm5euZVBIVsYSZMZiHeeQ1SbbfOb+z95x77jmfv+69BoGHvIO/ kpOTO/jF/0ulrHyS1doPuf9LtXz4vnROhBQrZ23Obf5/fCxk0fjHRj7ubVi3 ZMtwP2j653T3MeZqYp87Oxe+G0ClrszRrD6KmBWzF82UDCL6a91HdyxySE7c CoORnSwob7dctNv1Oskfv3zpTDsL75MnbHfm3CNPK439FlDY+KtCq1Nx40Ny 1chJLkiVjSHXwqP9yY9J5Ko4blsLCwX3bTllDvVEFq5TyfBgIc/Oae981yYi y0vT2X55EP43FkVWXWkmHw/GplQ/GcBMp/sPodQWErq5hyuo64e6Nn9J1qUW Evuh3/HdZB92MUZXspe2kIZuxU5Vr15cYafPrs5uJoNWk68CpT2wLDUZ+M2y ifSdWfxmarIbz1MtjHKM6onPT0iZiuqGZYj5yR7fx0QhiHFwOrIbXm4qP3I1 HpLFJ68mGUq6Eer5ZxTN+R6xi1stsxztQa1R9pTnTCEJc1SgOW3qhX6Ac/C8 lmxywNqFuWu0DwUrDdmruYeJuP0l/TW9HyqesXpKSuM1x7ZxL/K//Jv2wYrZ R2XCTUv+QKnOIGx3hFF4qbW463Mt5LuwQRRvOH2DOdmAjjtvCz1qBtH7VrFu 655mEP12uozKwsZLQ9Rs+jNQvl3ar5nAgrxk2jHucyvS9vxKSR1m4fM/KZGJ V19B20gwutyfDa2R7hWqNh1I/r4h8nLLKLqUFX+eMeFA2/O1j6srDwourU4m Eg7WJTwKb6vj4WZ3JWWOPoS8+etrqDQ+hE0/vUEUFx59AeZTb/iYX2A7WG46 DPMHvrlOBwVQnVBX1xgYhlVuZh1DXoj3nufe22WNgBOsdXltoRAGIeV+7+1H oWncNv1SVQT1DxNBxUEj2PLDg1WUljHEXTH4wyR1GEPLNU1yj48hX393tG0p F+RZ/9gh4zEsrv7Ip7QPocOX01v7Qgib5/UacjMcnNx7o+J6qBAbJxJU3Yw5 WLhsfZLNnACpDTK20ZfdMd4tty5mCBDn4nmmL4MFVROpnr4OF4xbvY3Xp1oR 8x3LOa5oCModf5/k9zzDdtmsId9oCMkBVPPzbc2Yifi1o+AaB4H3IvRyOhux +ZJvYIMaBxObtASvxHUIrA+YTUxko5HtsD5ubQ0C2Cvb5IdYcFD1FIY2MXCX kj8Zv4kFI58D2uZxdCwu7mplykS4oLHB3pjOh2l1wbXk2yJMvNN78+1ZAaL6 To+EXRDhmz21osBoIcJ+sdjIaRRB47Sy/dGdY9jWlRNBoYpxZO90kZGhCAo6 JS/Mw8TYMCFI+vhUhDSx99ktbWLMMGrrduqIEa1pFu6xTgKTDMX4rDVi+AqP Gi97IMG7zYc+qViJ4RT9IC/aQArn1o+SHQvFSJWjhmSekCKCs/HtvAwRFjgY rO1/IsXzhZorVDrH8Fm+kV4mkcLiz5iZ8M9C0NaQlt8/SRHvQ5NGaQqRHiIO v8iVYivjiLjIWgA3yPzzKqRQG77KpAXzkWrTONG8T4o3ky6P+dU8FOdsk8ud /dIncMZ4CY2HRp19y+UzJLh9zL1oKYWHIyq7B6lUCariq15FU3lQExnamdwR oyDGWz1qPw+7l+XdktsqxoK6WBXdER78EhysXBXEoJQaRry+woeRld+Kry96 EOsOBm2yio/upGl/d7Nc4iVfcsFDiQ+xab7Pw99vEvsF+cdlv/Fw/q5ZVWZx BWFLBo+kO/JATq1xOTHMIHZZiS/aVvPQE11nul9IyKdyXVpwOA8qjaFrvtJo ICWHYo+VsXgoePZzR3FmE7E0PXXO9Cwf856WSdotm4l9maHF5j0CfP/3FqUP 3c1keUL2mf0QQttKfUX88Wai0Rd63mblGPSPdV0c1XtClk6m/2U3O4YuQQrP eqCB2Hh0slbRRbjR4d6axq8lojmLw9XaYrDa/SrMZplEPrPolzJXMXh9Waci CZ2E+Rh6/0gT47VX6bhacAnhqnns2GUmRrlyFX38yiUSpNDz6OywCOUpNw8z BTGkLtF/KnudCAWCLqbx1AmouHm46keP4QlJsSqISkfaHz4GlVlC/OOXd98/ ORXSpIqwjGIBqC/PpXpZuYPps7bc+hUf/wLse1gF "], {InsetBox[ FrameBox["1", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 1], InsetBox[ FrameBox["2", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 2], InsetBox[ FrameBox["3", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 3]}]}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4969214793365925, 0.}, {0.9999936537910529, 0.8642445136515993}, {0., 0.8677954451079566}}]& ], AspectRatio->Automatic, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Print", CellChangeTimes->{{3.575246204897748*^9, 3.575246434603748*^9}, 3.5752464815617476`*^9, {3.5752465191487474`*^9, 3.575246561036748*^9}, { 3.575246598202748*^9, 3.5752466206157475`*^9}, {3.575247044954748*^9, 3.575247107070748*^9}, 3.5752471886797476`*^9, 3.5752472204157476`*^9, { 3.5752472833747478`*^9, 3.575247341971748*^9}, 3.575282505783757*^9, 3.5752831183171077`*^9, 3.5752849346715508`*^9, {3.5752853667899466`*^9, 3.5752853802942967`*^9}, 3.575285456744941*^9, {3.5752857460368676`*^9, 3.575285769506214*^9}, {3.5752858397172346`*^9, 3.5752858452927923`*^9}, { 3.575286236326892*^9, 3.575286257324991*^9}, {3.575322019762*^9, 3.575322073516*^9}, {3.5753221817130003`*^9, 3.575322188502*^9}, 3.5753223133120003`*^9, {3.575322488578*^9, 3.5753224961870003`*^9}, { 3.5753225281219997`*^9, 3.575322542988*^9}, 3.575322588863*^9, 3.575365113048771*^9, 3.5753651592873945`*^9, {3.575365260163481*^9, 3.575365288995364*^9}, {3.57536544707317*^9, 3.5753654795214148`*^9}, { 3.5753655424447064`*^9, 3.575365557606222*^9}, {3.5753655904395056`*^9, 3.57536559988445*^9}, 3.5753657645778418`*^9, {3.575365800134842*^9, 3.5753658372968416`*^9}, 3.575378423680794*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"For P=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox["1", "3"], FractionBox["1", "3"], "0"}, { FractionBox["1", "3"], FractionBox["1", "3"], "0"}, { FractionBox["1", "3"], FractionBox["1", "3"], "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$]]], "\[InvisibleSpace]", "\<\", we find \\!\\(\\*SubscriptBox[\\(\[Lambda]\\), \ \\(1\\)]\\)=\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" with \\!\\(\\*SubscriptBox[\\(v\\), \ \\(1\\)]\\)=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, {"1"} }, 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$]]], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"1.`"} }, 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$]]]}], SequenceForm["For P=", MatrixForm[{{ Rational[1, 3], Rational[1, 3], 0}, { Rational[1, 3], Rational[1, 3], 0}, { Rational[1, 3], Rational[1, 3], 1}}], ", we find \!\(\*SubscriptBox[\(\[Lambda]\), \(1\)]\)=", 1, " with \!\(\*SubscriptBox[\(v\), \(1\)]\)=", MatrixForm[{0, 0, 1}], "=", MatrixForm[{0., 0., 1.}]], Editable->False]], "Print", CellChangeTimes->{{3.575246204897748*^9, 3.575246434603748*^9}, 3.5752464815617476`*^9, {3.5752465191487474`*^9, 3.575246561036748*^9}, { 3.575246598202748*^9, 3.5752466206157475`*^9}, {3.575247044954748*^9, 3.575247107070748*^9}, 3.5752471886797476`*^9, 3.5752472204157476`*^9, { 3.5752472833747478`*^9, 3.575247341971748*^9}, 3.575282505783757*^9, 3.5752831183171077`*^9, 3.5752849346715508`*^9, {3.5752853667899466`*^9, 3.5752853802942967`*^9}, 3.575285456744941*^9, {3.5752857460368676`*^9, 3.575285769506214*^9}, {3.5752858397172346`*^9, 3.5752858452927923`*^9}, { 3.575286236326892*^9, 3.575286257324991*^9}, {3.575322019762*^9, 3.575322073516*^9}, {3.5753221817130003`*^9, 3.575322188502*^9}, 3.5753223133120003`*^9, {3.575322488578*^9, 3.5753224961870003`*^9}, { 3.5753225281219997`*^9, 3.575322542988*^9}, 3.575322588863*^9, 3.575365113048771*^9, 3.5753651592873945`*^9, {3.575365260163481*^9, 3.575365288995364*^9}, {3.57536544707317*^9, 3.5753654795214148`*^9}, { 3.5753655424447064`*^9, 3.575365557606222*^9}, {3.5753655904395056`*^9, 3.57536559988445*^9}, 3.5753657645778418`*^9, {3.575365800134842*^9, 3.5753658372968416`*^9}, 3.5753784236817937`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"q=\"\>", "\[InvisibleSpace]", FractionBox["1", "3"], "\[InvisibleSpace]", "\<\". There is at least one absorbing state in the \ Markov chain. I will adjust P using P*(1-q)+q/n.\"\>"}], SequenceForm["q=", Rational[1, 3], ". There is at least one absorbing state in the Markov chain. I will \ adjust P using P*(1-q)+q/n."], Editable->False]], "Print", CellChangeTimes->{{3.575246204897748*^9, 3.575246434603748*^9}, 3.5752464815617476`*^9, {3.5752465191487474`*^9, 3.575246561036748*^9}, { 3.575246598202748*^9, 3.5752466206157475`*^9}, {3.575247044954748*^9, 3.575247107070748*^9}, 3.5752471886797476`*^9, 3.5752472204157476`*^9, { 3.5752472833747478`*^9, 3.575247341971748*^9}, 3.575282505783757*^9, 3.5752831183171077`*^9, 3.5752849346715508`*^9, {3.5752853667899466`*^9, 3.5752853802942967`*^9}, 3.575285456744941*^9, {3.5752857460368676`*^9, 3.575285769506214*^9}, {3.5752858397172346`*^9, 3.5752858452927923`*^9}, { 3.575286236326892*^9, 3.575286257324991*^9}, {3.575322019762*^9, 3.575322073516*^9}, {3.5753221817130003`*^9, 3.575322188502*^9}, 3.5753223133120003`*^9, {3.575322488578*^9, 3.5753224961870003`*^9}, { 3.5753225281219997`*^9, 3.575322542988*^9}, 3.575322588863*^9, 3.575365113048771*^9, 3.5753651592873945`*^9, {3.575365260163481*^9, 3.575365288995364*^9}, {3.57536544707317*^9, 3.5753654795214148`*^9}, { 3.5753655424447064`*^9, 3.575365557606222*^9}, {3.5753655904395056`*^9, 3.57536559988445*^9}, 3.5753657645778418`*^9, {3.575365800134842*^9, 3.5753658372968416`*^9}, 3.5753784236837935`*^9}], Cell[BoxData[ GraphicsBox[ TagBox[GraphicsGroupBox[{{{ArrowBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAABo+bv4/N3z8AAAAAAAAAABPmNQ9L 598/FvLKEWG4/76HXts7odjgPzyhajMtwnK/uOUtC/up4T/SujGwqy+Rv+0M KiDoVuI/olDVA1pCor+KIm6YidHiP90vpSlWka6/cbbiVgkQ4z/ohCLNBUS2 vyI29v5jDeM/oHu9bd+Dvb8PdU7lz8niP5cv3tytOcK/8ukmtLhK4j9L96pV CELFv0Mk2BxQmuE/2ZqIZrmcx79SMR2EvMbgP7hzLVJpGcm/Zvfe5uzB3z9/ GZsFj5nJv6KSnTvY9t0/5vXPHOMSyb+HYm3XDVHcP8nmDfQykMe/pv3q0mLy 2j/ReaDXgjDFv1+daNb39tk//IbgHJEkwr+YoM6G93LZP7gpXXXaVb2/LHJI a/hw2T8BriZU5hW2v7nt+YIj8dk/qj5xZkg8rr8y+Cr7MOnaP17DUfBP+6G/ Y4ZvSTtF3D/BYHleBMmQv/lCALtX6d0/mkbt2zLmcb/YL9mz07PfP+BcZhcG BvS+Bo+bv4/N3z8AAAAAAAAAAH331Qw= "], 0.1], InsetBox["0.33`", {0.4962112669562571, -0.19999873899196172`}, Background->GrayLevel[1]]}, { ArrowBox[{{0.4969214793365925, 0.}, {0.526479527167296, 0.101957185704988}, {0.5348712913772224, 0.12911725808649668`}, { 0.5442082427785997, 0.15596707329725956`}, {0.5544789467652385, 0.18247374939862382`}, {0.5656708251999801, 0.2086048246812401}, { 0.5777701718186581, 0.23432829741967257`}, {0.590762169015634, 0.25961266506368463`}, {0.604630905990351, 0.28442696281820334`}, { 0.8058597757721347, 0.6301247682788426}, {0.8205882680144643, 0.6544386070253555}, {0.8361584781049842, 0.6782222105382983}, { 0.8525513378047147, 0.7014464519508558}, {0.8697467714072584, 0.7240828894255182}, {0.8877237203247483, 0.7461038009857092}, { 0.9064601688774926, 0.7674822184658259}, {0.9259331712557324, 0.7881919605381179}, {0.9999936537910529, 0.8642445136515993}}, 0.1], InsetBox["0.33`", {0.7052453408812427, 0.4572758655485226}, Background->GrayLevel[1]]}, { ArrowBox[{{0.4969214793365925, 0.}, {0.42340300691612226`, 0.07657660694007323}, {0.4040775807809698, 0.09742412237609172}, { 0.3854934387694231, 0.11893506519259622`}, {0.36767334016726283`, 0.1410830917631408}, {0.3506391085656171, 0.16384107824924618`}, { 0.3344116051344465, 0.18718115381792438`}, {0.3190107030746698, 0.21107473477401853`}, {0.3044552632802167, 0.2354925595655579}, { 0.10568667154557997`, 0.58261073760874}, {0.09199451950517853, 0.6075229026624401}, {0.07918242347216253, 0.6328988990054616}, { 0.06726607392903478, 0.658707649628579}, {0.05626006437193552, 0.6849175475450017}, {0.04617787343854736, 0.7114964944982384}, { 0.037031848401324646`, 0.7384119402715997}, {0.028833190046262815`, 0.7656309225512008}, {0., 0.8677954451079566}}, 0.1], InsetBox["0.33`", {0.20507096741289849`, 0.4090516485871487}, Background->GrayLevel[1]]}, { ArrowBox[{{0.9999936537910529, 0.8642445136515993}, { 0.9704356059603495, 0.7622873279466114}, {0.962043841750423, 0.7351272555651027}, {0.9527068903490458, 0.7082774403543398}, { 0.942436186362407, 0.6817707642529756}, {0.9312443079276653, 0.6556396889703593}, {0.9191449613089874, 0.6299162162319267}, { 0.9061529641120114, 0.6046318485879147}, {0.8922842271372945, 0.579817550833396}, {0.6910553573555106, 0.23411974537275682`}, { 0.6763268651131812, 0.20980590662624385`}, {0.6607566550226611, 0.18602230311330112`}, {0.6443637953229308, 0.16279806170074368`}, { 0.627168361720387, 0.14016162422608117`}, {0.609191412802897, 0.11814071266589027`}, {0.5904549642501528, 0.09676229518577352}, { 0.570981961871913, 0.07605255311348152}, {0.4969214793365925, 0.}}, 0.1], InsetBox["0.33`", {0.7916697922464027, 0.4069686481030766}, Background->GrayLevel[1]]}, {ArrowBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAADa/nsPL/7z+EMTwc5KfrP1Mp2s26 +e8/wos+OCiz6z8AXMSeg6fvP/vqw9MYjOw/gcez6GqV7z8kQQfvYnPtP6k4 R0TkxO8/jfPyNnlW7j/au4dtEBnwPylXkaMkI+8/HlR+zC5q8D8EIEN/+sjv P1Js/4tLz/A/rufUwFYd8D90DqxrSkDxP7srD3qPN/A/wTzKJxu08T+9hXv7 DDHwP0u22JVzIfI/DqQW8VQK8D/wWhdmjn/yP5Q2s9MEje8/79gCPd/G8j8R Es8jDNbuP21jlLKt8fI/rYKE+mz+7T9lOIvIivzyP69CtPFyF+0/V0DFa5fm 8j8ZbD7wpDPsPy9y41iWsfI/+ru4ukhl6z+Ijc70x2HyP2CenL3rvOo/mkiB /5L98T/eHYkpD0jqP5YtwSEBjfE/VcPtpBIQ6j/wzOjgGRnxPx/9WdFzGeo/ O/neNSmr8D9mKNUUcmPqP9R6d6YATPA/5QHFDB7o6j+fKjgxQgPwPysfKG3T nOs/Da/nsPL/7z+EMTwc5KfrPzUg0t0= "], 0.1], InsetBox["0.33`", {1.1735527404067019`, 0.9636288356201154}, Background->GrayLevel[1]]}, { ArrowBox[{{0.9999936537910529, 0.8642445136515993}, { 0.8969171335398792, 0.8388639348866846}, {0.8691999431948002, 0.8325513779411945}, {0.8412788497818763, 0.8272125055469361}, { 0.8131880471930772, 0.8228538560161164}, {0.7849619371566898, 0.8194807672196056}, {0.7566350871068412, 0.8170973700498513}, { 0.7282421878500887, 0.8157065833619334}, {0.6998180110809187, 0.815310110398954}, {0.299820549564498, 0.8167304829814968}, { 0.2713999052817671, 0.8173288092886839}, {0.24301759915823107`, 0.8189212021187625}, {0.2147083899153729, 0.8215057113293225}, { 0.18650694675572996`, 0.8250791717710827}, {0.1584478069048518, 0.8296372071641285}, {0.13056533331488485`, 0.8351742354573731}, { 0.10289367258158322`, 0.8416834756646822}, {0., 0.8677954451079566}}, 0.1], InsetBox["0.33`", {0.4998192803227086, 0.8160202966902254}, Background->GrayLevel[1]]}, { ArrowBox[{{0., 0.8677954451079566}, {0.07351847242047033, 0.7912188381678834}, {0.09284389855562279, 0.7703713227318649}, { 0.11142804056716948`, 0.7488603799153605}, {0.12924813916932976`, 0.7267123533448159}, {0.14628237077097547`, 0.7039543668587105}, { 0.16250987420214605`, 0.6806142912900323}, {0.1779107762619228, 0.6567207103339381}, {0.19246621605637587`, 0.6323028855423988}, { 0.3912348077910126, 0.2851847074992166}, {0.4049269598314141, 0.26027254244551656`}, {0.41773905586443005`, 0.23489654610249514`}, { 0.4296554054075578, 0.20908779547937778`}, {0.44066141496465705`, 0.18287789756295503`}, {0.45074360589804524`, 0.15629895060971838`}, { 0.45988963093526797`, 0.129383504836357}, {0.46808828929032975`, 0.10216452255675593`}, {0.4969214793365925, 0.}}, 0.1], InsetBox["0.11`", {0.2918505119236941, 0.4587437965208079}, Background->GrayLevel[1]]}, { ArrowBox[{{0., 0.8677954451079566}, {0.1030765202511738, 0.8931760238728714}, {0.1307937105962528, 0.8994885808183616}, { 0.1587148040091767, 0.90482745321262}, {0.1868056065979758, 0.9091861027434397}, {0.21503171663436318`, 0.9125591915399506}, { 0.24335856668421169`, 0.9149425887097049}, {0.2717514659409644, 0.9163333753976227}, {0.30017564271013436`, 0.9167298483606021}, { 0.700173104226555, 0.9153094757780592}, {0.7285937485092858, 0.9147111494708722}, {0.7569760546328218, 0.9131187566407934}, { 0.78528526387568, 0.9105342474302335}, {0.813486707035323, 0.9069607869884733}, {0.8415458468862012, 0.9024027515954275}, { 0.869428320476168, 0.896865723302183}, {0.8970999812094697, 0.8903564830948738}, {0.9999936537910529, 0.8642445136515993}}, 0.1], InsetBox["0.11`", {0.5001743734683444, 0.9160196620693307}, Background->GrayLevel[1]]}, {ArrowBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPv0rm//Dry2j6Lb5GU8HSv/RVOez2+7Xxt33/X LshTd/L+wEtfp3qxvbavX/rWa1vX0v1pB2Rqfza9so9fKLCpb8XG/WXXGsq7 rV7Z/7TVN65/vmO/y0SFs+eNXtkffvVELvnt/v1L6ld6pOa8si94sVOfSfTw /piZl6rWPnplL792z8kVfUf3n+KdM0m757W9k3nYi4sGx/fPVnyu5x79xv41 x4Y/n24e3x/L+6Mj2f6t/V7VedLVNcf3yxaVTDZRe2fvcPNt30v5Y/uBzI1m f9/ZLzBrfmT84PB+qW8OD7U2v7fneVtxrP31gf27PLwK9sh8sF/eW7lM9++u /bx963PXOn2wL4qaXVuwf/P+Xxw6gbEeH+wNS/JfCaau3O+xKjY4XPeD/fFl 6Su/zJm5P3iq/rae5+/trZouZOx6U7qfLfTT1wkO7+0vF39fq/G93r7vnqmj QvE7+zXaZWoLirrtz52dpbC1/6195MqW5ZHNbfahV0Kzele8sS89mVMTaOhp X3fOcr3xhdf26OEPAHfg0GE= "], 0.1], InsetBox["0.78`", {-0.17284888724288724`, 0.9684098684223884}, Background->GrayLevel[1]]}}, GraphicsComplexBox[CompressedData[" 1:eJw9VAk0lQvXpii3Ig1CyJgMV5K45gch6V6ZSwNFVMrlotKowXdUpuZBkimh pCLJ9BoOJ8pcMg+HM3jPOc5xCsmVz7/Wv7691l57r73WXvtZ+9n7UfULcQtY ICIikj3v/xcXJT4iEhsHIPL/JpnPeiWc4yPawEJx5Bnnf/Wxw0u//6RysIpp tHwHawBrhA0rDhbPVcT49JindQ7CIi3IUK86jChm6C2dyRlCW4nBq+f6Nwne Mh0Vthcd6S5fFu6xTSeuq/394ForHX36T7W9br4k/imie/0mPQx2tFqjuF0R oWY8+ctfchipZ8uDB66UE8tPODOa6+m4r9/fm2daTQhHNQuLnejYMZXrKWFb S2zV6FR0SRpCV9LVwPfJNMLNQCm6rG4QxeF6bkfl64nAqX4mt2oAUfKPxBMf 1hPptx6bd072gTnRrDi8sp6I8Qv+Kunai3qm5PfNN2hE1izZ5ifsRuvp1K+X N9USvo+PdExNduFfyqDiTY1q4kFqE2UqrAvF2vtPdHuWE7+HOR77EdoF0Zea HkyZIuI9b/qy+ngXcq3+CXS0eEls/qEzs2m0Gz41roKdM2mEPyVku7l9L6oO nPYRq79BTNuKlO4a7UOSA69nM/MfolO/q6C9YACD+wJlFy36XnHGmXmfM7/f mG8GJX3yJXBYKxqYqzQEI48gaZJSiRfuKYc3BA0he+vVjJLJGrQ9/5LmVDGE 3i/iVX/upYFQaS2YlqfD7iFD/kZBA6TlVg7InqdDdPyHWeSvRsTsjZCmsOj4 1RMdeuFxCxQ1uKNq3sNYy+5aL7mlDVf+qglNqh/F18Xix2a0R6C4s93d1pbE QstGc+3xEViff3e8uYrE06630nMFDNyTsKmQd+SAV3vgM8KYcOrz3Tj1mQOJ VKOhfF0WNhZ63jY/woXkxOrVMoMsGNxOqCoW5aF/561+40Q2RgLWJlml8aB6 OH93v8kodjLHuBLyPfjdKsyBklSA4ytSjY/0diHaLyy2XlCM6LsyL7jPO3Eg wXtbTFgF9mxnV0/EfEXB6luVC5ZXQ9psbuFAaAeeGx69U/GDih71vrG5wC/4 lfube/wEDbpMg/7nQZ9xkP63UZTYR4zGFfMMzrVD9uoINUWjCQPOo0qOUqWg XVjiQGTSsS45n/st7h0SN7f0t4cOw1rF/Mmf9oWwG1E0eGs9Ao+WZ+HeJq/B +vZAWm01A+vK5S6ta3qBJwYBWzpJBs78FeKSmvkMaV/oO+5Qmfh0715Gx0Q6 9mo1rVqZxsLPSc20MMpj6Fg+PbbsIhuyWs0/miT5WP1t4lD2ITZ27CvUka4f Q2Sy6gNtCgsMNVnt2+fG8EhlT7hRLhNEw8BYiNYYpMp+cqRbGWjzHOmt/MTD lo/VMiIzI7jkk/E6/SgPdhPnJR20RrBEwebiljkuKDXTwxrzvJ9wq8+6H89F pOXOa33xdEhqC5VVlJgozuqlpk814sQGukVkJgOL20ovcbob4DI9q87RYOCK r/zGO800zARHtKWmjMDvZbDyzQ4qtj309KtZMYIJ+7XcFkEV/Kp9Zy9cGAZ1 2NQm0qoCvsOazaIMOkwld/KO1hbjhfSjybP2dGi4BypujCyAu3Z3Y8k0H9Wx ViZaBfN6tI+acuUZHzNkTbtcHBeXaAXsoLt8aNgs5vuF85Bjss1uhMpH/Deh 8WmvMXSXxgRLywugvetmhoY6H+s8LnzaGCSAmMrWqJ8f+HA7Phe7o1mAl6zP lV5KAkRIvTjmZD2OUt3lZxL/EKDKomGDQuE4yv9zdmaZgQA7ijrvhqsKIZW5 ZtxjiQCCPbKBCVFC3DEuaBeL54PfucByoE6IFSub1Zd1jCHY/86bvHEh8i5H /zz+i4cAk9gP1/8VIt+2cDxMlodd1rXH7jOFkD9uJcg05EI/bHj3vddC/Cwt LnEM4OBqfNN32kEhDqQkl3PKSCQ5Xpq7NTuOfqVr2ssdSdzTq1IVjR+HZw0v c6U0CcEn9qC8/DiUZ71bw+VJmE/3G2k/FyBQ68vqMH8Sn8+cyhL5UwCGaO2y dWwST3RMDGwXCqCrrBXcnsxBaXtkYmwBF91mVL3pryTOPzYOPNfCQT07sd42 k4S6pseTKg6JI272+yiRJNgbKIJ08fk5NsrJrR4kvHTXRB1ZNwoVub4SfVMS pJZd/R5jNsQPWPvlrCeR7BCXWP0XC8rnPF/brSUR2Pq1nH2IiQu+V83EZUk0 rKmJsd3Ujohsm6lnaiRGszzePvZphfQGEAkbSLjs8jlgqNAMdYsMi6QtJMQu /x194+zH+f6I3XXbSbifDMg9MUCDQs2xkGWHSXyt8L8u5kiF3MolHv5xJFRk nAL3F1VCdEmkK/GehMjiQh/LXSWIX7xZfyWfxEj6GyeFtjfQVrHUzXUdRcgk Tz2F+g4pCo+rh7LYkGbKOsdRyqBurLI0d5KFfbGB04axlaimM7ea2bDAzzE5 dfB9NcQUxp0/Upjw7jiXptxIhf6s45P7NAZKXNurabV18MrP1+xZyICVWF1G afoHjNq32babj8DFXLV49rcu7GwT3XfKug2i2SFUN7ILlUEndZyzW/Cj7tN9 i7Ju5EmVLJVd0YRvSa/9Tkf1QK2lPt6/pgGHTkXyPxr2wrrrwa/rR2jwfhr/ dqazF2bb01OTROdxlGlxPv/dB9df3y9mJFbigfK1u1oTfdDxMtgasaEEj7pP LjX1L0GSzxU64w4X9g5Una7ySjx/9c4h+QMXL9SdHaguVEhuW1C4+zsXSYoU UYzSYLpbK0JSjochKQeaFuUjPC8FeeYb8pAgl5Diq9mMUNPFL4228cBoKbI9 cKgVnkpCnyQ3HlxLlZmrjNsxaUp86fKc/1/1RcGth5mYE4jL/+HEw8O9lh0Z LiwcCpNwdbHnwVS+pXO9KRsu+zPb7Ux4iJP6lCilOooJ0/Z3cuo8nHZ1dpCR ILG7oye1TZyH3YRzwjiPxN4Yy7Kzg1zUanvu2tvGQXhic4Xy/J3rbVwhvvQt F8ybMkOfznMRJJW+dtV9JyLSttxx8j0HiX1Wbtv1bhOubRN3nRZxEPWU51R0 /SkRWKl4fvoyCd806TcJ2a+Jkx0XT8WakZi21DeMYhUTdjdVGps3k6ghR9b5 8wgiMyrHMeA4iVD2e/0FMjXEvodtZ/LoJJTzyuqzE2qJBsnkW7pxHNj+4cVu 3UQjHqmyNm7bywVH4tW/wi4asV/yx1V/8FC+PkXh7DkaoRQWcXuL5tg8z7yE UeU6Yj59bTw7hlTjK3TDwRpi7aT1kE4BH8t4kXUxnEqixNEptExRgGfxp7P0 ZksIyYT84DxbAcL2PDofShQQPyV+d93vKIBBRAi5IiCHcMzd775LTwBa1uGc 78kPCfe7+kVxLD7MLrccKeGeIBZ5CiduWPPRHj6VpzUVhYR+IxuV8DG80D2p mRoWi6bGJJW3iTx450Q/875Cgednz6D4bC5O1B8/52qwHReaTPMN53Xlv3qj YAE= "], {InsetBox[ FrameBox["1", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 1], InsetBox[ FrameBox["2", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 2], InsetBox[ FrameBox["3", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 3]}]}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4969214793365925, 0.}, {0.9999936537910529, 0.8642445136515993}, {0., 0.8677954451079566}}]& ], AspectRatio->Automatic, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]]], "Print", CellChangeTimes->{{3.575246204897748*^9, 3.575246434603748*^9}, 3.5752464815617476`*^9, {3.5752465191487474`*^9, 3.575246561036748*^9}, { 3.575246598202748*^9, 3.5752466206157475`*^9}, {3.575247044954748*^9, 3.575247107070748*^9}, 3.5752471886797476`*^9, 3.5752472204157476`*^9, { 3.5752472833747478`*^9, 3.575247341971748*^9}, 3.575282505783757*^9, 3.5752831183171077`*^9, 3.5752849346715508`*^9, {3.5752853667899466`*^9, 3.5752853802942967`*^9}, 3.575285456744941*^9, {3.5752857460368676`*^9, 3.575285769506214*^9}, {3.5752858397172346`*^9, 3.5752858452927923`*^9}, { 3.575286236326892*^9, 3.575286257324991*^9}, {3.575322019762*^9, 3.575322073516*^9}, {3.5753221817130003`*^9, 3.575322188502*^9}, 3.5753223133120003`*^9, {3.575322488578*^9, 3.5753224961870003`*^9}, { 3.5753225281219997`*^9, 3.575322542988*^9}, 3.575322588863*^9, 3.575365113048771*^9, 3.5753651592873945`*^9, {3.575365260163481*^9, 3.575365288995364*^9}, {3.57536544707317*^9, 3.5753654795214148`*^9}, { 3.5753655424447064`*^9, 3.575365557606222*^9}, {3.5753655904395056`*^9, 3.57536559988445*^9}, 3.5753657645778418`*^9, {3.575365800134842*^9, 3.5753658372968416`*^9}, 3.5753784237137938`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"For P=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FractionBox["1", "3"], FractionBox["1", "3"], FractionBox["1", "9"]}, { FractionBox["1", "3"], FractionBox["1", "3"], FractionBox["1", "9"]}, { FractionBox["1", "3"], FractionBox["1", "3"], FractionBox["7", "9"]} }, 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$]]], "\[InvisibleSpace]", "\<\", we find \\!\\(\\*SubscriptBox[\\(\[Lambda]\\), \ \\(1\\)]\\)=\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" with \\!\\(\\*SubscriptBox[\\(v\\), \ \\(1\\)]\\)=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { FractionBox["1", "5"]}, { FractionBox["1", "5"]}, { FractionBox["3", "5"]} }, 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$]]], "\[InvisibleSpace]", "\<\"=\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]]}], SequenceForm["For P=", MatrixForm[{{ Rational[1, 3], Rational[1, 3], Rational[1, 9]}, { Rational[1, 3], Rational[1, 3], Rational[1, 9]}, { Rational[1, 3], Rational[1, 3], Rational[7, 9]}}], ", we find \!\(\*SubscriptBox[\(\[Lambda]\), \(1\)]\)=", 1, " with \!\(\*SubscriptBox[\(v\), \(1\)]\)=", MatrixForm[{ Rational[1, 5], Rational[1, 5], Rational[3, 5]}], "=", MatrixForm[{0.2, 0.2, 0.6}]], Editable->False]], "Print", CellChangeTimes->{{3.575246204897748*^9, 3.575246434603748*^9}, 3.5752464815617476`*^9, {3.5752465191487474`*^9, 3.575246561036748*^9}, { 3.575246598202748*^9, 3.5752466206157475`*^9}, {3.575247044954748*^9, 3.575247107070748*^9}, 3.5752471886797476`*^9, 3.5752472204157476`*^9, { 3.5752472833747478`*^9, 3.575247341971748*^9}, 3.575282505783757*^9, 3.5752831183171077`*^9, 3.5752849346715508`*^9, {3.5752853667899466`*^9, 3.5752853802942967`*^9}, 3.575285456744941*^9, {3.5752857460368676`*^9, 3.575285769506214*^9}, {3.5752858397172346`*^9, 3.5752858452927923`*^9}, { 3.575286236326892*^9, 3.575286257324991*^9}, {3.575322019762*^9, 3.575322073516*^9}, {3.5753221817130003`*^9, 3.575322188502*^9}, 3.5753223133120003`*^9, {3.575322488578*^9, 3.5753224961870003`*^9}, { 3.5753225281219997`*^9, 3.575322542988*^9}, 3.575322588863*^9, 3.575365113048771*^9, 3.5753651592873945`*^9, {3.575365260163481*^9, 3.575365288995364*^9}, {3.57536544707317*^9, 3.5753654795214148`*^9}, { 3.5753655424447064`*^9, 3.575365557606222*^9}, {3.5753655904395056`*^9, 3.57536559988445*^9}, 3.5753657645778418`*^9, {3.575365800134842*^9, 3.5753658372968416`*^9}, 3.5753784237177935`*^9}] }, Open ]], Cell[BoxData[ TagBox[GridBox[{ {"0", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.333`"}, {"0.333`"}, {"0.333`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.133`"}, {"0.133`"}, { RowBox[{"-", "0.267`"}]} }, 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$]]]}, {"1", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.259`"}, {"0.259`"}, {"0.481`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.059000000000000004`"}, {"0.059000000000000004`"}, { RowBox[{"-", "0.11900000000000001`"}]} }, 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]", TagBox[GridBox[{ {"0.226`"}, {"0.226`"}, {"0.547`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.026000000000000002`"}, {"0.026000000000000002`"}, { RowBox[{"-", "0.053`"}]} }, 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$]]]}, {"3", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.212`"}, {"0.212`"}, {"0.577`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.012`"}, {"0.012`"}, { RowBox[{"-", "0.023`"}]} }, 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$]]]}, {"4", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.20500000000000002`"}, {"0.20500000000000002`"}, {"0.59`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.005`"}, {"0.005`"}, { RowBox[{"-", "0.01`"}]} }, 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$]]]}, {"5", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.202`"}, {"0.202`"}, {"0.595`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.002`"}, {"0.002`"}, { RowBox[{"-", "0.005`"}]} }, 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$]]]}, {"6", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.201`"}, {"0.201`"}, {"0.598`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.001`"}, {"0.001`"}, { RowBox[{"-", "0.002`"}]} }, 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$]]]}, {"7", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.599`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, { RowBox[{"-", "0.001`"}]} }, 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$]]]}, {"8", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"9", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"10", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"11", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"12", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"13", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"14", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"15", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"16", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"17", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"18", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"19", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"20", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"21", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"22", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"23", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"24", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"25", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"26", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"27", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"28", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"29", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"30", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"31", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"32", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"33", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"34", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"35", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"36", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"37", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"38", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"39", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"40", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"41", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"42", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"43", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"44", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"45", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"46", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"47", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"48", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"49", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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$]]]}, {"50", TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.2`"}, {"0.2`"}, {"0.6`"} }, 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$]]], TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.`"}, {"0.`"}, {"0.`"} }, 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" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.575246204987748*^9, 3.5752464346907477`*^9}, 3.5752464816677475`*^9, {3.5752465192527475`*^9, 3.575246561133748*^9}, { 3.575246598300748*^9, 3.575246620714748*^9}, {3.5752470449477477`*^9, 3.575247107183748*^9}, 3.575247188781748*^9, 3.575247220525748*^9, { 3.575247283470748*^9, 3.575247342022748*^9}, 3.575282507106757*^9, 3.57528311834311*^9, 3.575284934695551*^9, {3.5752853668159494`*^9, 3.5752853803162994`*^9}, 3.5752854567659435`*^9, {3.5752857460478687`*^9, 3.5752857695282164`*^9}, {3.5752858397432375`*^9, 3.5752858453157945`*^9}, {3.5752862363378925`*^9, 3.575286257326991*^9}, { 3.5753220197939997`*^9, 3.575322073553*^9}, {3.5753221817869997`*^9, 3.575322188535*^9}, 3.5753223133450003`*^9, {3.575322488663*^9, 3.575322496227*^9}, {3.5753225281610003`*^9, 3.575322543024*^9}, 3.575322589207*^9, 3.5753651130947757`*^9, 3.575365159305396*^9, { 3.575365260183483*^9, 3.5753652890133657`*^9}, {3.5753654470921717`*^9, 3.575365479565419*^9}, {3.5753655424637084`*^9, 3.575365557708233*^9}, { 3.575365590556517*^9, 3.5753655999624577`*^9}, 3.5753657646668415`*^9, { 3.5753658002248416`*^9, 3.5753658373768415`*^9}, 3.5753784237437935`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"eigs", "=", RowBox[{"Eigensystem", "[", "P", "]"}]}], ";", RowBox[{ SubscriptBox["\[Lambda]", "1"], "=", RowBox[{ RowBox[{"eigs", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", RowBox[{ SubscriptBox["v", "1"], "=", RowBox[{ RowBox[{ RowBox[{"eigs", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{"Total", "[", RowBox[{ RowBox[{"eigs", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";", RowBox[{"Clear", "[", "g", "]"}], ";", RowBox[{"g", "=", RowBox[{"SparseArray", "[", RowBox[{"Transpose", "[", RowBox[{"Round", "[", RowBox[{"P", ",", ".01"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GraphPlot", "[", RowBox[{"g", ",", RowBox[{"DirectedEdges", "\[Rule]", "True"}], ",", RowBox[{"SelfLoopStyle", "\[Rule]", "0.2"}], ",", RowBox[{"MultiedgeStyle", "\[Rule]", "True"}], ",", RowBox[{"VertexLabeling", "\[Rule]", "True"}], ",", RowBox[{"EdgeRenderingFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{"#", ",", "0.1"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"g", "[", RowBox[{"[", RowBox[{ RowBox[{"First", "[", "#2", "]"}], ",", RowBox[{"Last", "[", "#2", "]"}]}], "]"}], "]"}], ",", RowBox[{"LineScaledCoordinate", "[", "#1", "]"}], ",", RowBox[{"Background", "\[Rule]", "White"}]}], "]"}]}], "}"}], "&"}], ")"}]}]}], "]"}], RowBox[{"(*", RowBox[{ "Draws", " ", "the", " ", "directed", " ", "graph", " ", "of", " ", "P"}], "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.575322368653*^9, 3.575322379201*^9}, 3.5753224210769997`*^9, {3.5753224557790003`*^9, 3.575322456854*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[ TagBox[GraphicsGroupBox[{{{ArrowBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAABo+bv4/N3z8AAAAAAAAAABPmNQ9L 598/FvLKEWG4/76HXts7odjgPzyhajMtwnK/uOUtC/up4T/SujGwqy+Rv+0M KiDoVuI/olDVA1pCor+KIm6YidHiP90vpSlWka6/cbbiVgkQ4z/ohCLNBUS2 vyI29v5jDeM/oHu9bd+Dvb8PdU7lz8niP5cv3tytOcK/8ukmtLhK4j9L96pV CELFv0Mk2BxQmuE/2ZqIZrmcx79SMR2EvMbgP7hzLVJpGcm/Zvfe5uzB3z9/ GZsFj5nJv6KSnTvY9t0/5vXPHOMSyb+HYm3XDVHcP8nmDfQykMe/pv3q0mLy 2j/ReaDXgjDFv1+daNb39tk//IbgHJEkwr+YoM6G93LZP7gpXXXaVb2/LHJI a/hw2T8BriZU5hW2v7nt+YIj8dk/qj5xZkg8rr8y+Cr7MOnaP17DUfBP+6G/ Y4ZvSTtF3D/BYHleBMmQv/lCALtX6d0/mkbt2zLmcb/YL9mz07PfP+BcZhcG BvS+Bo+bv4/N3z8AAAAAAAAAAH331Qw= "], 0.1], InsetBox["0.33`", {0.4962112669562571, -0.19999873899196172`}, Background->GrayLevel[1]]}, { ArrowBox[{{0.4969214793365925, 0.}, {0.526479527167296, 0.101957185704988}, {0.5348712913772224, 0.12911725808649668`}, { 0.5442082427785997, 0.15596707329725956`}, {0.5544789467652385, 0.18247374939862382`}, {0.5656708251999801, 0.2086048246812401}, { 0.5777701718186581, 0.23432829741967257`}, {0.590762169015634, 0.25961266506368463`}, {0.604630905990351, 0.28442696281820334`}, { 0.8058597757721347, 0.6301247682788426}, {0.8205882680144643, 0.6544386070253555}, {0.8361584781049842, 0.6782222105382983}, { 0.8525513378047147, 0.7014464519508558}, {0.8697467714072584, 0.7240828894255182}, {0.8877237203247483, 0.7461038009857092}, { 0.9064601688774926, 0.7674822184658259}, {0.9259331712557324, 0.7881919605381179}, {0.9999936537910529, 0.8642445136515993}}, 0.1], InsetBox["0.33`", {0.7052453408812427, 0.4572758655485226}, Background->GrayLevel[1]]}, { ArrowBox[{{0.4969214793365925, 0.}, {0.42340300691612226`, 0.07657660694007323}, {0.4040775807809698, 0.09742412237609172}, { 0.3854934387694231, 0.11893506519259622`}, {0.36767334016726283`, 0.1410830917631408}, {0.3506391085656171, 0.16384107824924618`}, { 0.3344116051344465, 0.18718115381792438`}, {0.3190107030746698, 0.21107473477401853`}, {0.3044552632802167, 0.2354925595655579}, { 0.10568667154557997`, 0.58261073760874}, {0.09199451950517853, 0.6075229026624401}, {0.07918242347216253, 0.6328988990054616}, { 0.06726607392903478, 0.658707649628579}, {0.05626006437193552, 0.6849175475450017}, {0.04617787343854736, 0.7114964944982384}, { 0.037031848401324646`, 0.7384119402715997}, {0.028833190046262815`, 0.7656309225512008}, {0., 0.8677954451079566}}, 0.1], InsetBox["0.33`", {0.20507096741289849`, 0.4090516485871487}, Background->GrayLevel[1]]}, { ArrowBox[{{0.9999936537910529, 0.8642445136515993}, { 0.9704356059603495, 0.7622873279466114}, {0.962043841750423, 0.7351272555651027}, {0.9527068903490458, 0.7082774403543398}, { 0.942436186362407, 0.6817707642529756}, {0.9312443079276653, 0.6556396889703593}, {0.9191449613089874, 0.6299162162319267}, { 0.9061529641120114, 0.6046318485879147}, {0.8922842271372945, 0.579817550833396}, {0.6910553573555106, 0.23411974537275682`}, { 0.6763268651131812, 0.20980590662624385`}, {0.6607566550226611, 0.18602230311330112`}, {0.6443637953229308, 0.16279806170074368`}, { 0.627168361720387, 0.14016162422608117`}, {0.609191412802897, 0.11814071266589027`}, {0.5904549642501528, 0.09676229518577352}, { 0.570981961871913, 0.07605255311348152}, {0.4969214793365925, 0.}}, 0.1], InsetBox["0.11`", {0.7916697922464027, 0.4069686481030766}, Background->GrayLevel[1]]}, {ArrowBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAADa/nsPL/7z+EMTwc5KfrP1Mp2s26 +e8/wos+OCiz6z8AXMSeg6fvP/vqw9MYjOw/gcez6GqV7z8kQQfvYnPtP6k4 R0TkxO8/jfPyNnlW7j/au4dtEBnwPylXkaMkI+8/HlR+zC5q8D8EIEN/+sjv P1Js/4tLz/A/rufUwFYd8D90DqxrSkDxP7srD3qPN/A/wTzKJxu08T+9hXv7 DDHwP0u22JVzIfI/DqQW8VQK8D/wWhdmjn/yP5Q2s9MEje8/79gCPd/G8j8R Es8jDNbuP21jlLKt8fI/rYKE+mz+7T9lOIvIivzyP69CtPFyF+0/V0DFa5fm 8j8ZbD7wpDPsPy9y41iWsfI/+ru4ukhl6z+Ijc70x2HyP2CenL3rvOo/mkiB /5L98T/eHYkpD0jqP5YtwSEBjfE/VcPtpBIQ6j/wzOjgGRnxPx/9WdFzGeo/ O/neNSmr8D9mKNUUcmPqP9R6d6YATPA/5QHFDB7o6j+fKjgxQgPwPysfKG3T nOs/Da/nsPL/7z+EMTwc5KfrPzUg0t0= "], 0.1], InsetBox["0.44`", {1.1735527404067019`, 0.9636288356201154}, Background->GrayLevel[1]]}, { ArrowBox[{{0.9999936537910529, 0.8642445136515993}, { 0.8969171335398792, 0.8388639348866846}, {0.8691999431948002, 0.8325513779411945}, {0.8412788497818763, 0.8272125055469361}, { 0.8131880471930772, 0.8228538560161164}, {0.7849619371566898, 0.8194807672196056}, {0.7566350871068412, 0.8170973700498513}, { 0.7282421878500887, 0.8157065833619334}, {0.6998180110809187, 0.815310110398954}, {0.299820549564498, 0.8167304829814968}, { 0.2713999052817671, 0.8173288092886839}, {0.24301759915823107`, 0.8189212021187625}, {0.2147083899153729, 0.8215057113293225}, { 0.18650694675572996`, 0.8250791717710827}, {0.1584478069048518, 0.8296372071641285}, {0.13056533331488485`, 0.8351742354573731}, { 0.10289367258158322`, 0.8416834756646822}, {0., 0.8677954451079566}}, 0.1], InsetBox["0.44`", {0.4998192803227086, 0.8160202966902254}, Background->GrayLevel[1]]}, { ArrowBox[{{0., 0.8677954451079566}, {0.07351847242047033, 0.7912188381678834}, {0.09284389855562279, 0.7703713227318649}, { 0.11142804056716948`, 0.7488603799153605}, {0.12924813916932976`, 0.7267123533448159}, {0.14628237077097547`, 0.7039543668587105}, { 0.16250987420214605`, 0.6806142912900323}, {0.1779107762619228, 0.6567207103339381}, {0.19246621605637587`, 0.6323028855423988}, { 0.3912348077910126, 0.2851847074992166}, {0.4049269598314141, 0.26027254244551656`}, {0.41773905586443005`, 0.23489654610249514`}, {0.4296554054075578, 0.20908779547937778`}, { 0.44066141496465705`, 0.18287789756295503`}, {0.45074360589804524`, 0.15629895060971838`}, {0.45988963093526797`, 0.129383504836357}, { 0.46808828929032975`, 0.10216452255675593`}, {0.4969214793365925, 0.}}, 0.1], InsetBox["0.11`", {0.2918505119236941, 0.4587437965208079}, Background->GrayLevel[1]]}, { ArrowBox[{{0., 0.8677954451079566}, {0.1030765202511738, 0.8931760238728714}, {0.1307937105962528, 0.8994885808183616}, { 0.1587148040091767, 0.90482745321262}, {0.1868056065979758, 0.9091861027434397}, {0.21503171663436318`, 0.9125591915399506}, { 0.24335856668421169`, 0.9149425887097049}, {0.2717514659409644, 0.9163333753976227}, {0.30017564271013436`, 0.9167298483606021}, { 0.700173104226555, 0.9153094757780592}, {0.7285937485092858, 0.9147111494708722}, {0.7569760546328218, 0.9131187566407934}, { 0.78528526387568, 0.9105342474302335}, {0.813486707035323, 0.9069607869884733}, {0.8415458468862012, 0.9024027515954275}, { 0.869428320476168, 0.896865723302183}, {0.8970999812094697, 0.8903564830948738}, {0.9999936537910529, 0.8642445136515993}}, 0.1], InsetBox["0.11`", {0.5001743734683444, 0.9160196620693307}, Background->GrayLevel[1]]}, {ArrowBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPv0rm//Dry2j6Lb5GU8HSv/RVOez2+7Xxt33/X LshTd/L+wEtfp3qxvbavX/rWa1vX0v1pB2Rqfza9so9fKLCpb8XG/WXXGsq7 rV7Z/7TVN65/vmO/y0SFs+eNXtkffvVELvnt/v1L6ld6pOa8si94sVOfSfTw /piZl6rWPnplL792z8kVfUf3n+KdM0m757W9k3nYi4sGx/fPVnyu5x79xv41 x4Y/n24e3x/L+6Mj2f6t/V7VedLVNcf3yxaVTDZRe2fvcPNt30v5Y/uBzI1m f9/ZLzBrfmT84PB+qW8OD7U2v7fneVtxrP31gf27PLwK9sh8sF/eW7lM9++u /bx963PXOn2wL4qaXVuwf/P+Xxw6gbEeH+wNS/JfCaau3O+xKjY4XPeD/fFl 6Su/zJm5P3iq/rae5+/trZouZOx6U7qfLfTT1wkO7+0vF39fq/G93r7vnqmj QvE7+zXaZWoLirrtz52dpbC1/6195MqW5ZHNbfahV0Kzele8sS89mVMTaOhp X3fOcr3xhdf26OEPAHfg0GE= "], 0.1], InsetBox["0.78`", {-0.17284888724288724`, 0.9684098684223884}, Background->GrayLevel[1]]}}, GraphicsComplexBox[CompressedData[" 1:eJw9VAk0lQvXpii3Ig1CyJgMV5K45gch6V6ZSwNFVMrlotKowXdUpuZBkimh pCLJ9BoOJ8pcMg+HM3jPOc5xCsmVz7/Wv7691l57r73WXvtZ+9n7UfULcQtY ICIikj3v/xcXJT4iEhsHIPL/JpnPeiWc4yPawEJx5Bnnf/Wxw0u//6RysIpp tHwHawBrhA0rDhbPVcT49JindQ7CIi3IUK86jChm6C2dyRlCW4nBq+f6Nwne Mh0Vthcd6S5fFu6xTSeuq/394ForHX36T7W9br4k/imie/0mPQx2tFqjuF0R oWY8+ctfchipZ8uDB66UE8tPODOa6+m4r9/fm2daTQhHNQuLnejYMZXrKWFb S2zV6FR0SRpCV9LVwPfJNMLNQCm6rG4QxeF6bkfl64nAqX4mt2oAUfKPxBMf 1hPptx6bd072gTnRrDi8sp6I8Qv+Kunai3qm5PfNN2hE1izZ5ifsRuvp1K+X N9USvo+PdExNduFfyqDiTY1q4kFqE2UqrAvF2vtPdHuWE7+HOR77EdoF0Zea HkyZIuI9b/qy+ngXcq3+CXS0eEls/qEzs2m0Gz41roKdM2mEPyVku7l9L6oO nPYRq79BTNuKlO4a7UOSA69nM/MfolO/q6C9YACD+wJlFy36XnHGmXmfM7/f mG8GJX3yJXBYKxqYqzQEI48gaZJSiRfuKYc3BA0he+vVjJLJGrQ9/5LmVDGE 3i/iVX/upYFQaS2YlqfD7iFD/kZBA6TlVg7InqdDdPyHWeSvRsTsjZCmsOj4 1RMdeuFxCxQ1uKNq3sNYy+5aL7mlDVf+qglNqh/F18Xix2a0R6C4s93d1pbE QstGc+3xEViff3e8uYrE06630nMFDNyTsKmQd+SAV3vgM8KYcOrz3Tj1mQOJ VKOhfF0WNhZ63jY/woXkxOrVMoMsGNxOqCoW5aF/561+40Q2RgLWJlml8aB6 OH93v8kodjLHuBLyPfjdKsyBklSA4ytSjY/0diHaLyy2XlCM6LsyL7jPO3Eg wXtbTFgF9mxnV0/EfEXB6luVC5ZXQ9psbuFAaAeeGx69U/GDih71vrG5wC/4 lfube/wEDbpMg/7nQZ9xkP63UZTYR4zGFfMMzrVD9uoINUWjCQPOo0qOUqWg XVjiQGTSsS45n/st7h0SN7f0t4cOw1rF/Mmf9oWwG1E0eGs9Ao+WZ+HeJq/B +vZAWm01A+vK5S6ta3qBJwYBWzpJBs78FeKSmvkMaV/oO+5Qmfh0715Gx0Q6 9mo1rVqZxsLPSc20MMpj6Fg+PbbsIhuyWs0/miT5WP1t4lD2ITZ27CvUka4f Q2Sy6gNtCgsMNVnt2+fG8EhlT7hRLhNEw8BYiNYYpMp+cqRbGWjzHOmt/MTD lo/VMiIzI7jkk/E6/SgPdhPnJR20RrBEwebiljkuKDXTwxrzvJ9wq8+6H89F pOXOa33xdEhqC5VVlJgozuqlpk814sQGukVkJgOL20ovcbob4DI9q87RYOCK r/zGO800zARHtKWmjMDvZbDyzQ4qtj309KtZMYIJ+7XcFkEV/Kp9Zy9cGAZ1 2NQm0qoCvsOazaIMOkwld/KO1hbjhfSjybP2dGi4BypujCyAu3Z3Y8k0H9Wx ViZaBfN6tI+acuUZHzNkTbtcHBeXaAXsoLt8aNgs5vuF85Bjss1uhMpH/Deh 8WmvMXSXxgRLywugvetmhoY6H+s8LnzaGCSAmMrWqJ8f+HA7Phe7o1mAl6zP lV5KAkRIvTjmZD2OUt3lZxL/EKDKomGDQuE4yv9zdmaZgQA7ijrvhqsKIZW5 ZtxjiQCCPbKBCVFC3DEuaBeL54PfucByoE6IFSub1Zd1jCHY/86bvHEh8i5H /zz+i4cAk9gP1/8VIt+2cDxMlodd1rXH7jOFkD9uJcg05EI/bHj3vddC/Cwt LnEM4OBqfNN32kEhDqQkl3PKSCQ5Xpq7NTuOfqVr2ssdSdzTq1IVjR+HZw0v c6U0CcEn9qC8/DiUZ71bw+VJmE/3G2k/FyBQ68vqMH8Sn8+cyhL5UwCGaO2y dWwST3RMDGwXCqCrrBXcnsxBaXtkYmwBF91mVL3pryTOPzYOPNfCQT07sd42 k4S6pseTKg6JI272+yiRJNgbKIJ08fk5NsrJrR4kvHTXRB1ZNwoVub4SfVMS pJZd/R5jNsQPWPvlrCeR7BCXWP0XC8rnPF/brSUR2Pq1nH2IiQu+V83EZUk0 rKmJsd3Ujohsm6lnaiRGszzePvZphfQGEAkbSLjs8jlgqNAMdYsMi6QtJMQu /x194+zH+f6I3XXbSbifDMg9MUCDQs2xkGWHSXyt8L8u5kiF3MolHv5xJFRk nAL3F1VCdEmkK/GehMjiQh/LXSWIX7xZfyWfxEj6GyeFtjfQVrHUzXUdRcgk Tz2F+g4pCo+rh7LYkGbKOsdRyqBurLI0d5KFfbGB04axlaimM7ea2bDAzzE5 dfB9NcQUxp0/Upjw7jiXptxIhf6s45P7NAZKXNurabV18MrP1+xZyICVWF1G afoHjNq32babj8DFXLV49rcu7GwT3XfKug2i2SFUN7ILlUEndZyzW/Cj7tN9 i7Ju5EmVLJVd0YRvSa/9Tkf1QK2lPt6/pgGHTkXyPxr2wrrrwa/rR2jwfhr/ dqazF2bb01OTROdxlGlxPv/dB9df3y9mJFbigfK1u1oTfdDxMtgasaEEj7pP LjX1L0GSzxU64w4X9g5Una7ySjx/9c4h+QMXL9SdHaguVEhuW1C4+zsXSYoU UYzSYLpbK0JSjochKQeaFuUjPC8FeeYb8pAgl5Diq9mMUNPFL4228cBoKbI9 cKgVnkpCnyQ3HlxLlZmrjNsxaUp86fKc/1/1RcGth5mYE4jL/+HEw8O9lh0Z LiwcCpNwdbHnwVS+pXO9KRsu+zPb7Ux4iJP6lCilOooJ0/Z3cuo8nHZ1dpCR ILG7oye1TZyH3YRzwjiPxN4Yy7Kzg1zUanvu2tvGQXhic4Xy/J3rbVwhvvQt F8ybMkOfznMRJJW+dtV9JyLSttxx8j0HiX1Wbtv1bhOubRN3nRZxEPWU51R0 /SkRWKl4fvoyCd806TcJ2a+Jkx0XT8WakZi21DeMYhUTdjdVGps3k6ghR9b5 8wgiMyrHMeA4iVD2e/0FMjXEvodtZ/LoJJTzyuqzE2qJBsnkW7pxHNj+4cVu 3UQjHqmyNm7bywVH4tW/wi4asV/yx1V/8FC+PkXh7DkaoRQWcXuL5tg8z7yE UeU6Yj59bTw7hlTjK3TDwRpi7aT1kE4BH8t4kXUxnEqixNEptExRgGfxp7P0 ZksIyYT84DxbAcL2PDofShQQPyV+d93vKIBBRAi5IiCHcMzd775LTwBa1uGc 78kPCfe7+kVxLD7MLrccKeGeIBZ5CiduWPPRHj6VpzUVhYR+IxuV8DG80D2p mRoWi6bGJJW3iTx450Q/875Cgednz6D4bC5O1B8/52qwHReaTPMN53Xlv3qj YAE= "], {InsetBox[ FrameBox["1", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 1], InsetBox[ FrameBox["2", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 2], InsetBox[ FrameBox["3", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 3]}]}, ContentSelectable->True], Annotation[#, VertexCoordinateRules -> {{0.4969214793365925, 0.}, {0.9999936537910529, 0.8642445136515993}, {0., 0.8677954451079566}}]& ], AspectRatio->Automatic, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]], TraditionalForm]], "Output", CellChangeTimes->{3.5753224578459997`*^9}] }, Open ]] }, WindowSize->{1584, 775}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 276, 5, 29, "Text"], Cell[CellGroupData[{ Cell[858, 29, 23357, 480, 812, "Input"], Cell[CellGroupData[{ Cell[24240, 513, 2047, 40, 50, "Print"], Cell[26290, 555, 4949, 87, 327, "Print"], Cell[31242, 644, 2329, 52, 80, "Print"], Cell[33574, 698, 8844, 147, 327, "Print"], Cell[42421, 847, 4118, 101, 80, "Print"], Cell[46542, 950, 1646, 27, 40, "Print"], Cell[48191, 979, 13679, 219, 327, "Print"], Cell[61873, 1200, 4406, 113, 80, "Print"] }, Open ]], Cell[66294, 1316, 74618, 2130, 2372, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[140949, 3451, 2175, 60, 112, "Input"], Cell[143127, 3513, 12640, 204, 334, "Output"] }, Open ]] } ] *) (* End of internal cache information *)