diff --git a/fractal_dimension/circle_counting_new/cube.txt b/fractal_dimension/circle_counting_new/cube.txt new file mode 100644 index 0000000..82d508a --- /dev/null +++ b/fractal_dimension/circle_counting_new/cube.txt @@ -0,0 +1,32 @@ +{{{1., 0., 0., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., 0., 0., + 0.}, {1., 3., 0., -1., 2., 0., 0., 0.}, {2., 2., 0., -1., 2., 0., + 0., 0.}, {0., 0., 0., 0., 1., 0., 0., 0.}, {-1., 1., 0., 0., 1., + 0., 0., 0.}, {0., 3., 0., -1., 3., 0., 0., 0.}, {1., 2., 0., -1., + 3., 0., 0., 0.}}, {{1., 0., 0., 0., 0., 0., 0., 0.}, {1., 0., + 1., -1., 0., 0., 0., 0.}, {0., 0., 1., 0., 0., 0., 0., 0.}, {0., + 0., 0., 1., 0., 0., 0., 0.}, {4., 0., 2., 0., -1., 0., 0., + 0.}, {4., 0., 3., -1., -1., 0., 0., 0.}, {3., 0., 3., 0., -1., 0., + 0., 0.}, {3., 0., 2., 1., -1., 0., 0., 0.}}, {{1., 0., 0., 0., 0., + 0., 0., 0.}, {4., -1., 0., 0., 0., 0., 0., 2.}, {4., -1., 0., + 0., -1., 0., 0., 3.}, {1., 0., 0., 0., -1., 0., 0., 1.}, {0., 0., + 0., 0., 1., 0., 0., 0.}, {3., -1., 0., 0., 1., 0., 0., + 2.}, {3., -1., 0., 0., 0., 0., 0., 3.}, {0., 0., 0., 0., 0., 0., + 0., 1.}}, {{-1., 2., 2., 0., 0., 2., 0., 0.}, {0., 1., 0., 0., 0., + 0., 0., 0.}, {0., 0., 1., 0., 0., 0., 0., 0.}, {-1., 1., 3., 0., + 0., 2., 0., 0.}, {-1., 1., 2., 0., 0., 3., 0., 0.}, {0., 0., 0., + 0., 0., 1., 0., 0.}, {0., -1., 1., 0., 0., 1., 0., 0.}, {-1., 0., + 3., 0., 0., 3., 0., 0.}}, {{0., -1., 0., 4., 0., 0., + 3., -1.}, {0., -1., 0., 4., 0., 0., 4., -2.}, {0., 0., 0., 1., 0., + 0., 1., -1.}, {0., 0., 0., 1., 0., 0., 0., 0.}, {0., -1., 0., 3., + 0., 0., 3., 0.}, {0., -1., 0., 3., 0., 0., 4., -1.}, {0., 0., 0., + 0., 0., 0., 1., 0.}, {0., 0., 0., 0., 0., 0., 0., 1.}}, {{0., -1., + 0., 0., 0., 4., -1., 3.}, {0., -1., 0., 0., 0., 4., 0., + 2.}, {0., -1., 0., 0., 0., 3., 1., 2.}, {0., -1., 0., 0., 0., 3., + 0., 3.}, {0., 0., 0., 0., 0., 1., -1., 1.}, {0., 0., 0., 0., 0., + 1., 0., 0.}, {0., 0., 0., 0., 0., 0., 1., 0.}, {0., 0., 0., 0., 0., + 0., 0., 1.}}} + +{-1, 4, 7, 2, 7, 12, 15, 10} + +{{0, 1, 5, 4}, {0, 3, 2, 1}, {0, 4, 7, 3}, {1, 2, 6, 5}, {2, 3, 7, + 6}, {4, 5, 6, 7}} diff --git a/fractal_dimension/circle_counting_new/src/lib.rs b/fractal_dimension/circle_counting_new/src/lib.rs index 99e4176..d30ec7a 100644 --- a/fractal_dimension/circle_counting_new/src/lib.rs +++ b/fractal_dimension/circle_counting_new/src/lib.rs @@ -29,8 +29,8 @@ pub fn fractal_dimension( let mut add = false; for (j, curvature) in new_tuple.iter().enumerate() { let mut skip = false; - for face in &faces[i] { - if j == *face { + for vertex in &faces[i] { + if j == *vertex { skip = true; break; } diff --git a/fractal_dimension/fractal_dimension.nb b/fractal_dimension/fractal_dimension.nb index b124f7d..19279b6 100644 --- a/fractal_dimension/fractal_dimension.nb +++ b/fractal_dimension/fractal_dimension.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 285085, 8794] -NotebookOptionsPosition[ 272222, 8587] -NotebookOutlinePosition[ 272717, 8605] -CellTagsIndexPosition[ 272674, 8602] +NotebookDataLength[ 299935, 9134] +NotebookOptionsPosition[ 286393, 8915] +NotebookOutlinePosition[ 286888, 8933] +CellTagsIndexPosition[ 286845, 8930] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -27,7 +27,7 @@ Cell[BoxData[ RowBox[{"Transpose", "[", "A", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.831194837404834*^9, 3.8311948924696903`*^9}, { 3.831194930347896*^9, 3.831194932848599*^9}}, - CellLabel->"In[69]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"], + CellLabel->"In[1]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"], Cell[BoxData[ RowBox[{ @@ -56,7 +56,7 @@ Cell[BoxData[ CellChangeTimes->{{3.831107414093502*^9, 3.83110748040809*^9}, { 3.831107557920609*^9, 3.8311075805621977`*^9}, {3.8311076270925627`*^9, 3.831107722019619*^9}}, - CellLabel->"In[70]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"], + CellLabel->"In[2]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"], Cell[BoxData[ RowBox[{ @@ -69,7 +69,7 @@ Cell[BoxData[ CellChangeTimes->{{3.831107486071478*^9, 3.831107546093779*^9}, { 3.831109392242589*^9, 3.831109394639595*^9}, {3.831110190169511*^9, 3.831110193792735*^9}}, - CellLabel->"In[71]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"], + CellLabel->"In[3]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"], Cell[BoxData[ RowBox[{ @@ -82,7 +82,7 @@ Cell[BoxData[ RowBox[{"MatrixRank", "[", "G", "]"}]}], "]"}], "]"}], "//", "Transpose"}]}]], "Input", CellChangeTimes->{{3.831109396818718*^9, 3.831109426888632*^9}}, - CellLabel->"In[72]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"], + CellLabel->"In[4]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"], Cell[BoxData[ RowBox[{ @@ -117,7 +117,7 @@ Cell[BoxData[ 3.831110081551445*^9}, {3.831194643897842*^9, 3.8311946492229443`*^9}, { 3.831194680087949*^9, 3.831194680680228*^9}, {3.831194956352386*^9, 3.831195002875142*^9}, {3.831205178380069*^9, 3.831205187846324*^9}}, - CellLabel->"In[73]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"], + CellLabel->"In[5]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"], Cell[BoxData[ RowBox[{ @@ -127,7 +127,7 @@ Cell[BoxData[ ";"}]], "Input", CellChangeTimes->{{3.831110103314905*^9, 3.831110162272215*^9}, 3.831206070230084*^9}, - CellLabel->"In[74]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"], + CellLabel->"In[6]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"], Cell[BoxData[ RowBox[{ @@ -162,7 +162,7 @@ Cell[BoxData[ "]"}]}], ")"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.831194278291965*^9, 3.831194298458626*^9}, 3.831195204231324*^9}, - CellLabel->"In[75]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"], + CellLabel->"In[7]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"], Cell[BoxData[ RowBox[{ @@ -184,7 +184,7 @@ Cell[BoxData[ CellChangeTimes->{{3.831195055004586*^9, 3.83119507699967*^9}, { 3.831195107195753*^9, 3.831195121990181*^9}, {3.831195208095559*^9, 3.831195214781535*^9}}, - CellLabel->"In[76]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"], + CellLabel->"In[8]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"], Cell[BoxData[ RowBox[{ @@ -205,7 +205,7 @@ Cell[BoxData[ RowBox[{"v", ".", "Q", ".", "v"}], "\[Equal]", "0"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.831195241841057*^9, 3.831195289590564*^9}}, - CellLabel->"In[77]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"], + CellLabel->"In[9]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"], Cell[BoxData[ RowBox[{ @@ -226,7 +226,7 @@ Cell[BoxData[ RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.831195337159152*^9, 3.831195396279203*^9}}, - CellLabel->"In[78]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"], + CellLabel->"In[10]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"], Cell[BoxData[ RowBox[{ @@ -242,7 +242,7 @@ Cell[BoxData[ RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.8312049925958433`*^9, 3.8312050200596113`*^9}}, - CellLabel->"In[79]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"], + CellLabel->"In[11]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"], Cell[BoxData[ RowBox[{ @@ -263,7 +263,7 @@ Cell[BoxData[ "]"}]}]], "Input", CellChangeTimes->{{3.8315843493182087`*^9, 3.831584372878718*^9}, { 3.831584545556731*^9, 3.831584563248426*^9}}, - CellLabel->"In[80]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"], + CellLabel->"In[12]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"], Cell[BoxData[ RowBox[{ @@ -293,7 +293,7 @@ Cell[BoxData[ RowBox[{"[", "pos", "]"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.831210886725911*^9}, - CellLabel->"In[81]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"], + CellLabel->"In[13]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"], Cell[BoxData[{ RowBox[{ @@ -311,7 +311,7 @@ Cell[BoxData[{ "\[IndentingNewLine]", RowBox[{"FindFace", "[", RowBox[{"g", ",", "emb"}], "]"}]}]}], "]"}]}], ";"}], - "\[IndentingNewLine]"}], "\n", + "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FindFace", "[", RowBox[{ @@ -401,7 +401,7 @@ Cell[BoxData[{ RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.8312108953940573`*^9, 3.831210895411563*^9}, 3.8312119634327393`*^9, 3.831542420732052*^9}, - CellLabel->"In[82]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"], + CellLabel->"In[14]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"], Cell[BoxData[ RowBox[{ @@ -633,7 +633,7 @@ Cell[BoxData[ 3.831725440268997*^9}, {3.8317255156810293`*^9, 3.8317256205301943`*^9}, { 3.831725829008904*^9, 3.831725851322979*^9}, {3.831726730605854*^9, 3.8317267923612432`*^9}, 3.833968804473505*^9}, - CellLabel->"In[84]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"], + CellLabel->"In[16]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"], Cell[BoxData[ RowBox[{ @@ -811,7 +811,7 @@ Cell[BoxData[ RowBox[{"i", ",", RowBox[{"Length", "[", "faces", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.833981987629899*^9, 3.83398199939977*^9}}, - CellLabel->"In[85]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"], + CellLabel->"In[17]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"], Cell[BoxData[ RowBox[{ @@ -837,7 +837,7 @@ Cell[BoxData[ RowBox[{"Length", "[", "G", "]"}], "]"}], ",", "G"}], "]"}]}]], "Input", CellChangeTimes->{{3.831554845925479*^9, 3.8315548977219877`*^9}, 3.833982029038528*^9}, - CellLabel->"In[86]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"], + CellLabel->"In[18]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"], Cell[BoxData[ RowBox[{ @@ -941,7 +941,7 @@ Cell[BoxData[ 3.834270430502697*^9}, {3.834271267146653*^9, 3.834271275112032*^9}, { 3.834351949243196*^9, 3.834351950526677*^9}, {3.834352089916841*^9, 3.834352127810135*^9}}, - CellLabel->"In[87]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"], + CellLabel->"In[19]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"], Cell[CellGroupData[{ @@ -950,7 +950,7 @@ Cell[BoxData[ CellChangeTimes->{{3.833893222127377*^9, 3.833893227672316*^9}, { 3.83397931096562*^9, 3.833979311902438*^9}, {3.833982525256192*^9, 3.833982529177711*^9}, {3.833982918567665*^9, 3.8339829240001698`*^9}}, - CellLabel->"In[88]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"], + CellLabel->"In[20]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"], Cell[BoxData["16384"], "Output", CellChangeTimes->{ @@ -984,8 +984,9 @@ Cell[BoxData["16384"], "Output", 3.834363957483852*^9, {3.834364187716065*^9, 3.834364198004562*^9}, 3.8344822107164927`*^9, 3.83456973372355*^9, 3.834575082919744*^9, 3.834577447902966*^9, 3.8345890154068213`*^9, 3.834619110878572*^9, { - 3.834619146500414*^9, 3.834619200887533*^9}, 3.834620064417549*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"b0d4f890-a771-444d-9b79-367d59252245"] + 3.834619146500414*^9, 3.834619200887533*^9}, 3.834620064417549*^9, + 3.834622032092245*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"900e6bfa-6bba-4ef4-828d-7b0021ce704d"] }, Open ]], Cell[BoxData[ @@ -1055,7 +1056,7 @@ Cell[BoxData[ 3.8342709184846773`*^9}, {3.834271399281299*^9, 3.834271400142085*^9}, { 3.8345760352900133`*^9, 3.834576035855191*^9}, {3.834594490350781*^9, 3.834594498152722*^9}}, - CellLabel->"In[89]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"], + CellLabel->"In[21]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"], Cell[BoxData[ RowBox[{ @@ -1091,7 +1092,7 @@ Cell[BoxData[ CellChangeTimes->{{3.833978075492923*^9, 3.833978098104927*^9}, { 3.833978140873678*^9, 3.833978187704298*^9}, {3.833979750071292*^9, 3.833979764905096*^9}, {3.833980891992284*^9, 3.833980904095957*^9}}, - CellLabel->"In[90]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"], + CellLabel->"In[22]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"], Cell[CellGroupData[{ @@ -1101,7 +1102,7 @@ Cell[BoxData[ RowBox[{"pyramidG", "[", "5", "]"}], "//", "Simplify"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.834589971082777*^9, 3.834589977737949*^9}}, - CellLabel->"In[91]:=",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"], + CellLabel->"In[23]:=",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"], Cell[BoxData[ TagBox[ @@ -1175,10 +1176,10 @@ Cell[BoxData[ MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.834589978025352*^9, 3.8346191110031843`*^9, {3.834619146536714*^9, - 3.834619200920805*^9}, 3.834620064478142*^9}, + 3.834619200920805*^9}, 3.834620064478142*^9, 3.83462203217528*^9}, CellLabel-> - "Out[91]//MatrixForm=",ExpressionUUID->"31a9b1db-7c74-441a-aff6-\ -83692603abe7"] + "Out[23]//MatrixForm=",ExpressionUUID->"3a450f6d-4872-424d-ac58-\ +185964ec832d"] }, Open ]], Cell[BoxData[ @@ -1215,7 +1216,7 @@ Cell[BoxData[ 3.833979410979437*^9}, {3.8339798534902363`*^9, 3.833979853676499*^9}, { 3.8339800331837673`*^9, 3.833980033963599*^9}, {3.833981434488759*^9, 3.8339814414612226`*^9}, {3.833981948527481*^9, 3.8339819534472733`*^9}}, - CellLabel->"In[92]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"], + CellLabel->"In[24]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"], Cell[CellGroupData[{ @@ -2548,7 +2549,7 @@ Cell[BoxData[ 3.834577368235077*^9, 3.83457741966676*^9}, {3.834587930515738*^9, 3.8345879754426622`*^9}, 3.834596514186092*^9, {3.8345965717252493`*^9, 3.8345966680116*^9}, 3.834597106557557*^9}, - CellLabel->"In[93]:=",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"], + CellLabel->"In[25]:=",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"], Cell[BoxData[ RowBox[{"{", @@ -3877,8 +3878,8 @@ Cell[BoxData[ 3.834577475644277*^9, 3.834587976288975*^9, {3.834589015445696*^9, 3.8345890313170013`*^9}, 3.834589551887248*^9, 3.8345966690039873`*^9, 3.83459710893034*^9, 3.834619111092857*^9, {3.834619146598003*^9, - 3.8346192009846697`*^9}, 3.834620064533987*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"c6e2f2e6-7cd4-491a-8e58-672efe0ba64d"] + 3.8346192009846697`*^9}, 3.834620064533987*^9, 3.834622032304461*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"c02bb66a-5d50-4ed0-be1e-747ee5c65e2a"] }, Open ]], Cell[BoxData[ @@ -3891,14 +3892,14 @@ Cell[BoxData[ "}"}]}], "]"}], "*)"}]], "Input", CellChangeTimes->{{3.8345945020265207`*^9, 3.8345945253251333`*^9}, { 3.834619176527865*^9, 3.83461917834228*^9}}, - CellLabel->"In[94]:=",ExpressionUUID->"6977722c-d100-46af-b89f-09bd581d57a6"], + CellLabel->"In[26]:=",ExpressionUUID->"6977722c-d100-46af-b89f-09bd581d57a6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"faces", "-", "1"}]], "Input", CellChangeTimes->{{3.834588042134763*^9, 3.834588042907105*^9}}, - CellLabel->"In[95]:=",ExpressionUUID->"760eb9b0-3326-4e88-bf34-c4d40756f7d8"], + CellLabel->"In[27]:=",ExpressionUUID->"760eb9b0-3326-4e88-bf34-c4d40756f7d8"], Cell[BoxData[ RowBox[{ @@ -3906,8 +3907,8 @@ Cell[BoxData[ CellChangeTimes->{ 3.834588043391036*^9, 3.834589015470923*^9, 3.834589556494358*^9, 3.8345966939861794`*^9, 3.834597118683176*^9, {3.83461918064968*^9, - 3.834619201021398*^9}, 3.83462006456221*^9}, - CellLabel->"Out[95]=",ExpressionUUID->"0fd36348-8a39-4c56-9bce-27751c02104a"] + 3.834619201021398*^9}, 3.83462006456221*^9, 3.83462203235201*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"2bf21d2e-4e12-4616-945d-d0b211c81593"] }, Open ]], Cell[CellGroupData[{ @@ -3930,7 +3931,7 @@ Cell[BoxData[ RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.834583137581257*^9, 3.834583138213504*^9}}, - CellLabel->"In[96]:=",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"], + CellLabel->"In[28]:=",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"], Cell[BoxData[ RowBox[{"{", @@ -3964,8 +3965,8 @@ Cell[BoxData[ 3.8345829667142353`*^9, 3.8345831386319103`*^9, 3.8345879905510902`*^9, { 3.8345890155099287`*^9, 3.834589033262504*^9}, 3.834589555012388*^9, 3.834596688916205*^9, 3.8345971158718147`*^9, {3.834619180679515*^9, - 3.8346192010511627`*^9}, 3.8346200645902567`*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"88f8c696-d104-4a8c-a524-de32937c37c5"] + 3.8346192010511627`*^9}, 3.8346200645902567`*^9, 3.8346220323939047`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"f880e93e-9cde-47dd-a7f4-7e34702d3486"] }, Open ]], Cell[BoxData[ @@ -3975,7 +3976,7 @@ Cell[BoxData[ CellChangeTimes->{{3.834577451985367*^9, 3.8345774708567953`*^9}, 3.834577518160853*^9, {3.8345831405903873`*^9, 3.834583141558793*^9}, { 3.8346191956007032`*^9, 3.834619197573401*^9}}, - CellLabel->"In[97]:=",ExpressionUUID->"0165a61f-4b0d-4994-908f-04bea59efbb2"], + CellLabel->"In[29]:=",ExpressionUUID->"0165a61f-4b0d-4994-908f-04bea59efbb2"], Cell[BoxData[ RowBox[{"(*", @@ -4003,7 +4004,7 @@ nCuFkXw+edthQg2tfv4mw5TxoimmvyyF1FrpFkAvHz6pibdYP81csdmeLE5e 2wotFzaSMstzjb+YV1xlpMepL2MGt0Y9YxWDJHfh+BIuc+B+AhkVXTdhxDwz xJmCv+1PhBkzH5blkx0O5QWwpFZD/gdS9J8/ "], - CellLabel->"In[98]:=",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"], + CellLabel->"In[30]:=",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"], Cell[CellGroupData[{ @@ -5332,7 +5333,7 @@ Cell[BoxData[ RowBox[{"-", "2"}], "-", RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]}]], "Input", - CellLabel->"In[99]:=",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"], + CellLabel->"In[31]:=",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"], Cell[BoxData[ RowBox[{"{", @@ -6659,8 +6660,8 @@ Cell[BoxData[ SqrtBox["5"]}], ")"}]}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.834569733781122*^9, 3.8345750830053596`*^9, 3.8345774480010633`*^9, 3.834589015844344*^9, 3.834619201132711*^9, - 3.8346200646459208`*^9}, - CellLabel->"Out[99]=",ExpressionUUID->"c362ca4a-b04d-4383-96b3-61d66b80e032"] + 3.8346200646459208`*^9, 3.834622032528541*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"f38587bc-1d3a-423d-9784-9456166a4f4b"] }, Open ]], Cell[BoxData[ @@ -6683,8 +6684,7 @@ Cell[BoxData[ 3.834181270520502*^9, 3.83422655699443*^9, {3.8342695416310997`*^9, 3.83426954395999*^9}, {3.8342792723452053`*^9, 3.8342792750702457`*^9}, { 3.8345696488890333`*^9, 3.8345696650351*^9}}, - CellLabel-> - "In[100]:=",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"], + CellLabel->"In[32]:=",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"], Cell[BoxData[ RowBox[{"(*", @@ -6701,8 +6701,7 @@ TJcKCB42BdIV1xvA9Emb+mOWQHpa7FcwPWPLnCueQFos+ymYzr/WvsEPZF7+ 2o0g+rXFW/YiIG32UpkDRAeoPTQG0bstvExAtNU+HpUKIM3ikwum7yj2194B 0nVrJ9aDaBX/8zL3gfTbMG5ZEA0A/HzVxA== "], - CellLabel-> - "In[101]:=",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"], + CellLabel->"In[33]:=",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"], Cell[BoxData[ RowBox[{ @@ -6716,8 +6715,7 @@ Cell[BoxData[ }]}], ";"}]], "Input", CellChangeTimes->{{3.8342676567311163`*^9, 3.83426770251457*^9}, { 3.83436362090779*^9, 3.834363621444234*^9}}, - CellLabel-> - "In[102]:=",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"], + CellLabel->"In[34]:=",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"], Cell[BoxData[ RowBox[{ @@ -6732,8 +6730,7 @@ Cell[BoxData[ {"0", "0", "0", "1"} }]}], ";"}]], "Input", CellChangeTimes->{{3.8342676843163633`*^9, 3.8342677012142773`*^9}}, - CellLabel-> - "In[103]:=",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"], + CellLabel->"In[35]:=",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"], Cell[BoxData[ RowBox[{ @@ -6758,8 +6755,7 @@ Cell[BoxData[ CellChangeTimes->{{3.834255719098699*^9, 3.834255752266445*^9}, { 3.834255803667136*^9, 3.834255822215041*^9}, 3.834267713596407*^9, { 3.834363641553152*^9, 3.834363648776113*^9}}, - CellLabel-> - "In[104]:=",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"], + CellLabel->"In[36]:=",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"], Cell[CellGroupData[{ @@ -6768,8 +6764,7 @@ Cell[BoxData[ RowBox[{"W", ".", "P", ".", RowBox[{"Transpose", "[", "W", "]"}]}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.8343633434683943`*^9, 3.8343633944968452`*^9}}, - CellLabel-> - "In[105]:=",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"], + CellLabel->"In[37]:=",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"], Cell[BoxData[ TagBox[ @@ -6804,10 +6799,11 @@ Cell[BoxData[ CellChangeTimes->{{3.834363345042426*^9, 3.834363394907709*^9}, 3.834363624185574*^9, 3.8343639801334887`*^9, 3.834364198424225*^9, 3.8344822111507607`*^9, 3.834575083100013*^9, 3.834577448081056*^9, - 3.834589015904508*^9, 3.834619201182929*^9, 3.8346200646835327`*^9}, + 3.834589015904508*^9, 3.834619201182929*^9, 3.8346200646835327`*^9, + 3.834622032609221*^9}, CellLabel-> - "Out[105]//MatrixForm=",ExpressionUUID->"fa744ce7-df42-4c5e-ace8-\ -b2000738a824"] + "Out[37]//MatrixForm=",ExpressionUUID->"67b63bb9-fae5-4568-8a60-\ +133746dffa8e"] }, Open ]], Cell[CellGroupData[{ @@ -6820,8 +6816,7 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.834267747292341*^9, 3.8342677548359013`*^9}}, - CellLabel-> - "In[106]:=",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"], + CellLabel->"In[38]:=",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"], Cell[BoxData[ RowBox[{"{", @@ -6840,9 +6835,8 @@ Cell[BoxData[ 3.83435201778999*^9}, 3.834363031990286*^9, 3.8343639822501802`*^9, 3.834364198444326*^9, 3.834482211167481*^9, 3.8345750831330767`*^9, 3.8345774481382933`*^9, 3.834589015933384*^9, 3.8346192012130213`*^9, - 3.8346200647015047`*^9}, - CellLabel-> - "Out[106]=",ExpressionUUID->"d499779c-5b7a-4f58-9ac7-5a43ab49042e"] + 3.8346200647015047`*^9, 3.8346220326422663`*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"630abb97-22f0-4a74-bdb2-b1bcbedfc539"] }, Open ]], Cell[CellGroupData[{ @@ -6855,8 +6849,7 @@ Cell[BoxData[ RowBox[{"Inverse", "[", "G", "]"}], ".", "v"}], "]"}], "\[Equal]", "0"}]}]], "Input", CellChangeTimes->{{3.834267725468601*^9, 3.8342677925075703`*^9}}, - CellLabel-> - "In[107]:=",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"], + CellLabel->"In[39]:=",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"], Cell[BoxData[ RowBox[{ @@ -6890,9 +6883,8 @@ Cell[BoxData[ 3.8343630336046457`*^9, 3.834363655137488*^9, 3.834363983393931*^9, 3.834364198463523*^9, 3.834482211190282*^9, 3.8345750832348633`*^9, 3.834577448173585*^9, 3.834589015963715*^9, 3.834619201243526*^9, - 3.834620064722768*^9}, - CellLabel-> - "Out[107]=",ExpressionUUID->"678ba049-5256-437d-96b6-fb8886ab326f"] + 3.834620064722768*^9, 3.8346220326828537`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"76792e1c-d0b4-43ae-90e2-1a257c148213"] }, Open ]], Cell[CellGroupData[{ @@ -6911,8 +6903,7 @@ Cell[BoxData[ CellChangeTimes->{{3.83426789441687*^9, 3.834267939586699*^9}, { 3.8342679727473183`*^9, 3.8342680273972597`*^9}, {3.834363714474595*^9, 3.834363717250361*^9}, {3.834363752813319*^9, 3.834363812626932*^9}}, - CellLabel-> - "In[108]:=",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"], + CellLabel->"In[40]:=",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"], Cell[BoxData[ RowBox[{ @@ -6932,9 +6923,8 @@ Cell[BoxData[ 3.834363781827297*^9}, 3.834363813182411*^9, 3.834363984591229*^9, 3.834364198514433*^9, 3.834482211280281*^9, 3.834575083299467*^9, 3.834577448258504*^9, 3.8345890159941797`*^9, 3.834619201273468*^9, - 3.834620064804543*^9}, - CellLabel-> - "Out[108]=",ExpressionUUID->"ea191bd8-62b5-449c-ad86-8a309f852993"] + 3.834620064804543*^9, 3.834622032759564*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"11c7f603-ee8f-4ae7-9e7f-e659690ffe4b"] }, Open ]], Cell[BoxData[ @@ -6969,8 +6959,7 @@ Cell[BoxData[ CellChangeTimes->{{3.834268212750614*^9, 3.834268282815816*^9}, { 3.834363829310417*^9, 3.834363843669476*^9}, {3.8345750674014187`*^9, 3.834575069172274*^9}}, - CellLabel-> - "In[109]:=",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"], + CellLabel->"In[41]:=",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"], Cell[BoxData[ RowBox[{ @@ -6986,8 +6975,7 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.8342682912805243`*^9, 3.8342683139154463`*^9}}, - CellLabel-> - "In[110]:=",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"], + CellLabel->"In[42]:=",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"], Cell[BoxData[ RowBox[{ @@ -7004,8 +6992,7 @@ Cell[BoxData[ 3.834272002098583*^9}, {3.83436385669696*^9, 3.834363858881136*^9}, { 3.8343646210101*^9, 3.834364623031375*^9}, {3.834482222055552*^9, 3.834482227036398*^9}}, - CellLabel-> - "In[111]:=",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"], + CellLabel->"In[43]:=",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"], Cell[CellGroupData[{ @@ -7017,8 +7004,7 @@ Cell[BoxData[ CellChangeTimes->{{3.8342701786590567`*^9, 3.8342701920132732`*^9}, { 3.834270300677595*^9, 3.8342703127835407`*^9}, {3.834270596130591*^9, 3.834270633252564*^9}, {3.834270774793049*^9, 3.834270817557818*^9}}, - CellLabel-> - "In[112]:=",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"], + CellLabel->"In[44]:=",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"], Cell[BoxData[ RowBox[{ @@ -7037,9 +7023,9 @@ Cell[BoxData[ 3.834272147466762*^9, 3.83435169892546*^9, {3.834351997102436*^9, 3.834352017902173*^9}, 3.8343638625127087`*^9, 3.8343641985475082`*^9, 3.834482211308651*^9, 3.8345750833323193`*^9, 3.8345774482991858`*^9, - 3.834589016036188*^9, 3.8346192013142357`*^9, 3.834620064835174*^9}, - CellLabel-> - "Out[112]=",ExpressionUUID->"bd06ccdb-7db7-4884-88fe-575ea5d8b20c"] + 3.834589016036188*^9, 3.8346192013142357`*^9, 3.834620064835174*^9, + 3.834622032885338*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"50f9185b-b05f-4d11-8105-4ff42f4a33fb"] }, Open ]], Cell[CellGroupData[{ @@ -7061,8 +7047,7 @@ Cell[BoxData[ 3.8342706766721563`*^9, 3.834270680336699*^9}, {3.834363001714438*^9, 3.8343630041165047`*^9}, {3.834363044982485*^9, 3.8343630450946198`*^9}, { 3.834363182295018*^9, 3.834363249513712*^9}}, - CellLabel-> - "In[113]:=",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"], + CellLabel->"In[45]:=",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"], Cell[BoxData[ RowBox[{ @@ -7076,9 +7061,9 @@ Cell[BoxData[ 3.83436304561241*^9}, {3.834363182886771*^9, 3.8343632500565157`*^9}, 3.834363852750724*^9, 3.834364198566584*^9, 3.834364495261963*^9, 3.8344822113242693`*^9, 3.834575083355125*^9, 3.83457744832612*^9, - 3.8345890160646973`*^9, 3.8346192013428164`*^9, 3.8346200648542023`*^9}, - CellLabel-> - "Out[113]=",ExpressionUUID->"c3b0541b-fd2c-451d-b4e5-598414d580c3"] + 3.8345890160646973`*^9, 3.8346192013428164`*^9, 3.8346200648542023`*^9, + 3.8346220329059887`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"36da415e-4110-4777-89e6-316114848dc8"] }, Open ]], Cell[BoxData[ @@ -7096,8 +7081,7 @@ Cell[BoxData[ 3.8342711165751047`*^9}, {3.8342714656515923`*^9, 3.834271485643083*^9}, { 3.834271537404784*^9, 3.8342715396864367`*^9}, {3.83427159034447*^9, 3.834271592149164*^9}, {3.834272087424869*^9, 3.834272111364039*^9}}, - CellLabel-> - "In[114]:=",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"], + CellLabel->"In[46]:=",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"], Cell[CellGroupData[{ @@ -7167,18 +7151,17 @@ Cell[BoxData[{ 3.8343530172572937`*^9}, {3.834364165786512*^9, 3.8343641678676987`*^9}, { 3.834575089476474*^9, 3.83457510051685*^9}, {3.83457589132205*^9, 3.834575923092753*^9}, {3.834576066103735*^9, 3.834576081066098*^9}}, - CellLabel-> - "In[115]:=",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"], + CellLabel->"In[47]:=",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"], Cell[BoxData[ RowBox[{"{", - RowBox[{"0.036244`", ",", "794"}], "}"}]], "Output", + RowBox[{"0.03866`", ",", "794"}], "}"}]], "Output", CellChangeTimes->{ 3.834575100970106*^9, {3.834575892210062*^9, 3.8345759235007677`*^9}, { 3.834576067576849*^9, 3.834576081559376*^9}, 3.834577448397056*^9, - 3.834589016134952*^9, 3.8346192014126596`*^9, 3.834620064913557*^9}, - CellLabel-> - "Out[118]=",ExpressionUUID->"be5b9f37-dd7e-4ca9-b86f-715c76a65e1e"] + 3.834589016134952*^9, 3.8346192014126596`*^9, 3.834620064913557*^9, + 3.834622032971055*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"36e96dce-2ae4-49a1-b65a-752ee0b6a4ae"] }, Open ]], Cell[CellGroupData[{ @@ -7203,8 +7186,7 @@ Cell[BoxData[ RowBox[{"-", "1"}], "1"} }]}]], "Input", CellChangeTimes->{{3.8345759946467247`*^9, 3.834576008309001*^9}}, - CellLabel-> - "In[119]:=",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"], + CellLabel->"In[51]:=",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"], Cell[BoxData[ RowBox[{"{", @@ -7230,9 +7212,9 @@ Cell[BoxData[ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.834576009019684*^9, 3.834577448424959*^9, - 3.834589016163299*^9, 3.834619201440893*^9, 3.834620064932081*^9}, - CellLabel-> - "Out[119]=",ExpressionUUID->"d55a8c7b-2938-4b5b-adb0-4e0b59073014"] + 3.834589016163299*^9, 3.834619201440893*^9, 3.834620064932081*^9, + 3.8346220329886436`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"e24fedb1-b818-43c8-983c-b23805ceafd9"] }, Open ]], Cell[CellGroupData[{ @@ -7241,21 +7223,20 @@ Cell[BoxData[ RowBox[{"fractalDimensionFromG", "[", RowBox[{"G", ",", "1000", ",", "100", ",", "root"}], "]"}]], "Input", CellChangeTimes->{{3.834575932192585*^9, 3.834575982803146*^9}}, - CellLabel-> - "In[120]:=",ExpressionUUID->"2347cd7e-d092-4dfc-a9d2-725296672710"], + CellLabel->"In[52]:=",ExpressionUUID->"2347cd7e-d092-4dfc-a9d2-725296672710"], Cell[BoxData["0.9998854157770295`"], "Print", - CellChangeTimes->{3.834619201872141*^9, 3.834620065084012*^9}, + CellChangeTimes->{3.834619201872141*^9, 3.834620065084012*^9, + 3.8346220331426497`*^9}, CellLabel-> "During evaluation of \ -In[120]:=",ExpressionUUID->"243c5f53-2902-486d-8a6e-0fa1474569bd"], +In[52]:=",ExpressionUUID->"46fd8026-fcde-44a7-9ad1-fe72ee5d0faf"], Cell[BoxData["1.2852530162394058`"], "Output", CellChangeTimes->{{3.8345759522619953`*^9, 3.83457601147882*^9}, 3.834576042488693*^9, 3.8345774486768436`*^9, 3.8345890163431997`*^9, - 3.834619201873157*^9, 3.834620065085408*^9}, - CellLabel-> - "Out[120]=",ExpressionUUID->"167b692a-014e-4740-ab76-42c647d16680"] + 3.834619201873157*^9, 3.834620065085408*^9, 3.834622033144053*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"39f2170f-7565-426d-a956-7c4fac3452cc"] }, Open ]], Cell[CellGroupData[{ @@ -7268,8 +7249,7 @@ Cell[BoxData[ 3.834364536335041*^9, 3.834364588811516*^9}, {3.834364936155011*^9, 3.834364962698073*^9}, {3.834365049261941*^9, 3.834365056740116*^9}, { 3.834482247335332*^9, 3.8344822647451897`*^9}}, - CellLabel-> - "In[121]:=",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"], + CellLabel->"In[53]:=",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"], Cell[BoxData[ RowBox[{"{", @@ -7280,9 +7260,8 @@ Cell[BoxData[ 3.834365050324903*^9, 3.834365057204047*^9}, 3.8344822113732147`*^9, { 3.8344822424974823`*^9, 3.83448226518806*^9}, 3.834575083387231*^9, 3.834577448707432*^9, 3.83458901641998*^9, 3.83461920190914*^9, - 3.83462006510275*^9}, - CellLabel-> - "Out[121]=",ExpressionUUID->"51c54558-df57-4bc9-8281-8e5ff7b90dd9"] + 3.83462006510275*^9, 3.834622033160582*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"4b4de667-e14b-430e-934c-6bd4f8316bac"] }, Open ]], Cell[CellGroupData[{ @@ -7298,16 +7277,14 @@ Cell[BoxData[ ".", "root"}], "//", "Total"}]], "Input", CellChangeTimes->{{3.8343649661668367`*^9, 3.8343650190653057`*^9}, { 3.834365063719788*^9, 3.834365066037496*^9}}, - CellLabel-> - "In[122]:=",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"], + CellLabel->"In[54]:=",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"], Cell[BoxData["366"], "Output", CellChangeTimes->{{3.834364973587739*^9, 3.834365019369627*^9}, 3.8343650663826017`*^9, 3.83448221142877*^9, 3.8345750834170027`*^9, 3.834577448737156*^9, 3.8345890164491863`*^9, 3.834619201936276*^9, - 3.834620065121768*^9}, - CellLabel-> - "Out[122]=",ExpressionUUID->"982890cb-9b9b-49e7-b982-cc9764229ef4"] + 3.834620065121768*^9, 3.83462203317866*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"4c5deede-a8da-48d0-a7d3-c546345e217d"] }, Open ]], Cell[CellGroupData[{ @@ -7315,15 +7292,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", "root", "]"}]], "Input", CellChangeTimes->{{3.834364511566435*^9, 3.83436451570404*^9}}, - CellLabel-> - "In[123]:=",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"], + CellLabel->"In[55]:=",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"], Cell[BoxData["42"], "Output", CellChangeTimes->{{3.834364516240282*^9, 3.8343645216357203`*^9}, 3.834482211449671*^9, 3.834575083439714*^9, 3.8345774487675343`*^9, - 3.834589016478706*^9, 3.83461920196589*^9, 3.834620065141079*^9}, - CellLabel-> - "Out[123]=",ExpressionUUID->"35cceac5-c6b2-4fa2-a20a-d2bba3fac866"] + 3.834589016478706*^9, 3.83461920196589*^9, 3.834620065141079*^9, + 3.834622033197199*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"6d08d1fb-4a9c-48b0-85a8-eb5a7b29c051"] }, Open ]], Cell[CellGroupData[{ @@ -7341,8 +7317,7 @@ Cell[BoxData[ 3.834363996621307*^9, 3.834363999587277*^9}, {3.834364225310771*^9, 3.8343643000517597`*^9}, {3.8343645048417253`*^9, 3.834364559595419*^9}, { 3.834364599161187*^9, 3.834364611580153*^9}}, - CellLabel-> - "In[124]:=",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"], + CellLabel->"In[56]:=",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"], Cell[BoxData["78"], "Output", CellChangeTimes->{{3.83435263841041*^9, 3.834352641587645*^9}, @@ -7350,9 +7325,9 @@ Cell[BoxData["78"], "Output", 3.8343641985951557`*^9, 3.834364300431389*^9}, {3.834364505914947*^9, 3.8343645599497337`*^9}, {3.834364601241448*^9, 3.8343646119022827`*^9}, 3.834482211466435*^9, 3.834575083463491*^9, 3.834577448796245*^9, - 3.834589016508092*^9, 3.8346192019954576`*^9, 3.834620065159852*^9}, - CellLabel-> - "Out[124]=",ExpressionUUID->"5d5d94b9-1b6b-49fb-a0f1-2cc81a3dba25"] + 3.834589016508092*^9, 3.8346192019954576`*^9, 3.834620065159852*^9, + 3.834622033215433*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"8ded244d-06f9-44c7-9640-86ab5983b4e2"] }, Open ]], Cell[BoxData[ @@ -7401,8 +7376,7 @@ Cell[BoxData[ 3.8342719293657618`*^9, 3.834271947818203*^9}, {3.834272078815785*^9, 3.834272081519147*^9}, {3.8342721236037807`*^9, 3.83427214226362*^9}, { 3.834351990869299*^9, 3.834351993528885*^9}}, - CellLabel-> - "In[125]:=",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"], + CellLabel->"In[57]:=",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"], Cell[CellGroupData[{ @@ -7412,8 +7386,7 @@ Cell[BoxData[ ".", "root"}]], "Input", CellChangeTimes->{{3.834272021760499*^9, 3.83427203146054*^9}, 3.834364154564042*^9}, - CellLabel-> - "In[126]:=",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"], + CellLabel->"In[58]:=",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"], Cell[BoxData[ RowBox[{"{", @@ -7423,9 +7396,9 @@ Cell[BoxData[ 3.834272147704256*^9, 3.8342721600061007`*^9}, 3.8343516990324917`*^9, { 3.8343519972905912`*^9, 3.834352019090838*^9}, 3.8343641986173077`*^9, 3.834482211493958*^9, 3.8345750834920177`*^9, 3.8345774488504753`*^9, - 3.8345890165423117`*^9, 3.834619202028728*^9, 3.8346200651817904`*^9}, - CellLabel-> - "Out[126]=",ExpressionUUID->"61f0b93b-6c00-4f56-b397-60afac7f76d2"] + 3.8345890165423117`*^9, 3.834619202028728*^9, 3.8346200651817904`*^9, + 3.834622033238542*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"aee5fac2-d859-4f6e-b539-0a977345e0e2"] }, Open ]], Cell[BoxData[ @@ -7437,8 +7410,7 @@ Cell[BoxData[ CellChangeTimes->{{3.834363921051414*^9, 3.834363950761215*^9}, { 3.834364012856628*^9, 3.834364015468774*^9}, {3.834364134655746*^9, 3.834364136951743*^9}}, - CellLabel-> - "In[127]:=",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"], + CellLabel->"In[59]:=",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"], Cell[BoxData[ RowBox[{"(*", @@ -7488,16 +7460,14 @@ Cell[BoxData[ 3.8342725088235283`*^9, {3.834272547381021*^9, 3.834272547477632*^9}, { 3.834351693602374*^9, 3.8343516954988422`*^9}, {3.83436389691505*^9, 3.83436390716508*^9}, {3.8343641398377953`*^9, 3.8343641416802073`*^9}}, - CellLabel-> - "In[128]:=",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"], + CellLabel->"In[60]:=",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nlm", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.834272427241466*^9, 3.8342724326668386`*^9}}, - CellLabel-> - "In[129]:=",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"], + CellLabel->"In[61]:=",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"], Cell[BoxData[ RowBox[{"nlm", "[", "\<\"RSquared\"\>", "]"}]], "Output", @@ -7505,9 +7475,9 @@ Cell[BoxData[ 3.834272432969537*^9, 3.834278750219996*^9, 3.834351699058116*^9, { 3.8343519973195133`*^9, 3.834352019121767*^9}, 3.83436419864568*^9, 3.8344822115283613`*^9, 3.8345750835243597`*^9, 3.8345774489049597`*^9, - 3.834589016580224*^9, 3.8346192020658092`*^9, 3.834620065208219*^9}, - CellLabel-> - "Out[129]=",ExpressionUUID->"7f9b8f0a-874b-4fc3-9422-12a987494490"] + 3.834589016580224*^9, 3.8346192020658092`*^9, 3.834620065208219*^9, + 3.8346220332643747`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"9e04542e-2451-4020-84a3-f7b5688fffcb"] }, Open ]], Cell[CellGroupData[{ @@ -7518,8 +7488,7 @@ Cell[BoxData[ RowBox[{"pyramidG", "[", "4", "]"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.834608147157591*^9, 3.834608157699215*^9}, { 3.834613211433923*^9, 3.834613211481103*^9}}, - CellLabel-> - "In[130]:=",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"], + CellLabel->"In[62]:=",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"], Cell[BoxData[ RowBox[{"{", @@ -7555,9 +7524,9 @@ Cell[BoxData[ RowBox[{"-", "3"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.83460815064884*^9, 3.834608158044807*^9}, - 3.834613212108568*^9, 3.834619202095937*^9, 3.834620065226191*^9}, - CellLabel-> - "Out[130]=",ExpressionUUID->"49110fde-c70a-4cf4-a8d4-2e603dcfecc5"] + 3.834613212108568*^9, 3.834619202095937*^9, 3.834620065226191*^9, + 3.83462203328133*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"f6932501-5a15-4c84-93b9-6ed64154d9fa"] }, Open ]], Cell[CellGroupData[{ @@ -7567,8 +7536,7 @@ Cell[BoxData[ RowBox[{"findGeneratorsFromG", "[", "G", "]"}]}]], "Input", CellChangeTimes->{{3.83460815911386*^9, 3.8346081672942*^9}, { 3.834613489173396*^9, 3.834613494745154*^9}}, - CellLabel-> - "In[131]:=",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"], + CellLabel->"In[63]:=",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"], Cell[BoxData[ RowBox[{"{", @@ -7582,11 +7550,11 @@ Cell[BoxData[ RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"4.`", ",", "4.`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.`"}], "}"}], ",", + RowBox[{"4.`", ",", "3.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "3.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"4.`", ",", "3.`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`"}], "}"}], ",", + RowBox[{"4.`", ",", "2.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "4.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], "}"}]}], "}"}], ",", @@ -7613,8 +7581,8 @@ Cell[BoxData[ RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"4.`", ",", - RowBox[{"-", "1.`"}], ",", "4.`", ",", "2.`", ",", "0.`"}], "}"}], ",", + RowBox[{"4.`", ",", "0.`", ",", "3.`", ",", "3.`", ",", + RowBox[{"-", "1.`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], ",", @@ -7622,9 +7590,8 @@ Cell[BoxData[ RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"4.`", ",", - RowBox[{"-", "1.`"}], ",", "3.`", ",", "3.`", ",", "0.`"}], "}"}]}], - "}"}], ",", + RowBox[{"4.`", ",", "0.`", ",", "2.`", ",", "4.`", ",", + RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", @@ -7646,11 +7613,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ - RowBox[{"-", "1.`"}], ",", "0.`", ",", "1.`", ",", "0.`", ",", "1.`"}], + RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", - RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", + RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], + ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], ",", @@ -7658,19 +7625,19 @@ Cell[BoxData[ RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], - "}"}]}], "}"}]}], "}"}]], "Output", + RowBox[{"0.`", ",", "1.`", ",", + RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`"}], "}"}]}], "}"}]}], + "}"}]], "Output", CellChangeTimes->{ 3.834608167997654*^9, 3.834613222979426*^9, {3.8346134917935543`*^9, - 3.834613495128717*^9}, 3.834619202247882*^9, 3.834620065275806*^9}, - CellLabel-> - "Out[131]=",ExpressionUUID->"fce856bb-cf1c-44e6-a5f9-84bb9451b447"] + 3.834613495128717*^9}, 3.834619202247882*^9, 3.834620065275806*^9, + 3.834622033331367*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"c7545b66-d491-4b27-a041-a274c82a1022"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.834608303636486*^9, 3.834608313792286*^9}}, - CellLabel-> - "In[132]:=",ExpressionUUID->"94a19936-4029-4bf5-b55a-bd9d0f39fac8"], + CellLabel->"In[64]:=",ExpressionUUID->"94a19936-4029-4bf5-b55a-bd9d0f39fac8"], Cell[CellGroupData[{ @@ -7680,8 +7647,7 @@ Cell[BoxData[ RowBox[{"graphFromG", "[", "G", "]"}], "]"}], "-", "1"}]], "Input", CellChangeTimes->{{3.834608357467698*^9, 3.8346083684669456`*^9}, { 3.8346135174422903`*^9, 3.834613517507605*^9}}, - CellLabel-> - "In[133]:=",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"], + CellLabel->"In[65]:=",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"], Cell[BoxData[ RowBox[{"{", @@ -7698,9 +7664,8 @@ Cell[BoxData[ RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.834608359833349*^9, 3.834608368853426*^9}, 3.834613239830826*^9, 3.834613517923314*^9, 3.834619202287201*^9, - 3.8346200653000317`*^9}, - CellLabel-> - "Out[133]=",ExpressionUUID->"708710fb-18f7-4e74-a13d-2bfc60343c8f"] + 3.8346200653000317`*^9, 3.834622033354699*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"2e00b386-e72d-42ad-a6af-7bdbe58accc4"] }, Open ]], Cell[CellGroupData[{ @@ -7713,8 +7678,7 @@ Cell[BoxData[ "1.2389279387920946`", ",", "1.2389279387920946`", ",", "1.2389279387920946`"}], "}"}]}]], "Input", CellChangeTimes->{{3.834613483657979*^9, 3.8346134846307297`*^9}}, - CellLabel-> - "In[134]:=",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"], + CellLabel->"In[66]:=",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"], Cell[BoxData[ RowBox[{"{", @@ -7723,9 +7687,8 @@ Cell[BoxData[ "1.2389279387920946`", ",", "1.2389279387920946`", ",", "1.2389279387920946`"}], "}"}]], "Output", CellChangeTimes->{3.8346134850696898`*^9, 3.834619202305229*^9, - 3.834620065319126*^9}, - CellLabel-> - "Out[134]=",ExpressionUUID->"29ee0936-3209-44a7-b6fe-4d84f0630f57"] + 3.834620065319126*^9, 3.8346220333722763`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"779e3ea3-281a-4c64-a02c-fa583e21c516"] }, Open ]], Cell[CellGroupData[{ @@ -7735,8 +7698,7 @@ Cell[BoxData[ RowBox[{"sigmas", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ".", "root"}]], "Input", CellChangeTimes->{{3.834613496502672*^9, 3.834613501324523*^9}}, - CellLabel-> - "In[135]:=",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"], + CellLabel->"In[67]:=",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"], Cell[BoxData[ RowBox[{"{", @@ -7745,9 +7707,8 @@ Cell[BoxData[ "4.141916673757955`", ",", "4.141916673757955`", ",", "1.2389279387920946`"}], "}"}]], "Output", CellChangeTimes->{3.83461350172188*^9, 3.83461920232476*^9, - 3.834620065339077*^9}, - CellLabel-> - "Out[135]=",ExpressionUUID->"7cb8baeb-3dda-444c-9e76-ec432c6240da"] + 3.834620065339077*^9, 3.834622033391211*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"ecdba486-c112-4b16-9f3a-a98dcd411ecb"] }, Open ]], Cell[CellGroupData[{ @@ -7792,8 +7753,7 @@ Cell[BoxData[ RowBox[{"-", "1"}], "1"} }]}]], "Input", CellChangeTimes->{{3.834619206184881*^9, 3.834619257421171*^9}}, - CellLabel-> - "In[136]:=",ExpressionUUID->"8e4190e4-388a-479e-87c2-24b60546db31"], + CellLabel->"In[68]:=",ExpressionUUID->"8e4190e4-388a-479e-87c2-24b60546db31"], Cell[BoxData[ RowBox[{"{", @@ -7840,9 +7800,9 @@ Cell[BoxData[ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.834619258309565*^9, 3.834620065399693*^9}, - CellLabel-> - "Out[136]=",ExpressionUUID->"03bbb9da-1d29-4767-b4d1-35dff02bc65e"] + CellChangeTimes->{3.834619258309565*^9, 3.834620065399693*^9, + 3.834622033409623*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"7febe78a-3b11-413f-825a-9db5f9114ee1"] }, Open ]], Cell[CellGroupData[{ @@ -7850,8 +7810,7 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"findGeneratorsFromG", "[", "octahedron", "]"}]], "Input", CellChangeTimes->{{3.834619259619753*^9, 3.83461927082788*^9}}, - CellLabel-> - "In[137]:=",ExpressionUUID->"33ad76d4-b47f-4f7f-b556-a35dbd07b9de"], + CellLabel->"In[69]:=",ExpressionUUID->"33ad76d4-b47f-4f7f-b556-a35dbd07b9de"], Cell[BoxData[ RowBox[{"{", @@ -7910,9 +7869,8 @@ Cell[BoxData[ "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"4.`", ",", - RowBox[{"-", "1.`"}], ",", "4.`", ",", "2.`", ",", "0.`", ",", "0.`"}], - "}"}], ",", + RowBox[{"4.`", ",", "0.`", ",", "3.`", ",", "3.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], @@ -7922,13 +7880,11 @@ Cell[BoxData[ "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"4.`", ",", - RowBox[{"-", "1.`"}], ",", "3.`", ",", "3.`", ",", "0.`", ",", "0.`"}], - "}"}], ",", + RowBox[{"4.`", ",", "0.`", ",", "2.`", ",", "4.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"3.`", ",", - RowBox[{"-", "1.`"}], ",", "4.`", ",", "3.`", ",", "0.`", ",", "0.`"}], - "}"}]}], "}"}], ",", + RowBox[{"3.`", ",", "0.`", ",", "3.`", ",", "4.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", @@ -7936,13 +7892,11 @@ Cell[BoxData[ "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"4.`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "2.`", ",", "4.`", ",", "0.`"}], - "}"}], ",", + RowBox[{"4.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "3.`", ",", "3.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"4.`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`", ",", "3.`", ",", "0.`"}], - "}"}], ",", + RowBox[{"4.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "4.`", ",", "2.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], @@ -7952,14 +7906,14 @@ Cell[BoxData[ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"3.`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`", ",", "4.`", ",", "0.`"}], - "}"}]}], "}"}], ",", + RowBox[{"3.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "4.`", ",", "3.`", ",", "0.`"}], "}"}]}], + "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", - RowBox[{"0.`", ",", "3.`", ",", "4.`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`"}], "}"}], ",", + RowBox[{"0.`", ",", "4.`", ",", "3.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "3.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], @@ -7969,11 +7923,11 @@ Cell[BoxData[ "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"0.`", ",", "2.`", ",", "4.`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "4.`"}], "}"}], ",", + RowBox[{"0.`", ",", "3.`", ",", "3.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "4.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"0.`", ",", "3.`", ",", "3.`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "4.`"}], "}"}], ",", + RowBox[{"0.`", ",", "4.`", ",", "2.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "4.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], @@ -8030,17 +7984,14 @@ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", - RowBox[{ - RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "4.`", ",", "4.`", - ",", "2.`"}], "}"}], ",", + RowBox[{"0.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "4.`", ",", "3.`", ",", "3.`"}], "}"}], ",", RowBox[{"{", - RowBox[{ - RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "3.`", ",", "4.`", - ",", "3.`"}], "}"}], ",", + RowBox[{"0.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "3.`", ",", "3.`", ",", "4.`"}], "}"}], ",", RowBox[{"{", - RowBox[{ - RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "4.`", ",", "3.`", - ",", "3.`"}], "}"}], ",", + RowBox[{"0.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "4.`", ",", "2.`", ",", "4.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], @@ -8053,9 +8004,9 @@ Cell[BoxData[ RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], "}"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.834619271168201*^9, 3.834620065453475*^9}, - CellLabel-> - "Out[137]=",ExpressionUUID->"d7197a22-9352-43c8-9269-d2c69cfc8fa7"] + CellChangeTimes->{3.834619271168201*^9, 3.834620065453475*^9, + 3.834622033462813*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"f1025af9-378e-44b2-9bcf-dce36d53a126"] }, Open ]], Cell[CellGroupData[{ @@ -8063,8 +8014,7 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"graphFromG", "[", "octahedron", "]"}]], "Input", CellChangeTimes->{{3.834619274052507*^9, 3.834619277451138*^9}}, - CellLabel-> - "In[138]:=",ExpressionUUID->"57565e6b-f443-4a10-b5a8-e556ff76b840"], + CellLabel->"In[70]:=",ExpressionUUID->"57565e6b-f443-4a10-b5a8-e556ff76b840"], Cell[BoxData[ GraphicsBox[ @@ -8125,9 +8075,9 @@ ywMAx/u+mQ== "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", - CellChangeTimes->{3.834619277811998*^9, 3.8346200654792757`*^9}, - CellLabel-> - "Out[138]=",ExpressionUUID->"1eed4d70-0f62-4f73-90be-92c25c799d9e"] + CellChangeTimes->{3.834619277811998*^9, 3.8346200654792757`*^9, + 3.834622033495985*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"5338e391-2cc9-4c24-8ed9-26a01e42aa6c"] }, Open ]], Cell[CellGroupData[{ @@ -8139,8 +8089,7 @@ Cell[BoxData[ CellChangeTimes->{{3.8346193509253397`*^9, 3.834619357450687*^9}, { 3.8346194631143084`*^9, 3.834619463243856*^9}}, - CellLabel-> - "In[139]:=",ExpressionUUID->"6723be5e-c163-48a9-949e-9d3d53aa8192"], + CellLabel->"In[71]:=",ExpressionUUID->"6723be5e-c163-48a9-949e-9d3d53aa8192"], Cell[BoxData[ RowBox[{"{", @@ -8162,9 +8111,8 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.834619357780086*^9, 3.8346194639350357`*^9, - 3.8346200655020027`*^9}, - CellLabel-> - "Out[139]=",ExpressionUUID->"1d194c93-5caf-4cbe-9fc9-3c99c40fd595"] + 3.8346200655020027`*^9, 3.834622033511248*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"a124e6c0-f75a-4cea-b16e-14b45b519847"] }, Open ]], Cell[CellGroupData[{ @@ -8174,8 +8122,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"pyramidG", "[", "5", "]"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{{3.834619604633185*^9, 3.834619617276785*^9}}, - CellLabel-> - "In[140]:=",ExpressionUUID->"67b414d1-3347-4f1b-b08e-2737cb35c413"], + CellLabel->"In[72]:=",ExpressionUUID->"67b414d1-3347-4f1b-b08e-2737cb35c413"], Cell[BoxData[ RowBox[{"{", @@ -8243,9 +8190,8 @@ Cell[BoxData[ SqrtBox["5"]}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.834619613924753*^9, 3.834619617592614*^9}, - 3.834620065522478*^9}, - CellLabel-> - "Out[140]=",ExpressionUUID->"b25d69c0-f3c3-45c1-aa02-e93c76b0e393"] + 3.834620065522478*^9, 3.834622033530683*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"3d16bde0-ce34-4343-8b5c-6f6173b21210"] }, Open ]], Cell[CellGroupData[{ @@ -8256,8 +8202,7 @@ Cell[BoxData[ RowBox[{"graphFromG", "[", "penta", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.834619618699477*^9, 3.8346196290736094`*^9}, { 3.834620198554308*^9, 3.834620201013632*^9}}, - CellLabel-> - "In[147]:=",ExpressionUUID->"c891c7ce-bc05-4b91-93df-c8d403e6ba7a"], + CellLabel->"In[73]:=",ExpressionUUID->"c891c7ce-bc05-4b91-93df-c8d403e6ba7a"], Cell[BoxData[ RowBox[{"{", @@ -8276,9 +8221,8 @@ Cell[BoxData[ RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8346196216631613`*^9, 3.8346196295573893`*^9}, - 3.834620065543068*^9, 3.834620201386838*^9}, - CellLabel-> - "Out[147]=",ExpressionUUID->"39b0d370-2259-4986-a545-47e7cbb8bb44"] + 3.834620065543068*^9, 3.834620201386838*^9, 3.834622033552577*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"69a9a25e-9843-405b-9b5a-eeb1e834664e"] }, Open ]], Cell[CellGroupData[{ @@ -8288,8 +8232,7 @@ Cell[BoxData[ RowBox[{"findGeneratorsFromG", "[", "penta", "]"}]}]], "Input", CellChangeTimes->{{3.834619649557191*^9, 3.834619655487565*^9}, { 3.834620070312456*^9, 3.8346200832198067`*^9}}, - CellLabel-> - "In[143]:=",ExpressionUUID->"e8823d7b-28c8-4284-89ad-1397837adea9"], + CellLabel->"In[74]:=",ExpressionUUID->"e8823d7b-28c8-4284-89ad-1397837adea9"], Cell[BoxData[ RowBox[{"{", @@ -8357,10 +8300,9 @@ Cell[BoxData[ "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{ - "5.236067977499791`", ",", "0.`", ",", "4.23606797749979`", ",", - "2.6180339887498945`", ",", "0.`", ",", - RowBox[{"-", "0.6180339887498949`"}]}], "}"}], ",", + RowBox[{"5.23606797749979`", ",", + RowBox[{"-", "1.`"}], ",", "5.23606797749979`", ",", "2.`", ",", "0.`", + ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], @@ -8370,15 +8312,13 @@ Cell[BoxData[ "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{ - "5.236067977499791`", ",", "0.`", ",", "2.6180339887498945`", ",", - "4.23606797749979`", ",", "0.`", ",", - RowBox[{"-", "0.6180339887498949`"}]}], "}"}], ",", + RowBox[{"5.23606797749979`", ",", + RowBox[{"-", "1.`"}], ",", "3.618033988749895`", ",", + "3.618033988749895`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{ - "8.47213595499958`", ",", "0.`", ",", "5.236067977499789`", ",", - "5.236067977499789`", ",", "0.`", ",", - RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", + RowBox[{"8.47213595499958`", ",", + RowBox[{"-", "1.618033988749895`"}], ",", "6.854101966249685`", ",", + "4.23606797749979`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", @@ -8386,14 +8326,15 @@ Cell[BoxData[ "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"8.47213595499958`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "5.236067977499789`", ",", - "5.236067977499789`", ",", "0.`"}], "}"}], ",", + RowBox[{ + "8.47213595499958`", ",", "0.`", ",", "0.`", ",", "4.23606797749979`", + ",", "6.854101966249685`", ",", + RowBox[{"-", "1.618033988749895`"}]}], "}"}], ",", RowBox[{"{", - RowBox[{"5.236067977499791`", ",", - RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", - "4.23606797749979`", ",", "2.6180339887498945`", ",", "0.`"}], "}"}], - ",", + RowBox[{ + "5.23606797749979`", ",", "0.`", ",", "0.`", ",", "3.618033988749895`", + ",", "3.618033988749895`", ",", + RowBox[{"-", "1.`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], @@ -8403,10 +8344,10 @@ Cell[BoxData[ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"5.236067977499791`", ",", - RowBox[{"-", "0.6180339887498949`"}], ",", "0.`", ",", - "2.6180339887498945`", ",", "4.23606797749979`", ",", "0.`"}], "}"}]}], - "}"}], ",", + RowBox[{ + "5.23606797749979`", ",", "0.`", ",", "0.`", ",", "2.`", ",", + "5.23606797749979`", ",", + RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", @@ -8414,17 +8355,17 @@ Cell[BoxData[ "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", - RowBox[{"5.23606797749979`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "2.`", ",", - "5.23606797749979`"}], "}"}], ",", + RowBox[{"5.23606797749979`", ",", "0.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "3.618033988749895`", ",", + "3.618033988749895`"}], "}"}], ",", RowBox[{"{", - RowBox[{"8.47213595499958`", ",", - RowBox[{"-", "1.618033988749895`"}], ",", "0.`", ",", "0.`", ",", - "4.23606797749979`", ",", "6.854101966249685`"}], "}"}], ",", + RowBox[{"8.47213595499958`", ",", "0.`", ",", "0.`", ",", + RowBox[{"-", "1.618033988749895`"}], ",", "6.854101966249685`", ",", + "4.23606797749979`"}], "}"}], ",", RowBox[{"{", - RowBox[{"5.23606797749979`", ",", - RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", - "3.618033988749895`", ",", "3.618033988749895`"}], "}"}], ",", + RowBox[{"5.23606797749979`", ",", "0.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "5.23606797749979`", ",", "2.`"}], "}"}], + ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], @@ -8437,35 +8378,32 @@ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ - RowBox[{"-", "1.`"}], ",", "0.7639320225002103`", ",", "0.`", ",", - "0.`", ",", "0.7639320225002103`", ",", - RowBox[{"-", "0.47213595499957944`"}]}], "}"}], ",", + RowBox[{"-", "1.`"}], ",", "0.7639320225002103`", ",", + RowBox[{"-", "0.47213595499957944`"}], ",", "0.7639320225002103`", ",", + "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ - "0.`", ",", "1.618033988749895`", ",", "0.`", ",", "0.`", ",", "1.`", - ",", - RowBox[{"-", "1.618033988749895`"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "1.618033988749895`", - ",", - RowBox[{"-", "1.618033988749895`"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`"}], + "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ - "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`"}], - "}"}]}], "}"}]}], "}"}]], "Output", + "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", "1.`", ",", + RowBox[{"-", "1.618033988749895`"}], ",", "1.618033988749895`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", "1.618033988749895`", ",", + RowBox[{"-", "1.618033988749895`"}], ",", "1.`", ",", "0.`", ",", + "0.`"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.834619656651911*^9, 3.834620065860627*^9, - 3.83462012261719*^9}, - CellLabel-> - "Out[143]=",ExpressionUUID->"94d972b8-33e9-4789-a419-3b876c67fa83"] + 3.83462012261719*^9, 3.8346220339246902`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"33b3c09c-21a1-4f44-8ed5-2498cae6da42"] }, Open ]], Cell[BoxData[ @@ -8478,29 +8416,25 @@ Cell[BoxData[ "1.4888455922394608`", ",", "1.4888455922394608`"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.8346201395185328`*^9, 3.8346201588572063`*^9}}, - CellLabel-> - "In[144]:=",ExpressionUUID->"1a23cb5a-f23a-43de-8864-b6cb1b98e180"], + CellLabel->"In[75]:=",ExpressionUUID->"1a23cb5a-f23a-43de-8864-b6cb1b98e180"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", "root", "]"}]], "Input", CellChangeTimes->{{3.8346201679701443`*^9, 3.8346201692494297`*^9}}, - CellLabel-> - "In[146]:=",ExpressionUUID->"9741cadf-ab63-43d1-ae1d-43cca646aba6"], + CellLabel->"In[76]:=",ExpressionUUID->"9741cadf-ab63-43d1-ae1d-43cca646aba6"], Cell[BoxData["6.893069370452434`"], "Output", - CellChangeTimes->{3.834620169678611*^9}, - CellLabel-> - "Out[146]=",ExpressionUUID->"96a13016-bbd7-4387-b974-d41da072905a"] + CellChangeTimes->{3.834620169678611*^9, 3.834622033973649*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"0407158b-1032-45d1-8dea-6cb77fc4c5e0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["faces"], "Input", CellChangeTimes->{{3.834620214308961*^9, 3.8346202147620068`*^9}}, - CellLabel-> - "In[149]:=",ExpressionUUID->"80b44196-33de-4b9e-a85e-7db9093c0ce1"], + CellLabel->"In[77]:=",ExpressionUUID->"80b44196-33de-4b9e-a85e-7db9093c0ce1"], Cell[BoxData[ RowBox[{"{", @@ -8518,17 +8452,15 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.8346202150275583`*^9}, - CellLabel-> - "Out[149]=",ExpressionUUID->"f668886c-1b02-41e8-b9d1-57e604682c3d"] + CellChangeTimes->{3.8346202150275583`*^9, 3.83462203398697*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"ce18a17e-d664-434d-8c5b-10a3ef8b556b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["root"], "Input", CellChangeTimes->{{3.8346202107345552`*^9, 3.834620211091819*^9}}, - CellLabel-> - "In[148]:=",ExpressionUUID->"43f5bcb7-4438-4427-96ca-d3fb1ac928b9"], + CellLabel->"In[78]:=",ExpressionUUID->"43f5bcb7-4438-4427-96ca-d3fb1ac928b9"], Cell[BoxData[ RowBox[{"{", @@ -8536,9 +8468,8 @@ Cell[BoxData[ RowBox[{"-", "0.5511585907448705`"}], ",", "1.4888455922394608`", ",", "1.4888455922394608`", ",", "1.4888455922394608`", ",", "1.4888455922394608`", ",", "1.4888455922394608`"}], "}"}]], "Output", - CellChangeTimes->{3.834620211417264*^9}, - CellLabel-> - "Out[148]=",ExpressionUUID->"d0fbc094-796c-466d-bbc9-6abea376e2ac"] + CellChangeTimes->{3.834620211417264*^9, 3.834622034002605*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"ab5f9022-8b18-4860-b3f2-a4f9efe454cd"] }, Open ]], Cell[CellGroupData[{ @@ -8554,14 +8485,13 @@ Cell[BoxData[ ".", "root"}], "//", "Total"}]], "Input", CellChangeTimes->{{3.834620160862155*^9, 3.8346201651752768`*^9}, { 3.834620219509748*^9, 3.834620275016885*^9}}, - CellLabel-> - "In[162]:=",ExpressionUUID->"2df5ccf4-8d72-470a-b26f-8d842a8e9a97"], + CellLabel->"In[79]:=",ExpressionUUID->"2df5ccf4-8d72-470a-b26f-8d842a8e9a97"], Cell[BoxData["352.79214981121254`"], "Output", CellChangeTimes->{ - 3.8346201654649887`*^9, {3.834620226476708*^9, 3.834620275425188*^9}}, - CellLabel-> - "Out[162]=",ExpressionUUID->"f9fd2508-1493-47ac-a341-cb494616092d"] + 3.8346201654649887`*^9, {3.834620226476708*^9, 3.834620275425188*^9}, + 3.8346220340188017`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"f1357356-c5b1-463f-a512-9b6d52ce6f49"] }, Open ]], Cell[CellGroupData[{ @@ -8570,22 +8500,420 @@ Cell[BoxData[ RowBox[{"pyramidFractalDimension", "[", RowBox[{"5", ",", "1000", ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.834620293595458*^9, 3.834620305848832*^9}}, - CellLabel-> - "In[164]:=",ExpressionUUID->"6cafbc40-bdef-4f52-801d-0a185abc2a8a"], + CellLabel->"In[80]:=",ExpressionUUID->"6cafbc40-bdef-4f52-801d-0a185abc2a8a"], -Cell[BoxData["0.9998621534966605`"], "Print", - CellChangeTimes->{3.834620306881564*^9}, +Cell[BoxData["0.9998201396417483`"], "Print", + CellChangeTimes->{3.834620306881564*^9, 3.834622034763115*^9}, CellLabel-> "During evaluation of \ -In[164]:=",ExpressionUUID->"c1804cf7-b750-4f70-a587-d189a8b9e20a"], +In[80]:=",ExpressionUUID->"5f4c39aa-e3e0-410c-b37c-809f9c7dcde3"], -Cell[BoxData["1.316845837118839`"], "Output", - CellChangeTimes->{3.8346203068833237`*^9}, - CellLabel-> - "Out[164]=",ExpressionUUID->"048e6b24-d56e-4fd2-8d77-2a57115b0c68"] +Cell[BoxData["1.3254522446752366`"], "Output", + CellChangeTimes->{3.8346203068833237`*^9, 3.8346220347641573`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"0507e562-834d-4f7e-8b8d-ba5b8b1c6776"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"cube", "=", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "5"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], "1"} + }]}]], "Input", + CellChangeTimes->{{3.834622052493532*^9, 3.8346221970743*^9}}, + CellLabel->"In[81]:=",ExpressionUUID->"32fff388-b568-43c7-8456-5d2dd851e606"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "5"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "3"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "5"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "3"}], ",", + RowBox[{"-", "5"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "3"}], ",", + RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.834622198068351*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"dd22a2eb-9b47-4700-b7d9-41f804d51243"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"FindFace", "[", + RowBox[{"graphFromG", "[", "cube", "]"}], "]"}], "-", "1"}]], "Input", + CellChangeTimes->{{3.834622205930945*^9, 3.834622212055724*^9}}, + CellLabel->"In[83]:=",ExpressionUUID->"19f608a9-2937-45bd-b2d6-e61835440e16"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "5", ",", "4"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "3", ",", "2", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "4", ",", "7", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "6", ",", "5"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "3", ",", "7", ",", "6"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.834622212539343*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"bc9f5b95-113d-4c7b-8b6d-0961f9ce917e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"findGeneratorsFromG", "[", "cube", "]"}]], "Input", + CellChangeTimes->{{3.834622215724403*^9, 3.834622220220912*^9}}, + CellLabel->"In[84]:=",ExpressionUUID->"bce4b8f4-e37f-45e9-a7f1-eee48fdaedbc"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.`", ",", "3.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "2.`", ",", "0.`", ",", "0.`", ",", "0.`"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"2.`", ",", "2.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "2.`", ",", "0.`", ",", "0.`", ",", "0.`"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`", ",", "0.`", ",", "1.`", + ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", "3.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "3.`", ",", "0.`", ",", "0.`", ",", "0.`"}], + "}"}], ",", + RowBox[{"{", + RowBox[{"1.`", ",", "2.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "3.`", ",", "0.`", ",", "0.`", ",", "0.`"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.`", ",", "0.`", ",", "1.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4.`", ",", "0.`", ",", "2.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4.`", ",", "0.`", ",", "3.`", ",", + RowBox[{"-", "1.`"}], ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3.`", ",", "0.`", ",", "3.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3.`", ",", "0.`", ",", "2.`", ",", "1.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", + ",", "0.`", ",", "2.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "3.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "1.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", + ",", "0.`", ",", "2.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", + ",", "0.`", ",", "3.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "1.`"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1.`"}], ",", "2.`", ",", "2.`", ",", "0.`", ",", "0.`", + ",", "2.`", ",", "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1.`"}], ",", "1.`", ",", "3.`", ",", "0.`", ",", "0.`", + ",", "2.`", ",", "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1.`"}], ",", "1.`", ",", "2.`", ",", "0.`", ",", "0.`", + ",", "3.`", ",", "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", + RowBox[{"-", "1.`"}], ",", "1.`", ",", "0.`", ",", "0.`", ",", "1.`", + ",", "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`", ",", "0.`", ",", "0.`", + ",", "3.`", ",", "0.`", ",", "0.`"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "4.`", ",", "0.`", ",", "0.`", + ",", "3.`", ",", + RowBox[{"-", "1.`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "4.`", ",", "0.`", ",", "0.`", + ",", "4.`", ",", + RowBox[{"-", "2.`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", + "1.`", ",", + RowBox[{"-", "1.`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`", ",", "0.`", ",", "0.`", + ",", "3.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "3.`", ",", "0.`", ",", "0.`", + ",", "4.`", ",", + RowBox[{"-", "1.`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "1.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "1.`"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.`", + ",", + RowBox[{"-", "1.`"}], ",", "3.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "4.`", + ",", "0.`", ",", "2.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.`", + ",", "1.`", ",", "2.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0.`", ",", + RowBox[{"-", "1.`"}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "3.`", + ",", "0.`", ",", "3.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", + + RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", + "0.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "1.`", ",", "0.`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", + "0.`", ",", "1.`"}], "}"}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.834622221307568*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"44138f57-041b-4599-9233-f9f8e608823a"] }, Open ]] }, -WindowSize->{736.5, 776.25}, +WindowSize->{1425., 776.25}, WindowMargins->{{7.5, Automatic}, {7.5, Automatic}}, TaggingRules->{ "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False}, @@ -8604,197 +8932,209 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[558, 20, 419, 9, 29, "Input",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"], -Cell[980, 31, 1054, 27, 92, "Input",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"], -Cell[2037, 60, 510, 11, 29, "Input",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"], -Cell[2550, 73, 440, 11, 29, "Input",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"], -Cell[2993, 86, 1407, 33, 71, "Input",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"], -Cell[4403, 121, 343, 8, 29, "Input",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"], -Cell[4749, 131, 1141, 33, 92, "Input",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"], -Cell[5893, 166, 741, 20, 51, "Input",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"], -Cell[6637, 188, 672, 19, 29, "Input",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"], -Cell[7312, 209, 708, 19, 71, "Input",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"], -Cell[8023, 230, 548, 14, 51, "Input",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"], -Cell[8574, 246, 702, 19, 51, "Input",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"], -Cell[9279, 267, 996, 28, 71, "Input",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"], -Cell[10278, 297, 3990, 106, 360, "Input",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"], -Cell[14271, 405, 10810, 230, 546, "Input",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"], -Cell[25084, 637, 6823, 176, 546, "Input",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"], -Cell[31910, 815, 912, 24, 92, "Input",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"], -Cell[32825, 841, 4816, 102, 195, "Input",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"], +Cell[558, 20, 418, 9, 29, "Input",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"], +Cell[979, 31, 1053, 27, 92, "Input",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"], +Cell[2035, 60, 509, 11, 29, "Input",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"], +Cell[2547, 73, 439, 11, 29, "Input",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"], +Cell[2989, 86, 1406, 33, 51, "Input",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"], +Cell[4398, 121, 342, 8, 29, "Input",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"], +Cell[4743, 131, 1140, 33, 29, "Input",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"], +Cell[5886, 166, 740, 20, 29, "Input",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"], +Cell[6629, 188, 671, 19, 29, "Input",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"], +Cell[7303, 209, 708, 19, 29, "Input",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"], +Cell[8014, 230, 548, 14, 29, "Input",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"], +Cell[8565, 246, 702, 19, 29, "Input",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"], +Cell[9270, 267, 996, 28, 71, "Input",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"], +Cell[10269, 297, 3990, 106, 298, "Input",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"], +Cell[14262, 405, 10810, 230, 422, "Input",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"], +Cell[25075, 637, 6823, 176, 422, "Input",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"], +Cell[31901, 815, 912, 24, 29, "Input",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"], +Cell[32816, 841, 4816, 102, 133, "Input",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"], Cell[CellGroupData[{ -Cell[37666, 947, 357, 5, 29, "Input",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"], -Cell[38026, 954, 2377, 33, 33, "Output",ExpressionUUID->"b0d4f890-a771-444d-9b79-367d59252245"] +Cell[37657, 947, 357, 5, 29, "Input",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"], +Cell[38017, 954, 2403, 34, 33, "Output",ExpressionUUID->"900e6bfa-6bba-4ef4-828d-7b0021ce704d"] }, Open ]], -Cell[40418, 990, 2787, 67, 283, "Input",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"], -Cell[43208, 1059, 1277, 34, 121, "Input",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"], +Cell[40435, 991, 2787, 67, 262, "Input",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"], +Cell[43225, 1060, 1277, 34, 66, "Input",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"], Cell[CellGroupData[{ -Cell[44510, 1097, 274, 6, 29, "Input",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"], -Cell[44787, 1105, 2017, 75, 145, "Output",ExpressionUUID->"31a9b1db-7c74-441a-aff6-83692603abe7"] +Cell[44527, 1098, 274, 6, 29, "Input",ExpressionUUID->"174cb070-04b4-43d8-b03f-de8c5a5dce20"], +Cell[44804, 1106, 2038, 75, 145, "Output",ExpressionUUID->"3a450f6d-4872-424d-ac58-185964ec832d"] }, Open ]], -Cell[46819, 1183, 1383, 34, 116, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"], +Cell[46857, 1184, 1383, 34, 65, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"], Cell[CellGroupData[{ -Cell[48227, 1221, 41799, 1329, 1618, "Input",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"], -Cell[90029, 2552, 34398, 1328, 1358, "Output",ExpressionUUID->"c6e2f2e6-7cd4-491a-8e58-672efe0ba64d"] +Cell[48265, 1222, 41799, 1329, 834, "Input",ExpressionUUID->"bd187aa7-c79a-47a2-992d-0c51fa09c556"], +Cell[90067, 2553, 34420, 1328, 464, "Output",ExpressionUUID->"c02bb66a-5d50-4ed0-be1e-747ee5c65e2a"] }, Open ]], -Cell[124442, 3883, 463, 10, 29, "Input",ExpressionUUID->"6977722c-d100-46af-b89f-09bd581d57a6"], +Cell[124502, 3884, 463, 10, 29, "Input",ExpressionUUID->"6977722c-d100-46af-b89f-09bd581d57a6"], Cell[CellGroupData[{ -Cell[124930, 3897, 198, 3, 29, "Input",ExpressionUUID->"760eb9b0-3326-4e88-bf34-c4d40756f7d8"], -Cell[125131, 3902, 360, 7, 33, "Output",ExpressionUUID->"0fd36348-8a39-4c56-9bce-27751c02104a"] +Cell[124990, 3898, 198, 3, 29, "Input",ExpressionUUID->"760eb9b0-3326-4e88-bf34-c4d40756f7d8"], +Cell[125191, 3903, 381, 7, 33, "Output",ExpressionUUID->"2bf21d2e-4e12-4616-945d-d0b211c81593"] }, Open ]], Cell[CellGroupData[{ -Cell[125528, 3914, 664, 18, 71, "Input",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"], -Cell[126195, 3934, 1531, 33, 75, "Output",ExpressionUUID->"88f8c696-d104-4a8c-a524-de32937c37c5"] +Cell[125609, 3915, 664, 18, 29, "Input",ExpressionUUID->"3bf10f6a-d7a1-4630-a0a5-387ab19edb5e"], +Cell[126276, 3935, 1555, 33, 55, "Output",ExpressionUUID->"f880e93e-9cde-47dd-a7f4-7e34702d3486"] }, Open ]], -Cell[127741, 3970, 399, 7, 29, "Input",ExpressionUUID->"0165a61f-4b0d-4994-908f-04bea59efbb2"], -Cell[128143, 3979, 1379, 26, 29, "Input",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"], +Cell[127846, 3971, 399, 7, 29, "Input",ExpressionUUID->"0165a61f-4b0d-4994-908f-04bea59efbb2"], +Cell[128248, 3980, 1379, 26, 29, "Input",ExpressionUUID->"00d846ff-ba2d-4cd3-a367-6099b9094d1e"], Cell[CellGroupData[{ -Cell[129547, 4009, 41539, 1325, 1618, "Input",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"], -Cell[171089, 5336, 34276, 1326, 1358, "Output",ExpressionUUID->"c362ca4a-b04d-4383-96b3-61d66b80e032"] +Cell[129652, 4010, 41539, 1325, 834, "Input",ExpressionUUID->"c65f7bf5-36b2-41a9-b693-4291ba5ba1e7"], +Cell[171194, 5337, 34298, 1326, 464, "Output",ExpressionUUID->"f38587bc-1d3a-423d-9784-9456166a4f4b"] }, Open ]], -Cell[205380, 6665, 1080, 21, 154, "Input",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"], -Cell[206463, 6688, 745, 16, 29, "Input",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"], -Cell[207211, 6706, 423, 13, 82, "Input",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"], -Cell[207637, 6721, 440, 14, 78, "Input",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"], -Cell[208080, 6737, 722, 24, 78, "Input",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"], +Cell[205507, 6666, 1076, 20, 71, "Input",ExpressionUUID->"1eabb843-0fcd-48c2-8ba6-c1a8012517bf"], +Cell[206586, 6688, 741, 15, 29, "Input",ExpressionUUID->"93b323a4-3961-4489-aad0-08a79152d39c"], +Cell[207330, 6705, 419, 12, 82, "Input",ExpressionUUID->"8ff466ea-3410-450e-bffc-4a293b4ee96b"], +Cell[207752, 6719, 436, 13, 78, "Input",ExpressionUUID->"dbc4c4c2-1c52-463f-a6ed-8ebf8e2999c5"], +Cell[208191, 6734, 718, 23, 78, "Input",ExpressionUUID->"6e850424-7b33-4d48-ad3f-a19322864464"], Cell[CellGroupData[{ -Cell[208827, 6765, 282, 6, 29, "Input",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"], -Cell[209112, 6773, 1199, 36, 95, "Output",ExpressionUUID->"fa744ce7-df42-4c5e-ace8-b2000738a824"] +Cell[208934, 6761, 278, 5, 29, "Input",ExpressionUUID->"41f244bb-1e4e-4e83-bfe8-1040dd285f02"], +Cell[209215, 6768, 1224, 37, 95, "Output",ExpressionUUID->"67b63bb9-fae5-4568-8a60-133746dffa8e"] }, Open ]], Cell[CellGroupData[{ -Cell[210348, 6814, 331, 9, 29, "Input",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"], -Cell[210682, 6825, 966, 19, 33, "Output",ExpressionUUID->"d499779c-5b7a-4f58-9ac7-5a43ab49042e"] +Cell[210476, 6810, 327, 8, 29, "Input",ExpressionUUID->"76c80b68-6d78-48f5-ad70-c8ee2c958376"], +Cell[210806, 6820, 986, 18, 33, "Output",ExpressionUUID->"630abb97-22f0-4a74-bdb2-b1bcbedfc539"] }, Open ]], Cell[CellGroupData[{ -Cell[211685, 6849, 343, 9, 29, "Input",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"], -Cell[212031, 6860, 1474, 34, 48, "Output",ExpressionUUID->"678ba049-5256-437d-96b6-fb8886ab326f"] +Cell[211829, 6843, 339, 8, 29, "Input",ExpressionUUID->"8b9344c9-3e4c-41cb-86ac-5ca45403afc3"], +Cell[212171, 6853, 1494, 33, 48, "Output",ExpressionUUID->"76792e1c-d0b4-43ae-90e2-1a257c148213"] }, Open ]], Cell[CellGroupData[{ -Cell[213542, 6899, 579, 15, 29, "Input",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"], -Cell[214124, 6916, 1106, 20, 33, "Output",ExpressionUUID->"ea191bd8-62b5-449c-ad86-8a309f852993"] +Cell[213702, 6891, 575, 14, 29, "Input",ExpressionUUID->"16cecdaa-b71e-4f1c-95f2-3546d887a495"], +Cell[214280, 6907, 1124, 19, 33, "Output",ExpressionUUID->"11c7f603-ee8f-4ae7-9e7f-e659690ffe4b"] }, Open ]], -Cell[215245, 6939, 1052, 33, 143, "Input",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"], -Cell[216300, 6974, 545, 15, 29, "Input",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"], -Cell[216848, 6991, 777, 16, 29, "Input",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"], +Cell[215419, 6929, 1048, 32, 143, "Input",ExpressionUUID->"9a6a433f-918e-46fb-8cf5-5ce633ab5b0d"], +Cell[216470, 6963, 541, 14, 29, "Input",ExpressionUUID->"b35724fd-29ad-42fa-a49d-7bf98b91f121"], +Cell[217014, 6979, 773, 15, 29, "Input",ExpressionUUID->"adf87a8c-7800-4d56-a340-7526895affee"], Cell[CellGroupData[{ -Cell[217650, 7011, 457, 9, 29, "Input",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"], -Cell[218110, 7022, 955, 19, 33, "Output",ExpressionUUID->"bd06ccdb-7db7-4884-88fe-575ea5d8b20c"] +Cell[217812, 6998, 453, 8, 29, "Input",ExpressionUUID->"37633a3e-93f6-4e02-89c2-f022303230da"], +Cell[218268, 7008, 977, 19, 33, "Output",ExpressionUUID->"50f9185b-b05f-4d11-8105-4ff42f4a33fb"] }, Open ]], Cell[CellGroupData[{ -Cell[219102, 7046, 690, 18, 29, "Input",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"], -Cell[219795, 7066, 881, 14, 33, "Output",ExpressionUUID->"c3b0541b-fd2c-451d-b4e5-598414d580c3"] +Cell[219282, 7032, 686, 17, 29, "Input",ExpressionUUID->"4ad53bef-81a3-4ded-a9a0-c0233561a7e5"], +Cell[219971, 7051, 905, 14, 33, "Output",ExpressionUUID->"36da415e-4110-4777-89e6-316114848dc8"] }, Open ]], -Cell[220691, 7083, 920, 16, 29, "Input",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"], +Cell[220891, 7068, 916, 15, 29, "Input",ExpressionUUID->"46f7ba91-5bac-4ae7-9a54-138e9ec6b60d"], Cell[CellGroupData[{ -Cell[221636, 7103, 2536, 67, 205, "Input",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"], -Cell[224175, 7172, 403, 8, 33, "Output",ExpressionUUID->"be5b9f37-dd7e-4ca9-b86f-715c76a65e1e"] +Cell[221832, 7087, 2532, 66, 205, "Input",ExpressionUUID->"ea692d6b-a3f1-4695-a513-eaef5a64e60d"], +Cell[224367, 7155, 424, 8, 33, "Output",ExpressionUUID->"36e96dce-2ae4-49a1-b65a-752ee0b6a4ae"] }, Open ]], Cell[CellGroupData[{ -Cell[224615, 7185, 567, 21, 78, "Input",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"], -Cell[225185, 7208, 837, 26, 33, "Output",ExpressionUUID->"d55a8c7b-2938-4b5b-adb0-4e0b59073014"] +Cell[224828, 7168, 563, 20, 78, "Input",ExpressionUUID->"85bd0bdd-2975-462f-81ce-1033d55bdb41"], +Cell[225394, 7190, 860, 26, 33, "Output",ExpressionUUID->"e24fedb1-b818-43c8-983c-b23805ceafd9"] }, Open ]], Cell[CellGroupData[{ -Cell[226059, 7239, 274, 5, 29, "Input",ExpressionUUID->"2347cd7e-d092-4dfc-a9d2-725296672710"], -Cell[226336, 7246, 215, 4, 23, "Print",ExpressionUUID->"243c5f53-2902-486d-8a6e-0fa1474569bd"], -Cell[226554, 7252, 318, 5, 33, "Output",ExpressionUUID->"167b692a-014e-4740-ab76-42c647d16680"] +Cell[226291, 7221, 270, 4, 29, "Input",ExpressionUUID->"2347cd7e-d092-4dfc-a9d2-725296672710"], +Cell[226564, 7227, 241, 5, 23, "Print",ExpressionUUID->"46fd8026-fcde-44a7-9ad1-fe72ee5d0faf"], +Cell[226808, 7234, 336, 4, 33, "Output",ExpressionUUID->"39f2170f-7565-426d-a956-7c4fac3452cc"] }, Open ]], Cell[CellGroupData[{ -Cell[226909, 7262, 471, 9, 29, "Input",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"], -Cell[227383, 7273, 587, 11, 33, "Output",ExpressionUUID->"51c54558-df57-4bc9-8281-8e5ff7b90dd9"] +Cell[227181, 7243, 467, 8, 29, "Input",ExpressionUUID->"97404788-a3ac-4fd1-83db-41988432c19c"], +Cell[227651, 7253, 605, 10, 33, "Output",ExpressionUUID->"4b4de667-e14b-430e-934c-6bd4f8316bac"] }, Open ]], Cell[CellGroupData[{ -Cell[228007, 7289, 533, 12, 29, "Input",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"], -Cell[228543, 7303, 350, 6, 33, "Output",ExpressionUUID->"982890cb-9b9b-49e7-b982-cc9764229ef4"] +Cell[228293, 7268, 529, 11, 29, "Input",ExpressionUUID->"dadcc3c4-6364-42df-b84b-b8d72943df2b"], +Cell[228825, 7281, 367, 5, 33, "Output",ExpressionUUID->"4c5deede-a8da-48d0-a7d3-c546345e217d"] }, Open ]], Cell[CellGroupData[{ -Cell[228930, 7314, 209, 4, 29, "Input",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"], -Cell[229142, 7320, 321, 5, 33, "Output",ExpressionUUID->"35cceac5-c6b2-4fa2-a20a-d2bba3fac866"] +Cell[229229, 7291, 205, 3, 29, "Input",ExpressionUUID->"1d37e3b6-66ba-4472-a743-e93622c6ac9c"], +Cell[229437, 7296, 343, 5, 33, "Output",ExpressionUUID->"6d08d1fb-4a9c-48b0-85a8-eb5a7b29c051"] }, Open ]], Cell[CellGroupData[{ -Cell[229500, 7330, 683, 14, 29, "Input",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"], -Cell[230186, 7346, 543, 8, 33, "Output",ExpressionUUID->"5d5d94b9-1b6b-49fb-a0f1-2cc81a3dba25"] +Cell[229817, 7306, 679, 13, 29, "Input",ExpressionUUID->"bc7704dc-2d4f-4d6e-be25-437b7990d177"], +Cell[230499, 7321, 565, 8, 33, "Output",ExpressionUUID->"8ded244d-06f9-44c7-9640-86ab5983b4e2"] }, Open ]], -Cell[230744, 7357, 1889, 47, 113, "Input",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"], +Cell[231079, 7332, 1885, 46, 51, "Input",ExpressionUUID->"9feb2ec0-647e-4872-9907-b92e6d4a628f"], Cell[CellGroupData[{ -Cell[232658, 7408, 301, 7, 29, "Input",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"], -Cell[232962, 7417, 563, 10, 33, "Output",ExpressionUUID->"61f0b93b-6c00-4f56-b397-60afac7f76d2"] +Cell[232989, 7382, 297, 6, 29, "Input",ExpressionUUID->"336edb4a-23ed-42b9-b860-d4165f74f6b8"], +Cell[233289, 7390, 585, 10, 33, "Output",ExpressionUUID->"aee5fac2-d859-4f6e-b539-0a977345e0e2"] }, Open ]], -Cell[233540, 7430, 448, 10, 29, "Input",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"], -Cell[233991, 7442, 1863, 49, 176, "Input",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"], +Cell[233889, 7403, 444, 9, 29, "Input",ExpressionUUID->"5943882e-64ac-4901-a919-bda1a8692bcf"], +Cell[234336, 7414, 1859, 48, 176, "Input",ExpressionUUID->"856a8716-587a-4b7a-b789-b38a63f87ec8"], Cell[CellGroupData[{ -Cell[235879, 7495, 222, 4, 29, "Input",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"], -Cell[236104, 7501, 465, 8, 33, "Output",ExpressionUUID->"7f9b8f0a-874b-4fc3-9422-12a987494490"] +Cell[236220, 7466, 218, 3, 29, "Input",ExpressionUUID->"96291bb6-d846-4545-8cd6-2eed026c7e30"], +Cell[236441, 7471, 489, 8, 33, "Output",ExpressionUUID->"9e04542e-2451-4020-84a3-f7b5688fffcb"] }, Open ]], Cell[CellGroupData[{ -Cell[236606, 7514, 314, 7, 29, "Input",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"], -Cell[236923, 7523, 1136, 36, 55, "Output",ExpressionUUID->"49110fde-c70a-4cf4-a8d4-2e603dcfecc5"] +Cell[236967, 7484, 310, 6, 29, "Input",ExpressionUUID->"d77bb533-1c3e-4bb4-94ba-7075d306a455"], +Cell[237280, 7492, 1157, 36, 33, "Output",ExpressionUUID->"f6932501-5a15-4c84-93b9-6ed64154d9fa"] }, Open ]], Cell[CellGroupData[{ -Cell[238096, 7564, 295, 6, 29, "Input",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"], -Cell[238394, 7572, 3404, 94, 220, "Output",ExpressionUUID->"fce856bb-cf1c-44e6-a5f9-84bb9451b447"] +Cell[238474, 7533, 291, 5, 29, "Input",ExpressionUUID->"e95f5979-99b6-4122-ac9b-14b9193b9a1c"], +Cell[238768, 7540, 3423, 94, 117, "Output",ExpressionUUID->"c7545b66-d491-4b27-a041-a274c82a1022"] }, Open ]], -Cell[241813, 7669, 175, 3, 29, "Input",ExpressionUUID->"94a19936-4029-4bf5-b55a-bd9d0f39fac8"], +Cell[242206, 7637, 171, 2, 29, "Input",ExpressionUUID->"94a19936-4029-4bf5-b55a-bd9d0f39fac8"], Cell[CellGroupData[{ -Cell[242013, 7676, 324, 7, 29, "Input",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"], -Cell[242340, 7685, 655, 17, 33, "Output",ExpressionUUID->"708710fb-18f7-4e74-a13d-2bfc60343c8f"] +Cell[242402, 7643, 320, 6, 29, "Input",ExpressionUUID->"2e34b7ce-6fcf-4840-95f8-6d724ac0defc"], +Cell[242725, 7651, 673, 16, 33, "Output",ExpressionUUID->"2e00b386-e72d-42ad-a6af-7bdbe58accc4"] }, Open ]], Cell[CellGroupData[{ -Cell[243032, 7707, 400, 9, 51, "Input",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"], -Cell[243435, 7718, 394, 9, 33, "Output",ExpressionUUID->"29ee0936-3209-44a7-b6fe-4d84f0630f57"] +Cell[243435, 7672, 396, 8, 29, "Input",ExpressionUUID->"9c1c9ead-5d6e-4fa2-a1c9-3a7d7b7065c1"], +Cell[243834, 7682, 414, 8, 33, "Output",ExpressionUUID->"779e3ea3-281a-4c64-a02c-fa583e21c516"] }, Open ]], Cell[CellGroupData[{ -Cell[243866, 7732, 276, 6, 29, "Input",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"], -Cell[244145, 7740, 388, 9, 33, "Output",ExpressionUUID->"7cb8baeb-3dda-444c-9e76-ec432c6240da"] +Cell[244285, 7695, 272, 5, 29, "Input",ExpressionUUID->"3c7c7b15-40cc-42c0-944f-b01ec46f8363"], +Cell[244560, 7702, 406, 8, 33, "Output",ExpressionUUID->"ecdba486-c112-4b16-9f3a-a98dcd411ecb"] }, Open ]], Cell[CellGroupData[{ -Cell[244570, 7754, 1064, 41, 113, "Input",ExpressionUUID->"8e4190e4-388a-479e-87c2-24b60546db31"], -Cell[245637, 7797, 1424, 47, 55, "Output",ExpressionUUID->"03bbb9da-1d29-4767-b4d1-35dff02bc65e"] +Cell[245003, 7715, 1060, 40, 113, "Input",ExpressionUUID->"8e4190e4-388a-479e-87c2-24b60546db31"], +Cell[246066, 7757, 1445, 47, 33, "Output",ExpressionUUID->"7febe78a-3b11-413f-825a-9db5f9114ee1"] }, Open ]], Cell[CellGroupData[{ -Cell[247098, 7849, 229, 4, 29, "Input",ExpressionUUID->"33ad76d4-b47f-4f7f-b556-a35dbd07b9de"], -Cell[247330, 7855, 7012, 202, 343, "Output",ExpressionUUID->"d7197a22-9352-43c8-9269-d2c69cfc8fa7"] +Cell[247548, 7809, 225, 3, 29, "Input",ExpressionUUID->"33ad76d4-b47f-4f7f-b556-a35dbd07b9de"], +Cell[247776, 7814, 6972, 194, 178, "Output",ExpressionUUID->"f1025af9-378e-44b2-9bcf-dce36d53a126"] }, Open ]], Cell[CellGroupData[{ -Cell[254379, 8062, 221, 4, 29, "Input",ExpressionUUID->"57565e6b-f443-4a10-b5a8-e556ff76b840"], -Cell[254603, 8068, 2701, 61, 338, "Output",ExpressionUUID->"1eed4d70-0f62-4f73-90be-92c25c799d9e"] +Cell[254785, 8013, 217, 3, 29, "Input",ExpressionUUID->"57565e6b-f443-4a10-b5a8-e556ff76b840"], +Cell[255005, 8018, 2722, 61, 338, "Output",ExpressionUUID->"5338e391-2cc9-4c24-8ed9-26a01e42aa6c"] }, Open ]], Cell[CellGroupData[{ -Cell[257341, 8134, 335, 8, 29, "Input",ExpressionUUID->"6723be5e-c163-48a9-949e-9d3d53aa8192"], -Cell[257679, 8144, 781, 22, 33, "Output",ExpressionUUID->"1d194c93-5caf-4cbe-9fc9-3c99c40fd595"] +Cell[257764, 8084, 331, 7, 29, "Input",ExpressionUUID->"6723be5e-c163-48a9-949e-9d3d53aa8192"], +Cell[258098, 8093, 799, 21, 33, "Output",ExpressionUUID->"a124e6c0-f75a-4cea-b16e-14b45b519847"] }, Open ]], Cell[CellGroupData[{ -Cell[258497, 8171, 269, 6, 29, "Input",ExpressionUUID->"67b414d1-3347-4f1b-b08e-2737cb35c413"], -Cell[258769, 8179, 1882, 68, 81, "Output",ExpressionUUID->"b25d69c0-f3c3-45c1-aa02-e93c76b0e393"] +Cell[258934, 8119, 265, 5, 29, "Input",ExpressionUUID->"67b414d1-3347-4f1b-b08e-2737cb35c413"], +Cell[259202, 8126, 1900, 67, 58, "Output",ExpressionUUID->"3d16bde0-ce34-4343-8b5c-6f6173b21210"] }, Open ]], Cell[CellGroupData[{ -Cell[260688, 8252, 330, 7, 29, "Input",ExpressionUUID->"c891c7ce-bc05-4b91-93df-c8d403e6ba7a"], -Cell[261021, 8261, 691, 19, 33, "Output",ExpressionUUID->"39b0d370-2259-4986-a545-47e7cbb8bb44"] +Cell[261139, 8198, 326, 6, 29, "Input",ExpressionUUID->"c891c7ce-bc05-4b91-93df-c8d403e6ba7a"], +Cell[261468, 8206, 709, 18, 33, "Output",ExpressionUUID->"69a9a25e-9843-405b-9b5a-eeb1e834664e"] }, Open ]], Cell[CellGroupData[{ -Cell[261749, 8285, 304, 6, 29, "Input",ExpressionUUID->"e8823d7b-28c8-4284-89ad-1397837adea9"], -Cell[262056, 8293, 6370, 174, 447, "Output",ExpressionUUID->"94d972b8-33e9-4789-a419-3b876c67fa83"] +Cell[262214, 8229, 300, 5, 29, "Input",ExpressionUUID->"e8823d7b-28c8-4284-89ad-1397837adea9"], +Cell[262517, 8236, 6291, 169, 199, "Output",ExpressionUUID->"33b3c09c-21a1-4f44-8ed5-2498cae6da42"] }, Open ]], -Cell[268441, 8470, 456, 11, 51, "Input",ExpressionUUID->"1a23cb5a-f23a-43de-8864-b6cb1b98e180"], +Cell[268823, 8408, 452, 10, 29, "Input",ExpressionUUID->"1a23cb5a-f23a-43de-8864-b6cb1b98e180"], Cell[CellGroupData[{ -Cell[268922, 8485, 214, 4, 29, "Input",ExpressionUUID->"9741cadf-ab63-43d1-ae1d-43cca646aba6"], -Cell[269139, 8491, 170, 3, 33, "Output",ExpressionUUID->"96a13016-bbd7-4387-b974-d41da072905a"] +Cell[269300, 8422, 210, 3, 29, "Input",ExpressionUUID->"9741cadf-ab63-43d1-ae1d-43cca646aba6"], +Cell[269513, 8427, 188, 2, 33, "Output",ExpressionUUID->"0407158b-1032-45d1-8dea-6cb77fc4c5e0"] }, Open ]], Cell[CellGroupData[{ -Cell[269346, 8499, 182, 3, 29, "Input",ExpressionUUID->"80b44196-33de-4b9e-a85e-7db9093c0ce1"], -Cell[269531, 8504, 617, 18, 33, "Output",ExpressionUUID->"f668886c-1b02-41e8-b9d1-57e604682c3d"] +Cell[269738, 8434, 178, 2, 29, "Input",ExpressionUUID->"80b44196-33de-4b9e-a85e-7db9093c0ce1"], +Cell[269919, 8438, 634, 17, 33, "Output",ExpressionUUID->"ce18a17e-d664-434d-8c5b-10a3ef8b556b"] }, Open ]], Cell[CellGroupData[{ -Cell[270185, 8527, 181, 3, 29, "Input",ExpressionUUID->"43f5bcb7-4438-4427-96ca-d3fb1ac928b9"], -Cell[270369, 8532, 373, 8, 33, "Output",ExpressionUUID->"d0fbc094-796c-466d-bbc9-6abea376e2ac"] +Cell[270590, 8460, 177, 2, 29, "Input",ExpressionUUID->"43f5bcb7-4438-4427-96ca-d3fb1ac928b9"], +Cell[270770, 8464, 391, 7, 33, "Output",ExpressionUUID->"ab5f9022-8b18-4860-b3f2-a4f9efe454cd"] }, Open ]], Cell[CellGroupData[{ -Cell[270779, 8545, 531, 12, 29, "Input",ExpressionUUID->"2df5ccf4-8d72-470a-b26f-8d842a8e9a97"], -Cell[271313, 8559, 222, 4, 33, "Output",ExpressionUUID->"f9fd2508-1493-47ac-a341-cb494616092d"] +Cell[271198, 8476, 527, 11, 29, "Input",ExpressionUUID->"2df5ccf4-8d72-470a-b26f-8d842a8e9a97"], +Cell[271728, 8489, 246, 4, 33, "Output",ExpressionUUID->"f1357356-c5b1-463f-a512-9b6d52ce6f49"] }, Open ]], Cell[CellGroupData[{ -Cell[271572, 8568, 263, 5, 29, "Input",ExpressionUUID->"6cafbc40-bdef-4f52-801d-0a185abc2a8a"], -Cell[271838, 8575, 193, 4, 23, "Print",ExpressionUUID->"c1804cf7-b750-4f70-a587-d189a8b9e20a"], -Cell[272034, 8581, 172, 3, 56, "Output",ExpressionUUID->"048e6b24-d56e-4fd2-8d77-2a57115b0c68"] +Cell[272011, 8498, 259, 4, 29, "Input",ExpressionUUID->"6cafbc40-bdef-4f52-801d-0a185abc2a8a"], +Cell[272273, 8504, 214, 4, 23, "Print",ExpressionUUID->"5f4c39aa-e3e0-410c-b37c-809f9c7dcde3"], +Cell[272490, 8510, 193, 2, 33, "Output",ExpressionUUID->"0507e562-834d-4f7e-8b8d-ba5b8b1c6776"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272720, 8517, 1750, 68, 147, "Input",ExpressionUUID->"32fff388-b568-43c7-8456-5d2dd851e606"], +Cell[274473, 8587, 2302, 76, 55, "Output",ExpressionUUID->"dd22a2eb-9b47-4700-b7d9-41f804d51243"] +}, Open ]], +Cell[CellGroupData[{ +Cell[276812, 8668, 270, 5, 29, "Input",ExpressionUUID->"19f608a9-2937-45bd-b2d6-e61835440e16"], +Cell[277085, 8675, 648, 16, 82, "Output",ExpressionUUID->"bc9f5b95-113d-4c7b-8b6d-0961f9ce917e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[277770, 8696, 220, 3, 29, "Input",ExpressionUUID->"bce4b8f4-e37f-45e9-a7f1-eee48fdaedbc"], +Cell[277993, 8701, 8384, 211, 261, "Output",ExpressionUUID->"44138f57-041b-4599-9233-f9f8e608823a"] }, Open ]] } ]