From 3e73458b4d3951ee72145762a2003296fa884c96 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Tue, 2 Aug 2011 11:00:12 +0200 Subject: TestTensorTools.nb: Add more test cases MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit - Test expansion of PD - Test expansion of PD[MatrixInverse[…]] --- Tests/TestTensorTools.nb | 1278 +++++++++++++++++++++++++++++++++++----------- 1 file changed, 978 insertions(+), 300 deletions(-) (limited to 'Tests') diff --git a/Tests/TestTensorTools.nb b/Tests/TestTensorTools.nb index 8659a71..757da99 100644 --- a/Tests/TestTensorTools.nb +++ b/Tests/TestTensorTools.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] -NotebookDataLength[ 174395, 4720] -NotebookOptionsPosition[ 164517, 4386] -NotebookOutlinePosition[ 164894, 4403] -CellTagsIndexPosition[ 164851, 4400] +NotebookDataLength[ 202039, 5398] +NotebookOptionsPosition[ 190777, 5018] +NotebookOutlinePosition[ 191154, 5035] +CellTagsIndexPosition[ 191111, 5032] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -247,7 +247,8 @@ Cell[BoxData["TensorTools`Private`makeSum"], "Output", 3.516731576714344*^9, 3.5167316802797947`*^9, {3.516731756210204*^9, 3.516731795264969*^9}, 3.516732135861174*^9, 3.516732198555706*^9, { 3.516732602515377*^9, 3.516732629881921*^9}, 3.516732817844573*^9, - 3.516732977384715*^9, 3.516824704096592*^9}] + 3.516732977384715*^9, 3.516824704096592*^9, 3.52125691298533*^9, + 3.521257720330213*^9, 3.521262606655571*^9, 3.521264327983836*^9}] }, Open ]], Cell[CellGroupData[{ @@ -276,7 +277,8 @@ Cell[BoxData[ 3.5167316803162746`*^9, {3.516731756254609*^9, 3.516731795301292*^9}, 3.516732135923071*^9, 3.5167321985970078`*^9, {3.51673260258818*^9, 3.516732629928255*^9}, 3.516732817898074*^9, 3.516732977441176*^9, - 3.5168247043048162`*^9}], + 3.5168247043048162`*^9, 3.521256913108971*^9, 3.5212577204354973`*^9, + 3.521262606768352*^9, 3.521264328051278*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -289,7 +291,8 @@ Cell[BoxData[ 3.5167316803162746`*^9, {3.516731756254609*^9, 3.516731795301292*^9}, 3.516732135923071*^9, 3.5167321985970078`*^9, {3.51673260258818*^9, 3.516732629928255*^9}, 3.516732817898074*^9, 3.516732977441176*^9, - 3.5168247043079023`*^9}], + 3.5168247043048162`*^9, 3.521256913108971*^9, 3.5212577204354973`*^9, + 3.521262606768352*^9, 3.521264328064766*^9}], Cell[BoxData[ StyleBox["1", @@ -302,7 +305,8 @@ Cell[BoxData[ 3.5167316803162746`*^9, {3.516731756254609*^9, 3.516731795301292*^9}, 3.516732135923071*^9, 3.5167321985970078`*^9, {3.51673260258818*^9, 3.516732629928255*^9}, 3.516732817898074*^9, 3.516732977441176*^9, - 3.5168247043119383`*^9}], + 3.5168247043048162`*^9, 3.521256913108971*^9, 3.5212577204354973`*^9, + 3.521262606768352*^9, 3.5212643280737257`*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -325,7 +329,8 @@ Cell[BoxData[ 3.5167316803162746`*^9, {3.516731756254609*^9, 3.516731795301292*^9}, 3.516732135923071*^9, 3.5167321985970078`*^9, {3.51673260258818*^9, 3.516732629928255*^9}, 3.516732817898074*^9, 3.516732977441176*^9, - 3.516824704402514*^9}] + 3.5168247043048162`*^9, 3.521256913108971*^9, 3.5212577204354973`*^9, + 3.521262606768352*^9, 3.5212643280828323`*^9}] }, Open ]] }, Open ]], @@ -354,7 +359,8 @@ Cell[BoxData[ 3.516731680362309*^9, {3.516731756297579*^9, 3.516731795365222*^9}, 3.516732135972896*^9, 3.516732198647307*^9, {3.516732602674551*^9, 3.516732629977222*^9}, 3.516732818009059*^9, 3.516732977510326*^9, - 3.516824704448454*^9}], + 3.516824704448454*^9, 3.521256913223217*^9, 3.521257720493265*^9, + 3.521262607020269*^9, 3.52126432815232*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -367,7 +373,8 @@ Cell[BoxData[ 3.516731680362309*^9, {3.516731756297579*^9, 3.516731795365222*^9}, 3.516732135972896*^9, 3.516732198647307*^9, {3.516732602674551*^9, 3.516732629977222*^9}, 3.516732818009059*^9, 3.516732977510326*^9, - 3.516824704451659*^9}], + 3.516824704448454*^9, 3.521256913223217*^9, 3.521257720493265*^9, + 3.521262607020269*^9, 3.521264328160451*^9}], Cell[BoxData[ StyleBox["x", @@ -380,7 +387,8 @@ Cell[BoxData[ 3.516731680362309*^9, {3.516731756297579*^9, 3.516731795365222*^9}, 3.516732135972896*^9, 3.516732198647307*^9, {3.516732602674551*^9, 3.516732629977222*^9}, 3.516732818009059*^9, 3.516732977510326*^9, - 3.516824704456107*^9}], + 3.516824704448454*^9, 3.521256913223217*^9, 3.521257720493265*^9, + 3.521262607020269*^9, 3.521264328169694*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -403,7 +411,8 @@ Cell[BoxData[ 3.516731680362309*^9, {3.516731756297579*^9, 3.516731795365222*^9}, 3.516732135972896*^9, 3.516732198647307*^9, {3.516732602674551*^9, 3.516732629977222*^9}, 3.516732818009059*^9, 3.516732977510326*^9, - 3.516824704460538*^9}] + 3.516824704448454*^9, 3.521256913223217*^9, 3.521257720493265*^9, + 3.521262607020269*^9, 3.5212643281782084`*^9}] }, Open ]] }, Open ]], @@ -435,7 +444,8 @@ Cell[BoxData[ 3.516731576847486*^9, 3.51673168041227*^9, {3.51673175634365*^9, 3.5167317954304457`*^9}, 3.516732136024283*^9, 3.516732198694138*^9, { 3.516732602731728*^9, 3.5167326300288343`*^9}, 3.516732818109274*^9, - 3.516732977632201*^9, 3.516824704515423*^9}], + 3.516732977632201*^9, 3.516824704515423*^9, 3.521256913271821*^9, + 3.5212577205590067`*^9, 3.521262607097495*^9, 3.521264328234447*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -448,7 +458,8 @@ Cell[BoxData[ 3.516731576847486*^9, 3.51673168041227*^9, {3.51673175634365*^9, 3.5167317954304457`*^9}, 3.516732136024283*^9, 3.516732198694138*^9, { 3.516732602731728*^9, 3.5167326300288343`*^9}, 3.516732818109274*^9, - 3.516732977632201*^9, 3.51682470451853*^9}], + 3.516732977632201*^9, 3.516824704515423*^9, 3.521256913271821*^9, + 3.5212577205590067`*^9, 3.521262607097495*^9, 3.521264328242659*^9}], Cell[BoxData[ StyleBox[ @@ -462,7 +473,8 @@ Cell[BoxData[ 3.516731576847486*^9, 3.51673168041227*^9, {3.51673175634365*^9, 3.5167317954304457`*^9}, 3.516732136024283*^9, 3.516732198694138*^9, { 3.516732602731728*^9, 3.5167326300288343`*^9}, 3.516732818109274*^9, - 3.516732977632201*^9, 3.5168247045243263`*^9}], + 3.516732977632201*^9, 3.516824704515423*^9, 3.521256913271821*^9, + 3.5212577205590067`*^9, 3.521262607097495*^9, 3.521264328251223*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -485,7 +497,8 @@ Cell[BoxData[ 3.516731576847486*^9, 3.51673168041227*^9, {3.51673175634365*^9, 3.5167317954304457`*^9}, 3.516732136024283*^9, 3.516732198694138*^9, { 3.516732602731728*^9, 3.5167326300288343`*^9}, 3.516732818109274*^9, - 3.516732977632201*^9, 3.516824704528843*^9}] + 3.516732977632201*^9, 3.516824704515423*^9, 3.521256913271821*^9, + 3.5212577205590067`*^9, 3.521262607097495*^9, 3.521264328259653*^9}] }, Open ]] }, Open ]], @@ -520,7 +533,8 @@ Cell[BoxData[ 3.5167315768972673`*^9, 3.5167316804602823`*^9, {3.516731756394342*^9, 3.5167317954989367`*^9}, 3.516732136075109*^9, 3.5167321987443132`*^9, { 3.516732602838645*^9, 3.516732630078211*^9}, 3.516732818159136*^9, - 3.5167329777090673`*^9, 3.516824704588522*^9}], + 3.5167329777090673`*^9, 3.516824704588522*^9, 3.5212569133231*^9, + 3.5212577206419477`*^9, 3.5212626072175417`*^9, 3.521264328316659*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -533,7 +547,8 @@ Cell[BoxData[ 3.5167315768972673`*^9, 3.5167316804602823`*^9, {3.516731756394342*^9, 3.5167317954989367`*^9}, 3.516732136075109*^9, 3.5167321987443132`*^9, { 3.516732602838645*^9, 3.516732630078211*^9}, 3.516732818159136*^9, - 3.5167329777090673`*^9, 3.516824704591844*^9}], + 3.5167329777090673`*^9, 3.516824704588522*^9, 3.5212569133231*^9, + 3.5212577206419477`*^9, 3.5212626072175417`*^9, 3.521264328324997*^9}], Cell[BoxData[ StyleBox[ @@ -548,7 +563,8 @@ Cell[BoxData[ 3.5167315768972673`*^9, 3.5167316804602823`*^9, {3.516731756394342*^9, 3.5167317954989367`*^9}, 3.516732136075109*^9, 3.5167321987443132`*^9, { 3.516732602838645*^9, 3.516732630078211*^9}, 3.516732818159136*^9, - 3.5167329777090673`*^9, 3.516824704597641*^9}], + 3.5167329777090673`*^9, 3.516824704588522*^9, 3.5212569133231*^9, + 3.5212577206419477`*^9, 3.5212626072175417`*^9, 3.521264328334264*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -571,7 +587,8 @@ Cell[BoxData[ 3.5167315768972673`*^9, 3.5167316804602823`*^9, {3.516731756394342*^9, 3.5167317954989367`*^9}, 3.516732136075109*^9, 3.5167321987443132`*^9, { 3.516732602838645*^9, 3.516732630078211*^9}, 3.516732818159136*^9, - 3.5167329777090673`*^9, 3.516824704602222*^9}] + 3.5167329777090673`*^9, 3.516824704588522*^9, 3.5212569133231*^9, + 3.5212577206419477`*^9, 3.5212626072175417`*^9, 3.521264328343053*^9}] }, Open ]] }, Open ]], @@ -602,7 +619,8 @@ Cell[BoxData[ 3.516731680511917*^9, {3.5167317564417458`*^9, 3.516731795563511*^9}, 3.51673213612991*^9, 3.516732198787406*^9, {3.516732602887973*^9, 3.5167326301299353`*^9}, 3.5167328182307243`*^9, 3.516732977777313*^9, - 3.516824704664837*^9}], + 3.516824704664837*^9, 3.5212569133712873`*^9, 3.5212577206893787`*^9, + 3.521262607556684*^9, 3.5212643283991756`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -615,7 +633,8 @@ Cell[BoxData[ 3.516731680511917*^9, {3.5167317564417458`*^9, 3.516731795563511*^9}, 3.51673213612991*^9, 3.516732198787406*^9, {3.516732602887973*^9, 3.5167326301299353`*^9}, 3.5167328182307243`*^9, 3.516732977777313*^9, - 3.516824704668312*^9}], + 3.516824704664837*^9, 3.5212569133712873`*^9, 3.5212577206893787`*^9, + 3.521262607556684*^9, 3.521264328407578*^9}], Cell[BoxData[ StyleBox[ @@ -634,7 +653,8 @@ Cell[BoxData[ 3.516731680511917*^9, {3.5167317564417458`*^9, 3.516731795563511*^9}, 3.51673213612991*^9, 3.516732198787406*^9, {3.516732602887973*^9, 3.5167326301299353`*^9}, 3.5167328182307243`*^9, 3.516732977777313*^9, - 3.516824704702063*^9}], + 3.516824704664837*^9, 3.5212569133712873`*^9, 3.5212577206893787`*^9, + 3.521262607556684*^9, 3.521264328465419*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -657,7 +677,8 @@ Cell[BoxData[ 3.516731680511917*^9, {3.5167317564417458`*^9, 3.516731795563511*^9}, 3.51673213612991*^9, 3.516732198787406*^9, {3.516732602887973*^9, 3.5167326301299353`*^9}, 3.5167328182307243`*^9, 3.516732977777313*^9, - 3.5168247047621107`*^9}] + 3.516824704664837*^9, 3.5212569133712873`*^9, 3.5212577206893787`*^9, + 3.521262607556684*^9, 3.521264328475233*^9}] }, Open ]] }, Open ]], @@ -688,7 +709,8 @@ Cell[BoxData[ 3.5167316805599623`*^9, {3.516731756494372*^9, 3.5167317956320753`*^9}, 3.516732136222925*^9, 3.516732198837963*^9, {3.516732602948072*^9, 3.5167326301826057`*^9}, 3.5167328183229647`*^9, 3.516732977908649*^9, - 3.516824704883059*^9}], + 3.516824704883059*^9, 3.52125691348531*^9, 3.521257720794236*^9, + 3.521262607761463*^9, 3.521264328737522*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -701,7 +723,8 @@ Cell[BoxData[ 3.5167316805599623`*^9, {3.516731756494372*^9, 3.5167317956320753`*^9}, 3.516732136222925*^9, 3.516732198837963*^9, {3.516732602948072*^9, 3.5167326301826057`*^9}, 3.5167328183229647`*^9, 3.516732977908649*^9, - 3.5168247048862267`*^9}], + 3.516824704883059*^9, 3.52125691348531*^9, 3.521257720794236*^9, + 3.521262607761463*^9, 3.521264328749864*^9}], Cell[BoxData[ StyleBox[ @@ -720,7 +743,8 @@ Cell[BoxData[ 3.5167316805599623`*^9, {3.516731756494372*^9, 3.5167317956320753`*^9}, 3.516732136222925*^9, 3.516732198837963*^9, {3.516732602948072*^9, 3.5167326301826057`*^9}, 3.5167328183229647`*^9, 3.516732977908649*^9, - 3.516824704890671*^9}], + 3.516824704883059*^9, 3.52125691348531*^9, 3.521257720794236*^9, + 3.521262607761463*^9, 3.5212643287588043`*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -743,7 +767,8 @@ Cell[BoxData[ 3.5167316805599623`*^9, {3.516731756494372*^9, 3.5167317956320753`*^9}, 3.516732136222925*^9, 3.516732198837963*^9, {3.516732602948072*^9, 3.5167326301826057`*^9}, 3.5167328183229647`*^9, 3.516732977908649*^9, - 3.516824704896007*^9}] + 3.516824704883059*^9, 3.52125691348531*^9, 3.521257720794236*^9, + 3.521262607761463*^9, 3.5212643287683983`*^9}] }, Open ]] }, Open ]], @@ -777,7 +802,8 @@ Cell[BoxData[ 3.516731680616723*^9, {3.516731756558777*^9, 3.516731795735806*^9}, 3.516732136270467*^9, 3.5167321988882313`*^9, {3.516732602993924*^9, 3.516732630229747*^9}, 3.516732818472025*^9, 3.516732977979822*^9, - 3.516824704933552*^9}], + 3.516824704933552*^9, 3.521256913536737*^9, 3.521257721041753*^9, + 3.521262607854607*^9, 3.521264328827342*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -790,7 +816,8 @@ Cell[BoxData[ 3.516731680616723*^9, {3.516731756558777*^9, 3.516731795735806*^9}, 3.516732136270467*^9, 3.5167321988882313`*^9, {3.516732602993924*^9, 3.516732630229747*^9}, 3.516732818472025*^9, 3.516732977979822*^9, - 3.5168247049366617`*^9}], + 3.516824704933552*^9, 3.521256913536737*^9, 3.521257721041753*^9, + 3.521262607854607*^9, 3.521264328835204*^9}], Cell[BoxData[ StyleBox[ @@ -810,7 +837,8 @@ Cell[BoxData[ 3.516731680616723*^9, {3.516731756558777*^9, 3.516731795735806*^9}, 3.516732136270467*^9, 3.5167321988882313`*^9, {3.516732602993924*^9, 3.516732630229747*^9}, 3.516732818472025*^9, 3.516732977979822*^9, - 3.516824704941101*^9}], + 3.516824704933552*^9, 3.521256913536737*^9, 3.521257721041753*^9, + 3.521262607854607*^9, 3.521264328843376*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -833,7 +861,8 @@ Cell[BoxData[ 3.516731680616723*^9, {3.516731756558777*^9, 3.516731795735806*^9}, 3.516732136270467*^9, 3.5167321988882313`*^9, {3.516732602993924*^9, 3.516732630229747*^9}, 3.516732818472025*^9, 3.516732977979822*^9, - 3.516824704946643*^9}] + 3.516824704933552*^9, 3.521256913536737*^9, 3.521257721041753*^9, + 3.521262607854607*^9, 3.5212643288525476`*^9}] }, Open ]] }, Open ]], @@ -874,7 +903,8 @@ Cell[BoxData[ 3.516731577182291*^9, 3.516731680665573*^9, {3.516731756610111*^9, 3.5167317957985287`*^9}, 3.516732136324093*^9, 3.516732198954379*^9, { 3.5167326030480824`*^9, 3.516732630293317*^9}, 3.516732818521365*^9, - 3.516732978215733*^9, 3.516824704983238*^9}], + 3.516732978215733*^9, 3.516824704983238*^9, 3.5212569135913153`*^9, + 3.521257721101118*^9, 3.52126260794488*^9, 3.521264328911689*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -887,7 +917,8 @@ Cell[BoxData[ 3.516731577182291*^9, 3.516731680665573*^9, {3.516731756610111*^9, 3.5167317957985287`*^9}, 3.516732136324093*^9, 3.516732198954379*^9, { 3.5167326030480824`*^9, 3.516732630293317*^9}, 3.516732818521365*^9, - 3.516732978215733*^9, 3.516824704986175*^9}], + 3.516732978215733*^9, 3.516824704983238*^9, 3.5212569135913153`*^9, + 3.521257721101118*^9, 3.52126260794488*^9, 3.521264328919277*^9}], Cell[BoxData[ StyleBox[ @@ -914,7 +945,8 @@ Cell[BoxData[ 3.516731577182291*^9, 3.516731680665573*^9, {3.516731756610111*^9, 3.5167317957985287`*^9}, 3.516732136324093*^9, 3.516732198954379*^9, { 3.5167326030480824`*^9, 3.516732630293317*^9}, 3.516732818521365*^9, - 3.516732978215733*^9, 3.516824704990749*^9}], + 3.516732978215733*^9, 3.516824704983238*^9, 3.5212569135913153`*^9, + 3.521257721101118*^9, 3.52126260794488*^9, 3.521264328927318*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -937,7 +969,8 @@ Cell[BoxData[ 3.516731577182291*^9, 3.516731680665573*^9, {3.516731756610111*^9, 3.5167317957985287`*^9}, 3.516732136324093*^9, 3.516732198954379*^9, { 3.5167326030480824`*^9, 3.516732630293317*^9}, 3.516732818521365*^9, - 3.516732978215733*^9, 3.5168247049961348`*^9}] + 3.516732978215733*^9, 3.516824704983238*^9, 3.5212569135913153`*^9, + 3.521257721101118*^9, 3.52126260794488*^9, 3.5212643289357767`*^9}] }, Open ]] }, Open ]], @@ -983,7 +1016,8 @@ Cell[BoxData[ 3.516731680730329*^9, {3.516731756658761*^9, 3.5167317958658*^9}, 3.51673213639461*^9, 3.516732199075218*^9, {3.5167326030943336`*^9, 3.516732630339243*^9}, 3.5167328186613913`*^9, 3.516732978274126*^9, - 3.516824705032584*^9}], + 3.516824705032584*^9, 3.521256913640126*^9, 3.521257721151206*^9, + 3.521262608028507*^9, 3.5212643289938173`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -996,7 +1030,8 @@ Cell[BoxData[ 3.516731680730329*^9, {3.516731756658761*^9, 3.5167317958658*^9}, 3.51673213639461*^9, 3.516732199075218*^9, {3.5167326030943336`*^9, 3.516732630339243*^9}, 3.5167328186613913`*^9, 3.516732978274126*^9, - 3.51682470503564*^9}], + 3.516824705032584*^9, 3.521256913640126*^9, 3.521257721151206*^9, + 3.521262608028507*^9, 3.521264329001375*^9}], Cell[BoxData[ StyleBox[ @@ -1049,7 +1084,8 @@ Cell[BoxData[ 3.516731680730329*^9, {3.516731756658761*^9, 3.5167317958658*^9}, 3.51673213639461*^9, 3.516732199075218*^9, {3.5167326030943336`*^9, 3.516732630339243*^9}, 3.5167328186613913`*^9, 3.516732978274126*^9, - 3.516824705041174*^9}], + 3.516824705032584*^9, 3.521256913640126*^9, 3.521257721151206*^9, + 3.521262608028507*^9, 3.521264329009802*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -1072,7 +1108,8 @@ Cell[BoxData[ 3.516731680730329*^9, {3.516731756658761*^9, 3.5167317958658*^9}, 3.51673213639461*^9, 3.516732199075218*^9, {3.5167326030943336`*^9, 3.516732630339243*^9}, 3.5167328186613913`*^9, 3.516732978274126*^9, - 3.516824705047214*^9}] + 3.516824705032584*^9, 3.521256913640126*^9, 3.521257721151206*^9, + 3.521262608028507*^9, 3.521264329018756*^9}] }, Open ]] }, Open ]], @@ -1116,7 +1153,8 @@ Cell[BoxData[ 3.516731680796364*^9, {3.5167317567067633`*^9, 3.516731795934009*^9}, 3.5167321364427013`*^9, 3.5167321991272573`*^9, {3.516732603228095*^9, 3.5167326303932056`*^9}, 3.516732818723093*^9, 3.516732978342925*^9, - 3.5168247050835857`*^9}], + 3.5168247050835857`*^9, 3.521256913690907*^9, 3.5212577212044897`*^9, + 3.521262608143508*^9, 3.5212643290785513`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -1129,7 +1167,8 @@ Cell[BoxData[ 3.516731680796364*^9, {3.5167317567067633`*^9, 3.516731795934009*^9}, 3.5167321364427013`*^9, 3.5167321991272573`*^9, {3.516732603228095*^9, 3.5167326303932056`*^9}, 3.516732818723093*^9, 3.516732978342925*^9, - 3.516824705086727*^9}], + 3.5168247050835857`*^9, 3.521256913690907*^9, 3.5212577212044897`*^9, + 3.521262608143508*^9, 3.521264329085845*^9}], Cell[BoxData[ StyleBox[ @@ -1182,7 +1221,8 @@ Cell[BoxData[ 3.516731680796364*^9, {3.5167317567067633`*^9, 3.516731795934009*^9}, 3.5167321364427013`*^9, 3.5167321991272573`*^9, {3.516732603228095*^9, 3.5167326303932056`*^9}, 3.516732818723093*^9, 3.516732978342925*^9, - 3.516824705091651*^9}], + 3.5168247050835857`*^9, 3.521256913690907*^9, 3.5212577212044897`*^9, + 3.521262608143508*^9, 3.521264329094017*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -1205,7 +1245,8 @@ Cell[BoxData[ 3.516731680796364*^9, {3.5167317567067633`*^9, 3.516731795934009*^9}, 3.5167321364427013`*^9, 3.5167321991272573`*^9, {3.516732603228095*^9, 3.5167326303932056`*^9}, 3.516732818723093*^9, 3.516732978342925*^9, - 3.516824705097609*^9}] + 3.5168247050835857`*^9, 3.521256913690907*^9, 3.5212577212044897`*^9, + 3.521262608143508*^9, 3.521264329102585*^9}] }, Open ]] }, Open ]], @@ -1257,7 +1298,8 @@ Cell[BoxData[ 3.516731577352072*^9, 3.516731680862996*^9, {3.516731756762844*^9, 3.5167317960019093`*^9}, 3.516732136490712*^9, 3.516732199196167*^9, { 3.5167326032780123`*^9, 3.516732630444997*^9}, 3.516732818777171*^9, - 3.5167329784128857`*^9, 3.5168247051396217`*^9}], + 3.5167329784128857`*^9, 3.5168247051396217`*^9, 3.5212569137578382`*^9, + 3.5212577212508173`*^9, 3.521262608225045*^9, 3.521264329161257*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -1271,7 +1313,8 @@ Cell[BoxData[ 3.516731577352072*^9, 3.516731680862996*^9, {3.516731756762844*^9, 3.5167317960019093`*^9}, 3.516732136490712*^9, 3.516732199196167*^9, { 3.5167326032780123`*^9, 3.516732630444997*^9}, 3.516732818777171*^9, - 3.5167329784128857`*^9, 3.516824705143428*^9}], + 3.5167329784128857`*^9, 3.5168247051396217`*^9, 3.5212569137578382`*^9, + 3.5212577212508173`*^9, 3.521262608225045*^9, 3.521264329168145*^9}], Cell[BoxData[ StyleBox[ @@ -1325,7 +1368,8 @@ Cell[BoxData[ 3.516731577352072*^9, 3.516731680862996*^9, {3.516731756762844*^9, 3.5167317960019093`*^9}, 3.516732136490712*^9, 3.516732199196167*^9, { 3.5167326032780123`*^9, 3.516732630444997*^9}, 3.516732818777171*^9, - 3.5167329784128857`*^9, 3.516824705148427*^9}], + 3.5167329784128857`*^9, 3.5168247051396217`*^9, 3.5212569137578382`*^9, + 3.5212577212508173`*^9, 3.521262608225045*^9, 3.521264329176064*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -1349,7 +1393,8 @@ Cell[BoxData[ 3.516731577352072*^9, 3.516731680862996*^9, {3.516731756762844*^9, 3.5167317960019093`*^9}, 3.516732136490712*^9, 3.516732199196167*^9, { 3.5167326032780123`*^9, 3.516732630444997*^9}, 3.516732818777171*^9, - 3.5167329784128857`*^9, 3.516824705154089*^9}] + 3.5167329784128857`*^9, 3.5168247051396217`*^9, 3.5212569137578382`*^9, + 3.5212577212508173`*^9, 3.521262608225045*^9, 3.521264329184363*^9}] }, Open ]] }, Open ]], @@ -1410,7 +1455,8 @@ Cell[BoxData[ 3.516731680923561*^9, {3.516731756829378*^9, 3.516731796067398*^9}, 3.516732136542252*^9, 3.5167321992423143`*^9, {3.516732603336282*^9, 3.51673263051143*^9}, 3.516732818819598*^9, 3.516732978479869*^9, - 3.516824705202471*^9}], + 3.516824705202471*^9, 3.5212569138192167`*^9, 3.5212577213004704`*^9, + 3.521262608409511*^9, 3.521264329244821*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -1423,7 +1469,8 @@ Cell[BoxData[ 3.516731680923561*^9, {3.516731756829378*^9, 3.516731796067398*^9}, 3.516732136542252*^9, 3.5167321992423143`*^9, {3.516732603336282*^9, 3.51673263051143*^9}, 3.516732818819598*^9, 3.516732978479869*^9, - 3.516824705205612*^9}], + 3.516824705202471*^9, 3.5212569138192167`*^9, 3.5212577213004704`*^9, + 3.521262608409511*^9, 3.521264329251388*^9}], Cell[BoxData[ StyleBox[ @@ -1515,7 +1562,8 @@ Cell[BoxData[ 3.516731680923561*^9, {3.516731756829378*^9, 3.516731796067398*^9}, 3.516732136542252*^9, 3.5167321992423143`*^9, {3.516732603336282*^9, 3.51673263051143*^9}, 3.516732818819598*^9, 3.516732978479869*^9, - 3.5168247052111588`*^9}], + 3.516824705202471*^9, 3.5212569138192167`*^9, 3.5212577213004704`*^9, + 3.521262608409511*^9, 3.52126432925943*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -1538,7 +1586,8 @@ Cell[BoxData[ 3.516731680923561*^9, {3.516731756829378*^9, 3.516731796067398*^9}, 3.516732136542252*^9, 3.5167321992423143`*^9, {3.516732603336282*^9, 3.51673263051143*^9}, 3.516732818819598*^9, 3.516732978479869*^9, - 3.516824705227393*^9}] + 3.516824705202471*^9, 3.5212569138192167`*^9, 3.5212577213004704`*^9, + 3.521262608409511*^9, 3.52126432926824*^9}] }, Open ]] }, Open ]], @@ -1618,7 +1667,8 @@ Cell[BoxData[ 3.5167316809788437`*^9, {3.516731756897237*^9, 3.516731796134094*^9}, 3.516732136592341*^9, 3.516732199312419*^9, {3.5167326034181623`*^9, 3.5167326305801783`*^9}, 3.516732818876729*^9, 3.5167329785512733`*^9, - 3.5168247052796373`*^9}], + 3.5168247052796373`*^9, 3.521256913891006*^9, 3.521257721350671*^9, + 3.521262608605639*^9, 3.5212643293277807`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -1631,7 +1681,8 @@ Cell[BoxData[ 3.5167316809788437`*^9, {3.516731756897237*^9, 3.516731796134094*^9}, 3.516732136592341*^9, 3.516732199312419*^9, {3.5167326034181623`*^9, 3.5167326305801783`*^9}, 3.516732818876729*^9, 3.5167329785512733`*^9, - 3.516824705282632*^9}], + 3.5168247052796373`*^9, 3.521256913891006*^9, 3.521257721350671*^9, + 3.521262608605639*^9, 3.521264329334125*^9}], Cell[BoxData[ StyleBox[ @@ -1725,7 +1776,8 @@ Cell[BoxData[ 3.5167316809788437`*^9, {3.516731756897237*^9, 3.516731796134094*^9}, 3.516732136592341*^9, 3.516732199312419*^9, {3.5167326034181623`*^9, 3.5167326305801783`*^9}, 3.516732818876729*^9, 3.5167329785512733`*^9, - 3.516824705287862*^9}], + 3.5168247052796373`*^9, 3.521256913891006*^9, 3.521257721350671*^9, + 3.521262608605639*^9, 3.521264329342054*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -1748,7 +1800,8 @@ Cell[BoxData[ 3.5167316809788437`*^9, {3.516731756897237*^9, 3.516731796134094*^9}, 3.516732136592341*^9, 3.516732199312419*^9, {3.5167326034181623`*^9, 3.5167326305801783`*^9}, 3.516732818876729*^9, 3.5167329785512733`*^9, - 3.5168247053047743`*^9}] + 3.5168247052796373`*^9, 3.521256913891006*^9, 3.521257721350671*^9, + 3.521262608605639*^9, 3.521264329350748*^9}] }, Open ]] }, Open ]], @@ -1811,7 +1864,8 @@ Cell[BoxData[ 3.516731681048294*^9, {3.51673175695864*^9, 3.516731796198127*^9}, 3.516732136695669*^9, 3.516732199381893*^9, {3.5167326034889297`*^9, 3.516732630640757*^9}, 3.516732818939186*^9, 3.516732978621174*^9, - 3.516824705379745*^9}], + 3.516824705379745*^9, 3.521256914033834*^9, 3.5212577214003887`*^9, + 3.521262608692266*^9, 3.521264329411014*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -1824,7 +1878,8 @@ Cell[BoxData[ 3.516731681048294*^9, {3.51673175695864*^9, 3.516731796198127*^9}, 3.516732136695669*^9, 3.516732199381893*^9, {3.5167326034889297`*^9, 3.516732630640757*^9}, 3.516732818939186*^9, 3.516732978621174*^9, - 3.516824705382707*^9}], + 3.516824705379745*^9, 3.521256914033834*^9, 3.5212577214003887`*^9, + 3.521262608692266*^9, 3.5212643294169273`*^9}], Cell[BoxData[ StyleBox[ @@ -2063,7 +2118,8 @@ Cell[BoxData[ 3.516731681048294*^9, {3.51673175695864*^9, 3.516731796198127*^9}, 3.516732136695669*^9, 3.516732199381893*^9, {3.5167326034889297`*^9, 3.516732630640757*^9}, 3.516732818939186*^9, 3.516732978621174*^9, - 3.5168247053896637`*^9}], + 3.516824705379745*^9, 3.521256914033834*^9, 3.5212577214003887`*^9, + 3.521262608692266*^9, 3.521264329426446*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -2086,7 +2142,8 @@ Cell[BoxData[ 3.516731681048294*^9, {3.51673175695864*^9, 3.516731796198127*^9}, 3.516732136695669*^9, 3.516732199381893*^9, {3.5167326034889297`*^9, 3.516732630640757*^9}, 3.516732818939186*^9, 3.516732978621174*^9, - 3.5168247053986673`*^9}] + 3.516824705379745*^9, 3.521256914033834*^9, 3.5212577214003887`*^9, + 3.521262608692266*^9, 3.5212643294377604`*^9}] }, Open ]] }, Open ]], @@ -2121,7 +2178,8 @@ Cell[BoxData[ 3.516731681113853*^9, {3.516731757024481*^9, 3.516731796293426*^9}, 3.516732136755756*^9, 3.516732199437037*^9, {3.516732603548974*^9, 3.5167326307099943`*^9}, 3.516732818985035*^9, 3.516732978693972*^9, - 3.516824705487671*^9}], + 3.516824705487671*^9, 3.521256914106627*^9, 3.521257721453783*^9, + 3.521262608775682*^9, 3.5212643294941998`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -2134,7 +2192,8 @@ Cell[BoxData[ 3.516731681113853*^9, {3.516731757024481*^9, 3.516731796293426*^9}, 3.516732136755756*^9, 3.516732199437037*^9, {3.516732603548974*^9, 3.5167326307099943`*^9}, 3.516732818985035*^9, 3.516732978693972*^9, - 3.516824705490801*^9}], + 3.516824705487671*^9, 3.521256914106627*^9, 3.521257721453783*^9, + 3.521262608775682*^9, 3.521264329499712*^9}], Cell[BoxData[ StyleBox[ @@ -2154,7 +2213,8 @@ Cell[BoxData[ 3.516731681113853*^9, {3.516731757024481*^9, 3.516731796293426*^9}, 3.516732136755756*^9, 3.516732199437037*^9, {3.516732603548974*^9, 3.5167326307099943`*^9}, 3.516732818985035*^9, 3.516732978693972*^9, - 3.51682470549541*^9}], + 3.516824705487671*^9, 3.521256914106627*^9, 3.521257721453783*^9, + 3.521262608775682*^9, 3.521264329506544*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -2177,7 +2237,8 @@ Cell[BoxData[ 3.516731681113853*^9, {3.516731757024481*^9, 3.516731796293426*^9}, 3.516732136755756*^9, 3.516732199437037*^9, {3.516732603548974*^9, 3.5167326307099943`*^9}, 3.516732818985035*^9, 3.516732978693972*^9, - 3.516824705500208*^9}] + 3.516824705487671*^9, 3.521256914106627*^9, 3.521257721453783*^9, + 3.521262608775682*^9, 3.52126432951339*^9}] }, Open ]] }, Open ]], @@ -2225,7 +2286,8 @@ Cell[BoxData[ 3.516731681178734*^9, {3.516731757075676*^9, 3.5167317963639793`*^9}, 3.51673213689216*^9, 3.516732199488155*^9, {3.516732603593631*^9, 3.516732630780987*^9}, 3.516732819038499*^9, 3.516732978757017*^9, - 3.516824705541452*^9}], + 3.516824705541452*^9, 3.521256914173128*^9, 3.521257721500002*^9, + 3.521262608843657*^9, 3.521264329653862*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -2238,7 +2300,8 @@ Cell[BoxData[ 3.516731681178734*^9, {3.516731757075676*^9, 3.5167317963639793`*^9}, 3.51673213689216*^9, 3.516732199488155*^9, {3.516732603593631*^9, 3.516732630780987*^9}, 3.516732819038499*^9, 3.516732978757017*^9, - 3.516824705544714*^9}], + 3.516824705541452*^9, 3.521256914173128*^9, 3.521257721500002*^9, + 3.521262608843657*^9, 3.5212643296587152`*^9}], Cell[BoxData[ StyleBox[ @@ -2292,7 +2355,8 @@ Cell[BoxData[ 3.516731681178734*^9, {3.516731757075676*^9, 3.5167317963639793`*^9}, 3.51673213689216*^9, 3.516732199488155*^9, {3.516732603593631*^9, 3.516732630780987*^9}, 3.516732819038499*^9, 3.516732978757017*^9, - 3.516824705549692*^9}], + 3.516824705541452*^9, 3.521256914173128*^9, 3.521257721500002*^9, + 3.521262608843657*^9, 3.521264329665831*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -2315,7 +2379,8 @@ Cell[BoxData[ 3.516731681178734*^9, {3.516731757075676*^9, 3.5167317963639793`*^9}, 3.51673213689216*^9, 3.516732199488155*^9, {3.516732603593631*^9, 3.516732630780987*^9}, 3.516732819038499*^9, 3.516732978757017*^9, - 3.516824705555015*^9}] + 3.516824705541452*^9, 3.521256914173128*^9, 3.521257721500002*^9, + 3.521262608843657*^9, 3.521264329673527*^9}] }, Open ]] }, Open ]], @@ -2365,7 +2430,8 @@ Cell[BoxData[ 3.516731681258573*^9, {3.516731757166366*^9, 3.516731796426297*^9}, 3.516732136937819*^9, 3.516732199568362*^9, {3.5167326036447077`*^9, 3.516732630905698*^9}, 3.5167328190881233`*^9, 3.51673297882874*^9, - 3.516824705601219*^9}], + 3.516824705601219*^9, 3.521256914238634*^9, 3.521257721550139*^9, + 3.521262608923991*^9, 3.521264329726892*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -2378,7 +2444,8 @@ Cell[BoxData[ 3.516731681258573*^9, {3.516731757166366*^9, 3.516731796426297*^9}, 3.516732136937819*^9, 3.516732199568362*^9, {3.5167326036447077`*^9, 3.516732630905698*^9}, 3.5167328190881233`*^9, 3.51673297882874*^9, - 3.5168247056038637`*^9}], + 3.516824705601219*^9, 3.521256914238634*^9, 3.521257721550139*^9, + 3.521262608923991*^9, 3.521264329731491*^9}], Cell[BoxData[ StyleBox[ @@ -2433,7 +2500,8 @@ Cell[BoxData[ 3.516731681258573*^9, {3.516731757166366*^9, 3.516731796426297*^9}, 3.516732136937819*^9, 3.516732199568362*^9, {3.5167326036447077`*^9, 3.516732630905698*^9}, 3.5167328190881233`*^9, 3.51673297882874*^9, - 3.516824705608369*^9}], + 3.516824705601219*^9, 3.521256914238634*^9, 3.521257721550139*^9, + 3.521262608923991*^9, 3.521264329738453*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -2456,7 +2524,8 @@ Cell[BoxData[ 3.516731681258573*^9, {3.516731757166366*^9, 3.516731796426297*^9}, 3.516732136937819*^9, 3.516732199568362*^9, {3.5167326036447077`*^9, 3.516732630905698*^9}, 3.5167328190881233`*^9, 3.51673297882874*^9, - 3.516824705613358*^9}] + 3.516824705601219*^9, 3.521256914238634*^9, 3.521257721550139*^9, + 3.521262608923991*^9, 3.521264329745392*^9}] }, Open ]] }, Open ]], @@ -2506,7 +2575,8 @@ Cell[BoxData[ 3.516731681329039*^9, {3.516731757238184*^9, 3.5167317964828243`*^9}, 3.5167321369898777`*^9, 3.5167321996189203`*^9, {3.516732603692952*^9, 3.516732630960497*^9}, 3.51673281913822*^9, 3.516732978893848*^9, - 3.516824705651142*^9}], + 3.516824705651142*^9, 3.5212569143061657`*^9, 3.521257721599701*^9, + 3.52126260899587*^9, 3.52126432979714*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -2519,7 +2589,8 @@ Cell[BoxData[ 3.516731681329039*^9, {3.516731757238184*^9, 3.5167317964828243`*^9}, 3.5167321369898777`*^9, 3.5167321996189203`*^9, {3.516732603692952*^9, 3.516732630960497*^9}, 3.51673281913822*^9, 3.516732978893848*^9, - 3.516824705653738*^9}], + 3.516824705651142*^9, 3.5212569143061657`*^9, 3.521257721599701*^9, + 3.52126260899587*^9, 3.521264329801667*^9}], Cell[BoxData[ StyleBox[ @@ -2575,7 +2646,8 @@ Cell[BoxData[ 3.516731681329039*^9, {3.516731757238184*^9, 3.5167317964828243`*^9}, 3.5167321369898777`*^9, 3.5167321996189203`*^9, {3.516732603692952*^9, 3.516732630960497*^9}, 3.51673281913822*^9, 3.516732978893848*^9, - 3.516824705658032*^9}], + 3.516824705651142*^9, 3.5212569143061657`*^9, 3.521257721599701*^9, + 3.52126260899587*^9, 3.5212643298080683`*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -2598,7 +2670,8 @@ Cell[BoxData[ 3.516731681329039*^9, {3.516731757238184*^9, 3.5167317964828243`*^9}, 3.5167321369898777`*^9, 3.5167321996189203`*^9, {3.516732603692952*^9, 3.516732630960497*^9}, 3.51673281913822*^9, 3.516732978893848*^9, - 3.516824705662931*^9}] + 3.516824705651142*^9, 3.5212569143061657`*^9, 3.521257721599701*^9, + 3.52126260899587*^9, 3.521264329814876*^9}] }, Open ]] }, Open ]], @@ -2645,7 +2718,8 @@ Cell[BoxData[ 3.516731681395563*^9, {3.516731757294936*^9, 3.516731796549912*^9}, 3.516732137037071*^9, 3.5167321996685543`*^9, {3.5167326037452497`*^9, 3.516732631021821*^9}, 3.516732819187846*^9, 3.516732978961193*^9, - 3.5168247057031813`*^9}], + 3.5168247057031813`*^9, 3.521256914372424*^9, 3.5212577216493883`*^9, + 3.5212626090737886`*^9, 3.52126432987716*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -2658,7 +2732,8 @@ Cell[BoxData[ 3.516731681395563*^9, {3.516731757294936*^9, 3.516731796549912*^9}, 3.516732137037071*^9, 3.5167321996685543`*^9, {3.5167326037452497`*^9, 3.516732631021821*^9}, 3.516732819187846*^9, 3.516732978961193*^9, - 3.516824705705755*^9}], + 3.5168247057031813`*^9, 3.521256914372424*^9, 3.5212577216493883`*^9, + 3.5212626090737886`*^9, 3.521264329882024*^9}], Cell[BoxData[ StyleBox[ @@ -2712,7 +2787,8 @@ Cell[BoxData[ 3.516731681395563*^9, {3.516731757294936*^9, 3.516731796549912*^9}, 3.516732137037071*^9, 3.5167321996685543`*^9, {3.5167326037452497`*^9, 3.516732631021821*^9}, 3.516732819187846*^9, 3.516732978961193*^9, - 3.516824705710321*^9}], + 3.5168247057031813`*^9, 3.521256914372424*^9, 3.5212577216493883`*^9, + 3.5212626090737886`*^9, 3.521264329889422*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -2735,7 +2811,8 @@ Cell[BoxData[ 3.516731681395563*^9, {3.516731757294936*^9, 3.516731796549912*^9}, 3.516732137037071*^9, 3.5167321996685543`*^9, {3.5167326037452497`*^9, 3.516732631021821*^9}, 3.516732819187846*^9, 3.516732978961193*^9, - 3.516824705714957*^9}] + 3.5168247057031813`*^9, 3.521256914372424*^9, 3.5212577216493883`*^9, + 3.5212626090737886`*^9, 3.5212643298972178`*^9}] }, Open ]] }, Open ]], @@ -2786,7 +2863,8 @@ Cell[BoxData[ 3.516731681460767*^9, {3.5167317573603*^9, 3.5167317966115913`*^9}, 3.516732137088746*^9, 3.516732199717873*^9, {3.5167326037918987`*^9, 3.5167326310776033`*^9}, 3.516732819242426*^9, 3.5167329790240793`*^9, - 3.5168247057525473`*^9}], + 3.5168247057525473`*^9, 3.521256914438448*^9, 3.521257721698968*^9, + 3.521262609144574*^9, 3.5212643299616632`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -2799,7 +2877,8 @@ Cell[BoxData[ 3.516731681460767*^9, {3.5167317573603*^9, 3.5167317966115913`*^9}, 3.516732137088746*^9, 3.516732199717873*^9, {3.5167326037918987`*^9, 3.5167326310776033`*^9}, 3.516732819242426*^9, 3.5167329790240793`*^9, - 3.516824705755123*^9}], + 3.5168247057525473`*^9, 3.521256914438448*^9, 3.521257721698968*^9, + 3.521262609144574*^9, 3.521264329966199*^9}], Cell[BoxData[ StyleBox[ @@ -2854,7 +2933,8 @@ Cell[BoxData[ 3.516731681460767*^9, {3.5167317573603*^9, 3.5167317966115913`*^9}, 3.516732137088746*^9, 3.516732199717873*^9, {3.5167326037918987`*^9, 3.5167326310776033`*^9}, 3.516732819242426*^9, 3.5167329790240793`*^9, - 3.516824705759613*^9}], + 3.5168247057525473`*^9, 3.521256914438448*^9, 3.521257721698968*^9, + 3.521262609144574*^9, 3.5212643299728327`*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -2877,7 +2957,8 @@ Cell[BoxData[ 3.516731681460767*^9, {3.5167317573603*^9, 3.5167317966115913`*^9}, 3.516732137088746*^9, 3.516732199717873*^9, {3.5167326037918987`*^9, 3.5167326310776033`*^9}, 3.516732819242426*^9, 3.5167329790240793`*^9, - 3.516824705764347*^9}] + 3.5168247057525473`*^9, 3.521256914438448*^9, 3.521257721698968*^9, + 3.521262609144574*^9, 3.5212643299779873`*^9}] }, Open ]] }, Open ]], @@ -2943,7 +3024,8 @@ Cell[BoxData[ 3.516731681532116*^9, {3.516731757428342*^9, 3.516731796680023*^9}, 3.51673213714289*^9, 3.5167321997727013`*^9, {3.516732603841528*^9, 3.5167326311439667`*^9}, 3.516732819290326*^9, 3.516732979170691*^9, - 3.516824705886352*^9}], + 3.516824705886352*^9, 3.521256914504818*^9, 3.521257721749737*^9, + 3.521262609212882*^9, 3.521264330040929*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -2956,7 +3038,8 @@ Cell[BoxData[ 3.516731681532116*^9, {3.516731757428342*^9, 3.516731796680023*^9}, 3.51673213714289*^9, 3.5167321997727013`*^9, {3.516732603841528*^9, 3.5167326311439667`*^9}, 3.516732819290326*^9, 3.516732979170691*^9, - 3.516824705889153*^9}], + 3.516824705886352*^9, 3.521256914504818*^9, 3.521257721749737*^9, + 3.521262609212882*^9, 3.521264330044683*^9}], Cell[BoxData[ StyleBox[ @@ -3051,7 +3134,8 @@ Cell[BoxData[ 3.516731681532116*^9, {3.516731757428342*^9, 3.516731796680023*^9}, 3.51673213714289*^9, 3.5167321997727013`*^9, {3.516732603841528*^9, 3.5167326311439667`*^9}, 3.516732819290326*^9, 3.516732979170691*^9, - 3.5168247058940363`*^9}], + 3.516824705886352*^9, 3.521256914504818*^9, 3.521257721749737*^9, + 3.521262609212882*^9, 3.5212643300526667`*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -3074,7 +3158,8 @@ Cell[BoxData[ 3.516731681532116*^9, {3.516731757428342*^9, 3.516731796680023*^9}, 3.51673213714289*^9, 3.5167321997727013`*^9, {3.516732603841528*^9, 3.5167326311439667`*^9}, 3.516732819290326*^9, 3.516732979170691*^9, - 3.5168247058996468`*^9}] + 3.516824705886352*^9, 3.521256914504818*^9, 3.521257721749737*^9, + 3.521262609212882*^9, 3.521264330057765*^9}] }, Open ]] }, Open ]], @@ -3137,7 +3222,8 @@ Cell[BoxData[ CellChangeTimes->{{3.51673185182126*^9, 3.5167318964356327`*^9}, 3.516732014183846*^9, 3.516732137185411*^9, 3.516732199838217*^9, { 3.5167326038919086`*^9, 3.516732631232738*^9}, 3.516732819340469*^9, - 3.516732979224564*^9, 3.51682470593295*^9}] + 3.516732979224564*^9, 3.51682470593295*^9, 3.5212569145715857`*^9, + 3.5212577218531017`*^9, 3.5212626092794733`*^9, 3.521264330110587*^9}] }, Open ]], Cell[CellGroupData[{ @@ -3168,7 +3254,8 @@ Cell[BoxData[ CellChangeTimes->{ 3.516731998752602*^9, 3.516732137241309*^9, 3.516732199887875*^9, { 3.5167326039467373`*^9, 3.516732631272839*^9}, 3.5167328194670753`*^9, - 3.516732979279645*^9, 3.51682470598182*^9}] + 3.516732979279645*^9, 3.51682470598182*^9, 3.521256914617464*^9, + 3.521257722099844*^9, 3.521262609335596*^9, 3.521264330159471*^9}] }, Open ]], Cell[CellGroupData[{ @@ -3196,7 +3283,8 @@ Cell[BoxData[ CellChangeTimes->{{3.516731948124752*^9, 3.516731960478508*^9}, 3.516732137283737*^9, 3.516732199922017*^9, {3.516732603989976*^9, 3.516732631326807*^9}, 3.516732819522175*^9, 3.516732979322074*^9, - 3.516824706029572*^9}] + 3.516824706029572*^9, 3.521256914672274*^9, 3.521257722134296*^9, + 3.521262609389062*^9, 3.5212643302088614`*^9}] }, Open ]] }, Open ]], @@ -3242,7 +3330,9 @@ Cell[BoxData[ 3.516731544467341*^9, 3.516731578140492*^9, 3.516731681670764*^9, { 3.516731757570155*^9, 3.51673179682692*^9}, 3.5167321373505507`*^9, 3.51673219999888*^9, {3.516732604073308*^9, 3.51673263140281*^9}, - 3.516732819583631*^9, 3.516732979401548*^9, 3.516824706140491*^9}], + 3.516732819583631*^9, 3.516732979401548*^9, 3.516824706140491*^9, + 3.521256914745634*^9, 3.521257722211617*^9, 3.5212626096549892`*^9, + 3.521264330286954*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -3254,7 +3344,9 @@ Cell[BoxData[ 3.516731544467341*^9, 3.516731578140492*^9, 3.516731681670764*^9, { 3.516731757570155*^9, 3.51673179682692*^9}, 3.5167321373505507`*^9, 3.51673219999888*^9, {3.516732604073308*^9, 3.51673263140281*^9}, - 3.516732819583631*^9, 3.516732979401548*^9, 3.51682470614323*^9}], + 3.516732819583631*^9, 3.516732979401548*^9, 3.516824706140491*^9, + 3.521256914745634*^9, 3.521257722211617*^9, 3.5212626096549892`*^9, + 3.521264330290659*^9}], Cell[BoxData[ StyleBox[ @@ -3286,7 +3378,9 @@ Cell[BoxData[ 3.516731544467341*^9, 3.516731578140492*^9, 3.516731681670764*^9, { 3.516731757570155*^9, 3.51673179682692*^9}, 3.5167321373505507`*^9, 3.51673219999888*^9, {3.516732604073308*^9, 3.51673263140281*^9}, - 3.516732819583631*^9, 3.516732979401548*^9, 3.516824706147312*^9}], + 3.516732819583631*^9, 3.516732979401548*^9, 3.516824706140491*^9, + 3.521256914745634*^9, 3.521257722211617*^9, 3.5212626096549892`*^9, + 3.521264330296455*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -3308,7 +3402,9 @@ Cell[BoxData[ 3.516731544467341*^9, 3.516731578140492*^9, 3.516731681670764*^9, { 3.516731757570155*^9, 3.51673179682692*^9}, 3.5167321373505507`*^9, 3.51673219999888*^9, {3.516732604073308*^9, 3.51673263140281*^9}, - 3.516732819583631*^9, 3.516732979401548*^9, 3.516824706151589*^9}] + 3.516732819583631*^9, 3.516732979401548*^9, 3.516824706140491*^9, + 3.521256914745634*^9, 3.521257722211617*^9, 3.5212626096549892`*^9, + 3.5212643303017387`*^9}] }, Open ]] }, Open ]], @@ -3360,7 +3456,9 @@ Cell[BoxData[ 3.516731544516218*^9, 3.516731578189733*^9, 3.516731681722002*^9, { 3.516731757624969*^9, 3.516731796878283*^9}, 3.5167321374012213`*^9, 3.5167322000511303`*^9, {3.516732604113152*^9, 3.516732631454348*^9}, - 3.5167328196335506`*^9, 3.5167329794531727`*^9, 3.5168247061866827`*^9}], + 3.5167328196335506`*^9, 3.5167329794531727`*^9, 3.5168247061866827`*^9, + 3.521256914798788*^9, 3.521257722317206*^9, 3.5212626098269453`*^9, + 3.5212643303599052`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -3372,7 +3470,9 @@ Cell[BoxData[ 3.516731544516218*^9, 3.516731578189733*^9, 3.516731681722002*^9, { 3.516731757624969*^9, 3.516731796878283*^9}, 3.5167321374012213`*^9, 3.5167322000511303`*^9, {3.516732604113152*^9, 3.516732631454348*^9}, - 3.5167328196335506`*^9, 3.5167329794531727`*^9, 3.516824706189254*^9}], + 3.5167328196335506`*^9, 3.5167329794531727`*^9, 3.5168247061866827`*^9, + 3.521256914798788*^9, 3.521257722317206*^9, 3.5212626098269453`*^9, + 3.521264330363694*^9}], Cell[BoxData[ StyleBox[ @@ -3458,7 +3558,9 @@ Cell[BoxData[ 3.516731544516218*^9, 3.516731578189733*^9, 3.516731681722002*^9, { 3.516731757624969*^9, 3.516731796878283*^9}, 3.5167321374012213`*^9, 3.5167322000511303`*^9, {3.516732604113152*^9, 3.516732631454348*^9}, - 3.5167328196335506`*^9, 3.5167329794531727`*^9, 3.5168247061939287`*^9}], + 3.5167328196335506`*^9, 3.5167329794531727`*^9, 3.5168247061866827`*^9, + 3.521256914798788*^9, 3.521257722317206*^9, 3.5212626098269453`*^9, + 3.521264330371313*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -3480,7 +3582,9 @@ Cell[BoxData[ 3.516731544516218*^9, 3.516731578189733*^9, 3.516731681722002*^9, { 3.516731757624969*^9, 3.516731796878283*^9}, 3.5167321374012213`*^9, 3.5167322000511303`*^9, {3.516732604113152*^9, 3.516732631454348*^9}, - 3.5167328196335506`*^9, 3.5167329794531727`*^9, 3.516824706199259*^9}] + 3.5167328196335506`*^9, 3.5167329794531727`*^9, 3.5168247061866827`*^9, + 3.521256914798788*^9, 3.521257722317206*^9, 3.5212626098269453`*^9, + 3.521264330376164*^9}] }, Open ]] }, Open ]], @@ -3542,7 +3646,9 @@ Cell[BoxData[ 3.51673154457157*^9, 3.51673157824576*^9, 3.516731681774991*^9, { 3.516731757691773*^9, 3.516731796944338*^9}, 3.516732137455521*^9, 3.516732200099708*^9, {3.516732604241722*^9, 3.516732631507614*^9}, - 3.516732819685347*^9, 3.51673297952499*^9, 3.516824706243663*^9}], + 3.516732819685347*^9, 3.51673297952499*^9, 3.516824706243663*^9, + 3.521256914851131*^9, 3.52125772236751*^9, 3.521262609895396*^9, + 3.521264330425653*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -3554,7 +3660,9 @@ Cell[BoxData[ 3.51673154457157*^9, 3.51673157824576*^9, 3.516731681774991*^9, { 3.516731757691773*^9, 3.516731796944338*^9}, 3.516732137455521*^9, 3.516732200099708*^9, {3.516732604241722*^9, 3.516732631507614*^9}, - 3.516732819685347*^9, 3.51673297952499*^9, 3.5168247062460947`*^9}], + 3.516732819685347*^9, 3.51673297952499*^9, 3.516824706243663*^9, + 3.521256914851131*^9, 3.52125772236751*^9, 3.521262609895396*^9, + 3.521264330428728*^9}], Cell[BoxData[ StyleBox[ @@ -3685,7 +3793,9 @@ Cell[BoxData[ 3.51673154457157*^9, 3.51673157824576*^9, 3.516731681774991*^9, { 3.516731757691773*^9, 3.516731796944338*^9}, 3.516732137455521*^9, 3.516732200099708*^9, {3.516732604241722*^9, 3.516732631507614*^9}, - 3.516732819685347*^9, 3.51673297952499*^9, 3.516824706251177*^9}], + 3.516732819685347*^9, 3.51673297952499*^9, 3.516824706243663*^9, + 3.521256914851131*^9, 3.52125772236751*^9, 3.521262609895396*^9, + 3.5212643304374313`*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -3707,7 +3817,9 @@ Cell[BoxData[ 3.51673154457157*^9, 3.51673157824576*^9, 3.516731681774991*^9, { 3.516731757691773*^9, 3.516731796944338*^9}, 3.516732137455521*^9, 3.516732200099708*^9, {3.516732604241722*^9, 3.516732631507614*^9}, - 3.516732819685347*^9, 3.51673297952499*^9, 3.516824706257098*^9}] + 3.516732819685347*^9, 3.51673297952499*^9, 3.516824706243663*^9, + 3.521256914851131*^9, 3.52125772236751*^9, 3.521262609895396*^9, + 3.521264330442306*^9}] }, Open ]] }, Open ]], @@ -3751,7 +3863,9 @@ Cell[BoxData[ 3.516731544638344*^9, 3.5167315783121147`*^9, 3.516731681840645*^9, { 3.516731757764868*^9, 3.516731797010254*^9}, 3.516732137502287*^9, 3.5167322001500998`*^9, {3.5167326042906647`*^9, 3.5167326315755577`*^9}, - 3.51673281973274*^9, 3.5167329795866737`*^9, 3.5168247062971487`*^9}], + 3.51673281973274*^9, 3.5167329795866737`*^9, 3.5168247062971487`*^9, + 3.521256914921678*^9, 3.521257722417509*^9, 3.5212626099617157`*^9, + 3.5212643304920683`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -3763,7 +3877,9 @@ Cell[BoxData[ 3.516731544638344*^9, 3.5167315783121147`*^9, 3.516731681840645*^9, { 3.516731757764868*^9, 3.516731797010254*^9}, 3.516732137502287*^9, 3.5167322001500998`*^9, {3.5167326042906647`*^9, 3.5167326315755577`*^9}, - 3.51673281973274*^9, 3.5167329795866737`*^9, 3.516824706299583*^9}], + 3.51673281973274*^9, 3.5167329795866737`*^9, 3.5168247062971487`*^9, + 3.521256914921678*^9, 3.521257722417509*^9, 3.5212626099617157`*^9, + 3.521264330494719*^9}], Cell[BoxData[ StyleBox[ @@ -3816,7 +3932,9 @@ Cell[BoxData[ 3.516731544638344*^9, 3.5167315783121147`*^9, 3.516731681840645*^9, { 3.516731757764868*^9, 3.516731797010254*^9}, 3.516732137502287*^9, 3.5167322001500998`*^9, {3.5167326042906647`*^9, 3.5167326315755577`*^9}, - 3.51673281973274*^9, 3.5167329795866737`*^9, 3.516824706303815*^9}], + 3.51673281973274*^9, 3.5167329795866737`*^9, 3.5168247062971487`*^9, + 3.521256914921678*^9, 3.521257722417509*^9, 3.5212626099617157`*^9, + 3.521264330500743*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -3838,7 +3956,9 @@ Cell[BoxData[ 3.516731544638344*^9, 3.5167315783121147`*^9, 3.516731681840645*^9, { 3.516731757764868*^9, 3.516731797010254*^9}, 3.516732137502287*^9, 3.5167322001500998`*^9, {3.5167326042906647`*^9, 3.5167326315755577`*^9}, - 3.51673281973274*^9, 3.5167329795866737`*^9, 3.516824706308696*^9}] + 3.51673281973274*^9, 3.5167329795866737`*^9, 3.5168247062971487`*^9, + 3.521256914921678*^9, 3.521257722417509*^9, 3.5212626099617157`*^9, + 3.5212643305063143`*^9}] }, Open ]] }, Open ]] }, Open ]], @@ -3888,7 +4008,9 @@ Cell[BoxData[ 3.516731544704298*^9, 3.516731578378796*^9, 3.516731681911566*^9, { 3.516731757819166*^9, 3.516731797079649*^9}, 3.5167321375525703`*^9, 3.516732200200448*^9, {3.5167326043414288`*^9, 3.516732631640379*^9}, - 3.5167328198063297`*^9, 3.516732979641474*^9, 3.5168247063484497`*^9}], + 3.5167328198063297`*^9, 3.516732979641474*^9, 3.5168247063484497`*^9, + 3.5212569150652246`*^9, 3.521257722516788*^9, 3.521262610024314*^9, + 3.521264330557225*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -3900,7 +4022,9 @@ Cell[BoxData[ 3.516731544704298*^9, 3.516731578378796*^9, 3.516731681911566*^9, { 3.516731757819166*^9, 3.516731797079649*^9}, 3.5167321375525703`*^9, 3.516732200200448*^9, {3.5167326043414288`*^9, 3.516732631640379*^9}, - 3.5167328198063297`*^9, 3.516732979641474*^9, 3.516824706350959*^9}], + 3.5167328198063297`*^9, 3.516732979641474*^9, 3.5168247063484497`*^9, + 3.5212569150652246`*^9, 3.521257722516788*^9, 3.521262610024314*^9, + 3.5212643305596857`*^9}], Cell[BoxData[ StyleBox[ @@ -3926,7 +4050,9 @@ Cell[BoxData[ 3.516731544704298*^9, 3.516731578378796*^9, 3.516731681911566*^9, { 3.516731757819166*^9, 3.516731797079649*^9}, 3.5167321375525703`*^9, 3.516732200200448*^9, {3.5167326043414288`*^9, 3.516732631640379*^9}, - 3.5167328198063297`*^9, 3.516732979641474*^9, 3.516824706355105*^9}], + 3.5167328198063297`*^9, 3.516732979641474*^9, 3.5168247063484497`*^9, + 3.5212569150652246`*^9, 3.521257722516788*^9, 3.521262610024314*^9, + 3.5212643305646*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -3948,7 +4074,9 @@ Cell[BoxData[ 3.516731544704298*^9, 3.516731578378796*^9, 3.516731681911566*^9, { 3.516731757819166*^9, 3.516731797079649*^9}, 3.5167321375525703`*^9, 3.516732200200448*^9, {3.5167326043414288`*^9, 3.516732631640379*^9}, - 3.5167328198063297`*^9, 3.516732979641474*^9, 3.516824706359313*^9}] + 3.5167328198063297`*^9, 3.516732979641474*^9, 3.5168247063484497`*^9, + 3.5212569150652246`*^9, 3.521257722516788*^9, 3.521262610024314*^9, + 3.521264330569936*^9}] }, Open ]] }, Open ]], @@ -3986,7 +4114,9 @@ Cell[BoxData[ 3.516731544773993*^9, 3.5167315784467278`*^9, 3.516731681975102*^9, { 3.516731757873639*^9, 3.516731797144074*^9}, 3.516732137607779*^9, 3.516732200251177*^9, {3.516732604389122*^9, 3.5167326316910677`*^9}, - 3.516732819848678*^9, 3.5167329796827173`*^9, 3.5168247064023113`*^9}], + 3.516732819848678*^9, 3.5167329796827173`*^9, 3.5168247064023113`*^9, + 3.521256915120112*^9, 3.521257722615469*^9, 3.521262610085116*^9, + 3.521264330719975*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -3998,7 +4128,9 @@ Cell[BoxData[ 3.516731544773993*^9, 3.5167315784467278`*^9, 3.516731681975102*^9, { 3.516731757873639*^9, 3.516731797144074*^9}, 3.516732137607779*^9, 3.516732200251177*^9, {3.516732604389122*^9, 3.5167326316910677`*^9}, - 3.516732819848678*^9, 3.5167329796827173`*^9, 3.5168247064047413`*^9}], + 3.516732819848678*^9, 3.5167329796827173`*^9, 3.5168247064023113`*^9, + 3.521256915120112*^9, 3.521257722615469*^9, 3.521262610085116*^9, + 3.521264330722539*^9}], Cell[BoxData[ StyleBox[ @@ -4015,7 +4147,9 @@ Cell[BoxData[ 3.516731544773993*^9, 3.5167315784467278`*^9, 3.516731681975102*^9, { 3.516731757873639*^9, 3.516731797144074*^9}, 3.516732137607779*^9, 3.516732200251177*^9, {3.516732604389122*^9, 3.5167326316910677`*^9}, - 3.516732819848678*^9, 3.5167329796827173`*^9, 3.5168247064090776`*^9}], + 3.516732819848678*^9, 3.5167329796827173`*^9, 3.5168247064023113`*^9, + 3.521256915120112*^9, 3.521257722615469*^9, 3.521262610085116*^9, + 3.521264330727393*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -4037,7 +4171,9 @@ Cell[BoxData[ 3.516731544773993*^9, 3.5167315784467278`*^9, 3.516731681975102*^9, { 3.516731757873639*^9, 3.516731797144074*^9}, 3.516732137607779*^9, 3.516732200251177*^9, {3.516732604389122*^9, 3.5167326316910677`*^9}, - 3.516732819848678*^9, 3.5167329796827173`*^9, 3.516824706412909*^9}] + 3.516732819848678*^9, 3.5167329796827173`*^9, 3.5168247064023113`*^9, + 3.521256915120112*^9, 3.521257722615469*^9, 3.521262610085116*^9, + 3.521264330732476*^9}] }, Open ]] }, Open ]], @@ -4090,7 +4226,9 @@ Cell[BoxData[ 3.5167315448388357`*^9, 3.516731578511259*^9, 3.516731682039001*^9, { 3.516731757936365*^9, 3.5167317972100477`*^9}, 3.516732137650022*^9, 3.516732200301606*^9, {3.5167326044413137`*^9, 3.516732631756206*^9}, - 3.516732819902467*^9, 3.51673297973761*^9, 3.516824706446342*^9}], + 3.516732819902467*^9, 3.51673297973761*^9, 3.516824706446342*^9, + 3.521256915188459*^9, 3.521257722666616*^9, 3.5212626101484737`*^9, + 3.5212643307901382`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -4102,7 +4240,9 @@ Cell[BoxData[ 3.5167315448388357`*^9, 3.516731578511259*^9, 3.516731682039001*^9, { 3.516731757936365*^9, 3.5167317972100477`*^9}, 3.516732137650022*^9, 3.516732200301606*^9, {3.5167326044413137`*^9, 3.516732631756206*^9}, - 3.516732819902467*^9, 3.51673297973761*^9, 3.5168247064489117`*^9}], + 3.516732819902467*^9, 3.51673297973761*^9, 3.516824706446342*^9, + 3.521256915188459*^9, 3.521257722666616*^9, 3.5212626101484737`*^9, + 3.5212643307925386`*^9}], Cell[BoxData[ StyleBox[ @@ -4125,7 +4265,9 @@ Cell[BoxData[ 3.5167315448388357`*^9, 3.516731578511259*^9, 3.516731682039001*^9, { 3.516731757936365*^9, 3.5167317972100477`*^9}, 3.516732137650022*^9, 3.516732200301606*^9, {3.5167326044413137`*^9, 3.516732631756206*^9}, - 3.516732819902467*^9, 3.51673297973761*^9, 3.5168247064527817`*^9}], + 3.516732819902467*^9, 3.51673297973761*^9, 3.516824706446342*^9, + 3.521256915188459*^9, 3.521257722666616*^9, 3.5212626101484737`*^9, + 3.521264330797325*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -4147,7 +4289,9 @@ Cell[BoxData[ 3.5167315448388357`*^9, 3.516731578511259*^9, 3.516731682039001*^9, { 3.516731757936365*^9, 3.5167317972100477`*^9}, 3.516732137650022*^9, 3.516732200301606*^9, {3.5167326044413137`*^9, 3.516732631756206*^9}, - 3.516732819902467*^9, 3.51673297973761*^9, 3.516824706457304*^9}] + 3.516732819902467*^9, 3.51673297973761*^9, 3.516824706446342*^9, + 3.521256915188459*^9, 3.521257722666616*^9, 3.5212626101484737`*^9, + 3.521264330802761*^9}] }, Open ]] }, Open ]], @@ -4192,7 +4336,8 @@ Cell[BoxData[ 3.5167316474164543`*^9}, 3.5167316820909357`*^9, {3.516731757986741*^9, 3.516731797261787*^9}, 3.5167321377024612`*^9, 3.516732200348918*^9, { 3.5167326044895067`*^9, 3.51673263182626*^9}, 3.5167328199668713`*^9, - 3.516732979784316*^9, 3.5168247064976053`*^9}], + 3.516732979784316*^9, 3.5168247064976053`*^9, 3.521256915249794*^9, + 3.5212577227101173`*^9, 3.521262610212508*^9, 3.5212643309803123`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -4206,7 +4351,8 @@ Cell[BoxData[ 3.5167316474164543`*^9}, 3.5167316820909357`*^9, {3.516731757986741*^9, 3.516731797261787*^9}, 3.5167321377024612`*^9, 3.516732200348918*^9, { 3.5167326044895067`*^9, 3.51673263182626*^9}, 3.5167328199668713`*^9, - 3.516732979784316*^9, 3.516824706500112*^9}], + 3.516732979784316*^9, 3.5168247064976053`*^9, 3.521256915249794*^9, + 3.5212577227101173`*^9, 3.521262610212508*^9, 3.5212643309829903`*^9}], Cell[BoxData[ StyleBox[ @@ -4226,7 +4372,8 @@ Cell[BoxData[ 3.5167316474164543`*^9}, 3.5167316820909357`*^9, {3.516731757986741*^9, 3.516731797261787*^9}, 3.5167321377024612`*^9, 3.516732200348918*^9, { 3.5167326044895067`*^9, 3.51673263182626*^9}, 3.5167328199668713`*^9, - 3.516732979784316*^9, 3.5168247065043077`*^9}], + 3.516732979784316*^9, 3.5168247064976053`*^9, 3.521256915249794*^9, + 3.5212577227101173`*^9, 3.521262610212508*^9, 3.521264330988202*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -4250,7 +4397,8 @@ Cell[BoxData[ 3.5167316474164543`*^9}, 3.5167316820909357`*^9, {3.516731757986741*^9, 3.516731797261787*^9}, 3.5167321377024612`*^9, 3.516732200348918*^9, { 3.5167326044895067`*^9, 3.51673263182626*^9}, 3.5167328199668713`*^9, - 3.516732979784316*^9, 3.516824706508533*^9}] + 3.516732979784316*^9, 3.5168247064976053`*^9, 3.521256915249794*^9, + 3.5212577227101173`*^9, 3.521262610212508*^9, 3.521264330993774*^9}] }, Open ]] }, Open ]], @@ -4294,7 +4442,9 @@ Cell[BoxData[ 3.5167315786272287`*^9, {3.5167316821409492`*^9, 3.516731711166637*^9}, { 3.516731758042376*^9, 3.516731797354467*^9}, 3.516732137752605*^9, 3.5167322003991747`*^9, {3.516732604534709*^9, 3.516732631917288*^9}, - 3.516732820006588*^9, 3.5167329798360558`*^9, 3.516824706547089*^9}], + 3.516732820006588*^9, 3.5167329798360558`*^9, 3.516824706547089*^9, + 3.521256915302236*^9, 3.521257722761346*^9, 3.521262610279202*^9, + 3.5212643310435762`*^9}], Cell[BoxData[ StyleBox["\<\"\[DownArrow]\"\>", @@ -4307,7 +4457,9 @@ Cell[BoxData[ 3.5167315786272287`*^9, {3.5167316821409492`*^9, 3.516731711166637*^9}, { 3.516731758042376*^9, 3.516731797354467*^9}, 3.516732137752605*^9, 3.5167322003991747`*^9, {3.516732604534709*^9, 3.516732631917288*^9}, - 3.516732820006588*^9, 3.5167329798360558`*^9, 3.516824706549543*^9}], + 3.516732820006588*^9, 3.5167329798360558`*^9, 3.516824706547089*^9, + 3.521256915302236*^9, 3.521257722761346*^9, 3.521262610279202*^9, + 3.521264331046442*^9}], Cell[BoxData[ StyleBox[ @@ -4326,7 +4478,9 @@ Cell[BoxData[ 3.5167315786272287`*^9, {3.5167316821409492`*^9, 3.516731711166637*^9}, { 3.516731758042376*^9, 3.516731797354467*^9}, 3.516732137752605*^9, 3.5167322003991747`*^9, {3.516732604534709*^9, 3.516732631917288*^9}, - 3.516732820006588*^9, 3.5167329798360558`*^9, 3.516824706553616*^9}], + 3.516732820006588*^9, 3.5167329798360558`*^9, 3.516824706547089*^9, + 3.521256915302236*^9, 3.521257722761346*^9, 3.521262610279202*^9, + 3.5212643310531797`*^9}], Cell[BoxData[ StyleBox["\<\"Pass \"\>", @@ -4349,20 +4503,368 @@ Cell[BoxData[ 3.5167315786272287`*^9, {3.5167316821409492`*^9, 3.516731711166637*^9}, { 3.516731758042376*^9, 3.516731797354467*^9}, 3.516732137752605*^9, 3.5167322003991747`*^9, {3.516732604534709*^9, 3.516732631917288*^9}, - 3.516732820006588*^9, 3.5167329798360558`*^9, 3.516824706557707*^9}] + 3.516732820006588*^9, 3.5167329798360558`*^9, 3.516824706547089*^9, + 3.521256915302236*^9, 3.521257722761346*^9, 3.521262610279202*^9, + 3.521264331058384*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"reportResults", "[", "]"}]], "Input", - CellChangeTimes->{{3.5167308553288403`*^9, 3.516730859145151*^9}}], + RowBox[{"test", "[", + RowBox[{ + RowBox[{"FullSimplify", "[", + RowBox[{"MakeExplicit", "[", + RowBox[{ + RowBox[{"MatrixInverse", "[", + RowBox[{"u", "[", + RowBox[{"ua", ",", "ub"}], "]"}], "]"}], + RowBox[{"u", "[", + RowBox[{"lb", ",", "lc"}], "]"}]}], "]"}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", + ",", "1"}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.521262422432638*^9, 3.5212625076882477`*^9}}], + +Cell[CellGroupData[{ Cell[BoxData[ - StyleBox["\<\"All 30 tests passed\"\>", + StyleBox[ + TagBox[ + RowBox[{"FullSimplify", "[", + RowBox[{"MakeExplicit", "[", + RowBox[{ + RowBox[{"MatrixInverse", "[", + RowBox[{"u", "[", + RowBox[{"ua", ",", "ub"}], "]"}], "]"}], " ", + RowBox[{"u", "[", + RowBox[{"lb", ",", "lc"}], "]"}]}], "]"}], "]"}], + HoldForm], StripOnInput->False, - TextAlignment->Center, + TextAlignment->Center]], "Print", + CellChangeTimes->{3.5212625082684717`*^9, 3.521262610345819*^9, + 3.521264331110326*^9}], + +Cell[BoxData[ + StyleBox["\<\"\[DownArrow]\"\>", + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{3.5212625082684717`*^9, 3.521262610345819*^9, + 3.521264331112711*^9}], + +Cell[BoxData[ + StyleBox[ + RowBox[{"{", + RowBox[{ + "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", + ",", "1"}], "}"}], + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{3.5212625082684717`*^9, 3.521262610345819*^9, + 3.52126433111779*^9}], + +Cell[BoxData[ + StyleBox["\<\"Pass \"\>", + StripOnInput->False, + TextAlignment->Right, + LineColor->RGBColor[0, + Rational[2, 3], 0], + FrontFaceColor->RGBColor[0, + Rational[2, 3], 0], + BackFaceColor->RGBColor[0, + Rational[2, 3], 0], + GraphicsColor->RGBColor[0, + Rational[2, 3], 0], + FontColor->RGBColor[0, + Rational[2, 3], 0]]], "Print", + CellChangeTimes->{3.5212625082684717`*^9, 3.521262610345819*^9, + 3.5212643311225243`*^9}] +}, Open ]] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["Partial derivatives", "Subsection", + CellChangeTimes->{{3.521261095215128*^9, 3.5212610975902977`*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"test", "[", + RowBox[{ + RowBox[{"MakeExplicit", "[", + RowBox[{"PD", "[", + RowBox[{ + RowBox[{"u", "[", "la", "]"}], ",", "lb"}], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"PD", "[", + RowBox[{"u1", ",", "1"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u1", ",", "2"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u1", ",", "3"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u2", ",", "1"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u2", ",", "2"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u2", ",", "3"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u3", ",", "1"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u3", ",", "2"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u3", ",", "3"}], "]"}]}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.521261102310484*^9, 3.521261139899584*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + StyleBox[ + TagBox[ + RowBox[{"MakeExplicit", "[", + RowBox[{"PD", "[", + RowBox[{ + RowBox[{"u", "[", "la", "]"}], ",", "lb"}], "]"}], "]"}], + HoldForm], + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{3.52126114078936*^9, 3.5212626104125967`*^9, + 3.5212643311767683`*^9}], + +Cell[BoxData[ + StyleBox["\<\"\[DownArrow]\"\>", + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{3.52126114078936*^9, 3.5212626104125967`*^9, + 3.521264331179123*^9}], + +Cell[BoxData[ + StyleBox[ + RowBox[{"{", + RowBox[{ + RowBox[{"PD", "[", + RowBox[{"u1", ",", "1"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u1", ",", "2"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u1", ",", "3"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u2", ",", "1"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u2", ",", "2"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u2", ",", "3"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u3", ",", "1"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u3", ",", "2"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u3", ",", "3"}], "]"}]}], "}"}], + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{3.52126114078936*^9, 3.5212626104125967`*^9, + 3.52126433118447*^9}], + +Cell[BoxData[ + StyleBox["\<\"Pass \"\>", + StripOnInput->False, + TextAlignment->Right, + LineColor->RGBColor[0, + Rational[2, 3], 0], + FrontFaceColor->RGBColor[0, + Rational[2, 3], 0], + BackFaceColor->RGBColor[0, + Rational[2, 3], 0], + GraphicsColor->RGBColor[0, + Rational[2, 3], 0], + FontColor->RGBColor[0, + Rational[2, 3], 0]]], "Print", + CellChangeTimes->{3.52126114078936*^9, 3.5212626104125967`*^9, + 3.521264331189466*^9}] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"test", "[", + RowBox[{ + RowBox[{"MakeExplicit", "[", + RowBox[{"PD", "[", + RowBox[{ + RowBox[{"u", "[", "ua", "]"}], ",", "la"}], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"PD", "[", + RowBox[{"u1", ",", "1"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u2", ",", "2"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u3", ",", "3"}], "]"}]}], "}"}]}], "]"}], " "}]], "Input", + CellChangeTimes->{{3.5212611566784554`*^9, 3.521261159238418*^9}, { + 3.52126123734837*^9, 3.521261263718667*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + TagBox[GridBox[{ + {"\<\"Input:\"\>", + TagBox[ + RowBox[{"MakeExplicit", "[", + RowBox[{"PD", "[", + RowBox[{ + RowBox[{"u", "[", "ua", "]"}], ",", "la"}], "]"}], "]"}], + HoldForm], ""}, + {"\<\"Expected:\"\>", + RowBox[{"{", + RowBox[{ + RowBox[{"PD", "[", + RowBox[{"u1", ",", "1"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u2", ",", "2"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u3", ",", "3"}], "]"}]}], "}"}], + TagBox[ + StyleBox[ + RowBox[{"List", "[", + RowBox[{ + RowBox[{"PD", "[", + RowBox[{"u1", ",", "1"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u2", ",", "2"}], "]"}], ",", + RowBox[{"PD", "[", + RowBox[{"u3", ",", "3"}], "]"}]}], "]"}], + ShowSpecialCharacters->False, + ShowStringCharacters->True, + NumberMarks->True], + FullForm]}, + {"\<\"Result:\"\>", + RowBox[{"{", + RowBox[{"PD", "[", + RowBox[{ + TemplateBox[{"u",TemplateBox[{"\[Null]", "\"a\""}, "Superscript"]}, + "Row", + DisplayFunction->(RowBox[{#, "\[InvisibleSpace]", #2}]& ), + InterpretationFunction->(RowBox[{"Row", "[", + RowBox[{"{", + RowBox[{#, ",", #2}], "}"}], "]"}]& )], ",", + SubscriptBox["\[Null]", "\<\"a\"\>"]}], "]"}], "}"}], + TagBox[ + StyleBox[ + RowBox[{"List", "[", + RowBox[{"PD", "[", + RowBox[{ + RowBox[{"Tensor", "[", + RowBox[{"u", ",", + RowBox[{"TensorIndex", "[", + RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "]"}], ",", + RowBox[{"TensorIndex", "[", + RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "]"}], "]"}], + ShowSpecialCharacters->False, + ShowStringCharacters->True, + NumberMarks->True], + FullForm]} + }, + AutoDelete->False, + GridBoxAlignment->{"Columns" -> {{Left}}}, + GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings->{"Columns" -> {{1}}, "Rows" -> {{2}}}], + "Grid"]], "Print", + CellChangeTimes->{3.521261256154235*^9, 3.521262610479899*^9, + 3.521262663232333*^9, 3.5212643312391777`*^9}], + +Cell[BoxData[ + StyleBox["\<\"Fail \"\>", + StripOnInput->False, + TextAlignment->Right, + LineColor->RGBColor[1, 0, 0], + FrontFaceColor->RGBColor[1, 0, 0], + BackFaceColor->RGBColor[1, 0, 0], + GraphicsColor->RGBColor[1, 0, 0], + FontColor->RGBColor[1, 0, 0]]], "Print", + CellChangeTimes->{3.521261256154235*^9, 3.521262610479899*^9, + 3.521262663232333*^9, 3.521264331243326*^9}] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"test", "[", + RowBox[{ + RowBox[{"Simplify", "[", + RowBox[{"MakeExplicit", "[", + RowBox[{"PD", "[", + RowBox[{ + RowBox[{ + RowBox[{"MatrixInverse", "[", + RowBox[{"u", "[", + RowBox[{"ua", ",", "ub"}], "]"}], "]"}], + RowBox[{"u", "[", + RowBox[{"lb", ",", "lc"}], "]"}]}], ",", "ld"}], "]"}], "]"}], "]"}], + ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], + "]"}]], "Input", + CellChangeTimes->{{3.52126256378826*^9, 3.5212625701912622`*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + StyleBox[ + TagBox[ + RowBox[{"Simplify", "[", + RowBox[{"MakeExplicit", "[", + RowBox[{"PD", "[", + RowBox[{ + RowBox[{ + RowBox[{"MatrixInverse", "[", + RowBox[{"u", "[", + RowBox[{"ua", ",", "ub"}], "]"}], "]"}], " ", + RowBox[{"u", "[", + RowBox[{"lb", ",", "lc"}], "]"}]}], ",", "ld"}], "]"}], "]"}], "]"}], + + HoldForm], + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{{3.521262570982389*^9, 3.5212626127724037`*^9}, + 3.521264333530768*^9}], + +Cell[BoxData[ + StyleBox["\<\"\[DownArrow]\"\>", + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{{3.521262570982389*^9, 3.5212626127724037`*^9}, + 3.521264333533169*^9}], + +Cell[BoxData[ + StyleBox[ + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{{3.521262570982389*^9, 3.5212626127724037`*^9}, + 3.521264333537897*^9}], + +Cell[BoxData[ + StyleBox["\<\"Pass \"\>", + StripOnInput->False, + TextAlignment->Right, LineColor->RGBColor[0, Rational[2, 3], 0], FrontFaceColor->RGBColor[0, @@ -4371,21 +4873,151 @@ Cell[BoxData[ Rational[2, 3], 0], GraphicsColor->RGBColor[0, Rational[2, 3], 0], - FontWeight->Bold, FontColor->RGBColor[0, - Rational[2, 3], 0]]], "Output", + Rational[2, 3], 0]]], "Print", + CellChangeTimes->{{3.521262570982389*^9, 3.5212626127724037`*^9}, + 3.521264333542643*^9}] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"test", "[", + RowBox[{ + RowBox[{"FullSimplify", "[", + RowBox[{ + RowBox[{"MakeExplicit", "[", + RowBox[{ + RowBox[{"PD", "[", + RowBox[{ + RowBox[{"MatrixInverse", "[", + RowBox[{"u", "[", + RowBox[{"ua", ",", "ub"}], "]"}], "]"}], ",", "ld"}], "]"}], + RowBox[{"u", "[", + RowBox[{"lb", ",", "lc"}], "]"}]}], "]"}], "+", + "\[IndentingNewLine]", + RowBox[{"MakeExplicit", "[", + RowBox[{ + RowBox[{"MatrixInverse", "[", + RowBox[{"u", "[", + RowBox[{"ua", ",", "ub"}], "]"}], "]"}], + RowBox[{"PD", "[", + RowBox[{ + RowBox[{"u", "[", + RowBox[{"lb", ",", "lc"}], "]"}], ",", "ld"}], "]"}]}], "]"}]}], + "]"}], ",", "\[IndentingNewLine]", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.521261374737296*^9, 3.521261422223226*^9}}], + +Cell[CellGroupData[{ + +Cell[BoxData[ + StyleBox[ + TagBox[ + RowBox[{"FullSimplify", "[", + RowBox[{ + RowBox[{"MakeExplicit", "[", + RowBox[{ + RowBox[{"PD", "[", + RowBox[{ + RowBox[{"MatrixInverse", "[", + RowBox[{"u", "[", + RowBox[{"ua", ",", "ub"}], "]"}], "]"}], ",", "ld"}], "]"}], " ", + RowBox[{"u", "[", + RowBox[{"lb", ",", "lc"}], "]"}]}], "]"}], "+", + RowBox[{"MakeExplicit", "[", + RowBox[{ + RowBox[{"MatrixInverse", "[", + RowBox[{"u", "[", + RowBox[{"ua", ",", "ub"}], "]"}], "]"}], " ", + RowBox[{"PD", "[", + RowBox[{ + RowBox[{"u", "[", + RowBox[{"lb", ",", "lc"}], "]"}], ",", "ld"}], "]"}]}], "]"}]}], + "]"}], + HoldForm], + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{{3.521261413514522*^9, 3.521261446368672*^9}, + 3.5212626135979023`*^9, 3.521264334321663*^9}], + +Cell[BoxData[ + StyleBox["\<\"\[DownArrow]\"\>", + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{{3.521261413514522*^9, 3.521261446368672*^9}, + 3.5212626135979023`*^9, 3.521264334324168*^9}], + +Cell[BoxData[ + StyleBox[ + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", + ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + StripOnInput->False, + TextAlignment->Center]], "Print", + CellChangeTimes->{{3.521261413514522*^9, 3.521261446368672*^9}, + 3.5212626135979023`*^9, 3.52126433432889*^9}], + +Cell[BoxData[ + StyleBox["\<\"Pass \"\>", + StripOnInput->False, + TextAlignment->Right, + LineColor->RGBColor[0, + Rational[2, 3], 0], + FrontFaceColor->RGBColor[0, + Rational[2, 3], 0], + BackFaceColor->RGBColor[0, + Rational[2, 3], 0], + GraphicsColor->RGBColor[0, + Rational[2, 3], 0], + FontColor->RGBColor[0, + Rational[2, 3], 0]]], "Print", + CellChangeTimes->{{3.521261413514522*^9, 3.521261446368672*^9}, + 3.5212626135979023`*^9, 3.52126433433368*^9}] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"reportResults", "[", "]"}]], "Input", + CellChangeTimes->{{3.5167308553288403`*^9, 3.516730859145151*^9}}], + +Cell[BoxData[ + StyleBox["\<\"1 test failed\"\>", + StripOnInput->False, + TextAlignment->Center, + LineColor->RGBColor[1, 0, 0], + FrontFaceColor->RGBColor[1, 0, 0], + BackFaceColor->RGBColor[1, 0, 0], + GraphicsColor->RGBColor[1, 0, 0], + FontWeight->Bold, + FontColor->RGBColor[1, 0, 0]]], "Output", CellChangeTimes->{ 3.516730932422628*^9, 3.516731070993258*^9, 3.516731187871147*^9, 3.516731441373098*^9, {3.516731652846097*^9, 3.516731706544807*^9}, { 3.516731762235837*^9, 3.51673179740442*^9}, 3.5167321377980347`*^9, 3.5167322004474287`*^9, {3.5167326045729933`*^9, 3.516732631967499*^9}, - 3.5167328200515223`*^9, 3.5167329798858643`*^9, 3.516824706594281*^9}] + 3.5167328200515223`*^9, 3.5167329798858643`*^9, 3.516824706594281*^9, + 3.521256915373783*^9, 3.521257722811267*^9, 3.521262613655435*^9, + 3.5212643343806267`*^9}] }, Open ]] }, Open ]] }, Open ]] }, -WindowSize->{855, 693}, -WindowMargins->{{Automatic, 79}, {Automatic, 0}}, +WindowSize->{879, 866}, +WindowMargins->{{Automatic, 55}, {Automatic, 0}}, ShowSelection->True, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \ 2011)", @@ -4413,7 +5045,7 @@ Cell[1602, 53, 309, 5, 27, "Input"] Cell[CellGroupData[{ Cell[1948, 63, 100, 1, 67, "Section"], Cell[2051, 66, 166, 3, 27, "Input"], -Cell[2220, 71, 3585, 87, 193, "Input"], +Cell[2220, 71, 3585, 87, 178, "Input"], Cell[5808, 160, 1285, 29, 88, "Input"] }, Open ]], Cell[CellGroupData[{ @@ -4425,300 +5057,346 @@ Cell[CellGroupData[{ Cell[7944, 221, 95, 1, 34, "Subsection"], Cell[CellGroupData[{ Cell[8064, 226, 146, 2, 27, "Input"], -Cell[8213, 230, 1343, 19, 27, "Output"] +Cell[8213, 230, 1434, 20, 27, "Output"] }, Open ]], Cell[CellGroupData[{ -Cell[9593, 254, 285, 6, 27, "Input"], +Cell[9684, 255, 285, 6, 27, "Input"], Cell[CellGroupData[{ -Cell[9903, 264, 628, 14, 20, "Print"], -Cell[10534, 280, 588, 11, 20, "Print"], -Cell[11125, 293, 569, 11, 20, "Print"], -Cell[11697, 306, 842, 21, 20, "Print"] +Cell[9994, 265, 722, 15, 20, "Print"], +Cell[10719, 282, 682, 12, 20, "Print"], +Cell[11404, 296, 665, 12, 20, "Print"], +Cell[12072, 310, 940, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[12588, 333, 230, 5, 27, "Input"], +Cell[13061, 338, 230, 5, 27, "Input"], Cell[CellGroupData[{ -Cell[12843, 342, 622, 14, 20, "Print"], -Cell[13468, 358, 582, 11, 20, "Print"], -Cell[14053, 371, 563, 11, 20, "Print"], -Cell[14619, 384, 838, 21, 20, "Print"] +Cell[13316, 347, 713, 15, 20, "Print"], +Cell[14032, 364, 674, 12, 20, "Print"], +Cell[14709, 378, 655, 12, 20, "Print"], +Cell[15367, 392, 932, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[15506, 411, 281, 7, 27, "Input"], +Cell[16348, 420, 281, 7, 27, "Input"], Cell[CellGroupData[{ -Cell[15812, 422, 673, 15, 26, "Print"], -Cell[16488, 439, 606, 11, 20, "Print"], -Cell[17097, 452, 614, 12, 23, "Print"], -Cell[17714, 466, 863, 21, 20, "Print"] +Cell[16654, 431, 767, 16, 26, "Print"], +Cell[17424, 449, 701, 12, 20, "Print"], +Cell[18128, 463, 706, 13, 23, "Print"], +Cell[18837, 478, 957, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[18626, 493, 330, 9, 27, "Input"], +Cell[19843, 506, 330, 9, 27, "Input"], Cell[CellGroupData[{ -Cell[18981, 506, 705, 16, 26, "Print"], -Cell[19689, 524, 613, 11, 20, "Print"], -Cell[20305, 537, 642, 13, 23, "Print"], -Cell[20950, 552, 869, 21, 20, "Print"] +Cell[20198, 519, 799, 17, 26, "Print"], +Cell[21000, 538, 707, 12, 20, "Print"], +Cell[21710, 552, 736, 14, 23, "Print"], +Cell[22449, 568, 963, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[21868, 579, 240, 6, 27, "Input"], +Cell[23461, 596, 240, 6, 27, "Input"], Cell[CellGroupData[{ -Cell[22133, 589, 656, 15, 20, "Print"], -Cell[22792, 606, 585, 11, 20, "Print"], -Cell[23380, 619, 821, 17, 22, "Print"], -Cell[24204, 638, 843, 21, 20, "Print"] +Cell[23726, 606, 754, 16, 20, "Print"], +Cell[24483, 624, 681, 12, 20, "Print"], +Cell[25167, 638, 917, 18, 22, "Print"], +Cell[26087, 658, 937, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[25096, 665, 244, 6, 27, "Input"], +Cell[27073, 686, 244, 6, 27, "Input"], Cell[CellGroupData[{ -Cell[25365, 675, 661, 15, 20, "Print"], -Cell[26029, 692, 592, 11, 20, "Print"], -Cell[26624, 705, 810, 17, 20, "Print"], -Cell[27437, 724, 846, 21, 20, "Print"] +Cell[27342, 696, 752, 16, 20, "Print"], +Cell[28097, 714, 681, 12, 20, "Print"], +Cell[28781, 728, 903, 18, 20, "Print"], +Cell[29687, 748, 939, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[28332, 751, 295, 8, 27, "Input"], +Cell[30675, 776, 295, 8, 27, "Input"], Cell[CellGroupData[{ -Cell[28652, 763, 678, 16, 20, "Print"], -Cell[29333, 781, 583, 11, 20, "Print"], -Cell[29919, 794, 846, 18, 22, "Print"], -Cell[30768, 814, 837, 21, 20, "Print"] +Cell[30995, 788, 770, 17, 20, "Print"], +Cell[31768, 807, 673, 12, 20, "Print"], +Cell[32444, 821, 938, 19, 22, "Print"], +Cell[33385, 842, 931, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[31654, 841, 460, 13, 27, "Input"], +Cell[34365, 870, 460, 13, 27, "Input"], Cell[CellGroupData[{ -Cell[32139, 858, 761, 18, 20, "Print"], -Cell[32903, 878, 605, 11, 20, "Print"], -Cell[33511, 891, 1161, 25, 22, "Print"], -Cell[34675, 918, 863, 21, 20, "Print"] +Cell[34850, 887, 854, 19, 20, "Print"], +Cell[35707, 908, 698, 12, 20, "Print"], +Cell[36408, 922, 1254, 26, 22, "Print"], +Cell[37665, 950, 956, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[35587, 945, 645, 19, 27, "Input"], +Cell[38670, 978, 645, 19, 27, "Input"], Cell[CellGroupData[{ -Cell[36257, 968, 707, 17, 20, "Print"], -Cell[36967, 987, 577, 11, 20, "Print"], -Cell[37547, 1000, 2146, 51, 20, "Print"], -Cell[39696, 1053, 834, 21, 20, "Print"] +Cell[39340, 1001, 801, 18, 20, "Print"], +Cell[40144, 1021, 670, 12, 20, "Print"], +Cell[40817, 1035, 2238, 52, 20, "Print"], +Cell[43058, 1089, 926, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[40579, 1080, 545, 17, 27, "Input"], +Cell[44033, 1117, 545, 17, 27, "Input"], Cell[CellGroupData[{ -Cell[41149, 1101, 719, 17, 20, "Print"], -Cell[41871, 1120, 588, 11, 20, "Print"], -Cell[42462, 1133, 2156, 51, 20, "Print"], -Cell[44621, 1186, 844, 21, 20, "Print"] +Cell[44603, 1138, 815, 18, 20, "Print"], +Cell[45421, 1158, 684, 12, 20, "Print"], +Cell[46108, 1172, 2252, 52, 20, "Print"], +Cell[48363, 1226, 940, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[45514, 1213, 735, 23, 27, "Input"], +Cell[49352, 1254, 735, 23, 27, "Input"], Cell[CellGroupData[{ -Cell[46274, 1240, 850, 19, 20, "Print"], -Cell[47127, 1261, 681, 12, 20, "Print"], -Cell[47811, 1275, 2289, 52, 20, "Print"], -Cell[50103, 1329, 937, 22, 20, "Print"] +Cell[50112, 1281, 946, 20, 20, "Print"], +Cell[51061, 1303, 779, 13, 20, "Print"], +Cell[51843, 1318, 2387, 53, 20, "Print"], +Cell[54233, 1373, 1035, 23, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[51089, 1357, 936, 30, 27, "Input"], +Cell[55317, 1402, 936, 30, 27, "Input"], Cell[CellGroupData[{ -Cell[52050, 1391, 829, 21, 20, "Print"], -Cell[52882, 1414, 580, 11, 20, "Print"], -Cell[53465, 1427, 3734, 90, 20, "Print"], -Cell[57202, 1519, 836, 21, 20, "Print"] +Cell[56278, 1436, 925, 22, 20, "Print"], +Cell[57206, 1460, 676, 12, 20, "Print"], +Cell[57885, 1474, 3827, 91, 20, "Print"], +Cell[61715, 1567, 931, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[58087, 1546, 1308, 43, 43, "Input"], +Cell[62695, 1595, 1308, 43, 43, "Input"], Cell[CellGroupData[{ -Cell[59420, 1593, 1020, 27, 20, "Print"], -Cell[60443, 1622, 589, 11, 20, "Print"], -Cell[61035, 1635, 3869, 92, 20, "Print"], -Cell[64907, 1729, 847, 21, 20, "Print"] +Cell[64028, 1642, 1114, 28, 20, "Print"], +Cell[65145, 1672, 683, 12, 20, "Print"], +Cell[65831, 1686, 3963, 93, 20, "Print"], +Cell[69797, 1781, 939, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[65803, 1756, 1109, 34, 27, "Input"], +Cell[70785, 1809, 1109, 34, 27, "Input"], Cell[CellGroupData[{ -Cell[66937, 1794, 795, 19, 20, "Print"], -Cell[67735, 1815, 582, 11, 20, "Print"], -Cell[68320, 1828, 9946, 237, 20, "Print"], -Cell[78269, 2067, 840, 21, 20, "Print"] +Cell[71919, 1847, 889, 20, 20, "Print"], +Cell[72811, 1869, 678, 12, 20, "Print"], +Cell[73492, 1883, 10038, 238, 20, "Print"], +Cell[83533, 2123, 934, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[79158, 2094, 353, 9, 27, "Input"], +Cell[84516, 2151, 353, 9, 27, "Input"], Cell[CellGroupData[{ -Cell[79536, 2107, 685, 16, 20, "Print"], -Cell[80224, 2125, 583, 11, 20, "Print"], -Cell[80810, 2138, 836, 18, 20, "Print"], -Cell[81649, 2158, 839, 21, 20, "Print"] +Cell[84894, 2164, 779, 17, 20, "Print"], +Cell[85676, 2183, 675, 12, 20, "Print"], +Cell[86354, 2197, 929, 19, 20, "Print"], +Cell[87286, 2218, 930, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[82537, 2185, 665, 20, 27, "Input"], +Cell[88265, 2246, 665, 20, 27, "Input"], Cell[CellGroupData[{ -Cell[83227, 2209, 740, 18, 20, "Print"], -Cell[83970, 2229, 578, 11, 20, "Print"], -Cell[84551, 2242, 2214, 52, 20, "Print"], -Cell[86768, 2296, 834, 21, 20, "Print"] +Cell[88955, 2270, 832, 19, 20, "Print"], +Cell[89790, 2291, 672, 12, 20, "Print"], +Cell[90465, 2305, 2306, 53, 20, "Print"], +Cell[92774, 2360, 926, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[87651, 2323, 693, 21, 27, "Input"], +Cell[93749, 2388, 693, 21, 27, "Input"], Cell[CellGroupData[{ -Cell[88369, 2348, 777, 19, 20, "Print"], -Cell[89149, 2369, 583, 11, 20, "Print"], -Cell[89735, 2382, 2286, 53, 20, "Print"], -Cell[92024, 2437, 837, 21, 20, "Print"] +Cell[94467, 2413, 869, 20, 20, "Print"], +Cell[95339, 2435, 673, 12, 20, "Print"], +Cell[96015, 2449, 2378, 54, 20, "Print"], +Cell[98396, 2505, 929, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[92910, 2464, 724, 22, 27, "Input"], +Cell[99374, 2533, 724, 22, 27, "Input"], Cell[CellGroupData[{ -Cell[93659, 2490, 744, 18, 20, "Print"], -Cell[94406, 2510, 583, 11, 20, "Print"], -Cell[94992, 2523, 2259, 54, 20, "Print"], -Cell[97254, 2579, 839, 21, 20, "Print"] +Cell[100123, 2559, 836, 19, 20, "Print"], +Cell[100962, 2580, 676, 12, 20, "Print"], +Cell[101641, 2594, 2354, 55, 20, "Print"], +Cell[103998, 2651, 932, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[98142, 2606, 623, 19, 27, "Input"], +Cell[104979, 2679, 623, 19, 27, "Input"], Cell[CellGroupData[{ -Cell[98790, 2629, 731, 18, 28, "Print"], -Cell[99524, 2649, 583, 11, 20, "Print"], -Cell[100110, 2662, 2203, 52, 31, "Print"], -Cell[102316, 2716, 839, 21, 20, "Print"] +Cell[105627, 2702, 826, 19, 28, "Print"], +Cell[106456, 2723, 681, 12, 20, "Print"], +Cell[107140, 2737, 2301, 53, 31, "Print"], +Cell[109444, 2792, 939, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[103204, 2743, 719, 22, 27, "Input"], +Cell[110432, 2820, 719, 22, 27, "Input"], Cell[CellGroupData[{ -Cell[103948, 2769, 795, 19, 20, "Print"], -Cell[104746, 2790, 584, 11, 20, "Print"], -Cell[105333, 2803, 2302, 53, 20, "Print"], -Cell[107638, 2858, 840, 21, 20, "Print"] +Cell[111176, 2846, 889, 20, 20, "Print"], +Cell[112068, 2868, 678, 12, 20, "Print"], +Cell[112749, 2882, 2398, 54, 20, "Print"], +Cell[115150, 2938, 936, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[108527, 2885, 1109, 34, 43, "Input"], +Cell[116135, 2966, 1109, 34, 43, "Input"], Cell[CellGroupData[{ -Cell[109661, 2923, 885, 22, 20, "Print"], -Cell[110549, 2947, 581, 11, 20, "Print"], -Cell[111133, 2960, 3968, 93, 20, "Print"], -Cell[115104, 3055, 839, 21, 20, "Print"] +Cell[117269, 3004, 977, 23, 20, "Print"], +Cell[118249, 3029, 673, 12, 20, "Print"], +Cell[118925, 3043, 4060, 94, 20, "Print"], +Cell[122988, 3139, 929, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[115992, 3082, 389, 10, 27, "Input"], -Cell[116384, 3094, 1884, 45, 38, "Output"] +Cell[123966, 3167, 389, 10, 27, "Input"], +Cell[124358, 3179, 1982, 46, 38, "Output"] }, Open ]], Cell[CellGroupData[{ -Cell[118305, 3144, 162, 5, 27, "Input"], -Cell[118470, 3151, 816, 19, 30, "Output"] +Cell[126377, 3230, 162, 5, 27, "Input"], +Cell[126542, 3237, 908, 20, 30, "Output"] }, Open ]], Cell[CellGroupData[{ -Cell[119323, 3175, 208, 5, 27, "Input"], -Cell[119534, 3182, 565, 16, 39, "Output"] +Cell[127487, 3262, 208, 5, 27, "Input"], +Cell[127698, 3269, 659, 17, 39, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[120148, 3204, 97, 1, 34, "Subsection"], -Cell[120248, 3207, 197, 5, 27, "Input"], +Cell[128406, 3292, 97, 1, 34, "Subsection"], +Cell[128506, 3295, 197, 5, 27, "Input"], Cell[CellGroupData[{ -Cell[120470, 3216, 366, 10, 27, "Input"], +Cell[128728, 3304, 366, 10, 27, "Input"], Cell[CellGroupData[{ -Cell[120861, 3230, 629, 14, 20, "Print"], -Cell[121493, 3246, 555, 10, 20, "Print"], -Cell[122051, 3258, 1335, 30, 20, "Print"], -Cell[123389, 3290, 812, 20, 20, "Print"] +Cell[129119, 3318, 727, 16, 20, "Print"], +Cell[129849, 3336, 654, 12, 20, "Print"], +Cell[130506, 3350, 1433, 32, 20, "Print"], +Cell[131942, 3384, 912, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[124250, 3316, 931, 27, 27, "Input"], +Cell[132903, 3412, 931, 27, 27, "Input"], Cell[CellGroupData[{ -Cell[125206, 3347, 663, 15, 20, "Print"], -Cell[125872, 3364, 561, 10, 20, "Print"], -Cell[126436, 3376, 3568, 84, 20, "Print"], -Cell[130007, 3462, 817, 20, 20, "Print"] +Cell[133859, 3443, 763, 17, 20, "Print"], +Cell[134625, 3462, 661, 12, 20, "Print"], +Cell[135289, 3476, 3666, 86, 20, "Print"], +Cell[138958, 3564, 917, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[130873, 3488, 1151, 36, 43, "Input"], +Cell[139924, 3592, 1151, 36, 43, "Input"], Cell[CellGroupData[{ -Cell[132049, 3528, 677, 16, 20, "Print"], -Cell[132729, 3546, 548, 10, 20, "Print"], -Cell[133280, 3558, 5423, 129, 20, "Print"], -Cell[138706, 3689, 802, 20, 20, "Print"] +Cell[141100, 3632, 772, 18, 20, "Print"], +Cell[141875, 3652, 641, 12, 20, "Print"], +Cell[142519, 3666, 5520, 131, 20, "Print"], +Cell[148042, 3799, 897, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[139557, 3715, 627, 18, 27, "Input"], +Cell[148988, 3827, 627, 18, 27, "Input"], Cell[CellGroupData[{ -Cell[140209, 3737, 703, 16, 20, "Print"], -Cell[140915, 3755, 564, 10, 20, "Print"], -Cell[141482, 3767, 2213, 51, 20, "Print"], -Cell[143698, 3820, 820, 20, 20, "Print"] +Cell[149640, 3849, 803, 18, 20, "Print"], +Cell[150446, 3869, 664, 12, 20, "Print"], +Cell[151113, 3883, 2313, 53, 20, "Print"], +Cell[153429, 3938, 922, 22, 20, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[144579, 3847, 104, 1, 34, "Subsection"], +Cell[154412, 3967, 104, 1, 34, "Subsection"], +Cell[CellGroupData[{ +Cell[154541, 3972, 589, 17, 27, "Input"], +Cell[CellGroupData[{ +Cell[155155, 3993, 833, 19, 20, "Print"], +Cell[155991, 4014, 659, 12, 20, "Print"], +Cell[156653, 4028, 1149, 26, 20, "Print"], +Cell[157805, 4056, 913, 22, 20, "Print"] +}, Open ]] +}, Open ]], Cell[CellGroupData[{ -Cell[144708, 3852, 589, 17, 27, "Input"], +Cell[158767, 4084, 442, 12, 27, "Input"], Cell[CellGroupData[{ -Cell[145322, 3873, 735, 17, 20, "Print"], -Cell[146060, 3892, 557, 10, 20, "Print"], -Cell[146620, 3904, 1051, 24, 20, "Print"], -Cell[147674, 3930, 813, 20, 20, "Print"] +Cell[159234, 4100, 795, 18, 20, "Print"], +Cell[160032, 4120, 655, 12, 20, "Print"], +Cell[160690, 4134, 792, 17, 20, "Print"], +Cell[161485, 4153, 911, 22, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[148536, 3956, 442, 12, 27, "Input"], +Cell[162445, 4181, 853, 24, 43, "Input"], +Cell[CellGroupData[{ +Cell[163323, 4209, 897, 21, 20, "Print"], +Cell[164223, 4232, 654, 12, 20, "Print"], +Cell[164880, 4246, 993, 23, 20, "Print"], +Cell[165876, 4271, 908, 22, 20, "Print"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[166833, 4299, 588, 16, 27, "Input"], +Cell[CellGroupData[{ +Cell[167446, 4319, 937, 20, 28, "Print"], +Cell[168386, 4341, 786, 13, 20, "Print"], +Cell[169175, 4356, 920, 19, 28, "Print"], +Cell[170098, 4377, 1040, 23, 20, "Print"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[171187, 4406, 588, 16, 27, "Input"], +Cell[CellGroupData[{ +Cell[171800, 4426, 888, 20, 28, "Print"], +Cell[172691, 4448, 735, 13, 20, "Print"], +Cell[173429, 4463, 873, 19, 28, "Print"], +Cell[174305, 4484, 991, 23, 20, "Print"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[175345, 4513, 577, 16, 43, "Input"], +Cell[CellGroupData[{ +Cell[175947, 4533, 479, 15, 20, "Print"], +Cell[176429, 4550, 197, 5, 20, "Print"], +Cell[176629, 4557, 303, 9, 20, "Print"], +Cell[176935, 4568, 455, 15, 20, "Print"] +}, Open ]] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[177451, 4590, 109, 1, 34, "Subsection"], +Cell[CellGroupData[{ +Cell[177585, 4595, 936, 27, 43, "Input"], Cell[CellGroupData[{ -Cell[149003, 3972, 699, 16, 20, "Print"], -Cell[149705, 3990, 559, 10, 20, "Print"], -Cell[150267, 4002, 696, 15, 20, "Print"], -Cell[150966, 4019, 813, 20, 20, "Print"] +Cell[178546, 4626, 334, 11, 20, "Print"], +Cell[178883, 4639, 196, 5, 20, "Print"], +Cell[179082, 4646, 815, 25, 20, "Print"], +Cell[179900, 4673, 452, 15, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[151828, 4045, 853, 24, 43, "Input"], +Cell[180401, 4694, 597, 17, 27, "Input"], Cell[CellGroupData[{ -Cell[152706, 4073, 797, 19, 20, "Print"], -Cell[153506, 4094, 556, 10, 20, "Print"], -Cell[154065, 4106, 897, 21, 20, "Print"], -Cell[154965, 4129, 810, 20, 20, "Print"] +Cell[181023, 4715, 2261, 65, 96, "Print"], +Cell[183287, 4782, 383, 10, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[155824, 4155, 588, 16, 27, "Input"], +Cell[183719, 4798, 816, 21, 43, "Input"], Cell[CellGroupData[{ -Cell[156437, 4175, 841, 19, 28, "Print"], -Cell[157281, 4196, 688, 12, 20, "Print"], -Cell[157972, 4210, 826, 18, 28, "Print"], -Cell[158801, 4230, 944, 22, 20, "Print"] +Cell[184560, 4823, 554, 18, 20, "Print"], +Cell[185117, 4843, 200, 5, 20, "Print"], +Cell[185320, 4850, 497, 11, 20, "Print"], +Cell[185820, 4863, 456, 15, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[159794, 4258, 588, 16, 27, "Input"], +Cell[186325, 4884, 1274, 33, 73, "Input"], Cell[CellGroupData[{ -Cell[160407, 4278, 790, 18, 28, "Print"], -Cell[161200, 4298, 639, 11, 20, "Print"], -Cell[161842, 4311, 775, 17, 28, "Print"], -Cell[162620, 4330, 895, 21, 20, "Print"] +Cell[187624, 4921, 923, 28, 36, "Print"], +Cell[188550, 4951, 222, 5, 20, "Print"], +Cell[188775, 4958, 518, 11, 20, "Print"], +Cell[189296, 4971, 477, 15, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[163564, 4357, 129, 2, 27, "Input"], -Cell[163696, 4361, 781, 20, 27, "Output"] +Cell[189822, 4992, 129, 2, 27, "Input"], +Cell[189954, 4996, 783, 17, 27, "Output"] }, Open ]] }, Open ]] }, Open ]] -- cgit v1.2.3