aboutsummaryrefslogtreecommitdiff
path: root/Tests
diff options
context:
space:
mode:
authorIan Hinder <ian.hinder@aei.mpg.de>2011-08-02 11:00:12 +0200
committerIan Hinder <ian.hinder@aei.mpg.de>2011-08-02 11:00:12 +0200
commit3e73458b4d3951ee72145762a2003296fa884c96 (patch)
tree74755b52014d35f30e022aa4a1c0f088d0c323ad /Tests
parent6a8b77b4f7699c7bf88f706e156308f3f77a96f5 (diff)
TestTensorTools.nb: Add more test cases
- Test expansion of PD - Test expansion of PD[MatrixInverse[…]]
Diffstat (limited to 'Tests')
-rw-r--r--Tests/TestTensorTools.nb1278
1 files changed, 978 insertions, 300 deletions
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[{"\"\<a\>\"", ",", "\"\<u\>\""}], "]"}]}], "]"}], ",",
+ RowBox[{"TensorIndex", "[",
+ RowBox[{"\"\<a\>\"", ",", "\"\<l\>\""}], "]"}]}], "]"}], "]"}],
+ 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 ]]
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-12 21:42:24 +0000