diff --git a/fractal_dimension/circle_counting_new/data/cube.txt b/fractal_dimension/circle_counting_new/data/cube.txt
index 069d625..d8092c9 100644
--- a/fractal_dimension/circle_counting_new/data/cube.txt
+++ b/fractal_dimension/circle_counting_new/data/cube.txt
@@ -1,4 +1,27 @@
-{{{0., 1., 0., 0., 1., -1., 0., 0.}, {0., 1., 0., 0., 0., 0., 0., 0.}, {0., 3., 0., 0., 2., 1., -1., 0.}, {0., 3., 0., 0., 3., 0., -1., 0.}, {0., 0., 0., 0., 1., 0., 0., 0.}, {0., 0., 0., 0., 0., 1., 0., 0.}, {0., 2., 0., 0., 2., 2., -1., 0.}, {0., 2., 0., 0., 3., 1., -1., 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.}, {3., 0., 3., 0., 0., 0., -1., 0.}, {3., 0., 4., -1., 0., 0., -1., 0.}, {2., 0., 4., 0., 0., 0., -1., 0.}, {2., 0., 3., 1., 0., 0., -1., 0.}}, {{1., 0., 0., 0., 0., 0., 0., 0.}, {1., 0., -1., 3., 2., 0., 0., 0.}, {0., 0., -1., 4., 2., 0., 0., 0.}, {0., 0., 0., 1., 0., 0., 0., 0.}, {0., 0., 0., 0., 1., 0., 0., 0.}, {0., 0., -1., 3., 3., 0., 0., 0.}, {-1., 0., -1., 4., 3., 0., 0., 0.}, {-1., 0., 0., 1., 1., 0., 0., 0.}}, {{0., 1., 3., -1., 0., 2., 0., 0.}, {0., 1., 0., 0., 0., 0., 0., 0.}, {0., 0., 1., 0., 0., 0., 0., 0.}, {0., 0., 4., -1., 0., 2., 0., 0.}, {0., 0., 3., -1., 0., 3., 0., 0.}, {0., 0., 0., 0., 0., 1., 0., 0.}, {0., -1., 1., 0., 0., 1., 0., 0.}, {0., -1., 4., -1., 0., 3., 0., 0.}}, {{-1., 0., 4., 0., 0., 0., -2., 4.}, {-1., 0., 4., 0., 0., 0., -1., 3.}, {0., 0., 1., 0., 0., 0., 0., 0.}, {0., 0., 1., 0., 0., 0., -1., 1.}, {-1., 0., 3., 0., 0., 0., -1., 4.}, {-1., 0., 3., 0., 0., 0., 0., 3.}, {0., 0., 0., 0., 0., 0., 1., 0.}, {0., 0., 0., 0., 0., 0., 0., 1.}}, {{0., -1., 0., 0., 4., 0., 3., -1.}, {0., -1., 0., 0., 4., 0., 4., -2.}, {0., -1., 0., 0., 3., 0., 4., -1.}, {0., -1., 0., 0., 3., 0., 3., 0.}, {0., 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.}}}
-{{22., 80., -28.2843, 31.}, {12., 48., -16.9706, 17.}, {4., 20., -5.65685, 7.}, {14., 52., -16.9706, 21.}, {16., 52., -19.799, 21.}, {6., 20., -8.48528, 7.}, {-2., -8., 2.82843, -3.}, {8., 24., -8.48528, 11.}}
+{{{1, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {2, 1, 0, 0, 0, 
+   3, -1, 0}, {3, 0, 0, 0, 0, 3, -1, 0}, {1, -1, 0, 0, 0, 1, 0, 
+   0}, {0, 0, 0, 0, 0, 1, 0, 0}, {2, 0, 0, 0, 0, 4, -1, 0}, {3, -1, 0,
+    0, 0, 4, -1, 0}}, {{1, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0,
+    0}, {0, 0, 1, 0, 0, 0, 0, 0}, {1, -1, 1, 0, 0, 0, 0, 0}, {3, 1, 2,
+    0, 0, -1, 0, 0}, {2, 2, 2, 0, 0, -1, 0, 0}, {2, 1, 3, 0, 0, -1, 0,
+    0}, {3, 0, 3, 0, 0, -1, 0, 0}}, {{1, 0, 0, 0, 0, 0, 0, 0}, {3, 0, 
+   0, 0, 0, 0, -1, 3}, {2, 0, 0, 1, 0, 0, -1, 3}, {0, 0, 0, 1, 0, 0, 
+   0, 0}, {1, 0, 0, -1, 0, 0, 0, 1}, {3, 0, 0, -1, 0, 0, -1, 4}, {2, 
+   0, 0, 0, 0, 0, -1, 4}, {0, 0, 0, 0, 0, 0, 0, 1}}, {{-1, 4, 0, 0, 0,
+    0, 2, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, -1, 1, 
+   0}, {-1, 4, 0, 0, 0, -1, 3, 0}, {-1, 3, 0, 0, 0, 1, 2, 0}, {0, 0, 
+   0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {-1, 3, 0, 0, 0, 0, 3,
+    0}}, {{0, 0, 0, 3, 0, -1, 3, 0}, {0, 0, 0, 3, 0, -1, 4, -1}, {0, 
+   0, 0, 1, 0, 0, 1, -1}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 2, 
+   0, -1, 3, 1}, {0, 0, 0, 2, 0, -1, 4, 0}, {0, 0, 0, 0, 0, 0, 1, 
+   0}, {0, 0, 0, 0, 0, 0, 0, 1}}, {{0, 0, 0, -1, 0, 3, -1, 4}, {0, 0, 
+   0, -1, 0, 3, 0, 3}, {0, 0, 0, -1, 0, 2, 1, 3}, {0, 0, 0, -1, 0, 2, 
+   0, 4}, {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}}}
+
+{{22., 80., -28.2843, 31.}, {12., 48., -16.9706, 17.}, {4., 
+  20., -5.65685, 7.}, {14., 52., -16.9706, 21.}, {16., 52., -19.799, 
+  21.}, {6., 20., -8.48528, 7.}, {-2., -8., 2.82843, -3.}, {8., 
+  24., -8.48528, 11.}}
+
 {{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/data/square_triangle.txt b/fractal_dimension/circle_counting_new/data/square_triangle.txt
new file mode 100644
index 0000000..bc18653
--- /dev/null
+++ b/fractal_dimension/circle_counting_new/data/square_triangle.txt
@@ -0,0 +1,463 @@
+{{{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
+{27.84321299996219`, 0, 31.88338943954033`, 0, 0, 0, 0, 0, 0, 0,
+-1.531218499159464`, 0, 0, 17.325914997311667`, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {21.569673643722354`, 0,
+20.684712343427034`, 0, 0, 0, 0, 0, 0, 0, -1.0564841780202636`, 0, 0,
+11.633933906025307`, 0, 0, 0, 0, 0, 0}, {19.011640832779868`, 0,
+23.24274515436953`, 0, 0, 0, 0, 0, 0, 0, -1.056484178020264`, 0, 0,
+11.633933906025309`, 0, 0, 0, 0, 0, 0}, {32.39720885582033`, 0,
+35.10007907874474`, 0, 0, 0, 0, 0, 0, 0, -1.7067648379579303`, 0, 0,
+18.792490990275233`, 0, 0, 0, 0, 0, 0}, {10.228758817595509`, 0,
+12.001489761794705`, 0, 0, 0, 0, 0, 0, 0, -0.4879516573068181`, 0, 0,
+4.50269289383863`, 0, 0, 0, 0, 0, 0}, {20.8328318764798`, 0,
+20.832831876479798`, 0, 0, 0, 0, 0, 0, 0, -1.0000000000000018`, 0, 0,
+10.257954272158448`, 0, 0, 0, 0, 0, 0}, {4.8478183350881805`, 0,
+5.3147492806726975`, 0, 0, 0, 0, 0, 0, 0, -0.2948500127452822`, 0, 0,
+4.532285845403717`, 0, 0, 0, 0, 0, 0}, {12.507233678342702`, 0,
+11.941014449883793`, 0, 0, 0, 0, 0, 0, 0, -0.6624598973169626`, 0, 0,
+8.551535932498052`, 0, 0, 0, 0, 0, 0}, {19.249209948717123`, 0,
+22.41645380424239`, 0, 0, 0, 0, 0, 0, 0, -1.`, 0, 0, 10.257954272158425`, 0, 0,
+0, 0, 0, 0}, {27.76289238768915`, 0, 30.002687706400515`, 0, 0, 0, 0, 0, 0, 0,
+-1.4143497759441805`, 0, 0, 14.816459158779407`, 0, 0, 0, 0, 0, 0},
+{22.43659319226101`, 0, 25.441098795619`, 0, 0, 0, 0, 0, 0, 0,
+-1.2657728263399282`, 0, 0, 15.163884160451763`, 0, 0, 0, 0, 0, 0}, {0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0}, {11.139459285701612`, 0,
+9.40797014891485`, 0, 0, 0, 0, 0, 0, 0, -0.5219324509628938`, 0, 0,
+6.235012418508953`, 0, 0, 0, 0, 0, 0}, {11.228758817595516`, 0,
+11.001489761794712`, 0, 0, 0, 0, 0, 0, 0, -0.48795165730681855`, 0, 0,
+4.502692893838636`, 0, 0, 0, 0, 0, 0}, {10.891928430229264`, 0,
+13.55631969799721`, 0, 0, 0, 0, 0, 0, 0, -0.662459897316962`, 0, 0,
+8.551535932498046`, 0, 0, 0, 0, 0, 0}, {23.43659319226103`, 0,
+24.441098795619016`, 0, 0, 0, 0, 0, 0, 0, -1.265772826339929`, 0, 0,
+15.163884160451772`, 0, 0, 0, 0, 0, 0}, {8.5814264747591`, 0,
+11.966002959857322`, 0, 0, 0, 0, 0, 0, 0, -0.5219324509628929`, 0, 0,
+6.2350124185089415`, 0, 0, 0, 0, 0, 0}, {29.45851824807557`, 0,
+30.268084191426848`, 0, 0, 0, 0, 0, 0, 0, -1.5312184991594613`, 0, 0,
+17.325914997311635`, 0, 0, 0, 0, 0, 0}}, {{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0}, {-6.41084714051588`, 0, 0, 0, 0, -0.9879081352400851`,
+0, 0, 0, 0, 0, 0, 0, 6.022260513615532`, 8.57167649313303`, 0, 0, 0, 0, 0},
+{-0.36744640326333267`, 0, 0, 0, 0, -0.23067026344514785`, 0, 0, 0, 0, 0, 0, 0,
+1.631724352896307`, 1.3164203323969925`, 0, 0, 0, 0, 0}, {-1.5816667146215124`,
+0, 0, 0, 0, -0.37860054835592694`, 0, 0, 0, 0, 0, 0, 0, 1.6913184206970722`,
+4.18482692502994`, 0, 0, 0, 0, 0}, {-5.079639481374411`, 0, 0, 0, 0,
+-0.9686626507573632`, 0, 0, 0, 0, 0, 0, 0, 5.865322853819724`,
+7.552273328293264`, 0, 0, 0, 0, 0}, {-5.622749766164467`, 0, 0, 0, 0, -1.`, 0,
+0, 0, 0, 0, 0, 0, 5.477293375065052`, 8.977023178220632`, 0, 0, 0, 0, 0},
+{-1.3635028990066842`, 0, 0, 0, 0, -0.7395363348413189`, 0, 0, 0, 0, 0, 0, 0,
+3.9049766341132464`, 5.155380487006192`, 0, 0, 0, 0, 0}, {-1.541521047981976`,
+0, 0, 0, 0, -0.6476224525819214`, 0, 0, 0, 0, 0, 0, 0, 2.8931172669065477`,
+5.611896358654166`, 0, 0, 0, 0, 0}, {-1.445083564966656`, 0, 0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 1.010003435730248`, 0.564919870763587`, 0, 0, 0, 0, 0},
+{-1.6314638503476666`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6377806583905968`,
+1.2692445087382707`, 0, 0, 0, 0, 0}, {-3.707039157229932`, 0, 0, 0, 0,
+-1.0129169398564404`, 0, 0, 0, 0, 0, 0, 0, 5.47715173221743`,
+7.696608463190608`, 0, 0, 0, 0, 0}, {-4.07987273888282`, 0, 0, 0, 0,
+-1.04001374292102`, 0, 0, 0, 0, 0, 0, 0, 5.277506780868675`,
+8.645124420673909`, 0, 0, 0, 0, 0}, {-5.54306838200611`, 0, 0, 0, 0,
+-0.6055577914686769`, 0, 0, 0, 0, 0, 0, 0, 4.326562575404825`,
+5.88104528706117`, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
+0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,
+0}, {0.003943504256646246`, 0, 0, 0, 0, -0.5088660713961708`, 0, 0, 0, 0, 0, 0,
+0, 2.27325228121694`, 3.8389601546092003`, 0, 0, 0, 0, 0},
+{-3.840307202052757`, 0, 0, 0, 0, -0.3726028871266531`, 0, 0, 0, 0, 0, 0, 0,
+3.273513569098487`, 3.3956651803823523`, 0, 0, 0, 0, 0}, {-4.175621978742781`,
+0, 0, 0, 0, -0.37488752802352954`, 0, 0, 0, 0, 0, 0, 0, 2.694838222508521`,
+4.564624954664183`, 0, 0, 0, 0, 0}, {-3.4979727667529`, 0, 0, 0, 0,
+-0.5900621024014363`, 0, 0, 0, 0, 0, 0, 0, 4.174004433122655`,
+4.3674464032633225`, 0, 0, 0, 0, 0}, {-4.202003788810777`, 0, 0, 0, 0,
+-0.6153052481134285`, 0, 0, 0, 0, 0, 0, 0, 3.386527602907627`,
+6.445255821488926`, 0, 0, 0, 0, 0}}, {{0, 0, 0, -1.4695241076981276`, 0, 0, 0,
+0.8590848429955978`, 0, 0, 0, 0, 0, 0, 1.3286089506937262`, 0, 0, 0, 0, 0}, {0,
+0, 0, 0.5749777208493665`, 0, 0, 0, 6.46066399305794`, 0, 0, 0, 0, 0, 0,
+5.90111415629391`, 0, 0, 0, 0, -2.5227927797789693`}, {0, 0, 0,
+-2.2811678681488217`, 0, 0, 0, 3.6595752202638514`, 0, 0, 0, 0, 0, 0,
+3.775267997688813`, 0, 0, 0, 0, -0.9427275628290595`}, {0, 0, 0, 1, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, -1.0762113700296219`, 0, 0, 0,
+7.163746271780905`, 0, 0, 0, 0, 0, 0, 6.258634119402716`, 0, 0, 0, 0,
+-2.4115280374965846`}, {0, 0, 0, 1.3812378196260744`, 0, 0, 0,
+4.045603946179178`, 0, 0, 0, 0, 0, 0, 3.086499656734797`, 0, 0, 0, 0,
+-1.5836219277626338`}, {0, 0, 0, -2.5973887101006676`, 0, 0, 0,
+4.630183099985565`, 0, 0, 0, 0, 0, 0, 3.49060682006243`, 0, 0, 0, 0,
+-0.9427275628290603`}, {0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0}, {0, 0, 0, -1.2600684445684749`, 0, 0, 0, 4.045603946179174`, 0, 0, 0, 0,
+0, 0, 5.72780592092934`, 0, 0, 0, 0, -1.5836219277626329`}, {0, 0, 0,
+0.2608205404701127`, 0, 0, 0, 1.9370171893653474`, 0, 0, 0, 0, 0, 0,
+3.574222563572296`, 0, 0, 0, 0, -0.9999999999999956`}, {0, 0, 0,
+-1.2853368565814467`, 0, 0, 0, 5.434917969930267`, 0, 0, 0, 0, 0, 0,
+3.8745829165802563`, 0, 0, 0, 0, -1.4929240404023294`}, {0, 0, 0,
+0.24214062247138224`, 0, 0, 0, 3.5331375255500355`, 0, 0, 0, 0, 0, 0,
+1.9297092350278453`, 0, 0, 0, 0, -0.9900956418796492`}, {0, 0, 0,
+0.595721973154526`, 0, 0, 0, 5.8986788408682065`, 0, 0, 0, 0, 0, 0,
+6.5542270808144405`, 0, 0, 0, 0, -2.54219115076709`}, {0, 0, 0,
+-3.3501406641046616`, 0, 0, 0, 5.234688464085705`, 0, 0, 0, 0, 0, 0,
+7.012686054834877`, 0, 0, 0, 0, -1.567937169062838`}, {0, 0, 0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, -1.78574494964997`, 0, 0, 0,
+1.8296927227173052`, 0, 0, 0, 0, 0, 0, 1.0439477730673379`, 0, 0, 0, 0, 0}, {0,
+0, 0, -1.0502318853844121`, 0, 0, 0, 6.460663993057914`, 0, 0, 0, 0, 0, 0,
+7.52632376252766`, 0, 0, 0, 0, -2.5227927797789595`}, {0, 0, 0,
+1.4073657336052217`, 0, 0, 0, 3.098188463599952`, 0, 0, 0, 0, 0, 0,
+4.107568033819353`, 0, 0, 0, 0, -1.599463587938029`}, {0, 0, 0,
+-2.0762113700296254`, 0, 0, 0, 7.163746271780911`, 0, 0, 0, 0, 0, 0,
+7.258634119402723`, 0, 0, 0, 0, -2.411528037496587`}, {0, 0, 0,
+1.8860301467038914`, 0, 0, 0, 1.9370171893653592`, 0, 0, 0, 0, 0, 0,
+1.9490129573385317`, 0, 0, 0, 0, -1.`}}, {{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0}, {12.170676809906857`, 0, 0, -1.6956372759096858`, 0,
+0, 9.72702841332612`, 0, 0, 0, 0, 0, 0, 0, 0, 0.27854214253997434`, 0, 0, 0,
+0}, {1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, -0.9999999999999993`, 0, 0,
+0, 0}, {7.217418256377102`, 0, 0, -1.`, 0, 0, 4.1583016734110325`, 0, 0, 0, 0,
+0, 0, 0, 0, 2.0569490389189204`, 0, 0, 0, 0}, {7.217418256377121`, 0, 0,
+-1.0000000000000027`, 0, 0, 6.716334484353535`, 0, 0, 0, 0, 0, 0, 0, 0,
+-0.5010837720235664`, 0, 0, 0, 0}, {10.878668644524405`, 0, 0,
+-1.6142987034185508`, 0, 0, 8.39257087877405`, 0, 0, 0, 0, 0, 0, 0, 0,
+1.6433312842562355`, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0}, {3.2641143366734435`, 0, 0, -0.5465398575313145`, 0, 0,
+2.2726776041582917`, 0, 0, 0, 0, 0, 0, 0, 0, 1.9902520833004305`, 0, 0, 0, 0},
+{9.313880121099361`, 0, 0, -0.9610162763473336`, 0, 0, 5.676025469073791`, 0,
+0, 0, 0, 0, 0, 0, 0, -1.179543485279301`, 0, 0, 0, 0}, {11.2078542192557`, 0,
+0, -1.2936691700324792`, 0, 0, 6.440218517885633`, 0, 0, 0, 0, 0, 0, 0, 0,
+0.15691773019120125`, 0, 0, 0, 0}, {3.264114336673442`, 0, 0,
+-0.5465398575313143`, 0, 0, 3.8562995319209277`, 0, 0, 0, 0, 0, 0, 0, 0,
+0.40663015553779225`, 0, 0, 0, 0}, {5.592857604214241`, 0, 0,
+-0.9364621710265746`, 0, 0, 4.944337990032391`, 0, 0, 0, 0, 0, 0, 0, 0,
+1.7469813455105783`, 0, 0, 0, 0}, {14.41178957985707`, 0, 0,
+-1.8481246113179086`, 0, 0, 10.381693613110777`, 0, 0, 0, 0, 0, 0, 0, 0,
+-0.3025325722847225`, 0, 0, 0, 0}, {6.946883358340843`, 0, 0,
+-0.5305128290758143`, 0, 0, 3.869224627172904`, 0, 0, 0, 0, 0, 0, 0, 0,
+-1.720589507766074`, 0, 0, 0, 0}, {6.624988463347321`, 0, 0,
+-0.7526669148795466`, 0, 0, 3.129816091664739`, 0, 0, 0, 0, 0, 0, 0, 0,
+0.9882071032326574`, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+1, 0, 0, 0, 0}, {11.207854219255712`, 0, 0, -1.293669170032481`, 0, 0,
+8.05552376599907`, 0, 0, 0, 0, 0, 0, 0, 0, -1.458387517922226`, 0, 0, 0, 0},
+{14.411789579857064`, 0, 0, -1.8481246113179077`, 0, 0, 9.381693613110775`, 0,
+0, 0, 0, 0, 0, 0, 0, 0.6974674277152784`, 0, 0, 0, 0}, {6.6249884633473375`, 0,
+0, -0.7526669148795491`, 0, 0, 5.687848902607241`, 0, 0, 0, 0, 0, 0, 0, 0,
+-1.5698257077098332`, 0, 0, 0, 0}, {12.170676809906821`, 0, 0,
+-1.6956372759096805`, 0, 0, 8.111723165212666`, 0, 0, 0, 0, 0, 0, 0, 0,
+1.8938473906534006`, 0, 0, 0, 0}}, {{0, -4.285228820267802`, 0, 0,
+9.226515505063848`, 5.812692621523033`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+-1.9378797624948039`, 0}, {0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0, 0}, {0, -2.9399572323480117`, 0, 0, 6.985903516459332`,
+3.578309337745482`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.32860895069373`, 0},
+{0, -3.4412488615275265`, 0, 0, 6.73155898344145`, 5.715625752124398`, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, -1.5585347273367143`, 0}, {0, 0, 0, 0, 1, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0}, {0, -4.179559238428596`, 0, 0, 6.753419515520527`,
+3.992161857865206`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.0439477730673445`,
+0}, {0, -3.7494796210899626`, 0, 0, 5.1897495628399035`, 4.56080761363024`, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.964854617513927`, 0}, {0,
+-3.0795122070391985`, 0, 0, 11.364854376055236`, 6.367644935397875`, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, -2.6413062641945455`, 0}, {0, -3.0678642787253043`,
+0, 0, 10.61212684581037`, 6.9119511433425584`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, -2.6093679460583767`, 0}, {0, -1.619078035664117`, 0, 0,
+1.6414672860779373`, 1.0223892504138175`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0}, {0, -1.6252096062337755`, 0, 0, 1.026261115574413`, 1.6514707218081883`,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0.4449928691228202`, 0, 0,
+3.641464127722621`, 2.0122631411393255`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+-0.9901927761369564`, 0}, {0, -6.60329751519399`, 0, 0, 18.28156700229338`,
+10.287662592782146`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -3.95675619603871`,
+0}, {0, -4.6071538717813425`, 0, 0, 11.034299082201228`, 7.747819068045954`, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2.558534727336716`, 0}, {0,
+-5.5248308263483805`, 0, 0, 8.994031504125031`, 6.226545141642751`, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, -1.653218584868417`, 0}, {0, -0.8948400226205824`, 0,
+0, 6.9928545416316314`, 3.302740098759766`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+-1.6252096062337733`, 0}, {0, -0.9002787187969692`, 0, 0, 5.882076116327134`,
+4.246646424916875`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.5994635879380303`,
+0}, {0, -1.1659050102538107`, 0, 0, 5.30274009875977`, 2.0321933159215493`, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.`, 0}, {0, -1.1730242561047248`, 0, 0,
+3.6192723041787396`, 3.609211044582794`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+-0.9841583398246043`, 0}}, {{0, 0, -0.9999999999999998`, 0, 0,
+4.0804277607476775`, 0, 0, 0, 0, 0, 0, 2.8417778191546215`, 0, 0, 0, 0,
+2.841777819154621`, 0, 0}, {0, 0, 0, 0, 0, 0.6153052481134312`, 0, 0, 0, 0, 0,
+0, 0.9976697926427395`, 0, 0, 0, 0, -0.6176354554706931`, 0, 0}, {0, 0, -1.`,
+0, 0, 4.080427760747679`, 0, 0, 0, 0, 0, 0, 3.841777819154622`, 0, 0, 0, 0,
+1.8417778191546208`, 0, 0}, {0, 0, -0.4762123394073414`, 0, 0,
+2.5612911561574365`, 0, 0, 0, 0, 0, 0, 0.3129572060761323`, 0, 0, 0, 0,
+2.3947776776112804`, 0, 0}, {0, 0, -0.4762123394073423`, 0, 0,
+2.561291156157442`, 0, 0, 0, 0, 0, 0, 2.8709900170186238`, 0, 0, 0, 0,
+-0.16325513333120778`, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0, 0, 0}, {0, 0, -1.3878112141023338`, 0, 0, 6.474576078440618`, 0, 0, 0, 0,
+0, 0, 4.783249598920781`, 0, 0, 0, 0, 2.395438384818446`, 0, 0}, {0, 0,
+-0.7816869763637928`, 0, 0, 4.230437680917661`, 0, 0, 0, 0, 0, 0,
+1.513709015716325`, 0, 0, 0, 0, 2.3156439671151734`, 0, 0}, {0, 0,
+-0.7864027944424121`, 0, 0, 2.6044298967861885`, 0, 0, 0, 0, 0, 0,
+3.1519596297566737`, 0, 0, 0, 0, 2.3655568353142593`, 0, 0}, {0, 0,
+-0.4838777665514802`, 0, 0, 1.60251938383605`, 0, 0, 0, 0, 0, 0,
+1.3217818465602407`, 0, 0, 0, 0, 2.4532093281221896`, 0, 0}, {0, 0,
+-0.781686976363793`, 0, 0, 4.230437680917662`, 0, 0, 0, 0, 0, 0,
+3.0973309434789638`, 0, 0, 0, 0, 0.7320220393525345`, 0, 0}, {0, 0,
+-0.4887182066904776`, 0, 0, 3.280024241037184`, 0, 0, 0, 0, 0, 0,
+1.3249628868162855`, 0, 0, 0, 0, 0.8362446801258099`, 0, 0}, {0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, -1.7764984363220653`, 0, 0,
+6.644443639707218`, 0, 0, 0, 0, 0, 0, 6.344168932839699`, 0, 0, 0, 0,
+4.567670496517629`, 0, 0}, {0, 0, -0.7739448686118726`, 0, 0,
+3.1687291948793344`, 0, 0, 0, 0, 0, 0, 1.5062908502977537`, 0, 0, 0, 0,
+3.2903787926283736`, 0, 0}, {0, 0, -1.3878112141023315`, 0, 0,
+6.474576078440609`, 0, 0, 0, 0, 0, 0, 3.7832495989207735`, 0, 0, 0, 0,
+3.3954383848184424`, 0, 0}, {0, 0, -0.4838777665514802`, 0, 0,
+1.6025193838360514`, 0, 0, 0, 0, 0, 0, 2.93708709467367`, 0, 0, 0, 0,
+0.8379040800087613`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+1, 0, 0}, {0, 0, -0.7739448686118735`, 0, 0, 3.168729194879339`, 0, 0, 0, 0, 0,
+0, 4.064323661240249`, 0, 0, 0, 0, 0.7323459816858822`, 0, 0}, {0, 0, 0, 0, 0,
+0.6153052481134264`, 0, 0, 0, 0, 0, 0, -0.6176354554706935`, 0, 0, 0, 0,
+0.9976697926427358`, 0, 0}}, {{0, 0, 0, 0, 3.755792204446553`, 0, 0, 0, 0, 0,
+0, 0, 0.5485592412742636`, -0.8343297592998757`, 0, 0, 5.159728669843544`, 0,
+0, 0}, {0, 0, 0, 0, 0.6252096062337803`, 0, 0, 0, 0, 0, 0, 0,
+1.0099043581203506`, 0, 0, 0, -0.6153052481134265`, 0, 0, 0}, {0, 0, 0, 0,
+2.1748251181166145`, 0, 0, 0, 0, 0, 0, 0, -0.4504324584174899`,
+-0.39092540006613685`, 0, 0, 3.1074333724953997`, 0, 0, 0}, {0, 0, 0, 0,
+5.044165679852127`, 0, 0, 0, 0, 0, 0, 0, 2.5554535456707113`,
+-1.1342428994348337`, 0, 0, 5.249838708359523`, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 2.6030509858223754`, 0, 0,
+0, 0, 0, 0, 0, 2.0264457652878733`, -0.4450835649666609`, 0, 0,
+1.060067494344385`, 0, 0, 0}, {0, 0, 0, 0, 4.877270435824538`, 0, 0, 0, 0, 0,
+0, 0, 0.15032263434298443`, -0.8325992077013358`, 0, 0, 4.84339934404376`, 0,
+0, 0}, {0, 0, 0, 0, 5.794189636105588`, 0, 0, 0, 0, 0, 0, 0,
+2.0187275639075213`, -1.1572335185058638`, 0, 0, 5.330088658504787`, 0, 0, 0},
+{0, 0, 0, 0, 1.5869543278616098`, 0, 0, 0, 0, 0, 0, 0, 0.3851395010933313`,
+-0.44508356496666224`, 0, 0, 3.6852771005781673`, 0, 0, 0}, {0, 0, 0, 0,
+2.5537444316433446`, 0, 0, 0, 0, 0, 0, 0, 1.6136765353338443`,
+-0.7162333885066301`, 0, 0, 4.315083364484966`, 0, 0, 0}, {0, 0, 0, 0,
+3.290535491122487`, 0, 0, 0, 0, 0, 0, 0, 0.43670240262278914`,
+-0.4550486523577728`, 0, 0, 2.0800288233801205`, 0, 0, 0}, {0, 0, 0, 0,
+4.309026948073225`, 0, 0, 0, 0, 0, 0, 0, 1.7053095865105585`,
+-0.7350424763004526`, 0, 0, 2.7506704300503206`, 0, 0, 0}, {0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 4.338757717507978`, 0,
+0, 0, 0, 0, 0, 0, 0.0844233328378462`, -1.`, 0, 0, 7.53888609973118`, 0, 0, 0},
+{0, 0, 0, 0, 4.659470927965564`, 0, 0, 0, 0, 0, 0, 0, 1.9340540940266442`,
+-1.134242899434836`, 0, 0, 6.2437445048288875`, 0, 0, 0}, {0, 0, 0, 0,
+6.458237522154471`, 0, 0, 0, 0, 0, 0, 0, 1.1493143340347394`,
+-1.2760035669350738`, 0, 0, 6.8956946413918985`, 0, 0, 0}, {0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1.5809670863299399`, 0,
+0, 0, 0, 0, 0, 0, 1.9989916996917545`, -0.4434043592337391`, 0, 0,
+2.052295297348145`, 0, 0, 0}, {0, 0, 0, 0, 0.6153052481134286`, 0, 0, 0, 0, 0,
+0, 0, -0.6213994516440731`, 0, 0, 0, 0.9939057964693562`, 0, 0, 0}, {0, 0, 0,
+0, 3.1789540378771224`, 0, 0, 0, 0, 0, 0, 0, 2.6235808934541938`,
+-0.7162333885066303`, 0, 0, 2.6997781163715393`, 0, 0, 0}}, {{0, 0, 0, 0,
+3.2209254727871754`, -0.5952983766529187`, 3.6163379961013473`, 0, 0, 0,
+-2.3749501264361768`, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
+4.206123366644251`, -0.6314638503476764`, 1.866964045157084`, 0, 0, 0,
+-0.8613178821627319`, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
+0.8031534964601647`, 0, 1.2726776041582912`, 0, 0, 0, -1.4695241076981271`, 0,
+0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 7.1847400448217575`,
+-1.5227927797789667`, 5.9951601802966685`, 0, 0, 0, -2.3161094638129573`, 0, 0,
+0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0}, {0, 0, 0, 0, 5.055388317177027`, -1.`, 2.9565652002551768`, 0, 0, 0,
+-0.3859008343199182`, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 3.8288367180414706`,
+-0.9427275628290659`, 3.711471987909807`, 0, 0, 0, -0.43385249724040076`, 0, 0,
+0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 6.932219304145514`, -1.0000000000000036`,
+5.48667861429488`, 0, 0, 0, -5.015230935637798`, 0, 0, 0, 0, 0, 0, 0, 0, 0},
+{0, 0, 0, 0, 9.266387084850434`, -1.5930524423485384`, 7.209483038039073`, 0,
+0, 0, -5.172308388599097`, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0,
+0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 2.5392548082888515`,
+-0.6252096062337773`, 1.8484729646560276`, 0, 0, 0, 0.7625181667111001`, 0, 0,
+0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 6.812063664881244`, -1.0100034357302565`,
+3.9346489736267567`, 0, 0, 0, -3.1131247082471596`, 0, 0, 0, 0, 0, 0, 0, 0, 0},
+{0, 0, 0, 0, 7.0559251735681565`, -0.9900956418796563`, 6.717468283140363`, 0,
+0, 0, -6.087800781096995`, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
+7.895309285659434`, -1.5227927797789702`, 6.953062506254797`, 0, 0, 0,
+-4.068776378692509`, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
+2.4177719763270136`, -0.5952983766529196`, 3.3436603919430556`, 0, 0, 0,
+-0.9054260187380487`, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
+5.360947322747839`, -0.6314638503476742`, 3.423756107137881`, 0, 0, 0,
+-3.70976898875308`, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
+9.229835641208254`, -1.6053018123831757`, 6.278309365569813`, 0, 0, 0,
+-4.018550726985207`, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0,
+1.710569240837661`, 0, 0.9579023259581149`, 0, 0, 0, -1.7526669148795468`, 0,
+0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 8.111563128746843`, -1.5930524423485402`,
+5.652690976058275`, 0, 0, 0, -2.323857282008748`, 0, 0, 0, 0, 0, 0, 0, 0, 0}},
+{{0, 0, -0.5673372480262608`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+1.7744351569384866`, 0, 0, 0, 0, 1.247119949851066`, -0.23349363692514746`},
+{0, 0, -4.735205962318099`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.7672039214679702`,
+0, 0, 0, 0, 6.2603993582417194`, -0.6228365028737186`}, {0, 0, 1, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, -5.919048916549528`, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 6.4646139096782775`, 0, 0, 0, 0, 7.2612575239462185`,
+-0.9805189533356322`}, {0, 0, -1.9097488102860467`, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 1.925550557339743`, 0, 0, 0, 0, 4.071083773046239`, -0.38323456893481156`},
+{0, 0, -6.489315060613274`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6.095972184855011`,
+0, 0, 0, 0, 8.676592678376844`, -1.012239867583414`}, {0, 0,
+-0.4370221727377781`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.5880769366108103`, 0, 0,
+0, 0, 3.686081266426098`, -0.5150945247277514`}, {0, 0, -4.584797823468822`, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 6.10382197898391`, 0, 0, 0, 0, 7.392297320649307`,
+-1.0253149090732814`}, {0, 0, -1.4450835649666622`, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 1.0100034357302559`, 0, 0, 0, 0, 0.5649198707635945`, 0}, {0, 0,
+-4.163191932648151`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.5040350798303184`, 0, 0,
+0, 0, 3.2837239087596632`, -0.3771634971262827`}, {0, 0, -2.102728189295279`,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.293787555063176`, 0, 0, 0, 0,
+5.417330821514906`, -0.6555492656455684`}, {0, 0, -4.981112554247979`, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 5.920941245504251`, 0, 0, 0, 0, 8.332672572043734`,
+-1.052743373419304`}, {0, 0, -4.50048649984968`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+2.9267731921512246`, 0, 0, 0, 0, 4.451997307234876`, -0.37947610172521173`},
+{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0}, {0, 0,
+-4.009300106263489`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4.539063352338544`, 0, 0, 0,
+0, 4.190173750899988`, -0.5972843844008218`}, {0, 0, -2.0043594207640414`, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 4.362512093549299`, 0, 0, 0, 0, 4.9332012162771655`,
+-0.7485881616528993`}, {0, 0, -1.6314638503476733`, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0.6377806583906047`, 0, 0, 0, 0, 1.2692445087382782`, 0}, {0, 0,
+-6.067823747875943`, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4.701208349089713`, 0, 0, 0,
+0, 5.6991172570859465`, -0.6129697386503599`}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, -7.2669340446185675`, 0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 6.633458342907677`, 0, 0, 0, 0, 8.274878758263092`, -1.`}}, {{0, 0,
+-0.46855022934119095`, 0, 0, 0, 0, 0, 0, 4.780894069969161`, 0, 0, 0, 0, 0, 0,
+0, -3.842223404458986`, 0, 3.5803541692928764`}, {0, 0, -0.8584536036538546`,
+0, 0, 0, 0, 0, 0, 4.972920889628168`, 0, 0, 0, 0, 0, 0, 0, -2.289315484802712`,
+0, 5.271135017089003`}, {0, 0, -1.`, 0, 0, 0, 0, 0, 0, 7.859520165833209`, 0,
+0, 0, 0, 0, 0, 0, -5.259488337806089`, 0, 6.224520045728551`}, {0, 0, 0, 0, 0,
+0, 0, 0, 0, 0.984158339824606`, 0, 0, 0, 0, 0, 0, 0, -1.6153052481134282`, 0,
+1.5994635879380317`}, {0, 0, -1.359465950713095`, 0, 0, 0, 0, 0, 0,
+8.859384905668623`, 0, 0, 0, 0, 0, 0, 0, -5.240715449413543`, 0,
+8.363326657434996`}, {0, 0, -0.5334624110017971`, 0, 0, 0, 0, 0, 0,
+3.0902850849606702`, 0, 0, 0, 0, 0, 0, 0, -2.0402676779559994`, 0,
+4.279389138164813`}, {0, 0, -1.5293755888628828`, 0, 0, 0, 0, 0, 0,
+11.727596018050962`, 0, 0, 0, 0, 0, 0, 0, -8.887056148507362`, 0,
+10.661998866307819`}, {0, 0, -0.5454062345080737`, 0, 0, 0, 0, 0, 0,
+4.774937970720787`, 0, 0, 0, 0, 0, 0, 0, -4.737418463717154`, 0,
+5.381590572406334`}, {0, 0, -0.5334624110017989`, 0, 0, 0, 0, 0, 0,
+4.715494691194458`, 0, 0, 0, 0, 0, 0, 0, -2.040267677956003`, 0,
+2.6541795319310473`}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0}, {0, 0, -1.3870217448277877`, 0, 0, 0, 0, 0, 0, 9.65031776351337`, 0, 0, 0,
+0, 0, 0, 0, -6.9818302896146776`, 0, 9.568949634971577`}, {0, 0,
+-0.8809975529546721`, 0, 0, 0, 0, 0, 0, 6.113518775583319`, 0, 0, 0, 0, 0, 0,
+0, -5.027167300717984`, 0, 7.083543548747301`}, {0, 0, -0.5314497706588088`, 0,
+0, 0, 0, 0, 0, 3.0786260958640472`, 0, 0, 0, 0, 0, 0, 0, -0.4172649333471026`,
+0, 2.6441658764356735`}, {0, 0, -1.198566860229398`, 0, 0, 0, 0, 0, 0,
+10.614535549983689`, 0, 0, 0, 0, 0, 0, 0, -6.613921601001395`, 0,
+7.200094216841478`}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1.5994635879380414`, 0, 0, 0,
+0, 0, 0, 0, -1.6153052481134331`, 0, 0.9841583398246112`}, {0, 0,
+-0.997925818204072`, 0, 0, 0, 0, 0, 0, 8.648969922186899`, 0, 0, 0, 0, 0, 0, 0,
+-7.4697912151602495`, 0, 8.017832989872133`}, {0, 0, -0.8584536036538521`, 0,
+0, 0, 0, 0, 0, 5.9729208896281545`, 0, 0, 0, 0, 0, 0, 0, -2.2893154848027044`,
+0, 4.271135017088989`}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
+0, 0}, {0, 0, -1.3594659507130973`, 0, 0, 0, 0, 0, 0, 9.474690153782065`, 0, 0,
+0, 0, 0, 0, 0, -5.240715449413548`, 0, 7.748021409321579`}, {0, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1}}, {{0, 0, 0, 4.317039587549729`, 0,
+1.4215562242434456`, 0, 0, 0, -0.8175000600523288`, 0, 1.3059590370095169`, 0,
+0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 2.2767794056518804`, 0, 3.0325751150634264`, 0,
+0, 0, -0.6055577914686805`, 0, 0.34916509381892924`, 0, 0, 0, 0, 0, 0, 0, 0},
+{0, 0, 0, 5.335618309575071`, 0, 2.669875398086419`, 0, 0, 0,
+-1.1923875880758592`, 0, 1.9030414417492982`, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0,
+0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0,
+3.6055577914686885`, 0, 3.1932414052189455`, 0, 0, 0, -0.9589745970973134`, 0,
+1.5273563821608054`, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 4.4944285166558045`, 0,
+1.6461119238493598`, 0, 0, 0, -1.0172340715481951`, 0, 2.7735479396076115`, 0,
+0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0.6190780356641202`, 0, -0.6228508232148053`,
+0, 0, 0, 0, 0, 0.9962272124493121`, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0,
+7.805208591985464`, 0, 4.88984283733781`, 0, 0, 0, -1.6252096062337804`, 0,
+0.8948400226205718`, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 5.434049659616337`, 0,
+3.4095993143846184`, 0, 0, 0, -1.`, 0, -0.06470548597305292`, 0, 0, 0, 0, 0, 0,
+0, 0}, {0, 0, 0, 2.2321216350158917`, 0, 1.3540147933294653`, 0, 0, 0,
+-0.5936801098227937`, 0, 1.9417800012764765`, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0,
+0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0,
+4.3355794768489195`, 0, 4.331881423376257`, 0, 0, 0, -0.9841583398246059`, 0,
+-0.05161157102807712`, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 11.692437138534855`,
+0, 6.051617813218538`, 0, 0, 0, -2.4346128529279487`, 0, 2.5650135504222376`,
+0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 3.9550562529580895`, 0, 1.4726966312344687`,
+0, 0, 0, -0.6153052481134291`, 0, 0.3387869232549783`, 0, 0, 0, 0, 0, 0, 0, 0},
+{0, 0, 0, 3.4758497946304607`, 0, 0.39779275000638603`, 0, 0, 0,
+-0.6423465435246636`, 0, 2.1764655348678272`, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0,
+0, 7.07936521492054`, 0, 5.426015827213794`, 0, 0, 0, -1.60555779146868`, 0,
+0.899764855959303`, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 3.317000754823578`, 0,
+3.0835622495332844`, 0, 0, 0, -0.6092708118010748`, 0, -0.6486939757678596`, 0,
+0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 6.560614044426782`, 0, 4.665938036453419`, 0,
+0, 0, -1.5742798452107438`, 0, 1.8661433054157857`, 0, 0, 0, 0, 0, 0, 0, 0},
+{0, 0, 0, 0.6314638503476749`, 0, 1.0161586022342464`, 0, 0, 0, 0, 0,
+-0.6153052481134278`, 0, 0, 0, 0, 0, 0, 0, 0}}, {{0, 0, 0, 0, 0, 0,
+1.78129116194157`, 2.2553639683439437`, 0, 0, 0, 0.47324150061717574`, 0, 0, 0,
+0, 0, 0, 0, -0.48928998053881`}, {0, 0, 0, 0, 0, 0, 2.593379883844096`,
+1.6376256468663988`, 0, 0, 0, 4.512314027070983`, 0, 0, 0, 0, 0, 0, 0,
+-1.0000000000000027`}, {0, 0, 0, 0, 0, 0, 2.149827311593898`,
+1.2251535237003641`, 0, 0, 0, 1.0744949063212694`, 0, 0, 0, 0, 0, 0, 0,
+-0.4892899805388109`}, {0, 0, 0, 0, 0, 0, 1.21725332215747`,
+3.005356169415549`, 0, 0, 0, 1.541975786619883`, 0, 0, 0, 0, 0, 0, 0,
+-0.6092110445827812`}, {0, 0, 0, 0, 0, 0, 2.1599808849865343`,
+0.37004404984162087`, 0, 0, 0, 3.0800017261018664`, 0, 0, 0, 0, 0, 0, 0,
+-0.6092110445827821`}, {0, 0, 0, 0, 0, 0, 1.2098800667828278`,
+1.381630980900277`, 0, 0, 0, 3.1320991813135763`, 0, 0, 0, 0, 0, 0, 0,
+-0.6055208771155853`}, {0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+0, 0}, {0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0,
+0, 0, 0, 5.092133979044084`, 4.999395730494903`, 0, 0, 0, 4.504887811787891`,
+0, 0, 0, 0, 0, 0, 0, -1.7489070431919806`}, {0, 0, 0, 0, 0, 0,
+4.3868527139144`, 5.527759621625765`, 0, 0, 0, 4.385790294272361`, 0, 0, 0, 0,
+0, 0, 0, -1.7035315086070946`}, {0, 0, 0, 0, 0, 0, 0.5836219277626369`,
+-0.6314638503476724`, 0, 0, 0, 0.9521580774149634`, 0, 0, 0, 0, 0, 0, 0, 0},
+{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0,
+0, 4.266228542877375`, 3.7464913332973087`, 0, 0, 0, 5.82516190138213`, 0, 0,
+0, 0, 0, 0, 0, -1.6509556245295185`}, {0, 0, 0, 0, 0, 0, 6.087370869793711`,
+5.7297190306168195`, 0, 0, 0, 3.984202231311182`, 0, 0, 0, 0, 0, 0, 0,
+-1.8487761557747744`}, {0, 0, 0, 0, 0, 0, 2.6870767821965247`,
+4.3750438874348205`, 0, 0, 0, 2.061714314894241`, 0, 0, 0, 0, 0, 0, 0,
+-1.042097674041886`}, {0, 0, 0, 0, 0, 0, 0.6314638503476717`,
+1.0302104446435794`, 0, 0, 0, -0.601253405704091`, 0, 0, 0, 0, 0, 0, 0, 0}, {0,
+0, 0, 0, 0, 0, 4.982151090567321`, 3.863655283731723`, 0, 0, 0,
+5.356998075952255`, 0, 0, 0, 0, 0, 0, 0, -1.703531508607096`}, {0, 0, 0, 0, 0,
+0, 3.897692393225047`, 4.77670177794089`, 0, 0, 0, 5.223908495678038`, 0, 0, 0,
+0, 0, 0, 0, -1.6509556245295185`}, {0, 0, 0, 0, 0, 0, 3.6298043450255912`,
+1.7397317678608903`, 0, 0, 0, 3.599740254376228`, 0, 0, 0, 0, 0, 0, 0,
+-1.0420976740418872`}, {0, 0, 0, 0, 0, 0, 1.9980815071911697`,
+3.301729984760438`, 0, 0, 0, 3.5411062453910804`, 0, 0, 0, 0, 0, 0, 0, -1.`}},
+{{0, 0, 0, 0, 0, 0, 0, 0, 0, 4.755047104759477`, 0, 0, 0, -1.0100034357302534`,
+0, 0, 3.5179705756285498`, -0.9982562098231322`, 0, 0}, {0, 0, 0, 0, 0, 0, 0,
+0, 0, 1.5891597859101108`, 0, 0, 0, -0.8085606110634949`, 0, 0,
+3.3793722701563556`, 1.2764343729277048`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0,
+4.13596906909536`, 0, 0, 0, -1.0100034357302539`, 0, 0, 4.137048611292667`,
+-0.9982562098231318`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 5.125425140741243`, 0,
+0, 0, -1.2932632560369801`, 0, 0, 3.8057193082645253`, 0.4263050537769444`, 0,
+0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 3.541803212978613`, 0, 0, 0,
+-1.2932632560369814`, 0, 0, 5.389341236027166`, 0.4263050537769453`, 0, 0}, {0,
+0, 0, 0, 0, 0, 0, 0, 0, 3.5865048252830545`, 0, 0, 0, -1.3140804723226394`, 0,
+0, 4.4884012011165915`, 1.4568379491383925`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0,
+8.990665958563323`, 0, 0, 0, -2.4683498680875386`, 0, 0, 9.045224313638302`,
+-0.9118716027189508`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 7.887969935502937`, 0,
+0, 0, -2.1572283502766463`, 0, 0, 6.983467502798999`, 0.1225744012846035`, 0,
+0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1.0037870753815448`, 0, 0, 0, 0, 0, 0,
+0.6214225308522372`, -0.6176354554706924`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0,
+1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0,
+6.907584383229017`, 0, 0, 0, -2.157228350276645`, 0, 0, 7.963853055072908`,
+0.12257440128460217`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 6.97510487917368`, 0,
+0, 0, -2.183310745689972`, 0, 0, 7.451146243970997`, 0.7689521148761846`, 0,
+0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, -0.6190780356641179`, 0, 0, 0, 0, 0, 0,
+0.6190780356641153`, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 5.47736949478967`,
+0, 0, 0, -1.`, 0, 0, 4.33891886198961`, -1.8389452818799956`, 0, 0}, {0, 0, 0,
+0, 0, 0, 0, 0, 0, 4.147606784379952`, 0, 0, 0, -0.7957516686318151`, 0, 0,
+2.3416790632217728`, -0.3590917147578414`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0,
+9.609743994227431`, 0, 0, 0, -2.4683498680875364`, 0, 0, 8.42614627797418`,
+-0.91187160271895`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
+0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0}, {0, 0,
+0, 0, 0, 0, 0, 0, 0, 2.5639848566173162`, 0, 0, 0, -0.7957516686318153`, 0, 0,
+3.92530099098441`, -0.3590917147578412`, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0,
+2.5891597859101054`, 0, 0, 0, -0.8085606110634926`, 0, 0, 2.3793722701563462`,
+1.2764343729277021`, 0, 0}}}
+
+{{583.2511030315829`, 420.1029866690154`, -462.9475080162928`,
+175.23166147437576`}, {-26.21167963224707`, -18.94466064956532`,
+20.87674621756514`, -7.857025076668037`}, {411.8916483442542`,
+297.69734758514994`, -328.0582371012457`, 122.4656861107742`},
+{508.4532627352364`, 363.43746374469583`, -401.20885666688855`,
+154.34836433619876`}, {70.11015517983537`, 50.31982272378514`,
+-56.15767582208764`, 19.37126805472377`}, {84.36390227718857`,
+57.96638761857412`, -65.02365041366693`, 25.752583313062132`},
+{560.8770908261515`, 401.3803578262633`, -444.560263626376`,
+165.8077785171772`}, {515.1436177034448`, 366.37969251471236`,
+-406.0751574277024`, 154.40895950421316`}, {506.5163913212939`,
+369.22251919837606`, -404.24195527713505`, 153.6447187918854`},
+{510.33878885103286`, 370.2953418298175`, -405.73340424433763`,
+156.06883400253537`}, {243.7750277311411`, 172.5354383797021`,
+-192.46155018671652`, 70.84760387862883`}, {253.87531419006245`,
+178.16011387958815`, -198.94618242019078`, 75.17892914739718`},
+{72.93141876740674`, 55.23284984849079`, -59.01113272558041`,
+23.385814428020012`}, {962.2126499425704`, 697.4454037906874`,
+-766.3709301356149`, 289.42596223348`}, {668.2804265771542`,
+481.2792058399525`, -529.6370929005627`, 202.76839695889214`},
+{732.23654551348`, 523.7859969101271`, -579.4495345414231`,
+218.57375388077855`}, {233.54096238074067`, 172.5728706189725`,
+-187.84605702107024`, 70.83567707588668`}, {244.29087345473727`,
+177.6384889323599`, -193.90040364063088`, 76.1517897916226`},
+{229.93731902175506`, 168.16156481904193`, -184.58591205576374`,
+67.79130067741697`}, {250.586146838049`, 178.77781056128197`,
+-197.01060100570703`, 77.37613184998168`}}
+
+{{0, 2, 13}, {0, 13, 8, 9, 14}, {0, 14, 3, 7, 15}, {0, 15, 6, 2}, {1, 4, 10,
+11, 5}, {1, 5, 19, 17, 12}, {1, 12, 16, 18, 4}, {2, 6, 10, 4, 18}, {2, 18, 16,
+8, 13}, {3, 14, 9, 17, 19}, {3, 19, 5, 11, 7}, {6, 15, 7, 11, 10}, {8, 16, 12,
+17, 9}}
diff --git a/fractal_dimension/circle_counting_new/src/search.rs b/fractal_dimension/circle_counting_new/src/search.rs
index dcba920..0f8fd27 100644
--- a/fractal_dimension/circle_counting_new/src/search.rs
+++ b/fractal_dimension/circle_counting_new/src/search.rs
@@ -49,8 +49,7 @@ impl<'a> Searcher<'a> {
                 let new_circle = generator * circle;
                 if new_circle[1] - circle[1] <= self.tolerance {
                     continue;
-                }
-                {
+                } else {
                     let mut seen = false;
                     for (j, max) in self.maxes.iter().enumerate() {
                         if seen || new_circle[1] <= *max {
diff --git a/fractal_dimension/fractal_dimension.nb b/fractal_dimension/fractal_dimension.nb
index 30c3a1a..18362dd 100644
--- a/fractal_dimension/fractal_dimension.nb
+++ b/fractal_dimension/fractal_dimension.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    392759,       9570]
-NotebookOptionsPosition[    386128,       9472]
-NotebookOutlinePosition[    386614,       9490]
-CellTagsIndexPosition[    386571,       9487]
+NotebookDataLength[    403907,       9863]
+NotebookOptionsPosition[    397040,       9761]
+NotebookOutlinePosition[    397527,       9779]
+CellTagsIndexPosition[    397484,       9776]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -28,7 +28,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.831194837404834*^9, 3.8311948924696903`*^9}, {
   3.831194930347896*^9, 3.831194932848599*^9}},
  CellLabel->
-  "In[278]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"],
+  "In[131]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"],
 
 Cell[BoxData[
  RowBox[{
@@ -58,7 +58,7 @@ Cell[BoxData[
   3.831107557920609*^9, 3.8311075805621977`*^9}, {3.8311076270925627`*^9, 
   3.831107722019619*^9}, {3.83468833600141*^9, 3.8346883410498962`*^9}},
  CellLabel->
-  "In[279]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],
+  "In[132]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"],
 
 Cell[BoxData[
  RowBox[{
@@ -72,7 +72,7 @@ Cell[BoxData[
   3.831109392242589*^9, 3.831109394639595*^9}, {3.831110190169511*^9, 
   3.831110193792735*^9}},
  CellLabel->
-  "In[280]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],
+  "In[133]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"],
 
 Cell[BoxData[
  RowBox[{
@@ -86,7 +86,7 @@ Cell[BoxData[
    "Transpose"}]}]], "Input",
  CellChangeTimes->{{3.831109396818718*^9, 3.831109426888632*^9}},
  CellLabel->
-  "In[281]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],
+  "In[134]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"],
 
 Cell[BoxData[
  RowBox[{
@@ -123,7 +123,7 @@ Cell[BoxData[
    3.831195002875142*^9}, {3.831205178380069*^9, 3.831205187846324*^9}, 
    3.834688343633176*^9},
  CellLabel->
-  "In[282]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],
+  "In[135]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"],
 
 Cell[BoxData[
  RowBox[{
@@ -134,7 +134,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.831110103314905*^9, 3.831110162272215*^9}, 
    3.831206070230084*^9},
  CellLabel->
-  "In[283]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],
+  "In[136]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"],
 
 Cell[BoxData[
  RowBox[{
@@ -170,7 +170,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.831194278291965*^9, 3.831194298458626*^9}, 
    3.831195204231324*^9},
  CellLabel->
-  "In[284]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],
+  "In[137]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"],
 
 Cell[BoxData[
  RowBox[{
@@ -193,7 +193,7 @@ Cell[BoxData[
   3.831195107195753*^9, 3.831195121990181*^9}, {3.831195208095559*^9, 
   3.831195214781535*^9}},
  CellLabel->
-  "In[285]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],
+  "In[138]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"],
 
 Cell[BoxData[
  RowBox[{
@@ -215,7 +215,7 @@ Cell[BoxData[
    "]"}]}]], "Input",
  CellChangeTimes->{{3.831195241841057*^9, 3.831195289590564*^9}},
  CellLabel->
-  "In[286]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],
+  "In[139]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"],
 
 Cell[BoxData[
  RowBox[{
@@ -237,7 +237,7 @@ Cell[BoxData[
    "]"}]}]], "Input",
  CellChangeTimes->{{3.831195337159152*^9, 3.831195396279203*^9}},
  CellLabel->
-  "In[287]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],
+  "In[140]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"],
 
 Cell[BoxData[
  RowBox[{
@@ -254,7 +254,7 @@ Cell[BoxData[
 
  CellChangeTimes->{{3.8312049925958433`*^9, 3.8312050200596113`*^9}},
  CellLabel->
-  "In[288]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],
+  "In[141]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"],
 
 Cell[BoxData[
  RowBox[{
@@ -276,7 +276,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.8315843493182087`*^9, 3.831584372878718*^9}, {
   3.831584545556731*^9, 3.831584563248426*^9}},
  CellLabel->
-  "In[289]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],
+  "In[142]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"],
 
 Cell[BoxData[
  RowBox[{
@@ -307,7 +307,7 @@ Cell[BoxData[
   ";"}]], "Input",
  CellChangeTimes->{3.831210886725911*^9},
  CellLabel->
-  "In[290]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],
+  "In[143]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"],
 
 Cell[BoxData[{
  RowBox[{
@@ -325,7 +325,7 @@ Cell[BoxData[{
        "\[IndentingNewLine]", 
        RowBox[{"FindFace", "[", 
         RowBox[{"g", ",", "emb"}], "]"}]}]}], "]"}]}], ";"}], 
-  "\[IndentingNewLine]"}], "\n", 
+  "\n"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"FindFace", "[", 
    RowBox[{
@@ -417,7 +417,7 @@ Cell[BoxData[{
    3.8312119634327393`*^9, 3.831542420732052*^9, {3.834688353349917*^9, 
    3.8346883534550037`*^9}},
  CellLabel->
-  "In[291]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],
+  "In[144]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"],
 
 Cell[BoxData[
  RowBox[{
@@ -650,7 +650,7 @@ Cell[BoxData[
    3.831725829008904*^9, 3.831725851322979*^9}, {3.831726730605854*^9, 
    3.8317267923612432`*^9}, 3.833968804473505*^9},
  CellLabel->
-  "In[293]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],
+  "In[146]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"],
 
 Cell[BoxData[
  RowBox[{
@@ -833,7 +833,7 @@ Cell[BoxData[
   3.834743284660774*^9, 3.8347432883605413`*^9}, {3.8347436150091953`*^9, 
   3.834743621722823*^9}},
  CellLabel->
-  "In[294]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],
+  "In[147]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"],
 
 Cell[BoxData[
  RowBox[{
@@ -860,7 +860,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.831554845925479*^9, 3.8315548977219877`*^9}, 
    3.833982029038528*^9},
  CellLabel->
-  "In[295]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],
+  "In[148]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"],
 
 Cell[BoxData[
  RowBox[{
@@ -874,7 +874,7 @@ Cell[BoxData[
     RowBox[{"1", "/", "b"}]}], "}"}]}]], "Input",
  CellChangeTimes->{{3.8363114259734707`*^9, 3.836311449666407*^9}},
  CellLabel->
-  "In[296]:=",ExpressionUUID->"5ef8c91b-dd7a-440d-b44e-513ae9efffca"],
+  "In[149]:=",ExpressionUUID->"5ef8c91b-dd7a-440d-b44e-513ae9efffca"],
 
 Cell[BoxData[
  RowBox[{
@@ -1011,7 +1011,7 @@ Cell[BoxData[
    3.836336114229784*^9}, {3.836336188817478*^9, 3.836336232187769*^9}, {
    3.836336269426408*^9, 3.836336326435491*^9}, 3.836336424520152*^9},
  CellLabel->
-  "In[297]:=",ExpressionUUID->"2ffd6cba-1ba3-4c73-8457-ef7fc5958282"],
+  "In[150]:=",ExpressionUUID->"2ffd6cba-1ba3-4c73-8457-ef7fc5958282"],
 
 Cell[BoxData[
  RowBox[{
@@ -1125,7 +1125,7 @@ Cell[BoxData[
    3.834671642730775*^9}, {3.834671988628789*^9, 3.834671991147118*^9}, {
    3.83467255246567*^9, 3.8346725653260603`*^9}},
  CellLabel->
-  "In[298]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
+  "In[151]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
 
 Cell[CellGroupData[{
 
@@ -1135,7 +1135,7 @@ Cell[BoxData[
   3.83397931096562*^9, 3.833979311902438*^9}, {3.833982525256192*^9, 
   3.833982529177711*^9}, {3.833982918567665*^9, 3.8339829240001698`*^9}},
  CellLabel->
-  "In[299]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
+  "In[152]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
 
 Cell[BoxData["16384"], "Output",
  CellChangeTimes->{
@@ -1177,9 +1177,10 @@ Cell[BoxData["16384"], "Output",
    3.834672606536978*^9, 3.834672633714957*^9}, 3.834688011488668*^9, 
    3.834741745404797*^9, 3.834840168954259*^9, 3.835099016743781*^9, 
    3.8351796489040537`*^9, 3.836781531078821*^9, 3.836826948477407*^9, 
-   3.836830434949655*^9, 3.8368306081895647`*^9},
+   3.836830434949655*^9, 3.8368306081895647`*^9, {3.8370185096902657`*^9, 
+   3.837018542471815*^9}},
  CellLabel->
-  "Out[299]=",ExpressionUUID->"6c62ce82-041b-4fae-9a4b-c88d2a54cb6e"]
+  "Out[152]=",ExpressionUUID->"51303114-6abc-4c6a-bd92-42f2860e36fa"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -1250,7 +1251,7 @@ Cell[BoxData[
   3.8345760352900133`*^9, 3.834576035855191*^9}, {3.834594490350781*^9, 
   3.834594498152722*^9}},
  CellLabel->
-  "In[300]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
+  "In[153]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
 
 Cell[BoxData[{
  RowBox[{
@@ -1342,7 +1343,7 @@ Cell[BoxData[{
   3.8347582118524027`*^9, 3.834758212224677*^9}, {3.834758276954211*^9, 
   3.834758277276855*^9}, {3.834758321078662*^9, 3.834758332831156*^9}},
  CellLabel->
-  "In[301]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
+  "In[154]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
 
 Cell[BoxData[
  RowBox[{
@@ -1379,7 +1380,7 @@ Cell[BoxData[
   3.8339800331837673`*^9, 3.833980033963599*^9}, {3.833981434488759*^9, 
   3.8339814414612226`*^9}, {3.833981948527481*^9, 3.8339819534472733`*^9}},
  CellLabel->
-  "In[303]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
+  "In[156]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
 
 Cell[BoxData[
  RowBox[{
@@ -1405,7 +1406,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.8346584900042677`*^9, 3.834658495237359*^9}, {
   3.834752246211548*^9, 3.834752276988707*^9}},
  CellLabel->
-  "In[304]:=",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"],
+  "In[157]:=",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"],
 
 Cell[BoxData[{
  RowBox[{
@@ -1468,7 +1469,7 @@ Cell[BoxData[{
     }]}], ";"}]}], "Input",
  CellChangeTimes->{{3.8367815709437532`*^9, 3.836781616938365*^9}},
  CellLabel->
-  "In[305]:=",ExpressionUUID->"897b1d52-af46-4e1c-8207-c0acc9e2c1f3"],
+  "In[158]:=",ExpressionUUID->"897b1d52-af46-4e1c-8207-c0acc9e2c1f3"],
 
 Cell[BoxData[
  RowBox[{
@@ -1541,7 +1542,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.834755880160933*^9, 3.834755881259757*^9}, 
    3.834785693874516*^9},
  CellLabel->
-  "In[307]:=",ExpressionUUID->"a88926ed-6f50-457b-9480-401929196ff8"],
+  "In[160]:=",ExpressionUUID->"a88926ed-6f50-457b-9480-401929196ff8"],
 
 Cell[BoxData[
  RowBox[{
@@ -1604,7 +1605,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.834742774681567*^9, 3.8347428287244883`*^9}, {
   3.834743896750102*^9, 3.8347439689703417`*^9}},
  CellLabel->
-  "In[308]:=",ExpressionUUID->"ac2fc7fb-1a08-4495-8c53-210ad6f3664b"],
+  "In[161]:=",ExpressionUUID->"ac2fc7fb-1a08-4495-8c53-210ad6f3664b"],
 
 Cell[BoxData[
  RowBox[{
@@ -1914,7 +1915,7 @@ Cell[BoxData[
   ";"}]], "Input",
  CellChangeTimes->{{3.834743429368106*^9, 3.8347434388724737`*^9}},
  CellLabel->
-  "In[309]:=",ExpressionUUID->"609d9edf-fd45-4e4e-aae5-f4d3cc6359f5"],
+  "In[162]:=",ExpressionUUID->"609d9edf-fd45-4e4e-aae5-f4d3cc6359f5"],
 
 Cell[BoxData[
  RowBox[{
@@ -2068,7 +2069,7 @@ Cell[BoxData[
    3.834750116070956*^9, {3.8347502692524233`*^9, 3.834750279540098*^9}, {
    3.8347503806900682`*^9, 3.834750484892733*^9}},
  CellLabel->
-  "In[310]:=",ExpressionUUID->"294e535d-e3a7-4a1d-8c24-303f127653b2"],
+  "In[163]:=",ExpressionUUID->"294e535d-e3a7-4a1d-8c24-303f127653b2"],
 
 Cell[BoxData[
  RowBox[{
@@ -2345,7 +2346,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.834755068584971*^9, 3.8347550726738453`*^9}, 
    3.8347857193270597`*^9},
  CellLabel->
-  "In[311]:=",ExpressionUUID->"45d67d9a-02e6-48ac-8e3a-435a001307e6"],
+  "In[164]:=",ExpressionUUID->"45d67d9a-02e6-48ac-8e3a-435a001307e6"],
 
 Cell[BoxData[
  RowBox[{
@@ -2549,7 +2550,7 @@ Cell[BoxData[
     }]}], ";"}]], "Input",
  CellChangeTimes->{{3.834755613463056*^9, 3.834755830758485*^9}},
  CellLabel->
-  "In[312]:=",ExpressionUUID->"65e20246-7792-4c97-b2ee-553e60d6428e"],
+  "In[165]:=",ExpressionUUID->"65e20246-7792-4c97-b2ee-553e60d6428e"],
 
 Cell[BoxData[
  RowBox[{
@@ -3615,7 +3616,7 @@ Cell[BoxData[
   ";"}]], "Input",
  CellChangeTimes->{{3.8351052258837433`*^9, 3.83510523223288*^9}},
  CellLabel->
-  "In[313]:=",ExpressionUUID->"1c98ab0f-7be0-4b82-83f8-0a1739369b4d"],
+  "In[166]:=",ExpressionUUID->"1c98ab0f-7be0-4b82-83f8-0a1739369b4d"],
 
 Cell[BoxData[
  RowBox[{
@@ -7284,7 +7285,7 @@ Cell[BoxData[
        RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}]}], "}"}]}], ";"}]], "Input",
  CellChangeTimes->{{3.835099208339944*^9, 3.835099213546089*^9}},
  CellLabel->
-  "In[314]:=",ExpressionUUID->"239a4292-049d-4293-9674-7e78c28ca011"],
+  "In[167]:=",ExpressionUUID->"239a4292-049d-4293-9674-7e78c28ca011"],
 
 Cell[BoxData[
  RowBox[{
@@ -7342,7 +7343,7 @@ Cell[BoxData[
    3.835179904759911*^9, {3.8351799445200777`*^9, 3.835179974915256*^9}, 
    3.83518031842799*^9},
  CellLabel->
-  "In[315]:=",ExpressionUUID->"b6c05a3c-d9ef-41f8-9987-9bf57f74096c"],
+  "In[168]:=",ExpressionUUID->"b6c05a3c-d9ef-41f8-9987-9bf57f74096c"],
 
 Cell[BoxData[
  RowBox[{
@@ -8672,7 +8673,7 @@ Cell[BoxData[
     "}"}]}], ";"}]], "Input",
  CellChangeTimes->{{3.836826245042097*^9, 3.83682624774428*^9}},
  CellLabel->
-  "In[316]:=",ExpressionUUID->"851b8d35-e5c6-40f2-826f-018f704c8a73"],
+  "In[169]:=",ExpressionUUID->"851b8d35-e5c6-40f2-826f-018f704c8a73"],
 
 Cell[BoxData[
  RowBox[{
@@ -8682,7 +8683,7 @@ Cell[BoxData[
   3.8368304325805902`*^9, 3.8368304328370247`*^9}, {3.836830605294839*^9, 
   3.836830605767033*^9}},
  CellLabel->
-  "In[317]:=",ExpressionUUID->"c9c3f8c5-57c2-442b-83c1-93d4627643e0"],
+  "In[170]:=",ExpressionUUID->"c9c3f8c5-57c2-442b-83c1-93d4627643e0"],
 
 Cell[CellGroupData[{
 
@@ -8692,7 +8693,7 @@ Cell[BoxData[
    3.8368263211194973`*^9, 3.836826322965259*^9}, {3.8368268814461517`*^9, 
    3.836826884806394*^9}, 3.8368269267893*^9},
  CellLabel->
-  "In[318]:=",ExpressionUUID->"4d7d714e-f2ed-41ab-a3c1-9f7a73b68b46"],
+  "In[171]:=",ExpressionUUID->"4d7d714e-f2ed-41ab-a3c1-9f7a73b68b46"],
 
 Cell[BoxData[
  GraphicsBox[
@@ -8764,11 +8765,12 @@ Q+ej+w+dj+4/dD66+wDq4egq
    "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
   FormatType->TraditionalForm,
   FrameTicks->None]], "Output",
- CellChangeTimes->{3.836826272272113*^9, 3.8368263233403797`*^9, 
-  3.836826885323566*^9, 3.836826948691183*^9, 3.836830435182472*^9, 
-  3.836830608429411*^9},
+ CellChangeTimes->{
+  3.836826272272113*^9, 3.8368263233403797`*^9, 3.836826885323566*^9, 
+   3.836826948691183*^9, 3.836830435182472*^9, 3.836830608429411*^9, {
+   3.837018510019552*^9, 3.8370185426913233`*^9}},
  CellLabel->
-  "Out[318]=",ExpressionUUID->"4f1d9765-f0d8-425e-b16b-a040781ba630"]
+  "Out[171]=",ExpressionUUID->"e7b83790-eb5f-407b-87e9-8dd099d127f4"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -8792,7 +8794,7 @@ Cell[BoxData[{
    3.836826890490547*^9, 3.836826898050591*^9}, 3.83682693124685*^9, {
    3.836830452142412*^9, 3.836830555345973*^9}},
  CellLabel->
-  "In[319]:=",ExpressionUUID->"64697f86-4592-4a50-b42f-8039aaa8a819"],
+  "In[172]:=",ExpressionUUID->"64697f86-4592-4a50-b42f-8039aaa8a819"],
 
 Cell[BoxData[
  GraphicsBox[{
@@ -8812,9 +8814,9 @@ Cell[BoxData[
    3.8367837254414263`*^9, {3.836826253646843*^9, 3.836826267781098*^9}, {
    3.836826336748612*^9, 3.836826340752605*^9}, 3.836826898801487*^9, 
    3.836826948722608*^9, {3.836830435225082*^9, 3.836830555839816*^9}, 
-   3.8368306084814796`*^9},
+   3.8368306084814796`*^9, {3.837018510066226*^9, 3.837018542729048*^9}},
  CellLabel->
-  "Out[320]=",ExpressionUUID->"a2b2c706-9882-45de-b864-bc0e8d00581d"]
+  "Out[173]=",ExpressionUUID->"0847b3ba-2ae0-44b2-98ba-c62dcedb0d69"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -8822,7 +8824,7 @@ Cell[CellGroupData[{
 Cell[BoxData["root"], "Input",
  CellChangeTimes->{{3.8367825880947943`*^9, 3.8367825884417067`*^9}},
  CellLabel->
-  "In[321]:=",ExpressionUUID->"a12d9058-1edd-4fb6-b435-8ceb29d8c529"],
+  "In[174]:=",ExpressionUUID->"a12d9058-1edd-4fb6-b435-8ceb29d8c529"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -8860,11 +8862,12 @@ Cell[BoxData[
     RowBox[{"272.0014161072047`", ",", "185.73686105254276`", ",", 
      RowBox[{"-", "150.94939780797398`"}], ",", "166.54119169445354`"}], 
     "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.836782588796229*^9, 3.836783334865951*^9, 
-  3.836783729134719*^9, 3.836826352489934*^9, 3.836826948746271*^9, 
-  3.8368304352401133`*^9, 3.836830608501217*^9},
+ CellChangeTimes->{
+  3.836782588796229*^9, 3.836783334865951*^9, 3.836783729134719*^9, 
+   3.836826352489934*^9, 3.836826948746271*^9, 3.8368304352401133`*^9, 
+   3.836830608501217*^9, {3.837018510077012*^9, 3.8370185427522993`*^9}},
  CellLabel->
-  "Out[321]=",ExpressionUUID->"bdb651b7-cffa-4222-a74c-b00d819a4303"]
+  "Out[174]=",ExpressionUUID->"39951880-1df1-44e5-8f96-8b5e660bc31b"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -8879,7 +8882,7 @@ Cell[BoxData[
    3.836782616394808*^9}, {3.836783355652117*^9, 3.836783356341704*^9}, {
    3.836826397513062*^9, 3.836826429599427*^9}, 3.836826935990299*^9},
  CellLabel->
-  "In[322]:=",ExpressionUUID->"6c14882f-a3a6-490a-822b-b77dc0b9345c"],
+  "In[175]:=",ExpressionUUID->"6c14882f-a3a6-490a-822b-b77dc0b9345c"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -8896,33 +8899,34 @@ Cell[BoxData[
        "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "6.493959207434934`", ",", "5.048917339522307`", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "0.35689586789220945`"}], ",", "0", ",", "0", ",", 
-       "2.801937735804839`"}], "}"}], ",", 
+      "6.493959207434932`", ",", "4.692021471630094`", ",", "0", ",", "0", 
+       ",", "0", ",", 
+       RowBox[{"-", "0.4450418679126285`"}], ",", "0", ",", 
+       "3.2469796037174663`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "14.591793886479545`", ",", "9.097834679044611`", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "0.8019377358048382`"}], ",", "0", ",", "0", ",", 
-       "7.2958969432397724`"}], "}"}], ",", 
+      "14.59179388647954`", ",", "8.295896943239768`", ",", "0", ",", "0", 
+       ",", "0", ",", 
+       RowBox[{"-", "0.9999999999999994`"}], ",", "0", ",", 
+       "8.295896943239772`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "18.195669358089223`", ",", "10.097834679044613`", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "1.`"}], ",", "0", ",", "0", ",", "10.097834679044613`"}],
-       "}"}], ",", 
+      "18.195669358089223`", ",", "9.09783467904461`", ",", "0", ",", "0", 
+       ",", "0", ",", 
+       RowBox[{"-", "1.2469796037174667`"}], ",", "0", ",", 
+       "11.344814282762078`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "14.591793886479547`", ",", "7.295896943239775`", ",", "0", ",", "0", 
-       ",", 
-       RowBox[{"-", "0.8019377358048383`"}], ",", "0", ",", "0", ",", 
-       "9.097834679044613`"}], "}"}], ",", 
+      "14.591793886479548`", ",", "6.493959207434934`", ",", "0", ",", "0", 
+       ",", "0", ",", 
+       RowBox[{"-", "1.`"}], ",", "0", ",", "10.097834679044613`"}], "}"}], 
+     ",", 
      RowBox[{"{", 
       RowBox[{
-      "6.493959207434934`", ",", "2.80193773580484`", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "0.35689586789220945`"}], ",", "0", ",", "0", ",", 
-       "5.048917339522306`"}], "}"}], ",", 
+      "6.4939592074349335`", ",", "2.4450418679126282`", ",", "0", ",", "0", 
+       ",", "0", ",", 
+       RowBox[{"-", "0.4450418679126287`"}], ",", "0", ",", 
+       "5.4939592074349335`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
@@ -8943,29 +8947,34 @@ Cell[BoxData[
        "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "6.493959207434933`", ",", "3.246979603717467`", ",", 
-       "4.692021471630094`", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "0.4450418679126286`"}], ",", "0"}], "}"}], ",", 
+      "6.4939592074349335`", ",", "1.9999999999999998`", ",", 
+       "6.4939592074349335`", ",", 
+       RowBox[{"-", "1.`"}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
+     ",", 
      RowBox[{"{", 
       RowBox[{
-      "14.591793886479541`", ",", "8.295896943239773`", ",", 
-       "8.295896943239768`", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "0.9999999999999997`"}], ",", "0"}], "}"}], ",", 
+      "14.591793886479545`", ",", "5.4939592074349335`", ",", 
+       "12.344814282762076`", ",", 
+       RowBox[{"-", "2.246979603717467`"}], ",", "0", ",", "0", ",", "0", ",",
+        "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "18.195669358089223`", ",", "11.34481428276208`", ",", 
-       "9.09783467904461`", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1.246979603717467`"}], ",", "0"}], "}"}], ",", 
+      "18.19566935808922`", ",", "7.850855075327141`", ",", 
+       "14.146752018566914`", ",", 
+       RowBox[{"-", "2.801937735804838`"}], ",", "0", ",", "0", ",", "0", ",",
+        "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "14.591793886479547`", ",", "10.097834679044613`", ",", 
-       "6.4939592074349335`", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1.`"}], ",", "0"}], "}"}], ",", 
+      "14.591793886479538`", ",", "7.295896943239768`", ",", 
+       "10.542876546957235`", ",", 
+       RowBox[{"-", "2.2469796037174663`"}], ",", "0", ",", "0", ",", "0", 
+       ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "6.4939592074349335`", ",", "5.493959207434934`", ",", 
-       "2.445041867912628`", ",", "0", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "0.44504186791262873`"}], ",", "0"}], "}"}]}], "}"}], ",", 
+      "6.493959207434931`", ",", "4.246979603717465`", ",", 
+       "4.246979603717465`", ",", 
+       RowBox[{"-", "0.9999999999999996`"}], ",", "0", ",", "0", ",", "0", 
+       ",", "0"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
@@ -8973,10 +8982,10 @@ Cell[BoxData[
       "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"6.4939592074349335`", ",", 
-       RowBox[{"-", "1.`"}], ",", "6.4939592074349335`", ",", 
-       "1.9999999999999998`", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}],
-      ",", 
+      RowBox[{
+      "6.493959207434934`", ",", "0", ",", "5.048917339522307`", ",", 
+       "2.801937735804839`", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "0.35689586789220945`"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
@@ -8986,25 +8995,26 @@ Cell[BoxData[
       "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", "0", ",", 
        "0"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"6.493959207434932`", ",", 
-       RowBox[{"-", "0.9999999999999998`"}], ",", "4.246979603717466`", ",", 
-       "4.246979603717466`", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
+      RowBox[{
+      "6.493959207434934`", ",", "0", ",", "2.80193773580484`", ",", 
+       "5.048917339522306`", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "0.35689586789220945`"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"14.591793886479541`", ",", 
-       RowBox[{"-", "2.2469796037174667`"}], ",", "10.542876546957238`", ",", 
-       "7.29589694323977`", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
+      RowBox[{
+      "14.591793886479547`", ",", "0", ",", "7.295896943239775`", ",", 
+       "9.097834679044613`", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "0.8019377358048383`"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"18.19566935808922`", ",", 
-       RowBox[{"-", "2.801937735804838`"}], ",", "14.146752018566914`", ",", 
-       "7.850855075327141`", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
-     ",", 
+      RowBox[{
+      "18.195669358089223`", ",", "0", ",", "10.097834679044613`", ",", 
+       "10.097834679044613`", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1.`"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"14.591793886479547`", ",", 
-       RowBox[{"-", "2.2469796037174676`"}], ",", "12.34481428276208`", ",", 
-       "5.493959207434934`", ",", "0", ",", "0", ",", "0", ",", "0"}], 
-      "}"}]}], "}"}], ",", 
+      RowBox[{
+      "14.591793886479545`", ",", "0", ",", "9.097834679044611`", ",", 
+       "7.2958969432397724`", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "0.8019377358048382`"}], ",", "0"}], "}"}]}], "}"}], ",", 
+   
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
@@ -9013,14 +9023,14 @@ Cell[BoxData[
        "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "14.59179388647954`", ",", "0", ",", "0", ",", "8.295896943239768`", 
-       ",", "8.295896943239772`", ",", "0", ",", 
-       RowBox[{"-", "0.9999999999999994`"}], ",", "0"}], "}"}], ",", 
+      "14.591793886479545`", ",", "0", ",", "0", ",", "9.097834679044611`", 
+       ",", "7.2958969432397724`", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "0.8019377358048382`"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "6.493959207434932`", ",", "0", ",", "0", ",", "4.692021471630094`", 
-       ",", "3.2469796037174663`", ",", "0", ",", 
-       RowBox[{"-", "0.4450418679126285`"}], ",", "0"}], "}"}], ",", 
+      "6.493959207434934`", ",", "0", ",", "0", ",", "5.048917339522307`", 
+       ",", "2.801937735804839`", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "0.35689586789220945`"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", "0", ",", 
@@ -9031,20 +9041,19 @@ Cell[BoxData[
        "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "6.4939592074349335`", ",", "0", ",", "0", ",", "2.4450418679126282`", 
-       ",", "5.4939592074349335`", ",", "0", ",", 
-       RowBox[{"-", "0.4450418679126287`"}], ",", "0"}], "}"}], ",", 
+      "6.493959207434934`", ",", "0", ",", "0", ",", "2.80193773580484`", ",",
+        "5.048917339522306`", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "0.35689586789220945`"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "14.591793886479548`", ",", "0", ",", "0", ",", "6.493959207434934`", 
-       ",", "10.097834679044613`", ",", "0", ",", 
-       RowBox[{"-", "1.`"}], ",", "0"}], "}"}], ",", 
+      "14.591793886479547`", ",", "0", ",", "0", ",", "7.295896943239775`", 
+       ",", "9.097834679044613`", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "0.8019377358048383`"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "18.195669358089223`", ",", "0", ",", "0", ",", "9.09783467904461`", 
-       ",", "11.344814282762078`", ",", "0", ",", 
-       RowBox[{"-", "1.2469796037174667`"}], ",", "0"}], "}"}]}], "}"}], ",", 
-   
+      "18.195669358089223`", ",", "0", ",", "0", ",", "10.097834679044613`", 
+       ",", "10.097834679044613`", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
@@ -9053,19 +9062,19 @@ Cell[BoxData[
        "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "18.195669358089223`", ",", "0", ",", "0", ",", "0", ",", 
-       "9.09783467904461`", ",", "11.344814282762078`", ",", "0", ",", 
-       RowBox[{"-", "1.2469796037174667`"}]}], "}"}], ",", 
+      "18.195669358089205`", ",", "0", ",", "0", ",", "0", ",", 
+       "7.850855075327136`", ",", "14.146752018566904`", ",", 
+       RowBox[{"-", "2.801937735804836`"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "14.59179388647954`", ",", "0", ",", "0", ",", "0", ",", 
-       "8.295896943239768`", ",", "8.295896943239772`", ",", "0", ",", 
-       RowBox[{"-", "0.9999999999999994`"}]}], "}"}], ",", 
+      "14.591793886479532`", ",", "0", ",", "0", ",", "0", ",", 
+       "7.295896943239766`", ",", "10.54287654695723`", ",", 
+       RowBox[{"-", "2.2469796037174654`"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "6.493959207434932`", ",", "0", ",", "0", ",", "0", ",", 
-       "4.692021471630094`", ",", "3.2469796037174663`", ",", "0", ",", 
-       RowBox[{"-", "0.4450418679126285`"}]}], "}"}], ",", 
+       "4.246979603717466`", ",", "4.246979603717465`", ",", 
+       RowBox[{"-", "0.9999999999999997`"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", 
@@ -9077,13 +9086,13 @@ Cell[BoxData[
      RowBox[{"{", 
       RowBox[{
       "6.4939592074349335`", ",", "0", ",", "0", ",", "0", ",", 
-       "2.4450418679126282`", ",", "5.4939592074349335`", ",", "0", ",", 
-       RowBox[{"-", "0.4450418679126287`"}]}], "}"}], ",", 
+       "1.9999999999999998`", ",", "6.4939592074349335`", ",", 
+       RowBox[{"-", "1.`"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "14.591793886479548`", ",", "0", ",", "0", ",", "0", ",", 
-       "6.493959207434934`", ",", "10.097834679044613`", ",", "0", ",", 
-       RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", 
+      "14.591793886479536`", ",", "0", ",", "0", ",", "0", ",", 
+       "5.49395920743493`", ",", "12.344814282762071`", ",", 
+       RowBox[{"-", "2.246979603717466`"}], ",", "0"}], "}"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
@@ -9128,25 +9137,25 @@ Cell[BoxData[
       "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"6.493959207434934`", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "0.35689586789220945`"}], ",", "0", ",", "0", ",", 
-       "2.80193773580484`", ",", "5.048917339522306`"}], "}"}], ",", 
+      RowBox[{"6.4939592074349335`", ",", "0", ",", 
+       RowBox[{"-", "0.4450418679126287`"}], ",", "0", ",", "0", ",", "0", 
+       ",", "2.4450418679126282`", ",", "5.4939592074349335`"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"14.591793886479547`", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "0.8019377358048383`"}], ",", "0", ",", "0", ",", 
-       "7.295896943239775`", ",", "9.097834679044613`"}], "}"}], ",", 
+      RowBox[{"14.591793886479548`", ",", "0", ",", 
+       RowBox[{"-", "1.`"}], ",", "0", ",", "0", ",", "0", ",", 
+       "6.493959207434934`", ",", "10.097834679044613`"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"18.195669358089223`", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "1.`"}], ",", "0", ",", "0", ",", "10.097834679044613`", 
-       ",", "10.097834679044613`"}], "}"}], ",", 
+      RowBox[{"18.195669358089223`", ",", "0", ",", 
+       RowBox[{"-", "1.2469796037174667`"}], ",", "0", ",", "0", ",", "0", 
+       ",", "9.09783467904461`", ",", "11.344814282762078`"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"14.591793886479545`", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "0.8019377358048382`"}], ",", "0", ",", "0", ",", 
-       "9.097834679044611`", ",", "7.2958969432397724`"}], "}"}], ",", 
+      RowBox[{"14.59179388647954`", ",", "0", ",", 
+       RowBox[{"-", "0.9999999999999994`"}], ",", "0", ",", "0", ",", "0", 
+       ",", "8.295896943239768`", ",", "8.295896943239772`"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"6.493959207434934`", ",", "0", ",", "0", ",", 
-       RowBox[{"-", "0.35689586789220945`"}], ",", "0", ",", "0", ",", 
-       "5.048917339522307`", ",", "2.801937735804839`"}], "}"}], ",", 
+      RowBox[{"6.493959207434932`", ",", "0", ",", 
+       RowBox[{"-", "0.4450418679126285`"}], ",", "0", ",", "0", ",", "0", 
+       ",", "4.692021471630094`", ",", "3.2469796037174663`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1.`", ",", 
@@ -9159,43 +9168,45 @@ Cell[BoxData[
     RowBox[{
      RowBox[{"{", 
       RowBox[{
-       RowBox[{"-", "1.`"}], ",", "0.27412667908544935`", ",", "0", ",", 
-       RowBox[{"-", "0.1521288297805754`"}], ",", "0.3418303776543589`", ",", 
-       "0", ",", "0", ",", "0"}], "}"}], ",", 
+       RowBox[{"-", "1.`"}], ",", "0.34183037765435903`", ",", 
+       RowBox[{"-", "0.15212882978057546`"}], ",", "0", ",", 
+       "0.2741266790854493`", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0"}], "}"}], ",", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "0.4450418679126286`", ",", "0", ",", "1.`", ",", 
-       RowBox[{"-", "0.4450418679126288`"}], ",", "0", ",", "0", ",", "0"}], 
-      "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
-      "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", "0", ",", 
+      "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
        "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", 
+       RowBox[{"-", "0.4450418679126286`"}], ",", "1.`", ",", "0", ",", 
+       "0.4450418679126288`", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
       "0", ",", "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", 
        "0"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"0", ",", "0.44504186791262873`", ",", "0", ",", 
-       RowBox[{"-", "1.2469796037174679`"}], ",", "1.8019377358048385`", ",", 
-       "0", ",", "0", ",", "0"}], "}"}], ",", 
+      RowBox[{"0", ",", "0.9999999999999991`", ",", 
+       RowBox[{"-", "1.2469796037174663`"}], ",", "0", ",", 
+       "1.246979603717467`", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"0", ",", "0.9999999999999998`", ",", "0", ",", 
-       RowBox[{"-", "1.8019377358048387`"}], ",", "1.8019377358048385`", ",", 
-       "0", ",", "0", ",", "0"}], "}"}], ",", 
+      RowBox[{"0", ",", "1.8019377358048367`", ",", 
+       RowBox[{"-", "1.8019377358048367`"}], ",", "0", ",", 
+       "0.9999999999999993`", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
-      RowBox[{"0", ",", "1.246979603717467`", ",", "0", ",", 
-       RowBox[{"-", "1.246979603717467`"}], ",", "1.`", ",", "0", ",", "0", 
-       ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output",
+      RowBox[{"0", ",", "1.8019377358048374`", ",", 
+       RowBox[{"-", "1.246979603717466`"}], ",", "0", ",", 
+       "0.44504186791262845`", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
+    "}"}]}], "}"}]], "Output",
  CellChangeTimes->{
   3.836781719653142*^9, 3.8367822307404757`*^9, 3.836782616818862*^9, 
    3.8367833567887573`*^9, {3.83682640660728*^9, 3.836826430092823*^9}, 
-   3.836826948825577*^9, 3.8368304353276787`*^9, 3.8368306086119747`*^9},
+   3.836826948825577*^9, 3.8368304353276787`*^9, 3.8368306086119747`*^9, {
+   3.837018510291731*^9, 3.837018542863357*^9}},
  CellLabel->
-  "Out[322]=",ExpressionUUID->"c86a0780-5644-4600-aefc-d58c2c6c5aea"]
+  "Out[175]=",ExpressionUUID->"7e54e0f2-d625-4043-b809-52bdaa7ba288"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9203,106 +9214,408 @@ Cell[CellGroupData[{
 Cell[BoxData[
  RowBox[{
   RowBox[{"FindFace", "[", 
-   RowBox[{"graphFromG", "[", "g", "]"}], "]"}], "-", "1"}]], "Input",
+   RowBox[{"graphFromG", "[", "cube", "]"}], "]"}], "-", "1"}]], "Input",
  CellChangeTimes->{{3.8367826359217863`*^9, 3.836782643868738*^9}, {
    3.836783384674279*^9, 3.8367833852202873`*^9}, {3.8368263719646263`*^9, 
-   3.8368263747397413`*^9}, 3.8368269449100313`*^9},
+   3.8368263747397413`*^9}, 3.8368269449100313`*^9, {3.8370186297313433`*^9, 
+   3.837018630432625*^9}},
  CellLabel->
-  "In[324]:=",ExpressionUUID->"ddd3a665-d541-435d-a556-e983f9a2a721"],
+  "In[192]:=",ExpressionUUID->"ddd3a665-d541-435d-a556-e983f9a2a721"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
-    RowBox[{"0", ",", "1", ",", "7"}], "}"}], ",", 
+    RowBox[{"0", ",", "1", ",", "5", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
+    RowBox[{"0", ",", "3", ",", "2", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"0", ",", "3", ",", "2"}], "}"}], ",", 
+    RowBox[{"0", ",", "4", ",", "7", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", 
+    RowBox[{"1", ",", "2", ",", "6", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"0", ",", "5", ",", "4"}], "}"}], ",", 
+    RowBox[{"2", ",", "3", ",", "7", ",", "6"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"0", ",", "6", ",", "5"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"0", ",", "7", ",", "6"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}],
-     "}"}]}], "}"}]], "Output",
- CellChangeTimes->{3.836782644415073*^9, 3.8367833855795393`*^9, 
-  3.836826375067278*^9, 3.836826948840948*^9, 3.836830435352667*^9, 
-  3.8368306086321363`*^9, 3.836830914208542*^9},
+    RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{
+  3.836782644415073*^9, 3.8367833855795393`*^9, 3.836826375067278*^9, 
+   3.836826948840948*^9, 3.836830435352667*^9, 3.8368306086321363`*^9, 
+   3.836830914208542*^9, {3.8370185103106823`*^9, 3.837018542920718*^9}, 
+   3.837018630776206*^9},
  CellLabel->
-  "Out[324]=",ExpressionUUID->"b9d2e402-8335-42a0-9516-b1e5878a7b30"]
+  "Out[192]=",ExpressionUUID->"83e95db0-88f3-4919-930a-50dfa7c1d570"]
 }, Open  ]],
 
 Cell[CellGroupData[{
 
-Cell[BoxData[
- RowBox[{"root", "=", 
-  RowBox[{"rootTupleFromG", "[", 
-   RowBox[{"octahedron", ",", 
-    RowBox[{"\"\<Exact\>\"", "->", "True"}], ",", 
-    RowBox[{"\"\<Invert\>\"", "->", "5"}]}], "]"}]}]], "Input",
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"root", "=", 
+   RowBox[{"rootTupleFromG", "[", 
+    RowBox[{"cube", ",", 
+     RowBox[{"\"\<Exact\>\"", "->", "True"}], ",", 
+     RowBox[{"\"\<Invert\>\"", "->", "7"}]}], "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"Print", "[", 
+   RowBox[{"Show", "[", 
+    RowBox[{"graphAbbc", "[", "root", "]"}], "]"}], "]"}], 
+  ";"}], "\[IndentingNewLine]", "root"}], "Input",
  CellChangeTimes->{{3.836860637004139*^9, 3.836860663919491*^9}, {
   3.836860765623703*^9, 3.836860766133486*^9}, {3.8368613771052217`*^9, 
-  3.836861378016529*^9}, {3.836862527871093*^9, 3.836862533197001*^9}},
+  3.836861378016529*^9}, {3.836862527871093*^9, 3.836862533197001*^9}, {
+  3.8370185224891043`*^9, 3.837018526115962*^9}, {3.8370185575020027`*^9, 
+  3.837018577404889*^9}},
  CellLabel->
-  "In[362]:=",ExpressionUUID->"74f40533-5cef-42bc-84d6-0432307eb122"],
+  "In[188]:=",ExpressionUUID->"74f40533-5cef-42bc-84d6-0432307eb122"],
+
+Cell[BoxData[
+ GraphicsBox[{
+   CircleBox[
+    NCache[{Rational[-1, 2] 2^Rational[-1, 2], Rational[
+      31, 80]}, {-0.35355339059327373`, 0.3875}], NCache[
+    Rational[1, 80], 0.0125]], 
+   CircleBox[
+    NCache[{Rational[-1, 2] 2^Rational[-1, 2], Rational[
+      17, 48]}, {-0.35355339059327373`, 0.3541666666666667}], NCache[
+    Rational[1, 48], 0.020833333333333332`]], 
+   CircleBox[
+    NCache[{Rational[-1, 5] 2^Rational[1, 2], Rational[
+      7, 20]}, {-0.28284271247461906`, 0.35}], NCache[Rational[1, 20], 0.05]],
+    CircleBox[
+    NCache[{Rational[-3, 13] 2^Rational[1, 2], Rational[
+      21, 52]}, {-0.32635697593225277`, 0.40384615384615385`}], NCache[
+    Rational[1, 52], 0.019230769230769232`]], 
+   CircleBox[
+    NCache[{Rational[-7, 13] 2^Rational[-1, 2], Rational[
+      21, 52]}, {-0.38074980525429475`, 0.40384615384615385`}], NCache[
+    Rational[1, 52], 0.019230769230769232`]], 
+   CircleBox[
+    NCache[{Rational[-3, 5] 2^Rational[-1, 2], Rational[
+      7, 20]}, {-0.42426406871192845`, 0.35}], NCache[Rational[1, 20], 0.05]],
+    CircleBox[
+    NCache[{Rational[-1, 2] 2^Rational[-1, 2], Rational[
+      3, 8]}, {-0.35355339059327373`, 0.375}], NCache[Rational[1, 8], 0.125]],
+    CircleBox[
+    NCache[{Rational[-1, 2] 2^Rational[-1, 2], Rational[
+      11, 24]}, {-0.35355339059327373`, 0.4583333333333333}], NCache[
+    Rational[1, 24], 0.041666666666666664`]]}]], "Print",
+ CellChangeTimes->{{3.837018573687291*^9, 3.837018577934717*^9}},
+ CellLabel->
+  "During evaluation of \
+In[188]:=",ExpressionUUID->"8a7c759c-7d2b-4a25-8f30-8d46c35d809f"],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
-    RowBox[{"10", ",", "8", ",", 
+    RowBox[{"22", ",", "80", ",", 
      RowBox[{
-      RowBox[{"-", "4"}], " ", 
-      SqrtBox["2"]}], ",", "7"}], "}"}], ",", 
+      RowBox[{"-", "20"}], " ", 
+      SqrtBox["2"]}], ",", "31"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"24", ",", "24", ",", 
+    RowBox[{"12", ",", "48", ",", 
      RowBox[{
       RowBox[{"-", "12"}], " ", 
       SqrtBox["2"]}], ",", "17"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"8", ",", "10", ",", 
+    RowBox[{"4", ",", "20", ",", 
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       SqrtBox["2"]}], ",", "7"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"12", ",", "10", ",", 
+    RowBox[{"14", ",", "52", ",", 
+     RowBox[{
+      RowBox[{"-", "12"}], " ", 
+      SqrtBox["2"]}], ",", "21"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"16", ",", "52", ",", 
+     RowBox[{
+      RowBox[{"-", "14"}], " ", 
+      SqrtBox["2"]}], ",", "21"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6", ",", "20", ",", 
      RowBox[{
       RowBox[{"-", "6"}], " ", 
       SqrtBox["2"]}], ",", "7"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
-     RowBox[{"-", "4"}], ",", 
-     RowBox[{"-", "4"}], ",", 
+     RowBox[{"-", "2"}], ",", 
+     RowBox[{"-", "8"}], ",", 
      RowBox[{"2", " ", 
       SqrtBox["2"]}], ",", 
      RowBox[{"-", "3"}]}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"10", ",", "12", ",", 
+    RowBox[{"8", ",", "24", ",", 
      RowBox[{
       RowBox[{"-", "6"}], " ", 
-      SqrtBox["2"]}], ",", "7"}], "}"}]}], "}"}]], "Output",
+      SqrtBox["2"]}], ",", "11"}], "}"}]}], "}"}]], "Output",
  CellChangeTimes->{{3.836860643338293*^9, 3.8368606643365726`*^9}, 
    3.836860767752082*^9, 3.836861378401307*^9, 3.836862086260186*^9, 
-   3.836862533676415*^9},
+   3.836862533676415*^9, {3.837018510326604*^9, 3.837018542955021*^9}, {
+   3.837018573689486*^9, 3.83701857794104*^9}},
  CellLabel->
-  "Out[362]=",ExpressionUUID->"f8b57d34-54bf-4555-86d8-b1282d315336"]
+  "Out[190]=",ExpressionUUID->"b7c9128d-5236-4e93-aa10-dae791c3e916"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"root", "//", "N"}]], "Input",
+ CellChangeTimes->{{3.837018605506709*^9, 3.837018606427718*^9}},
+ CellLabel->
+  "In[191]:=",ExpressionUUID->"adbe170c-01cd-4c8c-8b26-64a98a5b6af3"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"22.`", ",", "80.`", ",", 
+     RowBox[{"-", "28.284271247461902`"}], ",", "31.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"12.`", ",", "48.`", ",", 
+     RowBox[{"-", "16.970562748477143`"}], ",", "17.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4.`", ",", "20.`", ",", 
+     RowBox[{"-", "5.656854249492381`"}], ",", "7.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"14.`", ",", "52.`", ",", 
+     RowBox[{"-", "16.970562748477143`"}], ",", "21.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"16.`", ",", "52.`", ",", 
+     RowBox[{"-", "19.79898987322333`"}], ",", "21.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6.`", ",", "20.`", ",", 
+     RowBox[{"-", "8.485281374238571`"}], ",", "7.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", "2.`"}], ",", 
+     RowBox[{"-", "8.`"}], ",", "2.8284271247461903`", ",", 
+     RowBox[{"-", "3.`"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.`", ",", "24.`", ",", 
+     RowBox[{"-", "8.485281374238571`"}], ",", "11.`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{3.837018606809472*^9},
+ CellLabel->
+  "Out[191]=",ExpressionUUID->"222348fc-829f-420a-a05d-52617a214339"]
 }, Open  ]],
 
 Cell[BoxData[
  RowBox[{
   RowBox[{"alg", "=", 
    RowBox[{"RootApproximant", "[", 
-    RowBox[{"findGeneratorsFromG", "[", "octahedron", "]"}], "]"}]}], 
+    RowBox[{"findGeneratorsFromG", "[", "cube", "]"}], "]"}]}], 
   ";"}]], "Input",
  CellChangeTimes->{{3.8368606754023857`*^9, 3.836860701506312*^9}, 
-   3.8368607477896767`*^9, {3.836861383320847*^9, 3.836861384341001*^9}},
+   3.8368607477896767`*^9, {3.836861383320847*^9, 3.836861384341001*^9}, 
+   3.837018536279613*^9},
  CellLabel->
-  "In[344]:=",ExpressionUUID->"6c3f7ffd-26f3-488f-886c-23454998ed6a"],
+  "In[178]:=",ExpressionUUID->"6c3f7ffd-26f3-488f-886c-23454998ed6a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["alg"], "Input",
+ CellChangeTimes->{{3.837018645737122*^9, 3.8370186520234833`*^9}},
+ CellLabel->
+  "In[194]:=",ExpressionUUID->"f2994baa-da4a-4e16-8ce5-73dfa6c93290"],
+
+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[{"2", ",", "1", ",", "0", ",", "0", ",", "0", ",", "3", ",", 
+       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"3", ",", "0", ",", "0", ",", "0", ",", "0", ",", "3", ",", 
+       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"1", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", 
+       ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "4", ",", 
+       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"3", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "4", ",", 
+       RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"1", ",", 
+       RowBox[{"-", "1"}], ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", 
+       ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"3", ",", "1", ",", "2", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"2", ",", "2", ",", "2", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"2", ",", "1", ",", "3", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"3", ",", "0", ",", "3", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+      "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"3", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"2", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"1", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "1"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"3", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       "1"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", "1"}], ",", "4", ",", "0", ",", "0", ",", "0", ",", "0", 
+       ",", "2", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", "1"}], ",", "4", ",", "0", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "3", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", "1"}], ",", "3", ",", "0", ",", "0", ",", "0", ",", "1", 
+       ",", "2", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"-", "1"}], ",", "3", ",", "0", ",", "0", ",", "0", ",", "0", 
+       ",", "3", ",", "0"}], "}"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "3", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "3", ",", "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "3", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "4", ",", 
+       RowBox[{"-", "1"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", 
+       RowBox[{"-", "1"}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{
+      "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
+       "0"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "2", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "3", ",", "1"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", "2", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "4", ",", "0"}], "}"}], ",", 
+     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", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "3", ",", 
+       RowBox[{"-", "1"}], ",", "4"}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "3", ",", "0", ",", "3"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "2", ",", "1", ",", "3"}], "}"}], 
+     ",", 
+     RowBox[{"{", 
+      RowBox[{"0", ",", "0", ",", "0", ",", 
+       RowBox[{"-", "1"}], ",", "0", ",", "2", ",", "0", ",", "4"}], "}"}], 
+     ",", 
+     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.837018646638774*^9, 3.837018653016807*^9}},
+ CellLabel->
+  "Out[194]=",ExpressionUUID->"86176ee1-3e35-47e5-a55e-a17c2731ad6e"]
+}, Open  ]],
 
 Cell[BoxData[
  RowBox[{
@@ -9319,7 +9632,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.836861396756734*^9, 3.836861407500039*^9}, {
   3.836861438320512*^9, 3.836861457101021*^9}},
  CellLabel->
-  "In[365]:=",ExpressionUUID->"770d5ee5-e393-4850-9a46-6c7de46cc618"],
+  "In[179]:=",ExpressionUUID->"770d5ee5-e393-4850-9a46-6c7de46cc618"],
 
 Cell[CellGroupData[{
 
@@ -9330,78 +9643,18 @@ Cell[BoxData[
     RowBox[{"-", "1"}], "]"}], "]"}]}]], "Input",
  CellChangeTimes->{{3.836862090498773*^9, 3.836862095367288*^9}},
  CellLabel->
-  "In[364]:=",ExpressionUUID->"68ee96ba-31f2-4143-bd53-307ccabc9cc0"],
+  "In[180]:=",ExpressionUUID->"68ee96ba-31f2-4143-bd53-307ccabc9cc0"],
 
 Cell[BoxData[
  RowBox[{"{", 
-  RowBox[{"10", ",", "12", ",", 
+  RowBox[{"8", ",", "16", ",", 
    RowBox[{
-    RowBox[{"-", "6"}], " ", 
-    SqrtBox["2"]}], ",", "7"}], "}"}]], "Output",
+    RowBox[{"-", "2"}], " ", 
+    SqrtBox["2"]}], ",", "11"}], "}"}]], "Output",
  CellChangeTimes->{{3.8368620932615356`*^9, 3.836862095786551*^9}, 
-   3.836862541271953*^9},
+   3.836862541271953*^9, {3.8370185107163963`*^9, 3.8370185432453823`*^9}},
  CellLabel->
-  "Out[364]=",ExpressionUUID->"24d18a5e-e2d9-4140-891a-36a86af77332"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"geom", "[", 
-   RowBox[{"[", "8", "]"}], "]"}], ".", "c"}]], "Input",
- CellChangeTimes->{{3.83686209786043*^9, 3.8368620999326487`*^9}, {
-  3.8368622925433702`*^9, 3.836862298574995*^9}, {3.83686236933497*^9, 
-  3.8368623773721943`*^9}, {3.8368625497135563`*^9, 3.8368625680463676`*^9}},
- CellLabel->
-  "In[373]:=",ExpressionUUID->"d9d3f7ee-55c8-47d6-adc7-083361c08c6e"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"10", ",", "12", ",", 
-   RowBox[{
-    RowBox[{"-", "6"}], " ", 
-    SqrtBox["2"]}], ",", "7"}], "}"}]], "Output",
- CellChangeTimes->{
-  3.836862100308539*^9, {3.836862293234239*^9, 3.836862298901664*^9}, {
-   3.836862369912044*^9, 3.836862378473509*^9}, {3.8368625455419693`*^9, 
-   3.836862568406708*^9}},
- CellLabel->
-  "Out[373]=",ExpressionUUID->"f7c691e3-920c-4126-9b1d-441ac34c0e78"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"root", "//", "graphAbbc"}]], "Input",
- CellChangeTimes->{{3.836862492953909*^9, 3.836862497412925*^9}},
- CellLabel->
-  "In[363]:=",ExpressionUUID->"f629fd08-c36b-470c-86fd-cdaa061b327a"],
-
-Cell[BoxData[
- GraphicsBox[{
-   CircleBox[
-    NCache[{-2^Rational[-1, 2], Rational[7, 8]}, {-0.7071067811865475, 
-     0.875}], NCache[Rational[1, 8], 0.125]], 
-   CircleBox[
-    NCache[{-2^Rational[-1, 2], Rational[17, 24]}, {-0.7071067811865475, 
-     0.7083333333333334}], NCache[Rational[1, 24], 0.041666666666666664`]], 
-   CircleBox[
-    NCache[{Rational[-2, 5] 2^Rational[1, 2], Rational[
-      7, 10]}, {-0.5656854249492381, 0.7}], NCache[Rational[1, 10], 0.1]], 
-   CircleBox[
-    NCache[{Rational[-3, 5] 2^Rational[1, 2], Rational[
-      7, 10]}, {-0.848528137423857, 0.7}], NCache[Rational[1, 10], 0.1]], 
-   CircleBox[
-    NCache[{-2^Rational[-1, 2], Rational[3, 4]}, {-0.7071067811865475, 0.75}],
-     NCache[Rational[1, 4], 0.25]], 
-   CircleBox[
-    NCache[{-2^Rational[-1, 2], Rational[7, 12]}, {-0.7071067811865475, 
-     0.5833333333333334}], NCache[
-    Rational[1, 12], 0.08333333333333333]]}]], "Output",
- CellChangeTimes->{3.83686249777602*^9, 3.836862536976053*^9},
- CellLabel->
-  "Out[363]=",ExpressionUUID->"21d43d2d-d6b4-4e86-9f96-0d3e2f386b75"]
+  "Out[180]=",ExpressionUUID->"22740ef2-aa23-4aaf-9bba-72f2027266a5"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -9412,7 +9665,70 @@ Cell[BoxData[
   3.836862635043832*^9, 3.836862640783617*^9}, {3.8368632642245083`*^9, 
   3.83686326457684*^9}},
  CellLabel->
-  "In[376]:=",ExpressionUUID->"f3528cd8-92c1-47b7-bb02-42e08ed49e1b"],
+  "In[183]:=",ExpressionUUID->"f3528cd8-92c1-47b7-bb02-42e08ed49e1b"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"6.`", ",", "8.`", ",", "0.`", ",", "7.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"12.`", ",", "24.`", ",", "0.`", ",", "17.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4.`", ",", "12.`", ",", "0.`", ",", "7.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", "2.`"}], ",", 
+     RowBox[{"-", "4.`"}], ",", "0.`", ",", 
+     RowBox[{"-", "3.`"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"16.`", ",", "28.`", ",", 
+     RowBox[{"-", "2.8284271247461903`"}], ",", "21.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"22.`", ",", "44.`", ",", 
+     RowBox[{"-", "2.8284271247461903`"}], ",", "31.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"14.`", ",", "32.`", ",", 
+     RowBox[{"-", "2.8284271247461903`"}], ",", "21.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.`", ",", "16.`", ",", 
+     RowBox[{"-", "2.8284271247461903`"}], ",", "11.`"}], "}"}]}], 
+  "}"}]], "Output",
+ CellChangeTimes->{
+  3.836862517142044*^9, {3.836862635581028*^9, 3.836862641160112*^9}, 
+   3.83686326503437*^9, {3.837018510773959*^9, 3.8370185433326883`*^9}},
+ CellLabel->
+  "Out[183]=",ExpressionUUID->"63e01b9e-87fb-429d-9103-1746536ec2ae"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"10.`", ",", "8.`", ",", 
+     RowBox[{"-", "5.656854249492381`"}], ",", "7.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"24.`", ",", "24.`", ",", 
+     RowBox[{"-", "16.970562748477143`"}], ",", "17.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8.`", ",", "10.`", ",", 
+     RowBox[{"-", "5.656854249492381`"}], ",", "7.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"12.`", ",", "10.`", ",", 
+     RowBox[{"-", "8.485281374238571`"}], ",", "7.`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"-", "4.`"}], ",", 
+     RowBox[{"-", "4.`"}], ",", "2.8284271247461903`", ",", 
+     RowBox[{"-", "3.`"}]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"10.`", ",", "12.`", ",", 
+     RowBox[{"-", "8.485281374238571`"}], ",", "7.`"}], "}"}]}], 
+  "}"}]], "Input",
+ CellLabel->
+  "In[184]:=",ExpressionUUID->"240ccff6-1653-434c-8746-06b52ccf0f09"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -9438,39 +9754,12 @@ Cell[BoxData[
     RowBox[{"10.`", ",", "12.`", ",", 
      RowBox[{"-", "8.485281374238571`"}], ",", "7.`"}], "}"}]}], 
   "}"}]], "Output",
- CellChangeTimes->{
-  3.836862517142044*^9, {3.836862635581028*^9, 3.836862641160112*^9}, 
-   3.83686326503437*^9},
+ CellChangeTimes->{{3.837018510796248*^9, 3.8370185433490953`*^9}},
  CellLabel->
-  "Out[376]=",ExpressionUUID->"eb0d3f1f-33d8-404f-9ef8-3f2a84411f78"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{"{", 
-    RowBox[{"10.`", ",", "8.`", ",", 
-     RowBox[{"-", "5.656854249492381`"}], ",", "7.`"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"24.`", ",", "24.`", ",", 
-     RowBox[{"-", "16.970562748477143`"}], ",", "17.`"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"8.`", ",", "10.`", ",", 
-     RowBox[{"-", "5.656854249492381`"}], ",", "7.`"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"12.`", ",", "10.`", ",", 
-     RowBox[{"-", "8.485281374238571`"}], ",", "7.`"}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"-", "4.`"}], ",", 
-     RowBox[{"-", "4.`"}], ",", "2.8284271247461903`", ",", 
-     RowBox[{"-", "3.`"}]}], "}"}], ",", 
-   RowBox[{"{", 
-    RowBox[{"10.`", ",", "12.`", ",", 
-     RowBox[{"-", "8.485281374238571`"}], ",", "7.`"}], "}"}]}], 
-  "}"}]], "Input",ExpressionUUID->"240ccff6-1653-434c-8746-06b52ccf0f09"]
+  "Out[184]=",ExpressionUUID->"7479b43b-7f4d-4954-b706-8c76fdbf9cea"]
+}, Open  ]]
 },
-WindowSize->{780., 779.25},
+WindowSize->{1428., 779.25},
 WindowMargins->{{6, Automatic}, {6, Automatic}},
 TaggingRules->{
  "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
@@ -9511,67 +9800,71 @@ Cell[33891, 878, 5515, 135, 289, "Input",ExpressionUUID->"2ffd6cba-1ba3-4c73-845
 Cell[39409, 1015, 5350, 112, 174, "Input",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"],
 Cell[CellGroupData[{
 Cell[44784, 1131, 361, 6, 29, "Input",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"],
-Cell[45148, 1139, 2936, 42, 33, "Output",ExpressionUUID->"6c62ce82-041b-4fae-9a4b-c88d2a54cb6e"]
+Cell[45148, 1139, 2988, 43, 33, "Output",ExpressionUUID->"51303114-6abc-4c6a-bd92-42f2860e36fa"]
 }, Open  ]],
-Cell[48099, 1184, 2791, 68, 283, "Input",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
-Cell[50893, 1254, 3216, 90, 209, "Input",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
-Cell[54112, 1346, 1387, 35, 116, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
-Cell[55502, 1383, 847, 24, 65, "Input",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"],
-Cell[56352, 1409, 1585, 61, 196, "Input",ExpressionUUID->"897b1d52-af46-4e1c-8207-c0acc9e2c1f3"],
-Cell[57940, 1472, 1865, 71, 147, "Input",ExpressionUUID->"a88926ed-6f50-457b-9480-401929196ff8"],
-Cell[59808, 1545, 1554, 61, 137, "Input",ExpressionUUID->"ac2fc7fb-1a08-4495-8c53-210ad6f3664b"],
-Cell[61365, 1608, 9997, 308, 443, "Input",ExpressionUUID->"609d9edf-fd45-4e4e-aae5-f4d3cc6359f5"],
-Cell[71365, 1918, 4070, 152, 216, "Input",ExpressionUUID->"294e535d-e3a7-4a1d-8c24-303f127653b2"],
-Cell[75438, 2072, 7542, 275, 221, "Input",ExpressionUUID->"45d67d9a-02e6-48ac-8e3a-435a001307e6"],
-Cell[82983, 2349, 5351, 202, 250, "Input",ExpressionUUID->"65e20246-7792-4c97-b2ee-553e60d6428e"],
-Cell[88337, 2553, 49461, 1064, 5743, "Input",ExpressionUUID->"1c98ab0f-7be0-4b82-83f8-0a1739369b4d"],
-Cell[137801, 3619, 172933, 3667, 21047, "Input",ExpressionUUID->"239a4292-049d-4293-9674-7e78c28ca011"],
-Cell[310737, 7288, 1490, 56, 125, "Input",ExpressionUUID->"b6c05a3c-d9ef-41f8-9987-9bf57f74096c"],
-Cell[312230, 7346, 42954, 1328, 1515, "Input",ExpressionUUID->"851b8d35-e5c6-40f2-826f-018f704c8a73"],
-Cell[355187, 8676, 354, 8, 29, "Input",ExpressionUUID->"c9c3f8c5-57c2-442b-83c1-93d4627643e0"],
+Cell[48151, 1185, 2791, 68, 283, "Input",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"],
+Cell[50945, 1255, 3216, 90, 209, "Input",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"],
+Cell[54164, 1347, 1387, 35, 116, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"],
+Cell[55554, 1384, 847, 24, 65, "Input",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"],
+Cell[56404, 1410, 1585, 61, 196, "Input",ExpressionUUID->"897b1d52-af46-4e1c-8207-c0acc9e2c1f3"],
+Cell[57992, 1473, 1865, 71, 147, "Input",ExpressionUUID->"a88926ed-6f50-457b-9480-401929196ff8"],
+Cell[59860, 1546, 1554, 61, 137, "Input",ExpressionUUID->"ac2fc7fb-1a08-4495-8c53-210ad6f3664b"],
+Cell[61417, 1609, 9997, 308, 443, "Input",ExpressionUUID->"609d9edf-fd45-4e4e-aae5-f4d3cc6359f5"],
+Cell[71417, 1919, 4070, 152, 216, "Input",ExpressionUUID->"294e535d-e3a7-4a1d-8c24-303f127653b2"],
+Cell[75490, 2073, 7542, 275, 221, "Input",ExpressionUUID->"45d67d9a-02e6-48ac-8e3a-435a001307e6"],
+Cell[83035, 2350, 5351, 202, 250, "Input",ExpressionUUID->"65e20246-7792-4c97-b2ee-553e60d6428e"],
+Cell[88389, 2554, 49461, 1064, 5743, "Input",ExpressionUUID->"1c98ab0f-7be0-4b82-83f8-0a1739369b4d"],
+Cell[137853, 3620, 172933, 3667, 21047, "Input",ExpressionUUID->"239a4292-049d-4293-9674-7e78c28ca011"],
+Cell[310789, 7289, 1490, 56, 125, "Input",ExpressionUUID->"b6c05a3c-d9ef-41f8-9987-9bf57f74096c"],
+Cell[312282, 7347, 42954, 1328, 1845, "Input",ExpressionUUID->"851b8d35-e5c6-40f2-826f-018f704c8a73"],
+Cell[355239, 8677, 354, 8, 29, "Input",ExpressionUUID->"c9c3f8c5-57c2-442b-83c1-93d4627643e0"],
 Cell[CellGroupData[{
-Cell[355566, 8688, 332, 6, 29, "Input",ExpressionUUID->"4d7d714e-f2ed-41ab-a3c1-9f7a73b68b46"],
-Cell[355901, 8696, 3330, 74, 374, "Output",ExpressionUUID->"4f1d9765-f0d8-425e-b16b-a040781ba630"]
+Cell[355618, 8689, 332, 6, 29, "Input",ExpressionUUID->"4d7d714e-f2ed-41ab-a3c1-9f7a73b68b46"],
+Cell[355953, 8697, 3383, 75, 374, "Output",ExpressionUUID->"e7b83790-eb5f-407b-87e9-8dd099d127f4"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[359268, 8775, 930, 19, 51, "Input",ExpressionUUID->"64697f86-4592-4a50-b42f-8039aaa8a819"],
-Cell[360201, 8796, 1112, 20, 376, "Output",ExpressionUUID->"a2b2c706-9882-45de-b864-bc0e8d00581d"]
+Cell[359373, 8777, 930, 19, 51, "Input",ExpressionUUID->"64697f86-4592-4a50-b42f-8039aaa8a819"],
+Cell[360306, 8798, 1158, 20, 376, "Output",ExpressionUUID->"0847b3ba-2ae0-44b2-98ba-c62dcedb0d69"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[361350, 8821, 183, 3, 29, "Input",ExpressionUUID->"a12d9058-1edd-4fb6-b435-8ceb29d8c529"],
-Cell[361536, 8826, 1751, 40, 96, "Output",ExpressionUUID->"bdb651b7-cffa-4222-a74c-b00d819a4303"]
+Cell[361501, 8823, 183, 3, 29, "Input",ExpressionUUID->"a12d9058-1edd-4fb6-b435-8ceb29d8c529"],
+Cell[361687, 8828, 1804, 41, 178, "Output",ExpressionUUID->"39951880-1df1-44e5-8f96-8b5e660bc31b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[363324, 8871, 526, 10, 29, "Input",ExpressionUUID->"6c14882f-a3a6-490a-822b-b77dc0b9345c"],
-Cell[363853, 8883, 13037, 314, 880, "Output",ExpressionUUID->"c86a0780-5644-4600-aefc-d58c2c6c5aea"]
+Cell[363528, 8874, 526, 10, 29, "Input",ExpressionUUID->"6c14882f-a3a6-490a-822b-b77dc0b9345c"],
+Cell[364057, 8886, 13161, 322, 1024, "Output",ExpressionUUID->"7e54e0f2-d625-4043-b809-52bdaa7ba288"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[376927, 9202, 403, 8, 29, "Input",ExpressionUUID->"ddd3a665-d541-435d-a556-e983f9a2a721"],
-Cell[377333, 9212, 917, 24, 55, "Output",ExpressionUUID->"b9d2e402-8335-42a0-9516-b1e5878a7b30"]
+Cell[377255, 9213, 458, 9, 29, "Input",ExpressionUUID->"ddd3a665-d541-435d-a556-e983f9a2a721"],
+Cell[377716, 9224, 873, 21, 55, "Output",ExpressionUUID->"83e95db0-88f3-4919-930a-50dfa7c1d570"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[378287, 9241, 511, 10, 29, "Input",ExpressionUUID->"74f40533-5cef-42bc-84d6-0432307eb122"],
-Cell[378801, 9253, 1209, 39, 58, "Output",ExpressionUUID->"f8b57d34-54bf-4555-86d8-b1282d315336"]
-}, Open  ]],
-Cell[380025, 9295, 397, 9, 29, "Input",ExpressionUUID->"6c3f7ffd-26f3-488f-886c-23454998ed6a"],
-Cell[380425, 9306, 567, 15, 29, "Input",ExpressionUUID->"770d5ee5-e393-4850-9a46-6c7de46cc618"],
-Cell[CellGroupData[{
-Cell[381017, 9325, 273, 7, 29, "Input",ExpressionUUID->"68ee96ba-31f2-4143-bd53-307ccabc9cc0"],
-Cell[381293, 9334, 330, 9, 36, "Output",ExpressionUUID->"24d18a5e-e2d9-4140-891a-36a86af77332"]
+Cell[378626, 9250, 818, 19, 71, "Input",ExpressionUUID->"74f40533-5cef-42bc-84d6-0432307eb122"],
+Cell[379447, 9271, 1581, 34, 367, "Print",ExpressionUUID->"8a7c759c-7d2b-4a25-8f30-8d46c35d809f"],
+Cell[381031, 9307, 1600, 50, 81, "Output",ExpressionUUID->"b7c9128d-5236-4e93-aa10-dae791c3e916"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[381660, 9348, 405, 8, 29, "Input",ExpressionUUID->"d9d3f7ee-55c8-47d6-adc7-083361c08c6e"],
-Cell[382068, 9358, 429, 11, 36, "Output",ExpressionUUID->"f7c691e3-920c-4126-9b1d-441ac34c0e78"]
+Cell[382668, 9362, 202, 4, 29, "Input",ExpressionUUID->"adbe170c-01cd-4c8c-8b26-64a98a5b6af3"],
+Cell[382873, 9368, 1227, 32, 96, "Output",ExpressionUUID->"222348fc-829f-420a-a05d-52617a214339"]
+}, Open  ]],
+Cell[384115, 9403, 417, 10, 29, "Input",ExpressionUUID->"6c3f7ffd-26f3-488f-886c-23454998ed6a"],
+Cell[CellGroupData[{
+Cell[384557, 9417, 180, 3, 29, "Input",ExpressionUUID->"f2994baa-da4a-4e16-8ce5-73dfa6c93290"],
+Cell[384740, 9422, 7486, 194, 248, "Output",ExpressionUUID->"86176ee1-3e35-47e5-a55e-a17c2731ad6e"]
+}, Open  ]],
+Cell[392241, 9619, 567, 15, 29, "Input",ExpressionUUID->"770d5ee5-e393-4850-9a46-6c7de46cc618"],
+Cell[CellGroupData[{
+Cell[392833, 9638, 273, 7, 29, "Input",ExpressionUUID->"68ee96ba-31f2-4143-bd53-307ccabc9cc0"],
+Cell[393109, 9647, 380, 9, 36, "Output",ExpressionUUID->"22740ef2-aa23-4aaf-9bba-72f2027266a5"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[382534, 9374, 210, 4, 29, "Input",ExpressionUUID->"f629fd08-c36b-470c-86fd-cdaa061b327a"],
-Cell[382747, 9380, 1072, 23, 376, "Output",ExpressionUUID->"21d43d2d-d6b4-4e86-9f96-0d3e2f386b75"]
+Cell[393526, 9661, 303, 6, 29, "Input",ExpressionUUID->"f3528cd8-92c1-47b7-bb02-42e08ed49e1b"],
+Cell[393832, 9669, 1225, 31, 55, "Output",ExpressionUUID->"63e01b9e-87fb-429d-9103-1746536ec2ae"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[383856, 9408, 303, 6, 29, "Input",ExpressionUUID->"f3528cd8-92c1-47b7-bb02-42e08ed49e1b"],
-Cell[384162, 9416, 1046, 28, 55, "Output",ExpressionUUID->"eb0d3f1f-33d8-404f-9ef8-3f2a84411f78"]
-}, Open  ]],
-Cell[385223, 9447, 901, 23, 71, "Input",ExpressionUUID->"240ccff6-1653-434c-8746-06b52ccf0f09"]
+Cell[395094, 9705, 929, 25, 51, "Input",ExpressionUUID->"240ccff6-1653-434c-8746-06b52ccf0f09"],
+Cell[396026, 9732, 998, 26, 33, "Output",ExpressionUUID->"7479b43b-7f4d-4954-b706-8c76fdbf9cea"]
+}, Open  ]]
 }
 ]
 *)
diff --git a/root_tuple.nb b/root_tuple.nb
index df4e3d9..fa20c99 100644
--- a/root_tuple.nb
+++ b/root_tuple.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[     37943,       1092]
-NotebookOptionsPosition[     36764,       1066]
-NotebookOutlinePosition[     37157,       1082]
-CellTagsIndexPosition[     37114,       1079]
+NotebookDataLength[     38000,       1092]
+NotebookOptionsPosition[     36822,       1066]
+NotebookOutlinePosition[     37215,       1082]
+CellTagsIndexPosition[     37172,       1079]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -425,8 +425,7 @@ Cell[BoxData[{
    3.836775247540461*^9}, {3.836775298645521*^9, 3.836775315775177*^9}, {
    3.836775378516039*^9, 3.836775382545352*^9}, {3.8367820316307087`*^9, 
    3.836782036214923*^9}, 3.8367825449307203`*^9},
- CellLabel->
-  "In[107]:=",ExpressionUUID->"8619e990-8f3c-4557-a370-b0aceddab3a5"],
+ CellLabel->"In[17]:=",ExpressionUUID->"8619e990-8f3c-4557-a370-b0aceddab3a5"],
 
 Cell[BoxData[
  RowBox[{
@@ -755,12 +754,12 @@ Cell[BoxData[
      RowBox[{"\"\<Exact\>\"", "->", "True"}]}], "]"}], "//", 
    "FullSimplify"}]}]], "Input",
  CellChangeTimes->CompressedData["
-1:eJxTTMoPSmViYGAQAWIQ7dJVNllg2hvH32cvgun+vNvzQPSXJY7zQbRCruVK
+1:eJxTTMoPSmViYGAQBWIQ7dJVNllg2hvH32cvgun+vNvzQPSXJY7zQbRCruVK
 EP2hJxlM794evxlEH28oANOORTYHQfSJMy5nQPQiubwLIPpx7rorIHoXh8Vt
 EH1m1qOHINrM/TeTIJCW+WDGDKLDGDnZQfStT0IiIJrhFJcliP6WzWUHok07
 vZ1BdLpmvyuIFkpt9wLRmotKfED0jwP9cSDaPXwymBaYPKkcRO85UVEHop8X
 LGsD0V1s3ztB9K7jmxaD6L6TyUtAtO/zCztA9LqmwF0g+v6h4yEiQNpobXU4
-iD4xVTYORB97+CQFRCsoHckC0W2tV8A0AOvZnTQ=
+iD4xVTYORB97+CQFRCsoHckC0W2tV8C0joyoXgeQNpFRANMA6z+i9A==
   "],
  CellLabel->"In[20]:=",ExpressionUUID->"91e21391-15e5-4f71-a86a-70fa1b7d0f63"],
 
@@ -986,8 +985,8 @@ Cell[BoxData[
    3.836775710248557*^9, 3.836775715714079*^9}, {3.836775884582399*^9, 
    3.836775891136197*^9}, {3.836781233827829*^9, 3.83678124429418*^9}, {
    3.8367812978893347`*^9, 3.836781353440551*^9}, 3.836781399263618*^9, 
-   3.836781439189076*^9},
- CellLabel->"Out[20]=",ExpressionUUID->"38df915a-be40-4d71-b537-efd37c74906b"]
+   3.836781439189076*^9, 3.837018474911059*^9},
+ CellLabel->"Out[20]=",ExpressionUUID->"b88f9091-3c9e-4e1f-894b-685f745c7fd5"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1060,8 +1059,9 @@ Cell[BoxData[
        2 5^Rational[1, 2])}, {-0.7708203932499369, 0.3618033988749895}], 
     NCache[Rational[1, 5]/(3 + 5^Rational[1, 2]), 
      0.03819660112501052]]}]], "Output",
- CellChangeTimes->{3.8367814063844*^9, 3.836781439334742*^9},
- CellLabel->"Out[21]=",ExpressionUUID->"4132ca7b-24a6-4589-bb4c-d5b579b34549"]
+ CellChangeTimes->{3.8367814063844*^9, 3.836781439334742*^9, 
+  3.83701847501545*^9},
+ CellLabel->"Out[21]=",ExpressionUUID->"22cb1e0b-7fa9-4a36-950e-b730f0550200"]
 }, Open  ]]
 },
 WindowSize->{1428., 779.25},
@@ -1082,17 +1082,17 @@ CellTagsIndex->{}
 (*NotebookFileOutline
 Notebook[{
 Cell[558, 20, 223, 5, 35, "Text",ExpressionUUID->"30527bb2-1c83-410b-a9c3-cd217fac9ba3"],
-Cell[784, 27, 6715, 205, 965, "Input",ExpressionUUID->"712f1eee-ffe3-4442-b0ef-88c55ebe5557"],
-Cell[7502, 234, 868, 13, 173, "Text",ExpressionUUID->"9ac07c3a-f945-48dc-946f-d840bb5c11e3"],
-Cell[8373, 249, 7062, 179, 602, "Input",ExpressionUUID->"8619e990-8f3c-4557-a370-b0aceddab3a5"],
-Cell[15438, 430, 10284, 311, 257, "Input",ExpressionUUID->"e8ee6a05-c4eb-478e-af98-5d6b7fbfa46a"],
+Cell[784, 27, 6715, 205, 820, "Input",ExpressionUUID->"712f1eee-ffe3-4442-b0ef-88c55ebe5557"],
+Cell[7502, 234, 868, 13, 81, "Text",ExpressionUUID->"9ac07c3a-f945-48dc-946f-d840bb5c11e3"],
+Cell[8373, 249, 7058, 178, 546, "Input",ExpressionUUID->"8619e990-8f3c-4557-a370-b0aceddab3a5"],
+Cell[15434, 429, 10284, 311, 257, "Input",ExpressionUUID->"e8ee6a05-c4eb-478e-af98-5d6b7fbfa46a"],
 Cell[CellGroupData[{
-Cell[25747, 745, 835, 19, 29, "Input",ExpressionUUID->"91e21391-15e5-4f71-a86a-70fa1b7d0f63"],
-Cell[26585, 766, 6459, 223, 103, "Output",ExpressionUUID->"38df915a-be40-4d71-b537-efd37c74906b"]
+Cell[25743, 744, 851, 19, 29, "Input",ExpressionUUID->"91e21391-15e5-4f71-a86a-70fa1b7d0f63"],
+Cell[26597, 765, 6481, 223, 103, "Output",ExpressionUUID->"b88f9091-3c9e-4e1f-894b-685f745c7fd5"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[33081, 994, 210, 3, 29, "Input",ExpressionUUID->"1b485785-b18a-41cd-ae3f-e08589cba70c"],
-Cell[33294, 999, 3454, 64, 376, "Output",ExpressionUUID->"4132ca7b-24a6-4589-bb4c-d5b579b34549"]
+Cell[33115, 993, 210, 3, 29, "Input",ExpressionUUID->"1b485785-b18a-41cd-ae3f-e08589cba70c"],
+Cell[33328, 998, 3478, 65, 376, "Output",ExpressionUUID->"22cb1e0b-7fa9-4a36-950e-b730f0550200"]
 }, Open  ]]
 }
 ]