diff --git a/fractal_dimension/circle_counting_new/data/6v6f1.txt b/fractal_dimension/circle_counting_new/data/6v6f1.txt index a746581..cfe858d 100644 --- a/fractal_dimension/circle_counting_new/data/6v6f1.txt +++ b/fractal_dimension/circle_counting_new/data/6v6f1.txt @@ -1,25 +1,3 @@ -{{{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., 0.}, {3.61803, - 2.23607, 0., 0., -0.618034, 4.23607}, {7.47214, 2.61803, 0., - 0., -1., 6.8541}, {8.47214, 2., 0., 0., -1., 8.47214}, {0., 0., 0., - 0., 0., 1.}}, {{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., - 0.}, {0., 0., 1., 0., 0., 0.}, {1.61803, -1., 1.61803, 0., 0., - 0.}, {7.23607, -2.47214, 5.23607, 0., -1., 0.}, {2.8541, -0.527864, - 2.23607, 0., -0.618034, 0.}}, {{1., 0., 0., 0., 0., - 0.}, {11.7082, -1., 0., 8.47214, 5.23607, 0.}, {6.23607, -0.618034, - 0., 5.8541, 3.23607, 0.}, {0., 0., 0., 1., 0., 0.}, {0., 0., 0., - 0., 1., 0.}, {3.8541, -0.381966, 0., 2.61803, 2.61803, 0.}}, {{1., - 0., 0., 0., 0., 0.}, {6.8541, 0., 0., -1.61803, 3.61803, - 5.8541}, {5.23607, 0., 0., -1.61803, 4.23607, 4.8541}, {3.23607, - 0., 0., -1., 3.23607, 2.}, {0., 0., 0., 0., 1., 0.}, {0., 0., 0., - 0., 0., 1.}}, {{0., 2.61803, 2.61803, 0., -0.381966, 3.8541}, {0., - 1., 0., 0., 0., 0.}, {0., 0., 1., 0., 0., 0.}, {0., 3.23607, - 5.8541, 0., -0.618034, 6.23607}, {0., 5.23607, 8.47214, 0., -1., - 11.7082}, {0., 0., 0., 0., 0., 1.}}, {{-1., 0., 0.763932, 0., - 1.23607, 0.}, {-1.61803, 0., 2.8541, -1., 2., 0.}, {0., 0., 1., 0., - 0., 0.}, {0., 0., 0., 1., 0., 0.}, {0., 0., 0., 0., 1., 0.}, {0., - 0., 0.618034, -1., 0.618034, 0.}}} - -{-0.283599, 1.57128, 1.64948, 0.638765, 0.569056, 0.732366} - -{{0, 1, 5}, {0, 3, 2, 1}, {0, 4, 3}, {0, 5, 4}, {1, 2, 5}, {2, 3, 4, - 5}} +{{{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., 0.}, {3.618033988749896, 2.23606797749979, 0., 0., -0.6180339887498949, 4.236067977499791}, {7.47213595499958, 2.618033988749895, 0., 0., -1., 6.854101966249685}, {8.47213595499958, 2., 0., 0., -1., 8.47213595499958}, {0., 0., 0., 0., 0., 1.}}, {{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., 0.}, {-1., 0.6180339887498949, 0., 0.6180339887498949, 0., 0.}, {0., 0., 0., 1., 0., 0.}, {1., 1.3819660112501055, 0., 2.23606797749979, 0., -1.618033988749895}, {0., 1.2360679774997898, 0., 0.7639320225002103, 0., -1.}}, {{1., 0., 0., 0., 0., 0.}, {10.090169943749473, 0., 0., 6.854101966249683, 6.854101966249683, -2.6180339887498945}, {5.236067977499789, 0., 0., 4.854101966249684, 4.236067977499789, -1.6180339887498947}, {0., 0., 0., 1., 0., 0.}, {0., 0., 0., 0., 1., 0.}, {3.23606797749979, 0., 0., 1.9999999999999998, 3.23606797749979, -1.}}, {{1., 0., 0., 0., 0., 0.}, {8.47213595499958, -1., 0., 0., 2., 8.47213595499958}, {6.854101966249685, -1., 0., 0., 2.618033988749895, 7.47213595499958}, {4.236067977499791, -0.6180339887498949, 0., 0., 2.23606797749979, 3.618033988749896}, {0., 0., 0., 0., 1., 0.}, {0., 0., 0., 0., 0., 1.}}, {{-1., 3.23606797749979, 1.9999999999999998, 0., 0., 3.23606797749979}, {0., 1., 0., 0., 0., 0.}, {0., 0., 1., 0., 0., 0.}, {-1.6180339887498947, 4.236067977499789, 4.854101966249684, 0., 0., 5.236067977499789}, {-2.6180339887498945, 6.854101966249683, 6.854101966249683, 0., 0., 10.090169943749473}, {0., 0., 0., 0., 0., 1.}}, {{0., -0.6180339887498949, 0.5278640450004208, 1.3819660112501053, 0., 2.0000000000000004}, {0., -1., 2.4721359549995796, 1.2360679774997898, 0., 3.2360679774997902}, {0., 0., 1., 0., 0., 0.}, {0., 0., 0., 1., 0., 0.}, {0., 0., -1., 1.6180339887498947, 0., 1.6180339887498947}, {0., 0., 0., 0., 0., 1.}}} +{{1.697812905064731, -0.283599342691636, -0.13601976367522847, 0.7071067811865476}, {2.1311815235545866, 1.5712776500892454, 2.0390426407065196, 0.4370160244488211}, {0.6387648728315074, 1.64948073843923, 0.8629098213325702, -1.1441228056353685}, {1.64948073843923, 0.6387648728315074, -0.8629098213325702, -1.1441228056353685}, {1.5712776500892454, 2.1311815235545866, -2.0390426407065196, 0.4370160244488211}, {-0.283599342691636, 1.697812905064731, 0.13601976367522847, 0.7071067811865476}} +{{0, 1, 5}, {0, 3, 2, 1}, {0, 4, 3}, {0, 5, 4}, {1, 2, 5}, {2, 3, 4, 5}} \ No newline at end of file diff --git a/fractal_dimension/circle_counting_new/data/cube.txt b/fractal_dimension/circle_counting_new/data/cube.txt index 11c242e..069d625 100644 --- a/fractal_dimension/circle_counting_new/data/cube.txt +++ b/fractal_dimension/circle_counting_new/data/cube.txt @@ -1,31 +1,4 @@ -{{{2., 1., 2.8284271247461903, 0.}, {1., 2., - 2.8284271247461903, - 0.}, {-1.4142135623730951, -1.4142135623730951, -3., - 0.}, {0., 0., 0., 1.}}, {{18., 1., 8.485281374238571, - 0.}, {289., 18., 144.2497833620557, - 0.}, {-72.12489168102785, -4.242640687119286, -35., 0.}, {0., - 0., 0., 1.}}, {{1., 0., 0., 0.}, {4., 1., - 0., -4.}, {0., 0., 1., 0.}, {2., 0., 0., -1.}}, {{1., - 0., 0., 0.}, {4., 1., 0., 4.}, {0., 0., 1., 0.}, {-2., - 0., 0., -1.}}, {{33., 4., 22.627416997969522, 4.}, {256., - 33., 181.01933598375618, - 32.}, {-90.50966799187809, -11.313708498984761, -63., --11.313708498984761}, {-16., -2., -11.313708498984761, -1.}}, -{{33., 4., 22.627416997969522, -4.}, {256., 33., - 181.01933598375618, -32.}, {-90.50966799187809, --11.313708498984761, -63., 11.313708498984761}, {16., 2., - 11.313708498984761, -1.}}} - -{{0., 8.485281374238571, -1., 0.}, {0., -2.8284271247461903, - 1., 0.}, {1.4142135623730951, 18.38477631085024, -5., - 1.4142135623730951}, {1.4142135623730951, - 7.0710678118654755, -3., - 1.4142135623730951}, {1.4142135623730951, - 18.38477631085024, -5., -1.4142135623730951}, -{1.4142135623730951, - 7.0710678118654755, -3., -1.4142135623730951}, -{2.8284271247461903, 16.970562748477143, -7., - 0.}, {2.8284271247461903, 28.284271247461902, -9., 0.}} - -{{0, 1, 5, 4}, {0, 3, 2, 1}, {0, 4, 7, 3}, {1, 2, 6, 5}, {2, 3, 7, - 6}, {4, 5, 6, 7}} +{{{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.}} +{{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/decagonal_pyramid.txt b/fractal_dimension/circle_counting_new/data/decagonal_pyramid.txt index 117e482..c77161c 100644 --- a/fractal_dimension/circle_counting_new/data/decagonal_pyramid.txt +++ b/fractal_dimension/circle_counting_new/data/decagonal_pyramid.txt @@ -1,107 +1,3 @@ -{{{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0, 0, - 0}, {7.23607, 5.8541, 0, 0, -0.236068, 0, 0, 0, 0, 0, - 2.61803}, {18.9443, 12.7082, 0, 0, -0.618034, 0, 0, 0, 0, 0, - 7.8541}, {30.6525, 18.9443, 0, 0, -1., 0, 0, 0, 0, 0, - 13.7082}, {37.8885, 22.1803, 0, 0, -1.23607, 0, 0, 0, 0, 0, - 17.9443}, {37.8885, 21.1803, 0, 0, -1.23607, 0, 0, 0, 0, 0, - 18.9443}, {30.6525, 16.3262, 0, 0, -1., 0, 0, 0, 0, 0, - 16.3262}, {18.9443, 9.47214, 0, 0, -0.618034, 0, 0, 0, 0, 0, - 11.0902}, {7.23607, 3.23607, 0, 0, -0.236068, 0, 0, 0, 0, 0, - 5.23607}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.}}, {{1., 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1., 0, - 0, 0, 0, 0, 0, 0, 0}, {7.23607, 3.61803, 5., 0, 0, 0, 0, 0, - 0, -0.381966, 0}, {18.9443, 10.4721, 10.4721, 0, 0, 0, 0, 0, - 0, -1., 0}, {30.6525, 17.9443, 15.3262, 0, 0, 0, 0, 0, 0, -1.61803, - 0}, {37.8885, 23.1803, 17.7082, 0, 0, 0, 0, 0, 0, -2., - 0}, {37.8885, 24.1803, 16.7082, 0, 0, 0, 0, 0, 0, -2., - 0}, {30.6525, 20.5623, 12.7082, 0, 0, 0, 0, 0, 0, -1.61803, - 0}, {18.9443, 13.7082, 7.23607, 0, 0, 0, 0, 0, 0, -1., - 0}, {7.23607, 6.23607, 2.38197, 0, 0, 0, 0, 0, 0, -0.381966, - 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {7.23607, -1., 7.23607, - 2., 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0, 0, 0, 0}, {0, - 0, 0, 1., 0, 0, 0, 0, 0, 0, 0}, {7.23607, -1., 4.61803, 4.61803, 0, - 0, 0, 0, 0, 0, 0}, {18.9443, -2.61803, 13.0902, 9.47214, 0, 0, 0, - 0, 0, 0, 0}, {30.6525, -4.23607, 22.1803, 13.7082, 0, 0, 0, 0, 0, - 0, 0}, {37.8885, -5.23607, 28.4164, 15.7082, 0, 0, 0, 0, 0, 0, - 0}, {37.8885, -5.23607, 29.4164, 14.7082, 0, 0, 0, 0, 0, 0, - 0}, {30.6525, -4.23607, 24.7984, 11.0902, 0, 0, 0, 0, 0, 0, - 0}, {18.9443, -2.61803, 16.3262, 6.23607, 0, 0, 0, 0, 0, 0, - 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {18.9443, 0, 0, 11.0902, - 9.47214, 0, 0, -0.618034, 0, 0, 0}, {7.23607, 0, 0, 5.23607, - 3.23607, 0, 0, -0.236068, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0, 0, - 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0, 0, 0}, {7.23607, 0, 0, 2.61803, - 5.8541, 0, 0, -0.236068, 0, 0, 0}, {18.9443, 0, 0, 7.8541, 12.7082, - 0, 0, -0.618034, 0, 0, 0}, {30.6525, 0, 0, 13.7082, 18.9443, 0, - 0, -1., 0, 0, 0}, {37.8885, 0, 0, 17.9443, 22.1803, 0, 0, -1.23607, - 0, 0, 0}, {37.8885, 0, 0, 18.9443, 21.1803, 0, 0, -1.23607, 0, 0, - 0}, {30.6525, 0, 0, 16.3262, 16.3262, 0, 0, -1., 0, 0, 0}}, {{1., - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {30.6525, 0, 0, 0, 17.1353, 15.3262, - 0, 0, 0, -0.809017, 0}, {18.9443, 0, 0, 0, 11.5902, 8.8541, 0, 0, - 0, -0.5, 0}, {7.23607, 0, 0, 0, 5.42705, 3., 0, 0, 0, -0.190983, - 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0, - 0, 0, 0}, {7.23607, 0, 0, 0, 2.80902, 5.61803, 0, 0, 0, -0.190983, - 0}, {18.9443, 0, 0, 0, 8.3541, 12.0902, 0, 0, 0, -0.5, - 0}, {30.6525, 0, 0, 0, 14.5172, 17.9443, 0, 0, 0, -0.809017, - 0}, {37.8885, 0, 0, 0, 18.9443, 20.9443, 0, 0, 0, -1., - 0}, {37.8885, 0, 0, 0, 19.9443, 19.9443, 0, 0, 0, -1., 0}}, {{1., - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {37.8885, 0, 0, 0, -5.23607, - 29.4164, 14.7082, 0, 0, 0, 0}, {30.6525, 0, 0, 0, -4.23607, - 24.7984, 11.0902, 0, 0, 0, 0}, {18.9443, 0, 0, 0, -2.61803, - 16.3262, 6.23607, 0, 0, 0, 0}, {7.23607, 0, 0, 0, -1., 7.23607, 2., - 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, - 0, 1., 0, 0, 0, 0}, {7.23607, 0, 0, 0, -1., 4.61803, 4.61803, 0, 0, - 0, 0}, {18.9443, 0, 0, 0, -2.61803, 13.0902, 9.47214, 0, 0, 0, - 0}, {30.6525, 0, 0, 0, -4.23607, 22.1803, 13.7082, 0, 0, 0, - 0}, {37.8885, 0, 0, 0, -5.23607, 28.4164, 15.7082, 0, 0, 0, - 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {37.8885, 0, 0, 0, - 0, -5.23607, 28.4164, 15.7082, 0, 0, 0}, {37.8885, 0, 0, 0, - 0, -5.23607, 29.4164, 14.7082, 0, 0, 0}, {30.6525, 0, 0, 0, - 0, -4.23607, 24.7984, 11.0902, 0, 0, 0}, {18.9443, 0, 0, 0, - 0, -2.61803, 16.3262, 6.23607, 0, 0, 0}, {7.23607, 0, 0, 0, 0, -1., - 7.23607, 2., 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0, 0, 0, 0}, {0, 0, - 0, 0, 0, 0, 0, 1., 0, 0, 0}, {7.23607, 0, 0, 0, 0, -1., 4.61803, - 4.61803, 0, 0, 0}, {18.9443, 0, 0, 0, 0, -2.61803, 13.0902, - 9.47214, 0, 0, 0}, {30.6525, 0, 0, 0, 0, -4.23607, 22.1803, - 13.7082, 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {30.6525, - 0, -0.809017, 0, 0, 0, 0, 14.5172, 17.9443, 0, 0}, {37.8885, - 0, -1., 0, 0, 0, 0, 18.9443, 20.9443, 0, 0}, {37.8885, 0, -1., 0, - 0, 0, 0, 19.9443, 19.9443, 0, 0}, {30.6525, 0, -0.809017, 0, 0, 0, - 0, 17.1353, 15.3262, 0, 0}, {18.9443, 0, -0.5, 0, 0, 0, 0, 11.5902, - 8.8541, 0, 0}, {7.23607, 0, -0.190983, 0, 0, 0, 0, 5.42705, 3., 0, - 0}, {0, 0, 0, 0, 0, 0, 0, 1., 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, - 1., 0, 0}, {7.23607, 0, -0.190983, 0, 0, 0, 0, 2.80902, 5.61803, 0, - 0}, {18.9443, 0, -0.5, 0, 0, 0, 0, 8.3541, 12.0902, 0, 0}}, {{1., - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {18.9443, 0, -0.618034, 0, 0, 0, 0, - 0, 7.8541, 12.7082, 0}, {30.6525, 0, -1., 0, 0, 0, 0, 0, 13.7082, - 18.9443, 0}, {37.8885, 0, -1.23607, 0, 0, 0, 0, 0, 17.9443, - 22.1803, 0}, {37.8885, 0, -1.23607, 0, 0, 0, 0, 0, 18.9443, - 21.1803, 0}, {30.6525, 0, -1., 0, 0, 0, 0, 0, 16.3262, 16.3262, - 0}, {18.9443, 0, -0.618034, 0, 0, 0, 0, 0, 11.0902, 9.47214, - 0}, {7.23607, 0, -0.236068, 0, 0, 0, 0, 0, 5.23607, 3.23607, - 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1., 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, - 1., 0}, {7.23607, 0, -0.236068, 0, 0, 0, 0, 0, 2.61803, 5.8541, - 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {7.23607, 0, 0, 0, 0, 0, - 0, -0.381966, 0, 3.61803, 5.}, {18.9443, 0, 0, 0, 0, 0, 0, -1., 0, - 10.4721, 10.4721}, {30.6525, 0, 0, 0, 0, 0, 0, -1.61803, 0, - 17.9443, 15.3262}, {37.8885, 0, 0, 0, 0, 0, 0, -2., 0, 23.1803, - 17.7082}, {37.8885, 0, 0, 0, 0, 0, 0, -2., 0, 24.1803, - 16.7082}, {30.6525, 0, 0, 0, 0, 0, 0, -1.61803, 0, 20.5623, - 12.7082}, {18.9443, 0, 0, 0, 0, 0, 0, -1., 0, 13.7082, - 7.23607}, {7.23607, 0, 0, 0, 0, 0, 0, -0.381966, 0, 6.23607, - 2.38197}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1., 0}, {0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 1.}}, {{-1., 0.152786, 0, 0, 0, 0, 0, 0.152786, - 0, -0.0944272, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1.44721, - 0, 0, 0, 0, 0, 0.447214, 0, -0.894427, 0}, {0, 1.61803, 0, 0, 0, - 0, 0, 1., 0, -1.61803, 0}, {0, 1.44721, 0, 0, 0, 0, 0, 1.44721, - 0, -1.89443, 0}, {0, 1., 0, 0, 0, 0, 0, 1.61803, 0, -1.61803, - 0}, {0, 0.447214, 0, 0, 0, 0, 0, 1.44721, 0, -0.894427, 0}, {0, 0, - 0, 0, 0, 0, 0, 1., 0, 0, 0}, {0, -0.17082, 0, 0, 0, 0, 0, 0.447214, - 0, 0.723607, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1., 0}, {0, 0.447214, - 0, 0, 0, 0, 0, -0.17082, 0, 0.723607, 0}}} - -{-1., 4.23607, 4.23607, 4.23607, 4.23607, 4.23607, 4.23607, 4.23607, -4.23607, 4.23607, 4.23607} - -{{0, 1, 10}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {0, 6, - 5}, {0, 7, 6}, {0, 8, 7}, {0, 9, 8}, {0, 10, 9}, {1, 2, 3, 4, 5, 6, - 7, 8, 9, 10}} +{{{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {7.236067977499787, 4.618033988749894, 0, 0, 0, 0, 0, 0, 0, -1., 4.618033988749893}, {18.944271909999156, 9.47213595499958, 0, 0, 0, 0, 0, 0, 0, -2.6180339887498953, 13.090169943749473}, {30.652475842498518, 13.708203932499368, 0, 0, 0, 0, 0, 0, 0, -4.23606797749979, 22.18033988749894}, {37.88854381999831, 15.70820393249937, 0, 0, 0, 0, 0, 0, 0, -5.236067977499791, 28.41640786499873}, {37.88854381999831, 14.70820393249937, 0, 0, 0, 0, 0, 0, 0, -5.236067977499791, 29.41640786499873}, {30.652475842498518, 11.090169943749473, 0, 0, 0, 0, 0, 0, 0, -4.23606797749979, 24.798373876248835}, {18.944271909999152, 6.236067977499789, 0, 0, 0, 0, 0, 0, 0, -2.618033988749895, 16.32623792124926}, {7.236067977499787, 2., 0, 0, 0, 0, 0, 0, 0, -1., 7.236067977499787}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0, 0, 0, 0}, {7.236067977499786, 3.618033988749893, 4.999999999999998, 0, 0, 0, 0, 0, 0, -0.3819660112501051, 0}, {18.94427190999915, 10.472135954999573, 10.472135954999576, 0, 0, 0, 0, 0, 0, -0.9999999999999999, 0}, {30.652475842498514, 17.944271909999152, 15.326237921249257, 0, 0, 0, 0, 0, 0, -1.6180339887498947, 0}, {37.888543819998304, 23.18033988749894, 17.708203932499362, 0, 0, 0, 0, 0, 0, -2., 0}, {37.888543819998304, 24.18033988749894, 16.708203932499362, 0, 0, 0, 0, 0, 0, -2., 0}, {30.652475842498514, 20.562305898749045, 12.708203932499364, 0, 0, 0, 0, 0, 0, -1.6180339887498947, 0}, {18.944271909999152, 13.708203932499364, 7.236067977499787, 0, 0, 0, 0, 0, 0, -1., 0}, {7.236067977499786, 6.236067977499787, 2.3819660112501038, 0, 0, 0, 0, 0, 0, -0.3819660112501051, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {7.236067977499787, -1., 7.236067977499787, 2., 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0, 0, 0}, {7.236067977499772, -0.9999999999999979, 4.618033988749881, 4.618033988749889, 0, 0, 0, 0, 0, 0, 0}, {18.944271909999127, -2.6180339887498913, 13.090169943749448, 9.472135954999569, 0, 0, 0, 0, 0, 0, 0}, {30.65247584249848, -4.2360679774997845, 22.18033988749891, 13.708203932499353, 0, 0, 0, 0, 0, 0, 0}, {37.88854381999827, -5.2360679774997845, 28.416407864998696, 15.708203932499353, 0, 0, 0, 0, 0, 0, 0}, {37.88854381999827, -5.2360679774997845, 29.416407864998696, 14.708203932499353, 0, 0, 0, 0, 0, 0, 0}, {30.652475842498493, -4.236067977499786, 24.798373876248814, 11.090169943749464, 0, 0, 0, 0, 0, 0, 0}, {18.944271909999138, -2.6180339887498927, 16.326237921249245, 6.236067977499784, 0, 0, 0, 0, 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {18.944271909999152, 0, 0, 12.708203932499366, 7.854101966249683, 0, 0, 0, 0, 0, -0.6180339887498948}, {7.236067977499794, 0, 0, 5.854101966249687, 2.6180339887498976, 0, 0, 0, 0, 0, -0.2360679774997899}, {0, 0, 0, 1., 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0, 0, 0}, {7.236067977499779, 0, 0, 3.2360679774997836, 5.2360679774997845, 0, 0, 0, 0, 0, -0.2360679774997894}, {18.944271909999145, 0, 0, 9.472135954999573, 11.09016994374947, 0, 0, 0, 0, 0, -0.6180339887498946}, {30.65247584249851, 0, 0, 16.326237921249255, 16.326237921249255, 0, 0, 0, 0, 0, -0.9999999999999997}, {37.8885438199983, 0, 0, 21.18033988749894, 18.944271909999152, 0, 0, 0, 0, 0, -1.2360679774997894}, {37.8885438199983, 0, 0, 22.18033988749894, 17.944271909999152, 0, 0, 0, 0, 0, -1.2360679774997894}, {30.65247584249852, 0, 0, 18.944271909999156, 13.708203932499368, 0, 0, 0, 0, 0, -1.}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {30.652475842498514, 0, -1.6180339887498947, 0, 20.562305898749045, 12.708203932499364, 0, 0, 0, 0, 0}, {18.944271909999152, 0, -1., 0, 13.708203932499364, 7.236067977499787, 0, 0, 0, 0, 0}, {7.236067977499786, 0, -0.3819660112501051, 0, 6.236067977499787, 2.3819660112501038, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0, 0, 0, 0}, {7.236067977499786, 0, -0.3819660112501051, 0, 3.618033988749893, 4.999999999999998, 0, 0, 0, 0, 0}, {18.94427190999915, 0, -0.9999999999999999, 0, 10.472135954999573, 10.472135954999576, 0, 0, 0, 0, 0}, {30.652475842498514, 0, -1.6180339887498947, 0, 17.944271909999152, 15.326237921249257, 0, 0, 0, 0, 0}, {37.888543819998304, 0, -2., 0, 23.18033988749894, 17.708203932499362, 0, 0, 0, 0, 0}, {37.888543819998304, 0, -2., 0, 24.18033988749894, 16.708203932499362, 0, 0, 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {37.888543819998304, 0, 0, -2., 0, 24.18033988749894, 16.708203932499362, 0, 0, 0, 0}, {30.652475842498514, 0, 0, -1.6180339887498947, 0, 20.562305898749045, 12.708203932499364, 0, 0, 0, 0}, {18.944271909999152, 0, 0, -1., 0, 13.708203932499364, 7.236067977499787, 0, 0, 0, 0}, {7.236067977499786, 0, 0, -0.3819660112501051, 0, 6.236067977499787, 2.3819660112501038, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0, 0, 0, 0}, {7.236067977499786, 0, 0, -0.3819660112501051, 0, 3.618033988749893, 4.999999999999998, 0, 0, 0, 0}, {18.94427190999915, 0, 0, -0.9999999999999999, 0, 10.472135954999573, 10.472135954999576, 0, 0, 0, 0}, {30.652475842498514, 0, 0, -1.6180339887498947, 0, 17.944271909999152, 15.326237921249257, 0, 0, 0, 0}, {37.888543819998304, 0, 0, -2., 0, 23.18033988749894, 17.708203932499362, 0, 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {37.88854381999831, 0, -1., 0, 0, 0, 19.944271909999152, 19.944271909999156, 0, 0, 0}, {37.88854381999831, 0, -1., 0, 0, 0, 20.944271909999152, 18.944271909999156, 0, 0, 0}, {30.652475842498518, 0, -0.8090169943749473, 0, 0, 0, 17.944271909999152, 14.517220926874312, 0, 0, 0}, {18.944271909999156, 0, -0.5, 0, 0, 0, 12.090169943749471, 8.354101966249683, 0, 0, 0}, {7.236067977499787, 0, -0.19098300562505255, 0, 0, 0, 5.618033988749893, 2.8090169943749466, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 1., 0, 0, 0}, {7.236067977499787, 0, -0.19098300562505255, 0, 0, 0, 2.9999999999999987, 5.427050983124841, 0, 0, 0}, {18.944271909999152, 0, -0.49999999999999994, 0, 0, 0, 8.85410196624968, 11.590169943749471, 0, 0, 0}, {30.652475842498518, 0, -0.8090169943749473, 0, 0, 0, 15.326237921249257, 17.135254915624206, 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {30.652475842498525, 0, 0, 0, 0, 0, 0, 12.708203932499368, 20.562305898749052, 0, -1.618033988749895}, {37.88854381999832, 0, 0, 0, 0, 0, 0, 16.708203932499373, 24.180339887498953, 0, -2.0000000000000004}, {37.88854381999832, 0, 0, 0, 0, 0, 0, 17.70820393249937, 23.180339887498953, 0, -2.0000000000000004}, {30.652475842498525, 0, 0, 0, 0, 0, 0, 15.326237921249263, 17.944271909999156, 0, -1.618033988749895}, {18.94427190999916, 0, 0, 0, 0, 0, 0, 10.47213595499958, 10.472135954999583, 0, -1.0000000000000002}, {7.236067977499789, 0, 0, 0, 0, 0, 0, 5., 3.618033988749895, 0, -0.38196601125010515}, {0, 0, 0, 0, 0, 0, 0, 1., 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1., 0, 0}, {7.236067977499789, 0, 0, 0, 0, 0, 0, 2.3819660112501055, 6.236067977499789, 0, -0.38196601125010515}, {18.944271909999156, 0, 0, 0, 0, 0, 0, 7.236067977499789, 13.708203932499368, 0, -1.}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {18.944271909999127, 0, 0, 0, 0, 0, 0, -2.6180339887498913, 13.090169943749448, 9.472135954999569, 0}, {30.65247584249848, 0, 0, 0, 0, 0, 0, -4.2360679774997845, 22.18033988749891, 13.708203932499353, 0}, {37.88854381999827, 0, 0, 0, 0, 0, 0, -5.2360679774997845, 28.416407864998696, 15.708203932499353, 0}, {37.88854381999827, 0, 0, 0, 0, 0, 0, -5.2360679774997845, 29.416407864998696, 14.708203932499353, 0}, {30.652475842498493, 0, 0, 0, 0, 0, 0, -4.236067977499786, 24.798373876248814, 11.090169943749464, 0}, {18.944271909999138, 0, 0, 0, 0, 0, 0, -2.6180339887498927, 16.326237921249245, 6.236067977499784, 0}, {7.236067977499787, 0, 0, 0, 0, 0, 0, -1., 7.236067977499787, 2., 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1., 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1., 0}, {7.236067977499772, 0, 0, 0, 0, 0, 0, -0.9999999999999979, 4.618033988749881, 4.618033988749889, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {7.236067977499787, -1., 0, 0, 0, 0, 0, 0, 0, 2., 7.236067977499787}, {18.944271909999152, -2.618033988749895, 0, 0, 0, 0, 0, 0, 0, 6.236067977499789, 16.32623792124926}, {30.652475842498518, -4.23606797749979, 0, 0, 0, 0, 0, 0, 0, 11.090169943749473, 24.798373876248835}, {37.88854381999831, -5.236067977499791, 0, 0, 0, 0, 0, 0, 0, 14.70820393249937, 29.41640786499873}, {37.88854381999831, -5.236067977499791, 0, 0, 0, 0, 0, 0, 0, 15.70820393249937, 28.41640786499873}, {30.652475842498518, -4.23606797749979, 0, 0, 0, 0, 0, 0, 0, 13.708203932499368, 22.18033988749894}, {18.944271909999156, -2.6180339887498953, 0, 0, 0, 0, 0, 0, 0, 9.47213595499958, 13.090169943749473}, {7.236067977499787, -1., 0, 0, 0, 0, 0, 0, 0, 4.618033988749894, 4.618033988749893}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1., 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.}}, {{-1., 0, 0.21114561800016826, -0.1304951684997056, 0, 0, 0.13049516849970558, 0, 0, 0, 0}, {0, 0, 1.9999999999999998, -1.2360679774997891, 0, 0, 0.2360679774997896, 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0, 0, 0}, {0, 0, -0.6180339887498948, 1.381966011250105, 0, 0, 0.23606797749978967, 0, 0, 0, 0}, {0, 0, -0.6180339887498951, 1., 0, 0, 0.6180339887498948, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0, 0, 0, 0}, {0, 0, 0.9999999999999996, -1.236067977499789, 0, 0, 1.2360679774997896, 0, 0, 0, 0}, {0, 0, 1.9999999999999998, -2.236067977499789, 0, 0, 1.2360679774997896, 0, 0, 0, 0}, {0, 0, 2.618033988749895, -2.618033988749894, 0, 0, 1., 0, 0, 0, 0}, {0, 0, 2.6180339887498945, -2.236067977499789, 0, 0, 0.6180339887498948, 0, 0, 0, 0}}} +{{-1.3714888989165934, 0.7291345929157375, 0, 0}, {-3.0667424083638375, -3.088663700337693, 1.6468751683109801, -2.7856665512943684}, {-3.0667424083638366, -3.088663700337694, 2.9697237154329486, -1.2856426443591165}, {-3.066742408363835, -3.088663700337693, 3.1582387404561523, 0.7054530553350252}, {-3.0667424083638384, -3.088663700337693, 2.140413911211762, 2.427089665358647}, {-3.066742408363837, -3.0886637003376936, 0.3050237178775801, 3.2216605169588752}, {-3.0667424083638353, -3.0886637003376927, -1.646875168310981, 2.7856665512943697}, {-3.0667424083638384, -3.088663700337692, -2.96972371543295, 1.2856426443591176}, {-3.0667424083638366, -3.088663700337695, -3.158238740456152, -0.705453055335025}, {-3.0667424083638357, -3.088663700337693, -2.1404139112117617, -2.427089665358647}, {-3.066742408363844, -3.088663700337698, -0.30502371787757865, -3.2216605169588717}} +{{0, 1, 10}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {0, 6, 5}, {0, 7, 6}, {0, 8, 7}, {0, 9, 8}, {0, 10, 9}, {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}} \ No newline at end of file diff --git a/fractal_dimension/circle_counting_new/data/dodecahedron.txt b/fractal_dimension/circle_counting_new/data/dodecahedron.txt index 45b1cf1..8b9436d 100644 --- a/fractal_dimension/circle_counting_new/data/dodecahedron.txt +++ b/fractal_dimension/circle_counting_new/data/dodecahedron.txt @@ -1,371 +1,313 @@ -{{{1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0.}, {6.8541, 0., 0., 0., 0., 0., 0., 0., 9.47214, 0., 0., - 0., 0., -3.23607, 0., 0., 0., 0., -1.61803, 0.}, {2., 0., 0., 0., - 0., 0., 0., 0., 2.61803, 0., 0., 0., 0., 1., 0., 0., 0., - 0., -0.618034, 0.}, {4.61803, 0., 0., 0., 0., 0., 0., 0., 4.23607, - 0., 0., 0., 0., -3.23607, 0., 0., 0., 0., -0.618034, 0.}, {6.23607, - 0., 0., 0., 0., 0., 0., 0., 8.47214, 0., 0., 0., 0., -1.61803, 0., - 0., 0., 0., -1.61803, 0.}, {7.8541, 0., 0., 0., 0., 0., 0., 0., - 9.47214, 0., 0., 0., 0., -4.23607, 0., 0., 0., 0., -1.61803, - 0.}, {4.23607, 0., 0., 0., 0., 0., 0., 0., 4.23607, 0., 0., 0., 0., - 0., 0., 0., 0., 0., -1., 0.}, {5.8541, 0., 0., 0., 0., 0., 0., 0., - 5.23607, 0., 0., 0., 0., -2.61803, 0., 0., 0., 0., -1., 0.}, {0., - 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0.}, {1., 0., 0., 0., 0., 0., 0., 0., 1.61803, 0., 0., 0., - 0., -1.61803, 0., 0., 0., 0., 0., 0.}, {6.8541, 0., 0., 0., 0., 0., - 0., 0., 7.8541, 0., 0., 0., 0., -1.61803, 0., 0., 0., - 0., -1.61803, 0.}, {7.8541, 0., 0., 0., 0., 0., 0., 0., 8.47214, - 0., 0., 0., 0., -3.23607, 0., 0., 0., 0., -1.61803, 0.}, {4.23607, - 0., 0., 0., 0., 0., 0., 0., 6.8541, 0., 0., 0., 0., -2.61803, 0., - 0., 0., 0., -1., 0.}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0., 1., 0., 0., 0., 0., 0., 0.}, {1.61803, 0., 0., 0., 0., 0., - 0., 0., 1., 0., 0., 0., 0., -1.61803, 0., 0., 0., 0., 0., - 0.}, {3.61803, 0., 0., 0., 0., 0., 0., 0., 2.61803, 0., 0., 0., - 0., -0.618034, 0., 0., 0., 0., -0.618034, 0.}, {2., 0., 0., 0., 0., - 0., 0., 0., 4.23607, 0., 0., 0., 0., -0.618034, 0., 0., 0., - 0., -0.618034, 0.}, {3.61803, 0., 0., 0., 0., 0., 0., 0., 5.23607, - 0., 0., 0., 0., -3.23607, 0., 0., 0., 0., -0.618034, 0.}, {3.23607, - 0., 0., 0., 0., 0., 0., 0., 5.23607, 0., 0., 0., 0., 0., 0., 0., - 0., 0., -1., 0.}, {5.8541, 0., 0., 0., 0., 0., 0., 0., 6.8541, 0., - 0., 0., 0., -4.23607, 0., 0., 0., 0., -1., 0.}}, {{0., 0., - 0., -1.61803, 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 1.61803, 0., - 0., 0., 0., 0.}, {0., 0., 0., -10.0902, 0., 0., 0., 11.0902, 0., - 0., 0., 0., 0., -2.61803, 13.0902, 0., 0., 0., 0., 0.}, {0., 0., - 0., -9.47214, 0., 0., 0., 8.47214, 0., 0., 0., 0., 0., -1.61803, - 10.0902, 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., -11.7082, - 0., 0., 0., 12.0902, 0., 0., 0., 0., 0., -2.61803, 13.7082, 0., - 0., 0., 0., 0.}, {0., 0., 0., -5.23607, 0., 0., 0., 6.8541, 0., 0., - 0., 0., 0., -1.61803, 7.47214, 0., 0., 0., 0., 0.}, {0., 0., - 0., -6.47214, 0., 0., 0., 6.23607, 0., 0., 0., 0., 0., -1., - 6.23607, 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., -7.8541, - 0., 0., 0., 6.8541, 0., 0., 0., 0., 0., -1.61803, 10.0902, 0., 0., - 0., 0., 0.}, {0., 0., 0., -3.8541, 0., 0., 0., 3.61803, 0., 0., 0., - 0., 0., -1., 6.23607, 0., 0., 0., 0., 0.}, {0., 0., 0., -7.8541, - 0., 0., 0., 8.47214, 0., 0., 0., 0., 0., -1.61803, 8.47214, 0., 0., - 0., 0., 0.}, {0., 0., 0., -3.8541, 0., 0., 0., 5.23607, 0., 0., - 0., 0., 0., -1., 4.61803, 0., 0., 0., 0., 0.}, {0., 0., - 0., -10.0902, 0., 0., 0., 10.4721, 0., 0., 0., 0., 0., -2.61803, - 13.7082, 0., 0., 0., 0., 0.}, {0., 0., 0., -6.47214, 0., 0., 0., - 5.23607, 0., 0., 0., 0., 0., -1., 7.23607, 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., -1.61803, 0., 0., 0., 1.61803, - 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0.}, {0., 0., - 0., -11.7082, 0., 0., 0., 11.0902, 0., 0., 0., 0., 0., -2.61803, - 14.7082, 0., 0., 0., 0., 0.}, {0., 0., 0., -5.23607, 0., 0., 0., - 5.8541, 0., 0., 0., 0., 0., -1.61803, 8.47214, 0., 0., 0., 0., - 0.}, {0., 0., 0., -12.7082, 0., 0., 0., 12.0902, 0., 0., 0., 0., - 0., -2.61803, 14.7082, 0., 0., 0., 0., 0.}, {0., 0., 0., -2.23607, - 0., 0., 0., 3.61803, 0., 0., 0., 0., 0., -1., 4.61803, 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.}, {-7.47214, 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0., 0., -1., 10.4721, 0., 9.47214, 0., 0., 0., - 0.}, {-1.61803, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 1.61803, 0., 1., 0., 0., 0., 0.}, {-2., 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0., 0., -0.618034, 4.8541, 0., 5.23607, 0., 0., 0., - 0.}, {-6.23607, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., -0.618034, 7.47214, 0., 6.8541, 0., 0., 0., 0.}, {-6.47214, 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., -1., 9.47214, 0., 9.47214, - 0., 0., 0., 0.}, {-1.61803, 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0., 1., 0., 1.61803, 0., 0., 0., 0.}, {-1.8541, 0., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0., -0.381966, 3., 0., 4.23607, 0., - 0., 0., 0.}, {-1.8541, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., -0.381966, 4.61803, 0., 2.61803, 0., 0., 0., 0.}, {-2., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., -0.618034, 5.8541, 0., - 4.23607, 0., 0., 0., 0.}, {-4.47214, 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0., 0., -0.381966, 4.61803, 0., 5.23607, 0., 0., 0., - 0.}, {-4.61803, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., -0.618034, 5.8541, 0., 6.8541, 0., 0., 0., 0.}, {-6.47214, 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., -1., 10.4721, 0., 8.47214, - 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.236068, 0., 0., 0., 0., 0., - 0., 0., 0., 0., 0., 0., -0.381966, 3., 0., 2.61803, 0., 0., 0., - 0.}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 1., 0., 0., 0., 0.}, {-4.61803, 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0., -0.618034, 7.47214, 0., 5.23607, 0., 0., 0., - 0.}, {-4.8541, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., -1., - 9.47214, 0., 7.8541, 0., 0., 0., 0.}, {-4.47214, 0., 0., 0., 0., - 0., 0., 0., 0., 0., 0., 0., -0.381966, 5.61803, 0., 4.23607, 0., - 0., 0., 0.}, {-4.8541, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., -1., 8.8541, 0., 8.47214, 0., 0., 0., 0.}}, {{-1., 4.47214, 0., - 0., 0., 0., 0., 0., 0., 0., 4., 4., 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.618034, 3., 0., 0., 0., 0., 0., 0., 0., - 0., 3.8541, 1.23607, 0., 0., 0., 0., 0., 0., 0., 0.}, {-0.618034, - 3., 0., 0., 0., 0., 0., 0., 0., 0., 1.23607, 3.8541, 0., 0., 0., - 0., 0., 0., 0., 0.}, {0., 0.618034, 0., 0., 0., 0., 0., 0., 0., 0., - 1., -0.618034, 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0.618034, 0., - 0., 0., 0., 0., 0., 0., 0., -0.618034, 1., 0., 0., 0., 0., 0., 0., - 0., 0.}, {-0.381966, 1.47214, 0., 0., 0., 0., 0., 0., 0., 0., - 2.76393, 1.1459, 0., 0., 0., 0., 0., 0., 0., 0.}, {-0.381966, - 1.47214, 0., 0., 0., 0., 0., 0., 0., 0., 1.1459, 2.76393, 0., 0., - 0., 0., 0., 0., 0., 0.}, {-1., 5.47214, 0., 0., 0., 0., 0., 0., 0., - 0., 4., 3., 0., 0., 0., 0., 0., 0., 0., 0.}, {-1., 5.47214, 0., - 0., 0., 0., 0., 0., 0., 0., 3., 4., 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.381966, 3.09017, 0., 0., - 0., 0., 0., 0., 0., 0., 1.1459, 1.1459, 0., 0., 0., 0., 0., 0., 0., - 0.}, {-1., 4.8541, 0., 0., 0., 0., 0., 0., 0., 0., 4.61803, 3., - 0., 0., 0., 0., 0., 0., 0., 0.}, {-1., 4.8541, 0., 0., 0., 0., 0., - 0., 0., 0., 3., 4.61803, 0., 0., 0., 0., 0., 0., 0., - 0.}, {-0.618034, 2.38197, 0., 0., 0., 0., 0., 0., 0., 0., 2.8541, - 2.8541, 0., 0., 0., 0., 0., 0., 0., 0.}, {-0.618034, 4., 0., 0., - 0., 0., 0., 0., 0., 0., 2.8541, 1.23607, 0., 0., 0., 0., 0., 0., - 0., 0.}, {-0.618034, 4., 0., 0., 0., 0., 0., 0., 0., 0., 1.23607, - 2.8541, 0., 0., 0., 0., 0., 0., 0., 0.}, {-0.381966, 2.47214, 0., - 0., 0., 0., 0., 0., 0., 0., 2.76393, 0.145898, 0., 0., 0., 0., 0., - 0., 0., 0.}, {-0.381966, 2.47214, 0., 0., 0., 0., 0., 0., 0., 0., - 0.145898, 2.76393, 0., 0., 0., 0., 0., 0., 0., 0.}}, {{0., 0., 0., - 0., 0., 5.23607, 0., 0., 0., 0., 0., 0., 5.23607, 0., 0., 0., 0., - 2.61803, -1.61803, 0.}, {0., 0., 0., 0., 0., 0.618034, 0., 0., 0., - 0., 0., 0., 1., 0., 0., 0., 0., -0.618034, 0., 0.}, {0., 0., 0., - 0., 0., 5.23607, 0., 0., 0., 0., 0., 0., 6.8541, 0., 0., 0., 0., - 1., -1.61803, 0.}, {0., 0., 0., 0., 0., 2.61803, 0., 0., 0., 0., - 0., 0., 1., 0., 0., 0., 0., 2., -0.618034, 0.}, {0., 0., 0., 0., - 0., 2.61803, 0., 0., 0., 0., 0., 0., 3.61803, 0., 0., 0., - 0., -0.618034, -0.618034, 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.8541, 0., 0., 0., 0., 0., 0., 6.23607, 0., 0., 0., 0., - 1., -1.61803, 0.}, {0., 0., 0., 0., 0., 4.23607, 0., 0., 0., 0., - 0., 0., 2.61803, 0., 0., 0., 0., 1.61803, -1., 0.}, {0., 0., 0., - 0., 0., 2.61803, 0., 0., 0., 0., 0., 0., 4.23607, 0., 0., 0., 0., - 1.61803, -1., 0.}, {0., 0., 0., 0., 0., 1.61803, 0., 0., 0., 0., - 0., 0., 2., 0., 0., 0., 0., 2., -0.618034, 0.}, {0., 0., 0., 0., - 0., 4.23607, 0., 0., 0., 0., 0., 0., 4.23607, 0., 0., 0., 0., - 0., -1., 0.}, {0., 0., 0., 0., 0., 3.23607, 0., 0., 0., 0., 0., 0., - 2., 0., 0., 0., 0., 0.381966, -0.618034, 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., 4.8541, 0., 0., 0., 0., 0., 0., 6.23607, 0., 0., - 0., 0., 2., -1.61803, 0.}, {0., 0., 0., 0., 0., 3.23607, 0., 0., - 0., 0., 0., 0., 2.61803, 0., 0., 0., 0., 2.61803, -1., 0.}, {0., - 0., 0., 0., 0., 5.8541, 0., 0., 0., 0., 0., 0., 5.23607, 0., 0., - 0., 0., 2., -1.61803, 0.}, {0., 0., 0., 0., 0., 1.61803, 0., 0., - 0., 0., 0., 0., 3.61803, 0., 0., 0., 0., 0.381966, -0.618034, - 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., 3.23607, 0., 0., 0., 0., - 0., 0., 5.23607, 0., 0., 0., 0., 0., -1., 0.}, {0., 0., 0., 0., 0., - 0.618034, 0., 0., 0., 0., 0., 0., -0.618034, 0., 0., 0., 0., 1., - 0., 0.}}, {{0., 0., 0., 0., 3.61803, 0., 0., -1., 0., 0., 0., 0., - 5.23607, 0., 0., 0., 0., 0., 3.61803, 0.}, {0., 0., 0., 0., 1., 0., - 0., 0., 0., 0., 0., 0., 0.618034, 0., 0., 0., 0., 0., -0.618034, - 0.}, {0., 0., 0., 0., 1.38197, 0., 0., -0.381966, 0., 0., 0., 0., - 1.61803, 0., 0., 0., 0., 0., 2.38197, 0.}, {0., 0., 0., 0., - 4.61803, 0., 0., -1., 0., 0., 0., 0., 5.8541, 0., 0., 0., 0., 0., - 2., 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., 0., 0., -0.381966, - 0., 0., 0., 0., 2.61803, 0., 0., 0., 0., 0., -0.236068, 0.}, {0., - 0., 0., 0., 3.23607, 0., 0., -0.618034, 0., 0., 0., 0., 2.61803, - 0., 0., 0., 0., 0., 2.23607, 0.}, {0., 0., 0., 0., 5.23607, 0., - 0., -1., 0., 0., 0., 0., 5.23607, 0., 0., 0., 0., 0., 2., 0.}, {0., - 0., 0., 0., 0.381966, 0., 0., -0.381966, 0., 0., 0., 0., 2.61803, - 0., 0., 0., 0., 0., 2.38197, 0.}, {0., 0., 0., 0., 1.61803, 0., - 0., -0.618034, 0., 0., 0., 0., 4.23607, 0., 0., 0., 0., 0., - 2.23607, 0.}, {0., 0., 0., 0., 3., 0., 0., -0.381966, 0., 0., 0., - 0., 1.61803, 0., 0., 0., 0., 0., 0.763932, 0.}, {0., 0., 0., 0., - 4.23607, 0., 0., -0.618034, 0., 0., 0., 0., 3.23607, 0., 0., 0., - 0., 0., 0.618034, 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., 1.61803, 0., - 0., -0.618034, 0., 0., 0., 0., 3.23607, 0., 0., 0., 0., 0., - 3.23607, 0.}, {0., 0., 0., 0., 3.61803, 0., 0., -1., 0., 0., 0., - 0., 5.8541, 0., 0., 0., 0., 0., 3., 0.}, {0., 0., 0., 0., 4.61803, - 0., 0., -1., 0., 0., 0., 0., 4.8541, 0., 0., 0., 0., 0., 3., - 0.}, {0., 0., 0., 0., -0.618034, 0., 0., 0., 0., 0., 0., 0., - 0.618034, 0., 0., 0., 0., 0., 1., 0.}, {0., 0., 0., 0., 1.38197, - 0., 0., -0.381966, 0., 0., 0., 0., 3.23607, 0., 0., 0., 0., 0., - 0.763932, 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., 3.23607, 0., - 0., -0.618034, 0., 0., 0., 0., 4.23607, 0., 0., 0., 0., 0., - 0.618034, 0.}}, {{-1., 0., 3.23607, 0., 2., 0., 3.23607, 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {-0.618034, 0., - 1.38197, 0., 2.8541, 0., 1.38197, 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.}, {-1.61803, 0., 3.61803, 0., - 4.23607, 0., 5.23607, 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.}, {-1., 0., 1.61803, 0., 3.61803, 0., - 3.23607, 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.}, {-1., 0., 1.61803, 0., 2.61803, 0., 4.23607, 0., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {-1., 0., 4.23607, 0., - 2.61803, 0., 1.61803, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0.}, {-1.61803, 0., 5.23607, 0., 4.23607, 0., 3.61803, 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0., -0.618034, - 0., 0.618034, 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0.}, {-0.618034, 0., 0.381966, 0., 2.23607, 0., 3., 0., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {-1., 0., 3.23607, 0., - 3.61803, 0., 1.61803, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0.}, {-0.618034, 0., 3., 0., 1.23607, 0., 1.38197, 0., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {-1.61803, 0., 4.61803, - 0., 3.8541, 0., 4.61803, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0.}, {-0.618034, 0., 1.38197, 0., 1.23607, 0., 3., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {-0.618034, 0., 3., - 0., 2.23607, 0., 0.381966, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0.}, {-1.61803, 0., 4.61803, 0., 4.8541, 0., 3.61803, 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0., 1., 0., - 0.618034, 0., -0.618034, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0.}, {-1.61803, 0., 3.61803, 0., 4.8541, 0., 4.61803, 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}}, {{0., 0., - 2.61803, 0., 0., 0., 0., 0., 3., 0., 0., 0., 0., -0.236068, 0., 0., - 0., 0., 0., -0.381966}, {0., 0., 6.8541, 0., 0., 0., 0., 0., - 7.47214, 0., 0., 0., 0., -6.23607, 0., 0., 0., 0., - 0., -0.618034}, {0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0., 7.8541, 0., 0., 0., 0., - 0., 9.47214, 0., 0., 0., 0., -4.8541, 0., 0., 0., 0., - 0., -1.}, {0., 0., 5.23607, 0., 0., 0., 0., 0., 4.61803, 0., 0., - 0., 0., -4.47214, 0., 0., 0., 0., 0., -0.381966}, {0., 0., 9.47214, - 0., 0., 0., 0., 0., 10.4721, 0., 0., 0., 0., -7.47214, 0., 0., 0., - 0., 0., -1.}, {0., 0., 4.23607, 0., 0., 0., 0., 0., 3., 0., 0., - 0., 0., -1.8541, 0., 0., 0., 0., 0., -0.381966}, {0., 0., 8.47214, - 0., 0., 0., 0., 0., 8.8541, 0., 0., 0., 0., -4.8541, 0., 0., 0., - 0., 0., -1.}, {0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., - 0., 0., 0., 0., 0., 0., 0.}, {0., 0., 2.61803, 0., 0., 0., 0., 0., - 4.61803, 0., 0., 0., 0., -1.8541, 0., 0., 0., 0., - 0., -0.381966}, {0., 0., 6.8541, 0., 0., 0., 0., 0., 5.8541, 0., - 0., 0., 0., -4.61803, 0., 0., 0., 0., 0., -0.618034}, {0., 0., - 9.47214, 0., 0., 0., 0., 0., 9.47214, 0., 0., 0., 0., -6.47214, 0., - 0., 0., 0., 0., -1.}, {0., 0., 4.23607, 0., 0., 0., 0., 0., - 5.61803, 0., 0., 0., 0., -4.47214, 0., 0., 0., 0., - 0., -0.381966}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 1., 0., 0., 0., 0., 0., 0.}, {0., 0., 4.23607, 0., 0., 0., 0., - 0., 5.8541, 0., 0., 0., 0., -2., 0., 0., 0., 0., - 0., -0.618034}, {0., 0., 5.23607, 0., 0., 0., 0., 0., 4.8541, 0., - 0., 0., 0., -2., 0., 0., 0., 0., 0., -0.618034}, {0., 0., 1., 0., - 0., 0., 0., 0., 1.61803, 0., 0., 0., 0., -1.61803, 0., 0., 0., 0., - 0., 0.}, {0., 0., 5.23607, 0., 0., 0., 0., 0., 7.47214, 0., 0., 0., - 0., -4.61803, 0., 0., 0., 0., 0., -0.618034}, {0., 0., 1.61803, - 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., -1.61803, 0., 0., 0., 0., - 0., 0.}, {0., 0., 8.47214, 0., 0., 0., 0., 0., 10.4721, 0., 0., 0., - 0., -6.47214, 0., 0., 0., 0., 0., -1.}}, {{-1., 0., 0., 3.23607, - 0., 0., 0., 0., 0., 4., 0., 0., 0., 0., 0., 0., 0., -1.23607, 0., - 0.}, {-1.61803, 0., 0., 4.23607, 0., 0., 0., 0., 0., 3.23607, 0., - 0., 0., 0., 0., 0., 0., 1.61803, 0., 0.}, {-2.61803, 0., 0., - 6.8541, 0., 0., 0., 0., 0., 7.8541, 0., 0., 0., 0., 0., 0., - 0., -0.618034, 0., 0.}, {0., 0., 0., 1., 0., 0., 0., 0., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {-2.61803, 0., 0., 6.8541, - 0., 0., 0., 0., 0., 6.23607, 0., 0., 0., 0., 0., 0., 0., 1., 0., - 0.}, {-1., 0., 0., 3.23607, 0., 0., 0., 0., 0., 1.38197, 0., 0., - 0., 0., 0., 0., 0., 1.38197, 0., 0.}, {-2.61803, 0., 0., 7.47214, - 0., 0., 0., 0., 0., 7.23607, 0., 0., 0., 0., 0., 0., 0., -0.618034, - 0., 0.}, {-1., 0., 0., 3.8541, 0., 0., 0., 0., 0., 2.38197, 0., - 0., 0., 0., 0., 0., 0., -0.236068, 0., 0.}, {-1., 0., 0., 2.23607, - 0., 0., 0., 0., 0., 4., 0., 0., 0., 0., 0., 0., 0., -0.236068, 0., - 0.}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., - 0., 0., 0., 0., 0.}, {-2.61803, 0., 0., 7.47214, 0., 0., 0., 0., - 0., 6.23607, 0., 0., 0., 0., 0., 0., 0., 0.381966, 0., - 0.}, {-1.61803, 0., 0., 5.23607, 0., 0., 0., 0., 0., 3.23607, 0., - 0., 0., 0., 0., 0., 0., 0.618034, 0., 0.}, {-1., 0., 0., 2.23607, - 0., 0., 0., 0., 0., 2.38197, 0., 0., 0., 0., 0., 0., 0., 1.38197, - 0., 0.}, {-1.61803, 0., 0., 4.23607, 0., 0., 0., 0., 0., 5.8541, - 0., 0., 0., 0., 0., 0., 0., -1., 0., 0.}, {0., 0., 0., 0.618034, - 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., -0.618034, 0., - 0.}, {-1.61803, 0., 0., 5.23607, 0., 0., 0., 0., 0., 4.8541, 0., - 0., 0., 0., 0., 0., 0., -1., 0., 0.}, {-1.61803, 0., 0., 3.61803, - 0., 0., 0., 0., 0., 4.8541, 0., 0., 0., 0., 0., 0., 0., 0.618034, - 0., 0.}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0., 1., 0., 0.}, {-2.61803, 0., 0., 6.47214, 0., 0., 0., - 0., 0., 7.23607, 0., 0., 0., 0., 0., 0., 0., 0.381966, 0., - 0.}, {0., 0., 0., 0.618034, 0., 0., 0., 0., 0., -0.618034, 0., 0., - 0., 0., 0., 0., 0., 1., 0., 0.}}, {{0., 0., 0., 4.8541, 0., 2., 0., - 2.23607, 0., 0., 0., 0., 0., 0., -1.61803, 0., 0., 0., 0., - 0.}, {0., 0., 0., 2.38197, 0., 2.8541, 0., 0.763932, 0., 0., 0., - 0., 0., 0., -1., 0., 0., 0., 0., 0.}, {0., 0., 0., 6.23607, 0., - 4.23607, 0., 3.61803, 0., 0., 0., 0., 0., 0., -2.61803, 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.23607, 0., 3.61803, 0., - 2.23607, 0., 0., 0., 0., 0., 0., -1.61803, 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.23607, 0., 2.61803, 0., - 3.23607, 0., 0., 0., 0., 0., 0., -1.61803, 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., 7.8541, 0., 4.23607, 0., 2., 0., - 0., 0., 0., 0., 0., -2.61803, 0., 0., 0., 0., 0.}, {0., 0., 0., - 5.8541, 0., 2.61803, 0., 0.618034, 0., 0., 0., 0., 0., - 0., -1.61803, 0., 0., 0., 0., 0.}, {0., 0., 0., 1.38197, 0., - 2.23607, 0., 2.38197, 0., 0., 0., 0., 0., 0., -1., 0., 0., 0., 0., - 0.}, {0., 0., 0., -0.618034, 0., 0.618034, 0., 1., 0., 0., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0., 0., 4.8541, 0., 3.61803, - 0., 0.618034, 0., 0., 0., 0., 0., 0., -1.61803, 0., 0., 0., 0., - 0.}, {0., 0., 0., 7.23607, 0., 3.8541, 0., 3., 0., 0., 0., 0., 0., - 0., -2.61803, 0., 0., 0., 0., 0.}, {0., 0., 0., 4., 0., 1.23607, - 0., 0.763932, 0., 0., 0., 0., 0., 0., -1., 0., 0., 0., 0., - 0.}, {0., 0., 0., 2.38197, 0., 1.23607, 0., 2.38197, 0., 0., 0., - 0., 0., 0., -1., 0., 0., 0., 0., 0.}, {0., 0., 0., 7.23607, 0., - 4.8541, 0., 2., 0., 0., 0., 0., 0., 0., -2.61803, 0., 0., 0., 0., - 0.}, {0., 0., 0., 4., 0., 2.23607, 0., -0.236068, 0., 0., 0., 0., - 0., 0., -1., 0., 0., 0., 0., 0.}, {0., 0., 0., 6.23607, 0., 4.8541, - 0., 3., 0., 0., 0., 0., 0., 0., -2.61803, 0., 0., 0., 0., - 0.}, {0., 0., 0., 1., 0., 0.618034, 0., -0.618034, 0., 0., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0.}}, {{0., 0., 0., 0., -1., 0., - 2.38197, 2.23607, 0., 0., 1.38197, 0., 0., 0., 0., 0., 0., 0., 0., - 0.}, {0., 0., 0., 0., -1.61803, 0., 0.618034, 2.61803, 0., 0., - 5.8541, 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0., 0., 0., -1., - 0., 2.38197, 1.23607, 0., 0., 2.38197, 0., 0., 0., 0., 0., 0., 0., - 0., 0.}, {0., 0., 0., 0., -1., 0., 0.763932, 2.8541, 0., 0., - 2.38197, 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0., 0., 0., -1., - 0., 0.763932, 1.23607, 0., 0., 4., 0., 0., 0., 0., 0., 0., 0., 0., - 0.}, {0., 0., 0., 0., -1., 0., -0.236068, 2.23607, 0., 0., 4., 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., - 0.}, {0., 0., 0., 0., -2.61803, 0., 3.61803, 4.23607, 0., 0., - 6.23607, 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0., 0., - 0., -2.61803, 0., 3., 4.8541, 0., 0., 6.23607, 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.618034, 0.618034, 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., - 0., 0.}, {0., 0., 0., 0., -2.61803, 0., 2., 4.23607, 0., 0., - 7.8541, 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0., 0., - 0., -1.61803, 0., 3.23607, 2.61803, 0., 0., 3.23607, 0., 0., 0., - 0., 0., 0., 0., 0., 0.}, {0., 0., 0., 0., -1.61803, 0., 2.23607, - 3.61803, 0., 0., 3.23607, 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {0., - 0., 0., 0., 0., 0., 1., 0.618034, 0., 0., -0.618034, 0., 0., 0., - 0., 0., 0., 0., 0., 0.}, {0., 0., 0., 0., -2.61803, 0., 3., 3.8541, - 0., 0., 7.23607, 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0., 0., - 0., -2.61803, 0., 2., 4.8541, 0., 0., 7.23607, 0., 0., 0., 0., 0., - 0., 0., 0., 0.}, {0., 0., 0., 0., -1.61803, 0., 2.23607, 2., 0., - 0., 4.8541, 0., 0., 0., 0., 0., 0., 0., 0., 0.}, {0., 0., 0., - 0., -1.61803, 0., 0.618034, 3.61803, 0., 0., 4.8541, 0., 0., 0., - 0., 0., 0., 0., 0., 0.}}, {{0., 0., 0., 0., -1., 0., 0., 0., 0., - 0., 0., 0., -4.23607, 0., 0., 0., 6.8541, 5.8541, 0., 0.}, {0., 0., - 0., 0., -0.618034, 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., - 2.61803, 2., 0., 0.}, {0., 0., 0., 0., -1., 0., 0., 0., 0., 0., 0., - 0., -2.61803, 0., 0., 0., 6.8541, 4.23607, 0., 0.}, {0., 0., 0., - 0., -1., 0., 0., 0., 0., 0., 0., 0., -2.61803, 0., 0., 0., 5.23607, - 5.8541, 0., 0.}, {0., 0., 0., 0., -1., 0., 0., 0., 0., 0., 0., 0., - 0., 0., 0., 0., 5.23607, 3.23607, 0., 0.}, {0., 0., 0., 0., -1., - 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 4.23607, 4.23607, 0., - 0.}, {0., 0., 0., 0., -1.61803, 0., 0., 0., 0., 0., 0., - 0., -3.23607, 0., 0., 0., 9.47214, 6.8541, 0., 0.}, {0., 0., 0., - 0., -1.61803, 0., 0., 0., 0., 0., 0., 0., -3.23607, 0., 0., 0., - 8.47214, 7.8541, 0., 0.}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., - 0., 0., -1.61803, 0., 0., 0., 1.61803, 1., 0., 0.}, {0., 0., 0., - 0., 0., 0., 0., 0., 0., 0., 0., 0., -1.61803, 0., 0., 0., 1., - 1.61803, 0., 0.}, {0., 0., 0., 0., -1.61803, 0., 0., 0., 0., 0., - 0., 0., -1.61803, 0., 0., 0., 8.47214, 6.23607, 0., 0.}, {0., 0., - 0., 0., -1.61803, 0., 0., 0., 0., 0., 0., 0., -1.61803, 0., 0., 0., - 7.8541, 6.8541, 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.618034, 0., 0., 0., 0., 0., 0., 0., -3.23607, 0., 0., 0., - 5.23607, 3.61803, 0., 0.}, {0., 0., 0., 0., -0.618034, 0., 0., 0., - 0., 0., 0., 0., -3.23607, 0., 0., 0., 4.23607, 4.61803, 0., - 0.}, {0., 0., 0., 0., -1.61803, 0., 0., 0., 0., 0., 0., - 0., -4.23607, 0., 0., 0., 9.47214, 7.8541, 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.618034, 0., 0., 0., 0., - 0., 0., 0., -0.618034, 0., 0., 0., 4.23607, 2., 0., 0.}, {0., 0., - 0., 0., -0.618034, 0., 0., 0., 0., 0., 0., 0., -0.618034, 0., 0., - 0., 2.61803, 3.61803, 0., 0.}}} +{{{0, 0, 0, 0, 0, 0, 0, 0, 1., -1.61803, 0, 0, 0, 0, 1.61803, 0, 0, 0, + 0, 0}, {0, -1., 0, 0, 0, 0, 0, 0, 8.47214, -3.23607, 0, 0, 0, 0, + 7.23607, 0, 0, 0, 0, 0}, {0, -0.381966, 0, 0, 0, 0, 0, 0, + 5.23607, -3.8541, 0, 0, 0, 0, 4., 0, 0, 0, 0, 0}, {0, -0.381966, 0, + 0, 0, 0, 0, 0, 2.61803, -1.23607, 0, 0, 0, 0, 4., 0, 0, 0, 0, + 0}, {0, -1., 0, 0, 0, 0, 0, 0, 9.47214, -4.8541, 0, 0, 0, 0, + 7.8541, 0, 0, 0, 0, 0}, {0, -1., 0, 0, 0, 0, 0, 0, + 7.8541, -3.23607, 0, 0, 0, 0, 7.8541, 0, 0, 0, 0, + 0}, {0, -0.618034, 0, 0, 0, 0, 0, 0, 6.8541, -5.23607, 0, 0, 0, 0, + 6.47214, 0, 0, 0, 0, 0}, {0, -0.618034, 0, 0, 0, 0, 0, 0, + 5.23607, -3.61803, 0, 0, 0, 0, 6.47214, 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, -1., 0, 0, 0, + 0, 0, 0, 9.47214, -5.8541, 0, 0, 0, 0, 8.8541, 0, 0, 0, 0, + 0}, {0, -1., 0, 0, 0, 0, 0, 0, 8.47214, -4.8541, 0, 0, 0, 0, + 8.8541, 0, 0, 0, 0, 0}, {0, -0.618034, 0, 0, 0, 0, 0, 0, + 5.23607, -1., 0, 0, 0, 0, 3.8541, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, + 0, 0, 0, 1.61803, -1.61803, 0, 0, 0, 0, 1., 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.381966, 0, 0, 0, 0, 0, 0, 4.23607, -3.8541, 0, 0, 0, 0, + 5., 0, 0, 0, 0, 0}, {0, -0.381966, 0, 0, 0, 0, 0, 0, + 4.23607, -1.23607, 0, 0, 0, 0, 2.38197, 0, 0, 0, 0, + 0}, {0, -0.381966, 0, 0, 0, 0, 0, 0, 2.61803, 0.381966, 0, 0, 0, 0, + 2.38197, 0, 0, 0, 0, 0}, {0, -0.618034, 0, 0, 0, 0, 0, 0, + 6.8541, -3.61803, 0, 0, 0, 0, 4.8541, 0, 0, 0, 0, + 0}, {0, -0.618034, 0, 0, 0, 0, 0, 0, 4.23607, -1., 0, 0, 0, 0, + 4.8541, 0, 0, 0, 0, 0}}, {{0, 0, 0, -1.61803, 0, 0, 0, 1., 0, 0, 0, + 0, 0, 0, 1.61803, 0, 0, 0, 0, 0}, {0, 0, 0, -3.23607, 0, 0, 0, + 7.8541, 0, 0, 0, 0, -1., 0, 7.8541, 0, 0, 0, 0, 0}, {0, 0, + 0, -5.23607, 0, 0, 0, 6.47214, 0, 0, 0, 0, -0.618034, 0, 6.8541, 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, -4.8541, 0, 0, 0, 8.8541, 0, 0, 0, 0, -1., 0, + 8.47214, 0, 0, 0, 0, 0}, {0, 0, 0, -1., 0, 0, 0, 4.8541, 0, 0, 0, + 0, -0.618034, 0, 4.23607, 0, 0, 0, 0, 0}, {0, 0, 0, -3.8541, 0, 0, + 0, 5., 0, 0, 0, 0, -0.381966, 0, 4.23607, 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, -3.61803, 0, 0, 0, 4.8541, 0, 0, 0, 0, -0.618034, 0, 6.8541, 0, + 0, 0, 0, 0}, {0, 0, 0, -1.23607, 0, 0, 0, 2.38197, 0, 0, 0, + 0, -0.381966, 0, 4.23607, 0, 0, 0, 0, 0}, {0, 0, 0, -3.61803, 0, 0, + 0, 6.47214, 0, 0, 0, 0, -0.618034, 0, 5.23607, 0, 0, 0, 0, 0}, {0, + 0, 0, -1.23607, 0, 0, 0, 4., 0, 0, 0, 0, -0.381966, 0, 2.61803, 0, + 0, 0, 0, 0}, {0, 0, 0, -3.23607, 0, 0, 0, 7.23607, 0, 0, 0, + 0, -1., 0, 8.47214, 0, 0, 0, 0, 0}, {0, 0, 0, -3.8541, 0, 0, 0, 4., + 0, 0, 0, 0, -0.381966, 0, 5.23607, 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, -1.61803, + 0, 0, 0, 1.61803, 0, 0, 0, 0, 0, 0, 1., 0, 0, 0, 0, 0}, {0, 0, + 0, -4.8541, 0, 0, 0, 7.8541, 0, 0, 0, 0, -1., 0, 9.47214, 0, 0, 0, + 0, 0}, {0, 0, 0, -1., 0, 0, 0, 3.8541, 0, 0, 0, 0, -0.618034, 0, + 5.23607, 0, 0, 0, 0, 0}, {0, 0, 0, -5.8541, 0, 0, 0, 8.8541, 0, 0, + 0, 0, -1., 0, 9.47214, 0, 0, 0, 0, 0}, {0, 0, 0, 0.381966, 0, 0, 0, + 2.38197, 0, 0, 0, 0, -0.381966, 0, 2.61803, 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}, {1., 0, + 0, 0, -1.61803, 0, 7.47214, 0, 0, 0, 0, 0, 0, 4.61803, 0, 0, 0, 0, + 0, 0}, {-0.618034, 0, 0, 0, 0, 0, 0.618034, 0, 0, 0, 0, 0, 0, 1., + 0, 0, 0, 0, 0, 0}, {2.61803, 0, 0, 0, -1., 0, 4.23607, 0, 0, 0, 0, + 0, 0, 1.61803, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, -1., 0, 5.23607, 0, + 0, 0, 0, 0, 0, 3.23607, 0, 0, 0, 0, 0, 0}, {2., 0, 0, 0, -1.61803, + 0, 7.47214, 0, 0, 0, 0, 0, 0, 3.61803, 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., 0, 0, + 0, -0.618034, 0, 3.23607, 0, 0, 0, 0, 0, 0, 0.381966, 0, 0, 0, 0, + 0, 0}, {0.381966, 0, 0, 0, -0.618034, 0, 2.23607, 0, 0, 0, 0, 0, 0, + 3., 0, 0, 0, 0, 0, 0}, {1.61803, 0, 0, 0, -1., 0, 3.61803, 0, 0, + 0, 0, 0, 0, 3.23607, 0, 0, 0, 0, 0, 0}, {0.381966, 0, 0, + 0, -0.618034, 0, 3.8541, 0, 0, 0, 0, 0, 0, 1.38197, 0, 0, 0, 0, 0, + 0}, {1.61803, 0, 0, 0, -1., 0, 5.23607, 0, 0, 0, 0, 0, 0, 1.61803, + 0, 0, 0, 0, 0, 0}, {1., 0, 0, 0, -1.61803, 0, 6.8541, 0, 0, 0, 0, + 0, 0, 5.23607, 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}, {2., 0, 0, 0, -0.618034, 0, 2.23607, + 0, 0, 0, 0, 0, 0, 1.38197, 0, 0, 0, 0, 0, 0}, {1., 0, 0, 0, 0, 0, + 0.618034, 0, 0, 0, 0, 0, 0, -0.618034, 0, 0, 0, 0, 0, 0}, {0, 0, 0, + 0, -1., 0, 4.23607, 0, 0, 0, 0, 0, 0, 4.23607, 0, 0, 0, 0, 0, + 0}, {2., 0, 0, 0, -1.61803, 0, 6.47214, 0, 0, 0, 0, 0, 0, 4.61803, + 0, 0, 0, 0, 0, 0}, {-0.618034, 0, 0, 0, -0.618034, 0, 3.23607, 0, + 0, 0, 0, 0, 0, 3., 0, 0, 0, 0, 0, 0}, {2.61803, 0, 0, 0, -1.61803, + 0, 6.8541, 0, 0, 0, 0, 0, 0, 3.61803, 0, 0, 0, 0, 0, 0}}, {{0, 0, + 0, 0, 0, 6.23607, 0, 0, 0, 0, 8.47214, -1.61803, 0, 0, 0, -1.61803, + 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1.61803, 0, 0, 0, 0, 1., -1.61803, 0, + 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 4.23607, 0, 0, 0, 0, + 6.8541, -2.61803, 0, 0, 0, -1., 0, 0, 0, 0}, {0, 0, 0, 0, 0, + 4.23607, 0, 0, 0, 0, 4.23607, 0, 0, 0, 0, -1., 0, 0, 0, 0}, {0, 0, + 0, 0, 0, 1., 0, 0, 0, 0, 1.61803, -1.61803, 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, 2., 0, 0, 0, 0, 4.23607, -0.618034, 0, 0, + 0, -0.618034, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 2., 0, 0, 0, 0, 2.61803, + 1., 0, 0, 0, -0.618034, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 7.8541, 0, 0, + 0, 0, 9.47214, -4.23607, 0, 0, 0, -1.61803, 0, 0, 0, 0}, {0, 0, 0, + 0, 0, 7.8541, 0, 0, 0, 0, 8.47214, -3.23607, 0, 0, 0, -1.61803, 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, 0, 0, 4.61803, 0, 0, 0, 0, 4.23607, -3.23607, 0, 0, + 0, -0.618034, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 6.8541, 0, 0, 0, 0, + 9.47214, -3.23607, 0, 0, 0, -1.61803, 0, 0, 0, 0}, {0, 0, 0, 0, 0, + 6.8541, 0, 0, 0, 0, 7.8541, -1.61803, 0, 0, 0, -1.61803, 0, 0, 0, + 0}, {0, 0, 0, 0, 0, 3.23607, 0, 0, 0, 0, 5.23607, 0, 0, 0, 0, -1., + 0, 0, 0, 0}, {0, 0, 0, 0, 0, 5.8541, 0, 0, 0, 0, 6.8541, -4.23607, + 0, 0, 0, -1., 0, 0, 0, 0}, {0, 0, 0, 0, 0, 5.8541, 0, 0, 0, 0, + 5.23607, -2.61803, 0, 0, 0, -1., 0, 0, 0, 0}, {0, 0, 0, 0, 0, + 3.61803, 0, 0, 0, 0, 5.23607, -3.23607, 0, 0, 0, -0.618034, 0, 0, + 0, 0}, {0, 0, 0, 0, 0, 3.61803, 0, 0, 0, 0, 2.61803, -0.618034, 0, + 0, 0, -0.618034, 0, 0, 0, 0}}, {{0, 0, 0, 0, 0, 3.61803, + 0, -1.61803, 0, 0, 0, 0, 4.23607, 0, 0, 0, 0, 0, 0, 5.23607}, {0, + 0, 0, 0, 0, 1., 0, 0, 0, 0, 0, 0, 0.618034, 0, 0, 0, 0, 0, + 0, -0.618034}, {0, 0, 0, 0, 0, 4.61803, 0, -1.61803, 0, 0, 0, 0, + 4.8541, 0, 0, 0, 0, 0, 0, 3.61803}, {0, 0, 0, 0, 0, 1.38197, + 0, -0.618034, 0, 0, 0, 0, 1.23607, 0, 0, 0, 0, 0, 0, 3.}, {0, 0, 0, + 0, 0, 3., 0, -0.618034, 0, 0, 0, 0, 2.23607, 0, 0, 0, 0, 0, 0, + 0.381966}, {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.23607, 0, -1.61803, 0, 0, 0, 0, 4.23607, + 0, 0, 0, 0, 0, 0, 3.61803}, {0, 0, 0, 0, 0, 3.23607, 0, -1., 0, 0, + 0, 0, 2., 0, 0, 0, 0, 0, 0, 3.23607}, {0, 0, 0, 0, 0, 1.61803, + 0, -1., 0, 0, 0, 0, 3.61803, 0, 0, 0, 0, 0, 0, 3.23607}, {0, 0, 0, + 0, 0, 0.381966, 0, -0.618034, 0, 0, 0, 0, 2.23607, 0, 0, 0, 0, 0, + 0, 3.}, {0, 0, 0, 0, 0, 4.23607, 0, -1., 0, 0, 0, 0, 2.61803, 0, 0, + 0, 0, 0, 0, 1.61803}, {0, 0, 0, 0, 0, 3., 0, -0.618034, 0, 0, 0, + 0, 1.23607, 0, 0, 0, 0, 0, 0, 1.38197}, {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, 3.61803, + 0, -1.61803, 0, 0, 0, 0, 4.8541, 0, 0, 0, 0, 0, 0, 4.61803}, {0, 0, + 0, 0, 0, 1.61803, 0, -1., 0, 0, 0, 0, 2.61803, 0, 0, 0, 0, 0, 0, + 4.23607}, {0, 0, 0, 0, 0, 4.61803, 0, -1.61803, 0, 0, 0, 0, 3.8541, + 0, 0, 0, 0, 0, 0, 4.61803}, {0, 0, 0, 0, 0, 1.38197, 0, -0.618034, + 0, 0, 0, 0, 2.8541, 0, 0, 0, 0, 0, 0, 1.38197}, {0, 0, 0, 0, + 0, -0.618034, 0, 0, 0, 0, 0, 0, 0.618034, 0, 0, 0, 0, 0, 0, + 1.}, {0, 0, 0, 0, 0, 3.23607, 0, -1., 0, 0, 0, 0, 3.61803, 0, 0, 0, + 0, 0, 0, 1.61803}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 1.}}, {{0, 5.23607, 0, 0, 2., 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 5.8541, 0, 0, -1.61803}, {0, 1., 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 2., 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 2.61803, 0, 0, -0.618034}, {0, 6.8541, 0, 0, 1., 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5.23607, 0, 0, -1.61803}, {0, 0, 0, + 0, 1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 3.61803, + 0, 0, 0.381966, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.61803, 0, + 0, -0.618034}, {0, 2.61803, 0, 0, 2.61803, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 3.23607, 0, 0, -1.}, {0, 6.23607, 0, 0, 2., 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 4.8541, 0, 0, -1.61803}, {0, 2., 0, 0, 0.381966, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.23607, 0, 0, -0.618034}, {0, + 4.23607, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4.23607, 0, + 0, -1.}, {0, 2., 0, 0, 2., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 1.61803, 0, 0, -0.618034}, {0, 4.23607, 0, 0, 1.61803, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 2.61803, 0, 0, -1.}, {0, 1., 0, 0, -0.618034, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.618034, 0, 0, 0}, {0, 2.61803, + 0, 0, 1.61803, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4.23607, 0, + 0, -1.}, {0, 6.23607, 0, 0, 1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 5.8541, 0, 0, -1.61803}, {0, 5.23607, 0, 0, 2.61803, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 5.23607, 0, 0, -1.61803}, {0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 1., 0, 0, 0}, {0, 3.61803, 0, + 0, -0.618034, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.61803, 0, + 0, -0.618034}, {0, -0.618034, 0, 0, 1., 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0.618034, 0, 0, 0}, {0, 5.23607, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 3.23607, 0, 0, -1.}}, {{0, 0, 2.23607, 0, 2., 0, + 4.8541, 0, 0, 0, 0, 0, 0, 0, 0, -1.61803, 0, 0, 0, 0}, {0, 0, + 0.763932, 0, 2.8541, 0, 2.38197, 0, 0, 0, 0, 0, 0, 0, 0, -1., 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., 0, 4.23607, 0, 7.8541, 0, 0, 0, 0, 0, 0, 0, + 0, -2.61803, 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.618034, 0, 3.61803, 0, 4.8541, 0, 0, + 0, 0, 0, 0, 0, 0, -1.61803, 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.618034, 0, 2.61803, + 0, 5.8541, 0, 0, 0, 0, 0, 0, 0, 0, -1.61803, 0, 0, 0, 0}, {0, 0, + 3.23607, 0, 2.61803, 0, 3.23607, 0, 0, 0, 0, 0, 0, 0, 0, -1.61803, + 0, 0, 0, 0}, {0, 0, 3.61803, 0, 4.23607, 0, 6.23607, 0, 0, 0, 0, 0, + 0, 0, 0, -2.61803, 0, 0, 0, 0}, {0, 0, -0.618034, 0, 0.618034, 0, + 1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, -0.236068, 0, + 2.23607, 0, 4., 0, 0, 0, 0, 0, 0, 0, 0, -1., 0, 0, 0, 0}, {0, 0, + 2.23607, 0, 3.61803, 0, 3.23607, 0, 0, 0, 0, 0, 0, 0, 0, -1.61803, + 0, 0, 0, 0}, {0, 0, 2.38197, 0, 1.23607, 0, 2.38197, 0, 0, 0, 0, 0, + 0, 0, 0, -1., 0, 0, 0, 0}, {0, 0, 3., 0, 3.8541, 0, 7.23607, 0, 0, + 0, 0, 0, 0, 0, 0, -2.61803, 0, 0, 0, 0}, {0, 0, 0.763932, 0, + 1.23607, 0, 4., 0, 0, 0, 0, 0, 0, 0, 0, -1., 0, 0, 0, 0}, {0, 0, + 2.38197, 0, 2.23607, 0, 1.38197, 0, 0, 0, 0, 0, 0, 0, 0, -1., 0, 0, + 0, 0}, {0, 0, 3., 0, 4.8541, 0, 6.23607, 0, 0, 0, 0, 0, 0, 0, + 0, -2.61803, 0, 0, 0, 0}, {0, 0, 1., 0, 0.618034, 0, -0.618034, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 2., 0, 4.8541, 0, + 7.23607, 0, 0, 0, 0, 0, 0, 0, 0, -2.61803, 0, 0, 0, 0}}, {{0, 0, 0, + 0, 0, 0, 0, 0, 0.381966, -1., 0, 0, 0, 3.61803, 0, 0, 2., 0, 0, + 0}, {0, 0, 0, 0, 0, 0, 0, 0, -1., -1.61803, 0, 0, 0, 4.23607, 0, 0, + 5.8541, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, -1.61803, 0, 0, 0, 0, + 1.61803, 0, 0, 1., 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1., -2.61803, + 0, 0, 0, 6.8541, 0, 0, 6.23607, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, + 0, -2.23607, -1., 0, 0, 0, 3.61803, 0, 0, 4.61803, 0, 0, 0}, {0, 0, + 0, 0, 0, 0, 0, 0, -0.618034, -2.61803, 0, 0, 0, 6.8541, 0, 0, + 7.8541, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, -2.23607, -1., 0, 0, 0, + 4.61803, 0, 0, 3.61803, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, + 0, -0.618034, -2.61803, 0, 0, 0, 7.8541, 0, 0, 6.8541, 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, 2., -1., 0, 0, 0, 2., 0, 0, 2., 0, 0, + 0}, {0, 0, 0, 0, 0, 0, 0, 0, -2.61803, -1.61803, 0, 0, 0, 5.8541, + 0, 0, 5.8541, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, + 0, -1.61803, -2.61803, 0, 0, 0, 7.8541, 0, 0, 7.8541, 0, 0, 0}, {0, + 0, 0, 0, 0, 0, 0, 0, 0.381966, -1., 0, 0, 0, 2., 0, 0, 3.61803, 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, 1.61803, -1.61803, 0, 0, 0, 4.23607, + 0, 0, 3.23607, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, -1., -1.61803, 0, + 0, 0, 5.8541, 0, 0, 4.23607, 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, + 1.61803, -1.61803, 0, 0, 0, 3.23607, 0, 0, 4.23607, 0, 0, 0}, {0, + 0, 0, 0, 0, 0, 0, 0, -1.61803, 0, 0, 0, 0, 1., 0, 0, 1.61803, 0, 0, + 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1., -2.61803, 0, 0, 0, 6.23607, 0, 0, + 6.8541, 0, 0, 0}}, {{0, -0.618034, 0, 2., 0, 0, 0, 0, 0, 2.61803, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.}, {0, -1., 0, 0, 0, 0, 0, 0, 0, + 3.23607, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5.23607}, {0, -1.61803, 0, 2., + 0, 0, 0, 0, 0, 5.8541, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5.23607}, {0, 0, + 0, 1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0}, {0, -1.61803, 0, 1., 0, 0, 0, 0, 0, 5.23607, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 6.8541}, {0, -0.618034, 0, 0.381966, 0, 0, 0, 0, 0, + 1.61803, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.61803}, {0, -1.61803, 0, + 2.61803, 0, 0, 0, 0, 0, 5.23607, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 5.23607}, {0, -0.618034, 0, 2., 0, 0, 0, 0, 0, 1.61803, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 2.}, {0, -0.618034, 0, 0.381966, 0, 0, 0, 0, 0, + 3.23607, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.}, {0, 0, 0, 0, 0, 0, 0, 0, + 0, 1., 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, -1.61803, 0, 2., 0, 0, 0, + 0, 0, 4.8541, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6.23607}, {0, -1., 0, + 1.61803, 0, 0, 0, 0, 0, 2.61803, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 4.23607}, {0, -0.618034, 0, -0.618034, 0, 0, 0, 0, 0, 2.61803, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 3.61803}, {0, -1., 0, 1.61803, 0, 0, 0, 0, + 0, 4.23607, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.61803}, {0, 0, 0, 1., 0, + 0, 0, 0, 0, 0.618034, 0, 0, 0, 0, 0, 0, 0, 0, + 0, -0.618034}, {0, -1., 0, 2.61803, 0, 0, 0, 0, 0, 3.23607, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 2.61803}, {0, -1., 0, 0, 0, 0, 0, 0, 0, + 4.23607, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4.23607}, {0, 0, 0, -0.618034, + 0, 0, 0, 0, 0, 0.618034, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 1.}, {0, -1.61803, 0, 1., 0, 0, 0, 0, 0, 5.8541, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 6.23607}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 1.}}, {{0, 0, 0, 0, -1., 2.61803, 0, 4.23607, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 1.61803}, {0, 0, 0, 0, -0.618034, 3.61803, 0, + 1.61803, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.381966}, {0, 0, 0, + 0, -1.61803, 6.23607, 0, 5.8541, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 1.}, {0, 0, 0, 0, 0, -0.618034, 0, 0.618034, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 1.}, {0, 0, 0, 0, -1., 5.23607, 0, 3.23607, 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, -1., 4.23607, 0, 4.23607, 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, -1.61803, 5.23607, 0, + 5.23607, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.61803}, {0, 0, 0, + 0, -1., 2.61803, 0, 3.23607, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 2.61803}, {0, 0, 0, 0, -0.618034, 3.61803, 0, 2.61803, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, -0.618034}, {0, 0, 0, 0, 0, 1., 0, 0.618034, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.618034}, {0, 0, 0, 0, -1., + 4.23607, 0, 2.61803, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.61803}, {0, + 0, 0, 0, -1.61803, 5.23607, 0, 5.8541, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 2.}, {0, 0, 0, 0, -0.618034, 1., 0, 2.61803, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 2.}, {0, 0, 0, 0, -0.618034, 2., 0, 3.23607, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.381966}, {0, 0, 0, 0, -1.61803, + 6.23607, 0, 4.8541, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.}, {0, 0, 0, + 0, -0.618034, 2., 0, 1.61803, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 2.}, {0, 0, 0, 0, -1.61803, 6.8541, 0, 5.23607, 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, 1.}}, {{0, 0, 0, 0, 0, 0, 0, 0.381966, 0, 0, 1.61803, + 0, 0, -0.618034, 0, 3.61803, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, + 1.61803, 0, 0, 4.23607, 0, 0, -1., 0, 2.61803, 0, 0, 0, 0}, {0, 0, + 0, 0, 0, 0, 0, -0.618034, 0, 0, 2.61803, 0, 0, -0.618034, 0, + 3.61803, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 2., 0, 0, 1.61803, 0, + 0, -0.618034, 0, 2., 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0.381966, + 0, 0, 3.23607, 0, 0, -0.618034, 0, 2., 0, 0, 0, 0}, {0, 0, 0, 0, 0, + 0, 0, 2., 0, 0, 2.61803, 0, 0, -0.618034, 0, 1., 0, 0, 0, 0}, {0, + 0, 0, 0, 0, 0, 0, -0.618034, 0, 0, 0.618034, 0, 0, 0, 0, 1., 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, 1., 0, 0, 5.23607, 0, 0, -1.61803, 0, + 6.8541, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 2., 0, 0, 4.8541, 0, + 0, -1.61803, 0, 6.23607, 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, 1., 0, 0, + 0.618034, 0, 0, 0, 0, -0.618034, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, + 2., 0, 0, 5.8541, 0, 0, -1.61803, 0, 5.23607, 0, 0, 0, 0}, {0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 3.23607, 0, 0, -1., 0, 5.23607, 0, 0, 0, + 0}, {0, 0, 0, 0, 0, 0, 0, 1.61803, 0, 0, 2.61803, 0, 0, -1., 0, + 4.23607, 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, 1., 0, 0, 5.8541, 0, + 0, -1.61803, 0, 6.23607, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, + 2.61803, 0, 0, 5.23607, 0, 0, -1.61803, 0, 5.23607, 0, 0, 0, + 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4.23607, 0, 0, -1., 0, 4.23607, + 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 2.61803, 0, 0, 3.23607, 0, + 0, -1., 0, 2.61803, 0, 0, 0, 0}}, {{0, 0, 0, 0, 0, 0, 0, -0.618034, + 4.8541, -1., 0, 0, 0, 0, 0, 0, 0, 4.23607, 0, 0}, {0, 0, 0, 0, 0, + 0, 0, -0.381966, 4., -3.8541, 0, 0, 0, 0, 0, 0, 0, 5.23607, 0, + 0}, {0, 0, 0, 0, 0, 0, 0, -0.618034, 6.47214, -3.61803, 0, 0, 0, 0, + 0, 0, 0, 5.23607, 0, 0}, {0, 0, 0, 0, 0, 0, 0, -0.618034, + 3.8541, -1., 0, 0, 0, 0, 0, 0, 0, 5.23607, 0, 0}, {0, 0, 0, 0, 0, + 0, 0, -0.618034, 6.47214, -5.23607, 0, 0, 0, 0, 0, 0, 0, 6.8541, 0, + 0}, {0, 0, 0, 0, 0, 0, 0, -0.618034, 4.8541, -3.61803, 0, 0, 0, 0, + 0, 0, 0, 6.8541, 0, 0}, {0, 0, 0, 0, 0, 0, 0, -1., + 8.8541, -4.8541, 0, 0, 0, 0, 0, 0, 0, 8.47214, 0, 0}, {0, 0, 0, 0, + 0, 0, 0, -1., 7.23607, -3.23607, 0, 0, 0, 0, 0, 0, 0, 8.47214, 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, 0, 0, 0, 0, 0, 0, -1., 8.8541, -5.8541, 0, 0, 0, 0, 0, 0, + 0, 9.47214, 0, 0}, {0, 0, 0, 0, 0, 0, 0, -1., 7.8541, -4.8541, 0, + 0, 0, 0, 0, 0, 0, 9.47214, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, + 1., -1.61803, 0, 0, 0, 0, 0, 0, 0, 1.61803, 0, 0}, {0, 0, 0, 0, 0, + 0, 0, -0.381966, 4., -1.23607, 0, 0, 0, 0, 0, 0, 0, 2.61803, 0, + 0}, {0, 0, 0, 0, 0, 0, 0, -0.381966, 2.38197, 0.381966, 0, 0, 0, 0, + 0, 0, 0, 2.61803, 0, 0}, {0, 0, 0, 0, 0, 0, 0, -1., + 7.8541, -3.23607, 0, 0, 0, 0, 0, 0, 0, 7.8541, 0, 0}, {0, 0, 0, 0, + 0, 0, 0, 0, 1.61803, -1.61803, 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, 1., 0, 0}, {0, 0, + 0, 0, 0, 0, 0, -0.381966, 5., -3.8541, 0, 0, 0, 0, 0, 0, 0, + 4.23607, 0, 0}, {0, 0, 0, 0, 0, 0, 0, -0.381966, 2.38197, -1.23607, + 0, 0, 0, 0, 0, 0, 0, 4.23607, 0, 0}}} -{1.6838616297871791, 3.5522063477126107, 0.5291610914079277, -3.5522063477126107, 1.6838616297871791, 3.5522063477126107, --0.18448308813825243, 1.6838616297871791, 3.5522063477126107, -4.706906886091862, 0.5291610914079277, 1.6838616297871791, -4.706906886091862, 1.6838616297871791, 3.5522063477126107, -0.5291610914079277, 3.5522063477126107, 5.420551065638042, -1.6838616297871791, 4.706906886091862} +{{308.053, 806.492, -249.22, 431.663}, {-10.4721, -27.4164, + 8.47214, -14.7082}, {200.387, 527.856, -160.498, 282.872}, {203.623, + 527.856, -165.735, 282.872}, {29.4164, 77.0132, -22.1803, + 42.1246}, {31.4164, 77.0132, -25.4164, 42.1246}, {201.623, + 524.62, -160.498, 282.872}, {203.623, 524.62, -163.735, + 282.872}, {200.387, 533.092, -163.735, 282.872}, {201.623, + 533.092, -165.735, 282.872}, {95.9574, 245.984, -75.0132, + 134.082}, {97.1935, 245.984, -77.0132, 134.082}, {29.4164, + 82.2492, -25.4164, 42.1246}, {266.164, 702.063, -215.331, + 374.83}, {268.164, 702.063, -218.567, 374.83}, {268.164, + 696.827, -215.331, 374.83}, {93.9574, 254.456, -77.0132, + 134.082}, {95.9574, 254.456, -80.2492, 134.082}, {93.9574, + 251.22, -75.0132, 134.082}, {97.1935, 251.22, -80.2492, 134.082}} {{0, 13, 8, 9, 14}, {0, 14, 3, 7, 15}, {0, 15, 6, 2, 13}, {1, 4, 10, 11, 5}, {1, 5, 19, 17, 12}, {1, 12, 16, 18, 4}, {2, 6, 10, 4, diff --git a/fractal_dimension/circle_counting_new/data/heptagonal_pyramid.txt b/fractal_dimension/circle_counting_new/data/heptagonal_pyramid.txt index dfab881..191bbe0 100644 --- a/fractal_dimension/circle_counting_new/data/heptagonal_pyramid.txt +++ b/fractal_dimension/circle_counting_new/data/heptagonal_pyramid.txt @@ -4,44 +4,45 @@ 10.0978}, {14.5918, 7.2959, 0, 0, -0.801938, 0, 0, 9.09783}, {6.49396, 2.80194, 0, 0, -0.356896, 0, 0, 5.04892}, {0, 0, 0, 0, 0, 0, 0, 1.}}, {{1., 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, - 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0}, {6.49396, 2.80194, 5.04892, - 0, 0, -0.356896, 0, 0}, {14.5918, 7.2959, 9.09783, 0, - 0, -0.801938, 0, 0}, {18.1957, 10.0978, 10.0978, 0, 0, -1., 0, - 0}, {14.5918, 9.09783, 7.2959, 0, 0, -0.801938, 0, 0}, {6.49396, - 5.04892, 2.80194, 0, 0, -0.356896, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, - 0}, {6.49396, 0, 4.69202, 3.24698, 0, -0.445042, 0, 0}, {0, 0, 1., - 0, 0, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, 0}, {6.49396, 0, 2.44504, - 5.49396, 0, -0.445042, 0, 0}, {14.5918, 0, 6.49396, 10.0978, - 0, -1., 0, 0}, {18.1957, 0, 9.09783, 11.3448, 0, -1.24698, 0, - 0}, {14.5918, 0, 8.2959, 8.2959, 0, -1., 0, 0}}, {{1., 0, 0, 0, 0, - 0, 0, 0}, {14.5918, 0, 0, 8.2959, 8.2959, 0, -1., 0}, {6.49396, 0, - 0, 4.69202, 3.24698, 0, -0.445042, 0}, {0, 0, 0, 1., 0, 0, 0, - 0}, {0, 0, 0, 0, 1., 0, 0, 0}, {6.49396, 0, 0, 2.44504, 5.49396, - 0, -0.445042, 0}, {14.5918, 0, 0, 6.49396, 10.0978, 0, -1., - 0}, {18.1957, 0, 0, 9.09783, 11.3448, 0, -1.24698, 0}}, {{1., 0, 0, - 0, 0, 0, 0, 0}, {18.1957, 0, 0, -2.80194, 14.1468, 7.85086, 0, - 0}, {14.5918, 0, 0, -2.24698, 12.3448, 5.49396, 0, 0}, {6.49396, 0, - 0, -1., 6.49396, 2., 0, 0}, {0, 0, 0, 0, 1., 0, 0, 0}, {0, 0, 0, - 0, 0, 1., 0, 0}, {6.49396, 0, 0, -1., 4.24698, 4.24698, 0, - 0}, {14.5918, 0, 0, -2.24698, 10.5429, 7.2959, 0, 0}}, {{1., 0, 0, - 0, 0, 0, 0, 0}, {14.5918, -1., 0, 0, 0, 6.49396, 10.0978, - 0}, {18.1957, -1.24698, 0, 0, 0, 9.09783, 11.3448, - 0}, {14.5918, -1., 0, 0, 0, 8.2959, 8.2959, - 0}, {6.49396, -0.445042, 0, 0, 0, 4.69202, 3.24698, 0}, {0, 0, 0, - 0, 0, 1., 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0}, {6.49396, -0.445042, 0, - 0, 0, 2.44504, 5.49396, 0}}, {{1., 0, 0, 0, 0, 0, 0, - 0}, {6.49396, -1., 0, 0, 0, 0, 2., 6.49396}, {14.5918, -2.24698, 0, - 0, 0, 0, 5.49396, 12.3448}, {18.1957, -2.80194, 0, 0, 0, 0, - 7.85086, 14.1468}, {14.5918, -2.24698, 0, 0, 0, 0, 7.2959, - 10.5429}, {6.49396, -1., 0, 0, 0, 0, 4.24698, 4.24698}, {0, 0, 0, - 0, 0, 0, 1., 0}, {0, 0, 0, 0, 0, 0, 0, 1.}}, {{-1., 0, -0.152129, - 0.34183, 0, 0, 0, 0.274127}, {0, 0, 1., -0.445042, 0, 0, 0, - 0.445042}, {0, 0, 1., 0, 0, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, - 0}, {0, 0, -1.24698, 1.80194, 0, 0, 0, 0.445042}, {0, 0, -1.80194, - 1.80194, 0, 0, 0, 1.}, {0, 0, -1.24698, 1., 0, 0, 0, 1.24698}, {0, - 0, 0, 0, 0, 0, 0, 1.}}} - -{-1, 3.30476, 3.30476, 3.30476, 3.30476, 3.30476, 3.30476, 3.30476} - -{{0, 1, 7}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {0, 6, 5}, {0, - 7, 6}, {1, 2, 3, 4, 5, 6, 7}} + 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0}, {6.49396, 3.24698, 4.69202, + 0, 0, 0, -0.445042, 0}, {14.5918, 8.2959, 8.2959, 0, 0, 0, -1., + 0}, {18.1957, 11.3448, 9.09783, 0, 0, 0, -1.24698, 0}, {14.5918, + 10.0978, 6.49396, 0, 0, 0, -1., 0}, {6.49396, 5.49396, 2.44504, 0, + 0, 0, -0.445042, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0}, {6.49396, -1., + 6.49396, 2., 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0}, {0, 0, 0, 1., + 0, 0, 0, 0}, {6.49396, -1., 4.24698, 4.24698, 0, 0, 0, + 0}, {14.5918, -2.24698, 10.5429, 7.2959, 0, 0, 0, + 0}, {18.1957, -2.80194, 14.1468, 7.85086, 0, 0, 0, + 0}, {14.5918, -2.24698, 12.3448, 5.49396, 0, 0, 0, 0}}, {{1., 0, 0, + 0, 0, 0, 0, 0}, {14.5918, 0, 0, 8.2959, 8.2959, 0, -1., + 0}, {6.49396, 0, 0, 4.69202, 3.24698, 0, -0.445042, 0}, {0, 0, 0, + 1., 0, 0, 0, 0}, {0, 0, 0, 0, 1., 0, 0, 0}, {6.49396, 0, 0, + 2.44504, 5.49396, 0, -0.445042, 0}, {14.5918, 0, 0, 6.49396, + 10.0978, 0, -1., 0}, {18.1957, 0, 0, 9.09783, 11.3448, 0, -1.24698, + 0}}, {{1., 0, 0, 0, 0, 0, 0, 0}, {18.1957, 0, 0, 0, 9.09783, + 11.3448, 0, -1.24698}, {14.5918, 0, 0, 0, 8.2959, 8.2959, + 0, -1.}, {6.49396, 0, 0, 0, 4.69202, 3.24698, 0, -0.445042}, {0, 0, + 0, 0, 1., 0, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0}, {6.49396, 0, 0, 0, + 2.44504, 5.49396, 0, -0.445042}, {14.5918, 0, 0, 0, 6.49396, + 10.0978, 0, -1.}}, {{1., 0, 0, 0, 0, 0, 0, 0}, {14.5918, 0, 0, -1., + 0, 8.2959, 8.2959, 0}, {18.1957, 0, 0, -1.24698, 0, 11.3448, + 9.09783, 0}, {14.5918, 0, 0, -1., 0, 10.0978, 6.49396, + 0}, {6.49396, 0, 0, -0.445042, 0, 5.49396, 2.44504, 0}, {0, 0, 0, + 0, 0, 1., 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0}, {6.49396, 0, + 0, -0.445042, 0, 3.24698, 4.69202, 0}}, {{1., 0, 0, 0, 0, 0, 0, + 0}, {6.49396, 0, 0, -0.356896, 0, 0, 2.80194, 5.04892}, {14.5918, + 0, 0, -0.801938, 0, 0, 7.2959, 9.09783}, {18.1957, 0, 0, -1., 0, 0, + 10.0978, 10.0978}, {14.5918, 0, 0, -0.801938, 0, 0, 9.09783, + 7.2959}, {6.49396, 0, 0, -0.356896, 0, 0, 5.04892, 2.80194}, {0, 0, + 0, 0, 0, 0, 1., 0}, {0, 0, 0, 0, 0, 0, 0, 1.}}, {{-1., 0.274127, + 0, -0.152129, 0.34183, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0}, {0, + 0.445042, 0, 1., -0.445042, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, + 0}, {0, 0, 0, 0, 1., 0, 0, 0}, {0, 0.445042, 0, -1.24698, 1.80194, + 0, 0, 0}, {0, 1., 0, -1.80194, 1.80194, 0, 0, 0}, {0, 1.24698, + 0, -1.24698, 1., 0, 0, 0}}} +{{31.1836, 20.1957, -16.1957, 19.1957}, {265.507, 183.737, -147.346, + 164.541}, {160.333, 112.954, -88.9783, 100.966}, {35.6775, + 26.6896, -19.7995, 23.6896}, {-14.5918, -10.0978, + 8.09783, -9.09783}, {47.3793, 30.2935, -26.2935, 27.2935}, {174.925, + 117.448, -97.0762, 105.46}, {272.001, 185.737, -150.949, 166.541}} +{{0, 1, 7}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {0, 6, 5}, {0, 7, 6}, {1, 2, 3, 4, 5, 6, 7}} diff --git a/fractal_dimension/circle_counting_new/data/hexagonal_pyramid.txt b/fractal_dimension/circle_counting_new/data/hexagonal_pyramid.txt index a072e70..f56b3b0 100644 --- a/fractal_dimension/circle_counting_new/data/hexagonal_pyramid.txt +++ b/fractal_dimension/circle_counting_new/data/hexagonal_pyramid.txt @@ -1,30 +1,28 @@ -{{{1., 0., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., 0., 0.}, {6., 5., - 0., -0.5, 0., 0., 2.5}, {12., 8., 0., -1., 0., 0., 6.}, {12., 7., - 0., -1., 0., 0., 7.}, {6., 3., 0., -0.5, 0., 0., 4.5}, {0., 0., 0., - 0., 0., 0., 1.}}, {{1., 0., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., - 0., 0., 0.}, {0., 0., 1., 0., 0., 0., 0.}, {6., 4., 4., 0., 0., - 0., -1.}, {12., 9., 6., 0., 0., 0., -2.}, {12., 10., 5., 0., 0., - 0., -2.}, {6., 6., 2., 0., 0., 0., -1.}}, {{1., 0., 0., 0., 0., 0., - 0.}, {6., -1., 6., 2., 0., 0., 0.}, {0., 0., 1., 0., 0., 0., - 0.}, {0., 0., 0., 1., 0., 0., 0.}, {6., -1., 4., 4., 0., 0., - 0.}, {12., -2., 9., 6., 0., 0., 0.}, {12., -2., 10., 5., 0., 0., - 0.}}, {{1., 0., 0., 0., 0., 0., 0.}, {12., 0., 0., 6., 9., -2., - 0.}, {6., 0., 0., 4., 4., -1., 0.}, {0., 0., 0., 1., 0., 0., - 0.}, {0., 0., 0., 0., 1., 0., 0.}, {6., 0., 0., 2., 6., -1., - 0.}, {12., 0., 0., 5., 10., -2., 0.}}, {{1., 0., 0., 0., 0., 0., - 0.}, {12., 0., 0., -2., 9., 6., 0.}, {12., 0., 0., -2., 10., 5., - 0.}, {6., 0., 0., -1., 6., 2., 0.}, {0., 0., 0., 0., 1., 0., - 0.}, {0., 0., 0., 0., 0., 1., 0.}, {6., 0., 0., -1., 4., 4., - 0.}}, {{1., 0., 0., 0., 0., 0., 0.}, {6., 0., 0., -0.5, 0., 3., - 4.5}, {12., 0., 0., -1., 0., 7., 7.}, {12., 0., 0., -1., 0., 8., - 6.}, {6., 0., 0., -0.5, 0., 5., 2.5}, {0., 0., 0., 0., 0., 1., - 0.}, {0., 0., 0., 0., 0., 0., 1.}}, {{-1., 0.333333, 0., 0., - 0.333333, 0., 0.}, {0., 1., 0., 0., 0., 0., 0.}, {0., 0., 1., 0., - 0., 0., 0.}, {0., -0.5, 1., 0., 0.5, 0., 0.}, {0., 0., 0., 0., 1., - 0., 0.}, {0., 1., -1., 0., 1., 0., 0.}, {0., 1.5, -1., 0., 0.5, 0., - 0.}}} +{{{1., 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0}, {6., 5., 0, -0.5, 0, + 0, 2.5}, {12., 8., 0, -1., 0, 0, 6.}, {12., 7., 0, -1., 0, 0, + 7.}, {6., 3., 0, -0.5, 0, 0, 4.5}, {0, 0, 0, 0, 0, 0, 1.}}, {{1., + 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, + 0}, {6., 2.5, 5., 0, -0.5, 0, 0}, {12., 6., 8., 0, -1., 0, + 0}, {12., 7., 7., 0, -1., 0, 0}, {6., 4.5, 3., 0, -0.5, 0, + 0}}, {{1., 0, 0, 0, 0, 0, 0}, {6., 0, 5., 2.5, 0, 0, -0.5}, {0, 0, + 1., 0, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0}, {6., 0, 3., 4.5, 0, + 0, -0.5}, {12., 0, 7., 7., 0, 0, -1.}, {12., 0, 8., 6., 0, + 0, -1.}}, {{1., 0, 0, 0, 0, 0, 0}, {12., -1., 0, 8., 6., 0, + 0}, {6., -0.5, 0, 5., 2.5, 0, 0}, {0, 0, 0, 1., 0, 0, 0}, {0, 0, 0, + 0, 1., 0, 0}, {6., -0.5, 0, 3., 4.5, 0, 0}, {12., -1., 0, 7., 7., + 0, 0}}, {{1., 0, 0, 0, 0, 0, 0}, {12., 0, 0, -2., 9., 6., 0}, {12., + 0, 0, -2., 10., 5., 0}, {6., 0, 0, -1., 6., 2., 0}, {0, 0, 0, 0, + 1., 0, 0}, {0, 0, 0, 0, 0, 1., 0}, {6., 0, 0, -1., 4., 4., + 0}}, {{1., 0, 0, 0, 0, 0, 0}, {6., -1., 0, 0, 0, 2., + 6.}, {12., -2., 0, 0, 0, 5., 10.}, {12., -2., 0, 0, 0, 6., + 9.}, {6., -1., 0, 0, 0, 4., 4.}, {0, 0, 0, 0, 0, 1., 0}, {0, 0, 0, + 0, 0, 0, 1.}}, {{-1., 0, 0, 0, 0.666667, -0.666667, 0.666667}, {0, + 0, 0, 0, 1., -2., 2.}, {0, 0, 0, 0, 2., -3., 2.}, {0, 0, 0, 0, + 2., -2., 1.}, {0, 0, 0, 0, 1., 0, 0}, {0, 0, 0, 0, 0, 1., 0}, {0, + 0, 0, 0, 0, 0, 1.}}} -{3., 3., 3., 3., 3., 3., -1.} +{{14., 12., -6.9282, 11.}, {60., 60., -34.641, 49.}, {12., + 14., -6.9282, 11.}, {-6., -6., 3.4641, -5.}, {24., 20., -13.8564, + 17.}, {72., 66., -41.5692, 55.}, {90., 86., -51.9615, 71.}} -{{0, 1, 6}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {0, 6, 5}, {1, - 2, 3, 4, 5, 6}} +{{0, 1, 6}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {0, 6, 5}, {1, 2, 3, 4, 5, 6}} diff --git a/fractal_dimension/circle_counting_new/data/icosahedron.txt b/fractal_dimension/circle_counting_new/data/icosahedron.txt index e19de3c..6f61c12 100644 --- a/fractal_dimension/circle_counting_new/data/icosahedron.txt +++ b/fractal_dimension/circle_counting_new/data/icosahedron.txt @@ -237,7 +237,14 @@ 0., 8.47214, 0., 9.47214}, {0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1.}}} -{0.767383, 0.767383, 2.46868, 2.46868, 0.767383, -0.284079, 2.46868, 3.52015, 0.767383, 2.46868, 0.767383, 2.46868} +{{107.666, 130.61, -105.666, 53.8328}, {71.7771, 88.7214, -71.7771, + 34.8885}, {-8.47214, -10.4721, 8.47214, -4.23607}, {77.0132, + 93.9574, -75.0132, 40.1246}, {22.1803, 26.1803, -22.1803, + 9.47214}, {77.0132, 90.7214, -75.0132, 36.8885}, {27.4164, + 31.4164, -25.4164, 14.7082}, {22.1803, 29.4164, -22.1803, + 12.7082}, {80.2492, 93.9574, -77.0132, 40.1246}, {71.7771, + 90.7214, -71.7771, 36.8885}, {27.4164, 29.4164, -25.4164, + 12.7082}, {18.9443, 26.1803, -20.1803, 9.47214}} {{0, 1, 9}, {0, 3, 8}, {0, 5, 1}, {0, 8, 5}, {0, 9, 3}, {1, 4, 11}, {1, 5, 4}, {1, 11, 9}, {2, 4, 10}, {2, 6, 7}, {2, 7, 11}, {2, diff --git a/fractal_dimension/circle_counting_new/data/nonagonal_pyramid.txt b/fractal_dimension/circle_counting_new/data/nonagonal_pyramid.txt index 59cb3ff..f35a479 100644 --- a/fractal_dimension/circle_counting_new/data/nonagonal_pyramid.txt +++ b/fractal_dimension/circle_counting_new/data/nonagonal_pyramid.txt @@ -1,85 +1,3 @@ -{{{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0, - 0}, {7.06418, 4.92702, 0, 0, 0, 0, 0, -0.394931, 0, - 3.53209}, {17.8871, 9.94356, 0, 0, 0, 0, 0, -1., 0, - 9.94356}, {27.4047, 13.7023, 0, 0, 0, 0, 0, -1.53209, 0, - 16.2344}, {31.1634, 14.4446, 0, 0, 0, 0, 0, -1.74223, 0, - 19.4611}, {27.4047, 11.8229, 0, 0, 0, 0, 0, -1.53209, 0, - 18.1138}, {17.8871, 7.06418, 0, 0, 0, 0, 0, -1., 0, - 12.8229}, {7.06418, 2.39493, 0, 0, 0, 0, 0, -0.394931, 0, - 6.06418}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1.}}, {{1., 0, 0, 0, 0, 0, 0, - 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, - 0, 0, 0}, {7.06418, 3.13716, 5.18479, 0, 0, 0, 0, -0.257773, 0, - 0}, {17.8871, 8.94356, 10.5963, 0, 0, 0, 0, -0.652704, 0, - 0}, {27.4047, 14.7023, 14.7023, 0, 0, 0, 0, -1., 0, 0}, {31.1634, - 17.7189, 15.5817, 0, 0, 0, 0, -1.13716, 0, 0}, {27.4047, 16.5817, - 12.8229, 0, 0, 0, 0, -1., 0, 0}, {17.8871, 11.8229, 7.71688, 0, 0, - 0, 0, -0.652704, 0, 0}, {7.06418, 5.66925, 2.6527, 0, 0, 0, - 0, -0.257773, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {7.06418, - 0, 6.06418, 2.39493, 0, 0, 0, 0, 0, -0.394931}, {0, 0, 1., 0, 0, 0, - 0, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0, 0}, {7.06418, 0, - 3.53209, 4.92702, 0, 0, 0, 0, 0, -0.394931}, {17.8871, 0, 9.94356, - 9.94356, 0, 0, 0, 0, 0, -1.}, {27.4047, 0, 16.2344, 13.7023, 0, 0, - 0, 0, 0, -1.53209}, {31.1634, 0, 19.4611, 14.4446, 0, 0, 0, 0, - 0, -1.74223}, {27.4047, 0, 18.1138, 11.8229, 0, 0, 0, 0, - 0, -1.53209}, {17.8871, 0, 12.8229, 7.06418, 0, 0, 0, 0, - 0, -1.}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {17.8871, 0, 0, - 11.1702, 8.29086, 0, 0, 0, -0.573978, 0}, {7.06418, 0, 0, 5.41147, - 2.87939, 0, 0, 0, -0.226682, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0, - 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0, 0}, {7.06418, 0, 0, 2.87939, - 5.41147, 0, 0, 0, -0.226682, 0}, {17.8871, 0, 0, 8.29086, 11.1702, - 0, 0, 0, -0.573978, 0}, {27.4047, 0, 0, 13.7023, 15.5817, 0, 0, - 0, -0.879385, 0}, {31.1634, 0, 0, 16.5817, 16.5817, 0, 0, 0, -1., - 0}, {27.4047, 0, 0, 15.5817, 13.7023, 0, 0, 0, -0.879385, - 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {27.4047, 0, 0, 0, 14.7023, - 14.7023, 0, 0, -1., 0}, {17.8871, 0, 0, 0, 10.5963, 8.94356, 0, - 0, -0.652704, 0}, {7.06418, 0, 0, 0, 5.18479, 3.13716, 0, - 0, -0.257773, 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, - 1., 0, 0, 0, 0}, {7.06418, 0, 0, 0, 2.6527, 5.66925, 0, - 0, -0.257773, 0}, {17.8871, 0, 0, 0, 7.71688, 11.8229, 0, - 0, -0.652704, 0}, {27.4047, 0, 0, 0, 12.8229, 16.5817, 0, 0, -1., - 0}, {31.1634, 0, 0, 0, 15.5817, 17.7189, 0, 0, -1.13716, 0}}, {{1., - 0, 0, 0, 0, 0, 0, 0, 0, 0}, {31.1634, 0, 0, 0, -4.41147, 23.8726, - 12.7023, 0, 0, 0}, {27.4047, 0, 0, 0, -3.87939, 21.9932, 10.2909, - 0, 0, 0}, {17.8871, 0, 0, 0, -2.53209, 15.355, 6.06418, 0, 0, - 0}, {7.06418, 0, 0, 0, -1., 7.06418, 2., 0, 0, 0}, {0, 0, 0, 0, 0, - 1., 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0, 0, 0}, {7.06418, 0, 0, - 0, -1., 4.53209, 4.53209, 0, 0, 0}, {17.8871, 0, 0, 0, -2.53209, - 12.4757, 8.94356, 0, 0, 0}, {27.4047, 0, 0, 0, -3.87939, 20.1138, - 12.1702, 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {27.4047, - 0, -0.879385, 0, 0, 0, 13.7023, 15.5817, 0, 0}, {31.1634, 0, -1., - 0, 0, 0, 16.5817, 16.5817, 0, 0}, {27.4047, 0, -0.879385, 0, 0, 0, - 15.5817, 13.7023, 0, 0}, {17.8871, 0, -0.573978, 0, 0, 0, 11.1702, - 8.29086, 0, 0}, {7.06418, 0, -0.226682, 0, 0, 0, 5.41147, 2.87939, - 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 1., - 0, 0}, {7.06418, 0, -0.226682, 0, 0, 0, 2.87939, 5.41147, 0, - 0}, {17.8871, 0, -0.573978, 0, 0, 0, 8.29086, 11.1702, 0, - 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {17.8871, -1., 0, 0, 0, 0, - 0, 7.06418, 12.8229, 0}, {27.4047, -1.53209, 0, 0, 0, 0, 0, - 11.8229, 18.1138, 0}, {31.1634, -1.74223, 0, 0, 0, 0, 0, 14.4446, - 19.4611, 0}, {27.4047, -1.53209, 0, 0, 0, 0, 0, 13.7023, 16.2344, - 0}, {17.8871, -1., 0, 0, 0, 0, 0, 9.94356, 9.94356, - 0}, {7.06418, -0.394931, 0, 0, 0, 0, 0, 4.92702, 3.53209, 0}, {0, - 0, 0, 0, 0, 0, 0, 1., 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1., - 0}, {7.06418, -0.394931, 0, 0, 0, 0, 0, 2.39493, 6.06418, - 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {7.06418, -1., 0, 0, 0, 0, - 0, 0, 2., 7.06418}, {17.8871, -2.53209, 0, 0, 0, 0, 0, 0, 6.06418, - 15.355}, {27.4047, -3.87939, 0, 0, 0, 0, 0, 0, 10.2909, - 21.9932}, {31.1634, -4.41147, 0, 0, 0, 0, 0, 0, 12.7023, - 23.8726}, {27.4047, -3.87939, 0, 0, 0, 0, 0, 0, 12.1702, - 20.1138}, {17.8871, -2.53209, 0, 0, 0, 0, 0, 0, 8.94356, - 12.4757}, {7.06418, -1., 0, 0, 0, 0, 0, 0, 4.53209, 4.53209}, {0, - 0, 0, 0, 0, 0, 0, 0, 1., 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, - 1.}}, {{-1., 0, 0, 0, 0, 0.196652, -0.077664, 0, 0, 0.145961}, {0, - 0, 0, 0, 0, 1., -1.13716, 0, 0, 1.13716}, {0, 0, 0, 0, 0, - 1.87939, -1.87939, 0, 0, 1.}, {0, 0, 0, 0, 0, 2.22668, -1.87939, 0, - 0, 0.652704}, {0, 0, 0, 0, 0, 1.87939, -1.13716, 0, 0, - 0.257773}, {0, 0, 0, 0, 0, 1., 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1., - 0, 0, 0}, {0, 0, 0, 0, 0, -0.652704, 1.39493, 0, 0, 0.257773}, {0, - 0, 0, 0, 0, -0.652704, 1., 0, 0, 0.652704}, {0, 0, 0, 0, 0, 0, 0, - 0, 0, 1.}}} - -{-1., 3.9238, 3.9238, 3.9238, 3.9238, 3.9238, 3.9238, 3.9238, 3.9238, -3.9238} - -{{0, 1, 9}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {0, 6, 5}, {0, - 7, 6}, {0, 8, 7}, {0, 9, 8}, {1, 2, 3, 4, 5, 6, 7, 8, 9}} +{{{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0, 0}, {7.06417777247591, 5.411474127809772, 0, 0, 0, -0.22668159690567735, 0, 0, 0, 2.879385241571816}, {17.88712602809546, 11.170244610953407, 0, 0, 0, -0.5739779522395381, 0, 0, 0, 8.29085936938159}, {27.40466699438273, 15.581718738763183, 0, 0, 0, -0.8793852415718167, 0, 0, 0, 13.702333497191367}, {31.163437477526365, 16.581718738763183, 0, 0, 0, -1., 0, 0, 0, 16.581718738763183}, {27.404666994382737, 13.70233349719137, 0, 0, 0, -0.879385241571817, 0, 0, 0, 15.581718738763186}, {17.88712602809547, 8.290859369381597, 0, 0, 0, -0.5739779522395384, 0, 0, 0, 11.17024461095341}, {7.064177772475914, 2.879385241571818, 0, 0, 0, -0.2266815969056775, 0, 0, 0, 5.4114741278097735}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1.}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0, 0, 0}, {7.064177772475914, 2.3949308436346985, 6.0641777724759125, 0, -0.39493084363469855, 0, 0, 0, 0, 0}, {17.88712602809546, 7.064177772475911, 12.822948255619544, 0, -1., 0, 0, 0, 0, 0}, {27.404666994382733, 11.822948255619547, 18.113807625001137, 0, -1.5320888862379565, 0, 0, 0, 0, 0}, {31.163437477526365, 14.444560696159922, 19.461103980334993, 0, -1.7422271989685594, 0, 0, 0, 0, 0}, {27.404666994382733, 13.702333497191365, 16.234422383429322, 0, -1.5320888862379565, 0, 0, 0, 0, 0}, {17.887126028095462, 9.94356301404773, 9.94356301404773, 0, -1.0000000000000002, 0, 0, 0, 0, 0}, {7.0641777724759125, 4.927019729872654, 3.532088886237955, 0, -0.39493084363469844, 0, 0, 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {7.064177772475912, 0, 5.669246928841214, 2.652703644666139, 0, 0, 0, 0, -0.2577728010314408, 0}, {0, 0, 1., 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0, 0}, {7.064177772475913, 0, 3.137158042603258, 5.184792530904096, 0, 0, 0, 0, -0.25777280103144085, 0}, {17.88712602809546, 0, 8.94356301404773, 10.596266658713867, 0, 0, 0, 0, -0.6527036446661392, 0}, {27.40466699438273, 0, 14.702333497191365, 14.702333497191363, 0, 0, 0, 0, -1., 0}, {31.16343747752636, 0, 17.71887678136644, 15.581718738763179, 0, 0, 0, 0, -1.1371580426032575, 0}, {27.40466699438273, 0, 16.581718738763183, 12.822948255619547, 0, 0, 0, 0, -1., 0}, {17.88712602809546, 0, 11.822948255619547, 7.716881417142052, 0, 0, 0, 0, -0.6527036446661393, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {17.88712602809546, 0, 0, 11.170244610953407, 8.29085936938159, 0, 0, 0, -0.5739779522395381, 0}, {7.06417777247591, 0, 0, 5.411474127809772, 2.879385241571816, 0, 0, 0, -0.22668159690567735, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0, 0}, {7.064177772475914, 0, 0, 2.879385241571818, 5.4114741278097735, 0, 0, 0, -0.2266815969056775, 0}, {17.88712602809547, 0, 0, 8.290859369381597, 11.17024461095341, 0, 0, 0, -0.5739779522395384, 0}, {27.404666994382737, 0, 0, 13.70233349719137, 15.581718738763186, 0, 0, 0, -0.879385241571817, 0}, {31.163437477526365, 0, 0, 16.581718738763183, 16.581718738763183, 0, 0, 0, -1., 0}, {27.40466699438273, 0, 0, 15.581718738763183, 13.702333497191367, 0, 0, 0, -0.8793852415718167, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {27.40466699438273, -1., 0, 0, 16.581718738763183, 12.822948255619547, 0, 0, 0, 0}, {17.88712602809546, -0.6527036446661393, 0, 0, 11.822948255619547, 7.716881417142052, 0, 0, 0, 0}, {7.064177772475912, -0.2577728010314408, 0, 0, 5.669246928841214, 2.652703644666139, 0, 0, 0, 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0, 0, 0}, {7.064177772475913, -0.25777280103144085, 0, 0, 3.137158042603258, 5.184792530904096, 0, 0, 0, 0}, {17.88712602809546, -0.6527036446661392, 0, 0, 8.94356301404773, 10.596266658713867, 0, 0, 0, 0}, {27.40466699438273, -1., 0, 0, 14.702333497191365, 14.702333497191363, 0, 0, 0, 0}, {31.16343747752636, -1.1371580426032575, 0, 0, 17.71887678136644, 15.581718738763179, 0, 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {31.16343747752635, 0, 0, 0, 0, 12.702333497191356, 23.872578108144765, -4.411474127809771, 0, 0}, {27.404666994382712, 0, 0, 0, 0, 12.170244610953398, 20.113807625001126, -3.879385241571814, 0, 0}, {17.887126028095448, 0, 0, 0, 0, 8.943563014047722, 12.47565190028568, -2.532088886237954, 0, 0}, {7.064177772475904, 0, 0, 0, 0, 4.532088886237951, 4.5320888862379505, -0.9999999999999986, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0, 0, 0}, {7.064177772475913, 0, 0, 0, 0, 2., 7.064177772475913, -1., 0, 0}, {17.88712602809546, 0, 0, 0, 0, 6.064177772475912, 15.355037141857503, -2.532088886237956, 0, 0}, {27.40466699438272, 0, 0, 0, 0, 10.290859369381584, 21.993192866572947, -3.879385241571815, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {27.404666994382733, 0, 0, 0, 0, 0, 11.822948255619547, 18.113807625001137, 0, -1.5320888862379565}, {31.163437477526365, 0, 0, 0, 0, 0, 14.444560696159922, 19.461103980334993, 0, -1.7422271989685594}, {27.404666994382733, 0, 0, 0, 0, 0, 13.702333497191365, 16.234422383429322, 0, -1.5320888862379565}, {17.887126028095462, 0, 0, 0, 0, 0, 9.94356301404773, 9.94356301404773, 0, -1.0000000000000002}, {7.0641777724759125, 0, 0, 0, 0, 0, 4.927019729872654, 3.532088886237955, 0, -0.39493084363469844}, {0, 0, 0, 0, 0, 0, 1., 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 1., 0, 0}, {7.064177772475914, 0, 0, 0, 0, 0, 2.3949308436346985, 6.0641777724759125, 0, -0.39493084363469855}, {17.88712602809546, 0, 0, 0, 0, 0, 7.064177772475911, 12.822948255619544, 0, -1.}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {17.88712602809547, 0, 0, -0.5739779522395384, 0, 0, 0, 8.290859369381597, 11.17024461095341, 0}, {27.404666994382737, 0, 0, -0.879385241571817, 0, 0, 0, 13.70233349719137, 15.581718738763186, 0}, {31.163437477526365, 0, 0, -1., 0, 0, 0, 16.581718738763183, 16.581718738763183, 0}, {27.40466699438273, 0, 0, -0.8793852415718167, 0, 0, 0, 15.581718738763183, 13.702333497191367, 0}, {17.88712602809546, 0, 0, -0.5739779522395381, 0, 0, 0, 11.170244610953407, 8.29085936938159, 0}, {7.06417777247591, 0, 0, -0.22668159690567735, 0, 0, 0, 5.411474127809772, 2.879385241571816, 0}, {0, 0, 0, 0, 0, 0, 0, 1., 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1., 0}, {7.064177772475914, 0, 0, -0.2266815969056775, 0, 0, 0, 2.879385241571818, 5.4114741278097735, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0, 0}, {7.064177772475914, 0, 0, 0, -0.2266815969056775, 0, 0, 0, 2.879385241571818, 5.4114741278097735}, {17.88712602809547, 0, 0, 0, -0.5739779522395384, 0, 0, 0, 8.290859369381597, 11.17024461095341}, {27.404666994382737, 0, 0, 0, -0.879385241571817, 0, 0, 0, 13.70233349719137, 15.581718738763186}, {31.163437477526365, 0, 0, 0, -1., 0, 0, 0, 16.581718738763183, 16.581718738763183}, {27.40466699438273, 0, 0, 0, -0.8793852415718167, 0, 0, 0, 15.581718738763183, 13.702333497191367}, {17.88712602809546, 0, 0, 0, -0.5739779522395381, 0, 0, 0, 11.170244610953407, 8.29085936938159}, {7.06417777247591, 0, 0, 0, -0.22668159690567735, 0, 0, 0, 5.411474127809772, 2.879385241571816}, {0, 0, 0, 0, 0, 0, 0, 0, 1., 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 1.}}, {{-1., 0.11898812260889749, 0, 0, 0, 0.10463639894460229, 0, 0.04132414131008863, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0.9999999999999998, 0, 0, 0, 0.5320888862379559, 0, -0.5320888862379558, 0, 0}, {0, 0.7422271989685589, 0, 0, 0, 1., 0, -0.7422271989685588, 0, 0}, {0, 0.34729635533386055, 0, 0, 0, 1.1847925309040954, 0, -0.5320888862379559, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0, 0, 0}, {0, -0.13715804260325756, 0, 0, 0, 0.5320888862379562, 0, 0.6050691563653015, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 1., 0, 0}, {0, 0.34729635533386083, 0, 0, 0, -0.3472963553338606, 0, 0.9999999999999998, 0, 0}, {0, 0.7422271989685592, 0, 0, 0, -0.34729635533386066, 0, 0.6050691563653016, 0, 0}}} +{{-1.4201766196926449, 0.7041377714107316, 0, 0}, {-2.732142029973444, -2.762898885782448, 0.22632183379203252, 2.9150318348110784}, {-2.7321420299734442, -2.7628988857824495, 2.047118928391265, 2.087567068008891}, {-2.7321420299734434, -2.7628988857824477, 2.9100463252035773, 0.2833064693616967}, {-2.732142029973444, -2.762898885782448, 2.4113307048907417, -1.6535163749005204}, {-2.732142029973444, -2.762898885782448, 0.7843266488038647, -2.816640530559258}, {-2.7321420299734442, -2.7628988857824477, -1.2096725630780794, -2.6618272784966988}, {-2.732142029973443, -2.762898885782449, -2.637652538682775, -1.26151545991056}, {-2.7321420299734416, -2.7628988857824486, -2.831445577195128, 0.7290734625503662}, {-2.7321420299734527, -2.7628988857824544, -1.7003737621254948, 2.3785208091349985}} +{{0, 1, 9}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {0, 6, 5}, {0, 7, 6}, {0, 8, 7}, {0, 9, 8}, {1, 2, 3, 4, 5, 6, 7, 8, 9}} \ No newline at end of file diff --git a/fractal_dimension/circle_counting_new/data/octagonal_pyramid.txt b/fractal_dimension/circle_counting_new/data/octagonal_pyramid.txt index 928f9b3..cb360da 100644 --- a/fractal_dimension/circle_counting_new/data/octagonal_pyramid.txt +++ b/fractal_dimension/circle_counting_new/data/octagonal_pyramid.txt @@ -1,64 +1,3 @@ -{{{1., 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, - 0}, {6.82843, 6.82843, -1., 0, 0, 0, 0, 0, 2.}, {16.4853, - 14.0711, -2.41421, 0, 0, 0, 0, 0, 5.82843}, {23.3137, - 18.4853, -3.41421, 0, 0, 0, 0, 0, 9.24264}, {23.3137, - 17.4853, -3.41421, 0, 0, 0, 0, 0, 10.2426}, {16.4853, - 11.6569, -2.41421, 0, 0, 0, 0, 0, 8.24264}, {6.82843, 4.41421, -1., - 0, 0, 0, 0, 0, 4.41421}, {0, 0, 0, 0, 0, 0, 0, 0, 1.}}, {{1., 0, - 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1., 0, - 0, 0, 0, 0, 0}, {6.82843, 3., 5.12132, 0, 0, 0, -0.292893, 0, - 0}, {16.4853, 8.24264, 9.94975, 0, 0, 0, -0.707107, 0, - 0}, {23.3137, 12.6569, 12.6569, 0, 0, 0, -1., 0, 0}, {23.3137, - 13.6569, 11.6569, 0, 0, 0, -1., 0, 0}, {16.4853, 10.6569, 7.53553, - 0, 0, 0, -0.707107, 0, 0}, {6.82843, 5.41421, 2.70711, 0, 0, - 0, -0.292893, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0}, {6.82843, 0, - 5.82843, 2.41421, 0, 0, 0, 0, -0.414214}, {0, 0, 1., 0, 0, 0, 0, 0, - 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0}, {6.82843, 0, 3.41421, 4.82843, - 0, 0, 0, 0, -0.414214}, {16.4853, 0, 9.24264, 9.24264, 0, 0, 0, - 0, -1.}, {23.3137, 0, 14.0711, 11.6569, 0, 0, 0, - 0, -1.41421}, {23.3137, 0, 15.0711, 10.6569, 0, 0, 0, - 0, -1.41421}, {16.4853, 0, 11.6569, 6.82843, 0, 0, 0, - 0, -1.}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0}, {16.4853, 0, 0, 8.24264, - 11.6569, -2.41421, 0, 0, 0}, {6.82843, 0, 0, 4.41421, 4.41421, -1., - 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1., 0, 0, 0, - 0}, {6.82843, 0, 0, 2., 6.82843, -1., 0, 0, 0}, {16.4853, 0, 0, - 5.82843, 14.0711, -2.41421, 0, 0, 0}, {23.3137, 0, 0, 9.24264, - 18.4853, -3.41421, 0, 0, 0}, {23.3137, 0, 0, 10.2426, - 17.4853, -3.41421, 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, - 0}, {23.3137, 0, 0, 0, 10.2426, 17.4853, -3.41421, 0, 0}, {16.4853, - 0, 0, 0, 8.24264, 11.6569, -2.41421, 0, 0}, {6.82843, 0, 0, 0, - 4.41421, 4.41421, -1., 0, 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0}, {0, 0, - 0, 0, 0, 1., 0, 0, 0}, {6.82843, 0, 0, 0, 2., 6.82843, -1., 0, - 0}, {16.4853, 0, 0, 0, 5.82843, 14.0711, -2.41421, 0, 0}, {23.3137, - 0, 0, 0, 9.24264, 18.4853, -3.41421, 0, 0}}, {{1., 0, 0, 0, 0, 0, - 0, 0, 0}, {23.3137, -1., 0, 0, 0, 11.6569, 13.6569, 0, - 0}, {23.3137, -1., 0, 0, 0, 12.6569, 12.6569, 0, - 0}, {16.4853, -0.707107, 0, 0, 0, 9.94975, 8.24264, 0, - 0}, {6.82843, -0.292893, 0, 0, 0, 5.12132, 3., 0, 0}, {0, 0, 0, 0, - 0, 1., 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0, 0}, {6.82843, -0.292893, - 0, 0, 0, 2.70711, 5.41421, 0, 0}, {16.4853, -0.707107, 0, 0, 0, - 7.53553, 10.6569, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0}, {16.4853, - 0, 0, -0.707107, 0, 0, 8.24264, 9.94975, 0}, {23.3137, 0, 0, -1., - 0, 0, 12.6569, 12.6569, 0}, {23.3137, 0, 0, -1., 0, 0, 13.6569, - 11.6569, 0}, {16.4853, 0, 0, -0.707107, 0, 0, 10.6569, 7.53553, - 0}, {6.82843, 0, 0, -0.292893, 0, 0, 5.41421, 2.70711, 0}, {0, 0, - 0, 0, 0, 0, 1., 0, 0}, {0, 0, 0, 0, 0, 0, 0, 1., 0}, {6.82843, 0, - 0, -0.292893, 0, 0, 3., 5.12132, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, - 0}, {6.82843, 0, 0, 0, 0, 0, -1., 4.41421, 4.41421}, {16.4853, 0, - 0, 0, 0, 0, -2.41421, 11.6569, 8.24264}, {23.3137, 0, 0, 0, 0, - 0, -3.41421, 17.4853, 10.2426}, {23.3137, 0, 0, 0, 0, 0, -3.41421, - 18.4853, 9.24264}, {16.4853, 0, 0, 0, 0, 0, -2.41421, 14.0711, - 5.82843}, {6.82843, 0, 0, 0, 0, 0, -1., 6.82843, 2.}, {0, 0, 0, 0, - 0, 0, 0, 1., 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1.}}, {{-1., 0, 0.171573, - 0, 0, 0, 0.171573, 0, 0}, {0, 0, 0.5, 0, 0, 0, -0.207107, 0, - 0.707107}, {0, 0, 1., 0, 0, 0, 0, 0, 0}, {0, 0, 1.20711, 0, 0, 0, - 0.5, 0, -0.707107}, {0, 0, 1., 0, 0, 0, 1., 0, -1.}, {0, 0, 0.5, 0, - 0, 0, 1.20711, 0, -0.707107}, {0, 0, 0, 0, 0, 0, 1., 0, 0}, {0, - 0, -0.207107, 0, 0, 0, 0.5, 0, 0.707107}, {0, 0, 0, 0, 0, 0, 0, 0, - 1.}}} - -{-1., 3.61313, 3.61313, 3.61313, 3.61313, 3.61313, 3.61313, 3.61313, -3.61313} - -{{0, 1, 8}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {0, 6, 5}, {0, - 7, 6}, {0, 8, 7}, {1, 2, 3, 4, 5, 6, 7, 8}} +{{{1., 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0}, {6.828427124746194, 4.828427124746192, 0, 0, 0, 0, -0.41421356237309526, 0, 3.4142135623730967}, {16.48528137423857, 9.242640687119284, 0, 0, 0, 0, -1., 0, 9.242640687119284}, {23.313708498984766, 11.656854249492381, 0, 0, 0, 0, -1.4142135623730954, 0, 14.071067811865476}, {23.313708498984763, 10.65685424949238, 0, 0, 0, 0, -1.4142135623730951, 0, 15.071067811865474}, {16.48528137423857, 6.82842712474619, 0, 0, 0, 0, -1., 0, 11.656854249492378}, {6.828427124746189, 2.4142135623730945, 0, 0, 0, 0, -0.414213562373095, 0, 5.828427124746188}, {0, 0, 0, 0, 0, 0, 0, 0, 1.}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0, 0}, {6.828427124746189, 3.4142135623730945, 4.828427124746189, 0, 0, 0, 0, -0.414213562373095, 0}, {16.48528137423857, 9.242640687119286, 9.242640687119284, 0, 0, 0, 0, -1., 0}, {23.313708498984763, 14.071067811865477, 11.65685424949238, 0, 0, 0, 0, -1.4142135623730951, 0}, {23.313708498984766, 15.071067811865479, 10.656854249492381, 0, 0, 0, 0, -1.4142135623730954, 0}, {16.48528137423857, 11.65685424949238, 6.82842712474619, 0, 0, 0, 0, -1., 0}, {6.828427124746194, 5.828427124746192, 2.4142135623730967, 0, 0, 0, 0, -0.41421356237309526, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0}, {6.828427124746194, 0, 4.828427124746192, 3.4142135623730967, 0, -0.41421356237309526, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0}, {6.828427124746189, 0, 2.4142135623730945, 5.828427124746188, 0, -0.414213562373095, 0, 0, 0}, {16.48528137423857, 0, 6.82842712474619, 11.656854249492378, 0, -1., 0, 0, 0}, {23.313708498984763, 0, 10.65685424949238, 15.071067811865474, 0, -1.4142135623730951, 0, 0, 0}, {23.313708498984766, 0, 11.656854249492381, 14.071067811865476, 0, -1.4142135623730954, 0, 0, 0}, {16.48528137423857, 0, 9.242640687119284, 9.242640687119284, 0, -1., 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0}, {16.48528137423857, 0, 0, 9.949747468305832, 8.242640687119284, 0, 0, -0.7071067811865475, 0}, {6.828427124746193, 0, 0, 5.121320343559644, 3.0000000000000018, 0, 0, -0.2928932188134526, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0}, {6.82842712474619, 0, 0, 2.707106781186547, 5.414213562373094, 0, 0, -0.2928932188134524, 0}, {16.48528137423857, 0, 0, 7.535533905932737, 10.65685424949238, 0, 0, -0.7071067811865475, 0}, {23.313708498984763, 0, 0, 11.65685424949238, 13.656854249492381, 0, 0, -1., 0}, {23.313708498984766, 0, 0, 12.656854249492381, 12.656854249492385, 0, 0, -1.0000000000000002, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0}, {23.313708498984763, -1., 0, 0, 13.656854249492381, 11.656854249492378, 0, 0, 0}, {16.485281374238568, -0.7071067811865474, 0, 0, 10.656854249492378, 7.535533905932735, 0, 0, 0}, {6.8284271247461925, -0.29289321881345254, 0, 0, 5.414213562373096, 2.7071067811865475, 0, 0, 0}, {0, 0, 0, 0, 1., 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0, 0}, {6.828427124746188, -0.29289321881345237, 0, 0, 2.9999999999999996, 5.12132034355964, 0, 0, 0}, {16.485281374238568, -0.7071067811865474, 0, 0, 8.242640687119284, 9.94974746830583, 0, 0, 0}, {23.31370849898476, -0.9999999999999998, 0, 0, 12.656854249492378, 12.656854249492376, 0, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0}, {23.313708498984763, 0, 0, -1.4142135623730951, 0, 14.071067811865477, 11.65685424949238, 0, 0}, {23.313708498984766, 0, 0, -1.4142135623730954, 0, 15.071067811865479, 10.656854249492381, 0, 0}, {16.48528137423857, 0, 0, -1., 0, 11.65685424949238, 6.82842712474619, 0, 0}, {6.828427124746194, 0, 0, -0.41421356237309526, 0, 5.828427124746192, 2.4142135623730967, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0, 0}, {0, 0, 0, 0, 0, 0, 1., 0, 0}, {6.828427124746189, 0, 0, -0.414213562373095, 0, 3.4142135623730945, 4.828427124746189, 0, 0}, {16.48528137423857, 0, 0, -1., 0, 9.242640687119286, 9.242640687119284, 0, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0}, {16.48528137423857, -1., 0, 0, 0, 0, 6.82842712474619, 11.656854249492378, 0}, {23.313708498984763, -1.4142135623730951, 0, 0, 0, 0, 10.65685424949238, 15.071067811865474, 0}, {23.313708498984766, -1.4142135623730954, 0, 0, 0, 0, 11.656854249492381, 14.071067811865476, 0}, {16.48528137423857, -1., 0, 0, 0, 0, 9.242640687119284, 9.242640687119284, 0}, {6.828427124746194, -0.41421356237309526, 0, 0, 0, 0, 4.828427124746192, 3.4142135623730967, 0}, {0, 0, 0, 0, 0, 0, 1., 0, 0}, {0, 0, 0, 0, 0, 0, 0, 1., 0}, {6.828427124746189, -0.414213562373095, 0, 0, 0, 0, 2.4142135623730945, 5.828427124746188, 0}}, {{1., 0, 0, 0, 0, 0, 0, 0, 0}, {6.828427124746188, 0, 0, 0, -0.29289321881345237, 0, 0, 2.9999999999999996, 5.12132034355964}, {16.485281374238568, 0, 0, 0, -0.7071067811865474, 0, 0, 8.242640687119284, 9.94974746830583}, {23.31370849898476, 0, 0, 0, -0.9999999999999998, 0, 0, 12.656854249492378, 12.656854249492376}, {23.313708498984763, 0, 0, 0, -1., 0, 0, 13.656854249492381, 11.656854249492378}, {16.485281374238568, 0, 0, 0, -0.7071067811865474, 0, 0, 10.656854249492378, 7.535533905932735}, {6.8284271247461925, 0, 0, 0, -0.29289321881345254, 0, 0, 5.414213562373096, 2.7071067811865475}, {0, 0, 0, 0, 0, 0, 0, 1., 0}, {0, 0, 0, 0, 0, 0, 0, 0, 1.}}, {{-1., 0, 0.34314575050761975, -0.24264068711928508, 0, 0.24264068711928513, 0, 0, 0}, {0, 0, 1.9999999999999998, -1.4142135623730951, 0, 0.4142135623730952, 0, 0, 0}, {0, 0, 1., 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1., 0, 0, 0, 0, 0}, {0, 0, -0.41421356237309503, 1., 0, 0.4142135623730951, 0, 0, 0}, {0, 0, 0, 0, 0, 1., 0, 0, 0}, {0, 0, 0.9999999999999994, -1.414213562373095, 0, 1.4142135623730951, 0, 0, 0}, {0, 0, 1.9999999999999998, -2.414213562373096, 0, 1.4142135623730954, 0, 0, 0}, {0, 0, 2.414213562373095, -2.4142135623730954, 0, 0.9999999999999999, 0, 0, 0}}} +{{-1.482681762970816, 0.6744535644630327, 0, 0}, {-2.3917523974197463, -2.436885662175552, 0.7138049816141946, -2.513744134347996}, {-2.391752397419748, -2.436885662175553, -1.272749180621239, -2.2822218665095106}, {-2.391752397419749, -2.436885662175553, -2.5137441343479963, -0.7138049816141941}, {-2.39175239741975, -2.4368856621755537, -2.2822218665095115, 1.272749180621239}, {-2.3917523974197485, -2.4368856621755532, -0.7138049816141947, 2.513744134347995}, {-2.391752397419748, -2.436885662175553, 1.2727491806212399, 2.282221866509511}, {-2.391752397419749, -2.4368856621755546, 2.5137441343479954, 0.7138049816141931}, {-2.3917523974197525, -2.4368856621755555, 2.2822218665095084, -1.2727491806212385}} +{{0, 1, 8}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {0, 6, 5}, {0, 7, 6}, {0, 8, 7}, {1, 2, 3, 4, 5, 6, 7, 8}} \ No newline at end of file diff --git a/fractal_dimension/circle_counting_new/data/octahedron.txt b/fractal_dimension/circle_counting_new/data/octahedron.txt index c89ba16..db5bdde 100644 --- a/fractal_dimension/circle_counting_new/data/octahedron.txt +++ b/fractal_dimension/circle_counting_new/data/octahedron.txt @@ -1,25 +1,28 @@ -{{{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., 0.}, {4., 3., 0., -1., 3., 0.}, {4., 2., 0., -1., 4., 0.}, {0., 0., 0., 0., 1., - 0.}, {3., 3., 0., -1., 4., 0.}}, {{1., 0., 0., 0., 0., 0.}, {0., - 1., 0., 0., 0., 0.}, {0., 0., 1., 0., 0., 0.}, {4., 2., 4., -1., - 0., 0.}, {4., 3., 3., -1., 0., 0.}, {3., 3., 4., -1., 0., - 0.}}, {{1., 0., 0., 0., 0., 0.}, {3., 0., 4., 3., 0., -1.}, {0., - 0., 1., 0., 0., 0.}, {0., 0., 0., 1., 0., 0.}, {3., 0., 3., 4., - 0., -1.}, {2., 0., 4., 4., 0., -1.}}, {{1., 0., 0., 0., 0., - 0.}, {3., 0., 0., 3., 4., -1.}, {3., 0., 0., 4., 3., -1.}, {0., 0., - 0., 1., 0., 0.}, {0., 0., 0., 0., 1., 0.}, {2., 0., 0., 4., +{{{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., 0.}, {4., 3., 0., + 3., -1., 0.}, {0., 0., 0., 1., 0., 0.}, {4., 2., 0., 4., -1., + 0.}, {3., 3., 0., 4., -1., 0.}}, {{1., 0., 0., 0., 0., 0.}, {0., + 1., 0., 0., 0., 0.}, {0., 0., 1., 0., 0., 0.}, {3., 4., 3., 0., + 0., -1.}, {3., 3., 4., 0., 0., -1.}, {2., 4., 4., 0., + 0., -1.}}, {{1., 0., 0., 0., 0., 0.}, {3., 0., 0., 4., + 3., -1.}, {3., 0., 0., 3., 4., -1.}, {0., 0., 0., 1., 0., 0.}, {0., + 0., 0., 0., 1., 0.}, {2., 0., 0., 4., 4., -1.}}, {{1., 0., 0., 0., + 0., 0.}, {3., 0., 4., 0., 3., -1.}, {0., 0., 1., 0., 0., 0.}, {3., + 0., 3., 0., 4., -1.}, {0., 0., 0., 0., 1., 0.}, {2., 0., 4., 0., 4., -1.}}, {{-1., 4., 4., 0., 0., 2.}, {0., 1., 0., 0., 0., - 0.}, {0., 0., 1., 0., 0., 0.}, {-1., 3., 4., 0., 0., 3.}, {-1., 4., - 3., 0., 0., 3.}, {0., 0., 0., 0., 0., 1.}}, {{0., 3., 0., -1., 4., - 3.}, {0., 1., 0., 0., 0., 0.}, {0., 3., 0., -1., 3., 4.}, {0., 2., - 0., -1., 4., 4.}, {0., 0., 0., 0., 1., 0.}, {0., 0., 0., 0., 0., - 1.}}, {{0., -1., 4., 3., 0., 3.}, {0., -1., 4., 2., 0., 4.}, {0., - 0., 1., 0., 0., 0.}, {0., 0., 0., 1., 0., 0.}, {0., -1., 3., 3., - 0., 4.}, {0., 0., 0., 0., 0., 1.}}, {{0., 0., -1., 4., 3., - 3.}, {0., 0., -1., 3., 3., 4.}, {0., 0., -1., 4., 2., 4.}, {0., 0., + 0.}, {0., 0., 1., 0., 0., 0.}, {-1., 4., 3., 0., 0., 3.}, {-1., 3., + 4., 0., 0., 3.}, {0., 0., 0., 0., 0., 1.}}, {{0., 3., 0., 4., -1., + 3.}, {0., 1., 0., 0., 0., 0.}, {0., 3., 0., 3., -1., 4.}, {0., 0., + 0., 1., 0., 0.}, {0., 2., 0., 4., -1., 4.}, {0., 0., 0., 0., 0., + 1.}}, {{-1., 0., 4., 0., 4., 2.}, {-1., 0., 4., 0., 3., 3.}, {0., + 0., 1., 0., 0., 0.}, {-1., 0., 3., 0., 4., 3.}, {0., 0., 0., 0., + 1., 0.}, {0., 0., 0., 0., 0., 1.}}, {{0., 0., -1., 3., 4., + 3.}, {0., 0., -1., 3., 3., 4.}, {0., 0., -1., 2., 4., 4.}, {0., 0., 0., 1., 0., 0.}, {0., 0., 0., 0., 1., 0.}, {0., 0., 0., 0., 0., 1.}}} -{-1, 2, 2, 4, 4, 7} +{{10., 8., -5.656854249492381, 7.}, {24., + 24., -16.970562748477143, 17.}, {8., 10., -5.656854249492381, + 7.}, {12., 10., -8.485281374238571, 7.}, {-4., -4., + 2.8284271247461903, -3.}, {10., 12., -8.485281374238571, 7.}} -{{0, 1, 4}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {1, 2, 5}, {1, 5, 4}, {2, - 3, 5}, {3, 4, 5}} +{{0, 1, 3}, {0, 2, 1}, {0, 3, 4}, {0, 4, 2}, {1, 2, 5}, {1, 5, 3}, {2, 4, 5}, {3, 5, 4}} diff --git a/fractal_dimension/circle_counting_new/data/pentagonal_pyramid.txt b/fractal_dimension/circle_counting_new/data/pentagonal_pyramid.txt index f19f2a5..c6b42dd 100644 --- a/fractal_dimension/circle_counting_new/data/pentagonal_pyramid.txt +++ b/fractal_dimension/circle_counting_new/data/pentagonal_pyramid.txt @@ -1,25 +1,25 @@ -{{{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., 0., 0.}, {5.23607, - 4.23607, 0., -0.618034, 0., 2.61803}, {8.47214, 5.23607, 0., -1., - 0., 5.23607}, {5.23607, 2.61803, 0., -0.618034, 0., 4.23607}, {0., - 0., 0., 0., 0., 1.}}, {{1., 0., 0., 0., 0., 0.}, {0., 1., 0., 0., - 0., 0.}, {0., 0., 1., 0., 0., 0.}, {5.23607, 3.61803, 3.61803, 0., - 0., -1.}, {8.47214, 6.8541, 4.23607, 0., 0., -1.61803}, {5.23607, - 5.23607, 2., 0., 0., -1.}}, {{1., 0., 0., 0., 0., 0.}, {5.23607, - 0., 4.23607, 2.61803, 0., -0.618034}, {0., 0., 1., 0., 0., - 0.}, {0., 0., 0., 1., 0., 0.}, {5.23607, 0., 2.61803, 4.23607, - 0., -0.618034}, {8.47214, 0., 5.23607, 5.23607, 0., -1.}}, {{1., - 0., 0., 0., 0., 0.}, {8.47214, -1., 0., 5.23607, 5.23607, - 0.}, {5.23607, -0.618034, 0., 4.23607, 2.61803, 0.}, {0., 0., 0., - 1., 0., 0.}, {0., 0., 0., 0., 1., 0.}, {5.23607, -0.618034, 0., - 2.61803, 4.23607, 0.}}, {{1., 0., 0., 0., 0., 0.}, {5.23607, -1., - 0., 0., 2., 5.23607}, {8.47214, -1.61803, 0., 0., 4.23607, - 6.8541}, {5.23607, -1., 0., 0., 3.61803, 3.61803}, {0., 0., 0., 0., - 1., 0.}, {0., 0., 0., 0., 0., 1.}}, {{-1., 0.763932, 0., 0., - 0.763932, -0.472136}, {0., 1., 0., 0., 0., 0.}, {0., 1.61803, 0., - 0., 1., -1.61803}, {0., 1., 0., 0., 1.61803, -1.61803}, {0., 0., - 0., 0., 1., 0.}, {0., 0., 0., 0., 0., 1.}}} +{{{1., 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0}, {5.23607, 3.61803, 0, + 0, -1., 3.61803}, {8.47214, 4.23607, 0, 0, -1.61803, + 6.8541}, {5.23607, 2., 0, 0, -1., 5.23607}, {0, 0, 0, 0, 0, + 1.}}, {{1., 0, 0, 0, 0, 0}, {0, 1., 0, 0, 0, 0}, {0, 0, 1., 0, 0, + 0}, {5.23607, 3.61803, 3.61803, 0, 0, -1.}, {8.47214, 6.8541, + 4.23607, 0, 0, -1.61803}, {5.23607, 5.23607, 2., 0, 0, -1.}}, {{1., + 0, 0, 0, 0, 0}, {5.23607, 0, 3.61803, 3.61803, -1., 0}, {0, 0, 1., + 0, 0, 0}, {0, 0, 0, 1., 0, 0}, {5.23607, 0, 2., 5.23607, -1., + 0}, {8.47214, 0, 4.23607, 6.8541, -1.61803, 0}}, {{1., 0, 0, 0, 0, + 0}, {8.47214, 0, 0, 4.23607, 6.8541, -1.61803}, {5.23607, 0, 0, + 3.61803, 3.61803, -1.}, {0, 0, 0, 1., 0, 0}, {0, 0, 0, 0, 1., + 0}, {5.23607, 0, 0, 2., 5.23607, -1.}}, {{1., 0, 0, 0, 0, + 0}, {5.23607, 0, -0.618034, 0, 2.61803, 4.23607}, {8.47214, 0, -1., + 0, 5.23607, 5.23607}, {5.23607, 0, -0.618034, 0, 4.23607, + 2.61803}, {0, 0, 0, 0, 1., 0}, {0, 0, 0, 0, 0, + 1.}}, {{-1., -0.472136, 0.763932, 0, 0, 0.763932}, {0, 1., 0, 0, 0, + 0}, {0, 0, 1., 0, 0, 0}, {0, -1.61803, 1.61803, 0, 0, + 1.}, {0, -1.61803, 1., 0, 0, 1.61803}, {0, 0, 0, 0, 0, 1.}}} -{-0.551159, 1.48885, 1.48885, 1.48885, 1.48885, 1.48885} +{{12.4721, 10.4721, -6.47214, 9.47214}, {44.3607, 44.3607, -27.4164, + 34.8885}, {10.4721, 12.4721, -6.47214, + 9.47214}, {-5.23607, -5.23607, 3.23607, -4.23607}, {18.9443, + 15.7082, -11.7082, 12.7082}, {49.5967, 46.3607, -30.6525, 36.8885}} -{{0, 1, 5}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {1, 2, 3, 4, - 5}} +{{0, 1, 5}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {0, 5, 4}, {1, 2, 3, 4, 5}} diff --git a/fractal_dimension/circle_counting_new/data/square_pyramid.txt b/fractal_dimension/circle_counting_new/data/square_pyramid.txt index ea914dd..f3ff206 100644 --- a/fractal_dimension/circle_counting_new/data/square_pyramid.txt +++ b/fractal_dimension/circle_counting_new/data/square_pyramid.txt @@ -1,10 +1,37 @@ -{{{1., 0., 0., 0., 0.}, {0., 1., 0., 0., 0.}, {4., 3., 0., -1., 3.}, {4., 2., 0., -1., 4.}, {0., 0., 0., - 0., 1.}}, {{1., 0., 0., 0., 0.}, {0., 1., 0., 0., 0.}, {0., 0., 1., 0., 0.}, {4., 3., 3., 0., -1.}, {4. -, 4., 2., 0., -1.}}, {{1., 0., 0., 0., 0.}, {4., -1., 4., 2., 0.}, {0., 0., 1., 0., 0.}, {0., 0., 0., 1. -, 0.}, {4., -1., 3., 3., 0.}}, {{1., 0., 0., 0., 0.}, {4., 0., -1., 3., 3.}, {4., 0., -1., 4., 2.}, {0., - 0., 0., 1., 0.}, {0., 0., 0., 0., 1.}}, {{-1., 1., 0., 1., 0.}, {0., 1., 0., 0., 0.}, {0., 1., 0., 1., --1.}, {0., 0., 0., 1., 0.}, {0., 0., 0., 0., 1.}}} +{{{1.9999999999999991, 3.7971633922361976, 3.897262317184306, +3.897262317184306}, {0.2633544824656822, 1.9999999999999993, +1.0263615005750792, +1.0263615005750792}, {-0.5131807502875396, -1.948631158592153, +-0.9999999999999991, -1.9999999999999991}, {-0.5131807502875396, +-1.948631158592153, -1.9999999999999991, -0.9999999999999991}}, +{{1.9999999999999993, 3.7971633217494167, +3.8972622810118462, -3.897262281011846}, {0.26335448735433437, +1.9999999999999996, +1.0263615101012593, -1.026361510101259}, {-0.5131807550506295, +-1.9486311405059227, -0.9999999999999993, +1.9999999999999991}, {0.5131807550506295, 1.948631140505923, +1.9999999999999993, -0.9999999999999991}}, {{2., +3.797163321749429, -3.8972622810118525, -3.8972622810118525}, +{0.2633544873543339, +2., -1.0263615101012584, -1.0263615101012584}, +{0.5131807550506292, +1.9486311405059262, -1., -2.}, {0.5131807550506292, +1.9486311405059262, -2., -1.}}, {{1.9999999999999996, +3.79716332174943, -3.8972622810118547, +3.8972622810118547}, {0.2633544873543333, +1.9999999999999993, -1.026361510101257, +1.026361510101257}, {0.5131807550506285, +1.948631140505927, -0.9999999999999993, +1.9999999999999993}, {-0.5131807550506285, -1.948631140505927, +1.9999999999999993, -0.9999999999999993}}, {{0, +0.6514902289208567, 0, 0}, {1.5349424375196277, 0, 0, 0}, {0, 0, +1., 0}, {0, 0, 0, 1.}}} -{-1, 2, 2, 4, 4} +{{1.9486311405059247, -0.51318075505063, 0, 0}, +{0.8071494464601054, 1.2389279387920944, 1.4142135623730945, 0}, +{0.807149446460107, 1.2389279387920964, 0, -1.4142135623730947}, +{0.8071494464601073, 1.2389279387920922, -1.4142135623730958, 0}, +{0.8071494464601074, 1.238927938792096, 0, 1.4142135623730954}} -{{0, 1, 4}, {0, 2, 1}, {0, 3, 2}, {0, 4, 3}, {1, 2, 3, 4}} +{{0, 1, 4}, {0, 2, 1}, {0, 3, 2}, {0, 4, +3}, {1, 2, 3, 4}} diff --git a/fractal_dimension/circle_counting_new/data/tetrahedron.txt b/fractal_dimension/circle_counting_new/data/tetrahedron.txt index 5e4acc4..41f2bd8 100644 --- a/fractal_dimension/circle_counting_new/data/tetrahedron.txt +++ b/fractal_dimension/circle_counting_new/data/tetrahedron.txt @@ -1,28 +1,9 @@ -{{{1.3333333333333333, - 1.160683602522959, -2.1547005383792515, -1.2440169358562922}, -{0.09572902629932163, - 1.3333333333333333, -0.6188021535170058, -0.3572655899081637}, -{0.3094010767585029, - 1.0773502691896257, -1., -1.1547005383792517}, -{0.17863279495408185, 0.6220084679281461, -1.1547005383792517, - 0.3333333333333333}}, {{1.3333333333333333, 1.160683602522959, - 2.1547005383792515, -1.2440169358562922}, {0.09572902629932163, - 1.3333333333333333, - 0.6188021535170058, -0.3572655899081637}, {-0.3094010767585029, --1.0773502691896257, -1., - 1.1547005383792517}, {0.17863279495408185, 0.6220084679281461, - 1.1547005383792517, 0.3333333333333333}}, {{0., 0.25, 0., - 0.}, {4., 0., 0., 0.}, {0., 0., 1., 0.}, {0., 0., 0., - 1.}}, {{1.3333333333333333, 1.160683602522959, 0., - 2.4880338717125845}, {0.09572902629932163, 1.3333333333333333, - 0., 0.7145311798163274}, {0., 0., 1., - 0.}, {-0.3572655899081637, -1.2440169358562922, - 0., -1.6666666666666667}}} +{{{1., 0., 0., 0.}, {0., 1., 0., 0.}, {2., 2., -1., 2.}, {0., 0., 0., + 1.}}, {{1., 0., 0., 0.}, {0., 1., 0., 0.}, {0., 0., 1., 0.}, {2., + 2., 2., -1.}}, {{1., 0., 0., 0.}, {2., -1., 2., 2.}, {0., 0., 1., + 0.}, {0., 0., 0., 1.}}, {{-1., 2., 2., 2.}, {0., 1., 0., 0.}, {0., + 0., 1., 0.}, {0., 0., 0., 1.}}} -{{1.8660254037844386, -0.5358983848622456, 0., - 0.}, {0.2886751345948129, 1.1547005383792517, 0., - 1.1547005383792517}, {0.2886751345948129, 1.1547005383792517, - 1., -0.5773502691896258}, {0.2886751345948129, - 1.1547005383792517, -1., -0.5773502691896258}} +{{6., 4., -4., 3.}, {4., 4., -4., 1.}, {4., 6., -4., 3.}, {-2., -2., 2., -1.}} {{1, 2, 3}, {0, 2, 3}, {0, 1, 3}, {0, 1, 2}} diff --git a/fractal_dimension/circle_counting_new/src/fractal.rs b/fractal_dimension/circle_counting_new/src/fractal.rs index be49ca3..fab7899 100644 --- a/fractal_dimension/circle_counting_new/src/fractal.rs +++ b/fractal_dimension/circle_counting_new/src/fractal.rs @@ -11,15 +11,16 @@ pub fn fractal_dimension( n: usize, debug: bool, generations: usize, + faces: Vec>, _orthogonal_generators: Vec>, ) -> Result { let xs: Vec = (1..=n) .map(|x| (x as f64 * upper_bound / (2.0 * n as f64) + upper_bound / 2.0)) .collect(); - let mut searcher = Searcher::new(&xs, &generators, generations, root.len() as u64); - for circle in root { - searcher.search(&circle, std::usize::MAX, 0); + let mut searcher = Searcher::new(&xs, &generators, generations, root.len() as u64, &faces); + for (i, circle) in root.iter().enumerate() { + searcher.search(&circle, i, std::usize::MAX, 0); } if debug { diff --git a/fractal_dimension/circle_counting_new/src/main.rs b/fractal_dimension/circle_counting_new/src/main.rs index 772ecc7..42f2249 100644 --- a/fractal_dimension/circle_counting_new/src/main.rs +++ b/fractal_dimension/circle_counting_new/src/main.rs @@ -6,9 +6,9 @@ use structopt::StructOpt; use ansi_term::Color::Yellow; +pub mod constants; pub mod fractal; pub mod parser; -pub mod constants; pub mod search; /// Compute fractal dimension of crystallographic packings via the circle counting method @@ -35,20 +35,24 @@ struct Opt { #[structopt(short, long)] time: bool, - /// Cap on the number of generations (0 means no cap) + /// Cap on the recursion depth (0 means no cap) #[structopt(short, long, default_value = "0")] - generations: usize, + depth: usize, + + /// Whether the generators given are geometric or algebraic generators (defaults to algebraic) + #[structopt(short, long)] + geometric: bool, } fn main() { let opt = Opt::from_args(); let debug = opt.debug; let time = debug || opt.time; - let generations = opt.generations; + let depth = opt.depth; let beginning = std::time::Instant::now(); - let (generators, root, faces, orthogonal_generators) = read_file(&opt.data_file) + let (mut generators, root, faces, orthogonal_generators) = read_file(&opt.data_file) .unwrap_or_else(|err| { eprintln!("{}", err); process::exit(-1); @@ -77,6 +81,20 @@ fn main() { ); } + if !opt.geometric { + let c = nalgebra::DMatrix::from_columns(&root); + let ct = c + .clone() + .pseudo_inverse(1e-5) + .expect(format!("Invalid root matrix {}", c).as_str()); + println!("{}", ct); + + generators = generators + .iter() + .map(|sigma| &c * sigma.transpose() * &ct) + .collect(); + } + if debug { println!( "{} (parsed from file {})", @@ -91,7 +109,9 @@ fn main() { Yellow.paint("Root Tuple"), opt.data_file ); - println!("{:?}", root); + for circle in &root { + println!("{}", circle); + } println!( "{} (parsed from file {}):", Yellow.paint("Faces"), @@ -112,7 +132,8 @@ fn main() { opt.max, opt.n, debug, - generations, + depth, + faces, orthogonal_generators, ) .unwrap(); diff --git a/fractal_dimension/circle_counting_new/src/parser.rs b/fractal_dimension/circle_counting_new/src/parser.rs index d353001..7e10a42 100644 --- a/fractal_dimension/circle_counting_new/src/parser.rs +++ b/fractal_dimension/circle_counting_new/src/parser.rs @@ -35,7 +35,7 @@ impl<'a> Iterator for TokenIterator<'a> { fn next(&mut self) -> Option { let mut current: char = self.data.next()?; - while current.is_whitespace() { + while current.is_whitespace() || current == '`' || current == '\\'{ if current == '\n' { self.line += 1; } diff --git a/fractal_dimension/circle_counting_new/src/search.rs b/fractal_dimension/circle_counting_new/src/search.rs index 7c1442b..dcba920 100644 --- a/fractal_dimension/circle_counting_new/src/search.rs +++ b/fractal_dimension/circle_counting_new/src/search.rs @@ -6,6 +6,7 @@ pub struct Searcher<'a> { generators: &'a Vec>, max_depth: usize, tolerance: f64, + faces: &'a Vec>, } impl<'a> Searcher<'a> { @@ -14,29 +15,45 @@ impl<'a> Searcher<'a> { generators: &'a Vec>, max_depth: usize, n: u64, + faces: &'a Vec>, ) -> Self { Self { counts: vec![n; maxes.len()], maxes, generators, max_depth, - tolerance: 1e-4, + tolerance: 1e-8, + faces, } } - pub fn search(&mut self, circle: &DVector, previous_generator: usize, depth: usize) { + pub fn search( + &mut self, + circle: &DVector, + seed: usize, + previous_generator: usize, + depth: usize, + ) { if self.max_depth > 0 && depth > self.max_depth { return; } for (i, generator) in self.generators.iter().enumerate() { + if depth == 0 { + for vertex in &self.faces[i] { + if *vertex == seed { + continue; + } + } + } if i != previous_generator { let new_circle = generator * circle; + if new_circle[1] - circle[1] <= self.tolerance { + continue; + } { let mut seen = false; for (j, max) in self.maxes.iter().enumerate() { - if seen - || new_circle[1] - circle[1] > self.tolerance && new_circle[1] < *max - { + if seen || new_circle[1] <= *max { seen = true; self.counts[j] += 1; } @@ -45,7 +62,7 @@ impl<'a> Searcher<'a> { continue; } } // ensure seen is dropped before recursive call to minimize stack frame size - self.search(&new_circle, i, depth + 1); + self.search(&new_circle, seed, i, depth + 1); } } } diff --git a/fractal_dimension/fractal_dimension.nb b/fractal_dimension/fractal_dimension.nb index 1a891a5..30c3a1a 100644 --- a/fractal_dimension/fractal_dimension.nb +++ b/fractal_dimension/fractal_dimension.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 308006, 7148] -NotebookOptionsPosition[ 304440, 7098] -NotebookOutlinePosition[ 304931, 7116] -CellTagsIndexPosition[ 304888, 7113] +NotebookDataLength[ 392759, 9570] +NotebookOptionsPosition[ 386128, 9472] +NotebookOutlinePosition[ 386614, 9490] +CellTagsIndexPosition[ 386571, 9487] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -27,7 +27,8 @@ Cell[BoxData[ RowBox[{"Transpose", "[", "A", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.831194837404834*^9, 3.8311948924696903`*^9}, { 3.831194930347896*^9, 3.831194932848599*^9}}, - CellLabel->"In[1]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"], + CellLabel-> + "In[278]:=",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"], Cell[BoxData[ RowBox[{ @@ -56,7 +57,8 @@ Cell[BoxData[ CellChangeTimes->{{3.831107414093502*^9, 3.83110748040809*^9}, { 3.831107557920609*^9, 3.8311075805621977`*^9}, {3.8311076270925627`*^9, 3.831107722019619*^9}, {3.83468833600141*^9, 3.8346883410498962`*^9}}, - CellLabel->"In[2]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"], + CellLabel-> + "In[279]:=",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"], Cell[BoxData[ RowBox[{ @@ -69,7 +71,8 @@ Cell[BoxData[ CellChangeTimes->{{3.831107486071478*^9, 3.831107546093779*^9}, { 3.831109392242589*^9, 3.831109394639595*^9}, {3.831110190169511*^9, 3.831110193792735*^9}}, - CellLabel->"In[3]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"], + CellLabel-> + "In[280]:=",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"], Cell[BoxData[ RowBox[{ @@ -82,7 +85,8 @@ Cell[BoxData[ RowBox[{"MatrixRank", "[", "G", "]"}]}], "]"}], "]"}], "//", "Transpose"}]}]], "Input", CellChangeTimes->{{3.831109396818718*^9, 3.831109426888632*^9}}, - CellLabel->"In[4]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"], + CellLabel-> + "In[281]:=",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"], Cell[BoxData[ RowBox[{ @@ -118,7 +122,8 @@ Cell[BoxData[ 3.831194680087949*^9, 3.831194680680228*^9}, {3.831194956352386*^9, 3.831195002875142*^9}, {3.831205178380069*^9, 3.831205187846324*^9}, 3.834688343633176*^9}, - CellLabel->"In[5]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"], + CellLabel-> + "In[282]:=",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"], Cell[BoxData[ RowBox[{ @@ -128,7 +133,8 @@ Cell[BoxData[ ";"}]], "Input", CellChangeTimes->{{3.831110103314905*^9, 3.831110162272215*^9}, 3.831206070230084*^9}, - CellLabel->"In[6]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"], + CellLabel-> + "In[283]:=",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"], Cell[BoxData[ RowBox[{ @@ -163,7 +169,8 @@ Cell[BoxData[ "]"}]}], ")"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.831194278291965*^9, 3.831194298458626*^9}, 3.831195204231324*^9}, - CellLabel->"In[7]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"], + CellLabel-> + "In[284]:=",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"], Cell[BoxData[ RowBox[{ @@ -185,7 +192,8 @@ Cell[BoxData[ CellChangeTimes->{{3.831195055004586*^9, 3.83119507699967*^9}, { 3.831195107195753*^9, 3.831195121990181*^9}, {3.831195208095559*^9, 3.831195214781535*^9}}, - CellLabel->"In[8]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"], + CellLabel-> + "In[285]:=",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"], Cell[BoxData[ RowBox[{ @@ -206,7 +214,8 @@ Cell[BoxData[ RowBox[{"v", ".", "Q", ".", "v"}], "\[Equal]", "0"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.831195241841057*^9, 3.831195289590564*^9}}, - CellLabel->"In[9]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"], + CellLabel-> + "In[286]:=",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"], Cell[BoxData[ RowBox[{ @@ -227,7 +236,8 @@ Cell[BoxData[ RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.831195337159152*^9, 3.831195396279203*^9}}, - CellLabel->"In[10]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"], + CellLabel-> + "In[287]:=",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"], Cell[BoxData[ RowBox[{ @@ -243,7 +253,8 @@ Cell[BoxData[ RowBox[{"G", ",", "L"}], "]"}], ",", "L"}], "]"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.8312049925958433`*^9, 3.8312050200596113`*^9}}, - CellLabel->"In[11]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"], + CellLabel-> + "In[288]:=",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"], Cell[BoxData[ RowBox[{ @@ -264,7 +275,8 @@ Cell[BoxData[ "]"}]}]], "Input", CellChangeTimes->{{3.8315843493182087`*^9, 3.831584372878718*^9}, { 3.831584545556731*^9, 3.831584563248426*^9}}, - CellLabel->"In[12]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"], + CellLabel-> + "In[289]:=",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"], Cell[BoxData[ RowBox[{ @@ -294,7 +306,8 @@ Cell[BoxData[ RowBox[{"[", "pos", "]"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.831210886725911*^9}, - CellLabel->"In[13]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"], + CellLabel-> + "In[290]:=",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"], Cell[BoxData[{ RowBox[{ @@ -403,7 +416,8 @@ Cell[BoxData[{ CellChangeTimes->{{3.8312108953940573`*^9, 3.831210895411563*^9}, 3.8312119634327393`*^9, 3.831542420732052*^9, {3.834688353349917*^9, 3.8346883534550037`*^9}}, - CellLabel->"In[14]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"], + CellLabel-> + "In[291]:=",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"], Cell[BoxData[ RowBox[{ @@ -635,7 +649,8 @@ Cell[BoxData[ 3.831725440268997*^9}, {3.8317255156810293`*^9, 3.8317256205301943`*^9}, { 3.831725829008904*^9, 3.831725851322979*^9}, {3.831726730605854*^9, 3.8317267923612432`*^9}, 3.833968804473505*^9}, - CellLabel->"In[16]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"], + CellLabel-> + "In[293]:=",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"], Cell[BoxData[ RowBox[{ @@ -817,7 +832,8 @@ Cell[BoxData[ 3.8346891613731537`*^9}, {3.83474319005858*^9, 3.834743210943413*^9}, { 3.834743284660774*^9, 3.8347432883605413`*^9}, {3.8347436150091953`*^9, 3.834743621722823*^9}}, - CellLabel->"In[17]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"], + CellLabel-> + "In[294]:=",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"], Cell[BoxData[ RowBox[{ @@ -843,7 +859,159 @@ Cell[BoxData[ RowBox[{"Length", "[", "G", "]"}], "]"}], ",", "G"}], "]"}]}]], "Input", CellChangeTimes->{{3.831554845925479*^9, 3.8315548977219877`*^9}, 3.833982029038528*^9}, - CellLabel->"In[18]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"], + CellLabel-> + "In[295]:=",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"abbctoxyr", "[", + RowBox[{"{", + RowBox[{"bt_", ",", "b_", ",", "h1_", ",", "h2_"}], "}"}], "]"}], ":=", + RowBox[{"{", + RowBox[{ + RowBox[{"h1", "/", "b"}], ",", + RowBox[{"h2", "/", "b"}], ",", + RowBox[{"1", "/", "b"}]}], "}"}]}]], "Input", + CellChangeTimes->{{3.8363114259734707`*^9, 3.836311449666407*^9}}, + CellLabel-> + "In[296]:=",ExpressionUUID->"5ef8c91b-dd7a-440d-b44e-513ae9efffca"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"findGeometricGenerators", "[", + RowBox[{"W_", ",", "faces_"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"circs", ",", "pointsOfIntersection", ",", "duals"}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"circs", "=", + RowBox[{"abbctoxyr", "/@", "W"}]}], ";", "\[IndentingNewLine]", + RowBox[{"pointsOfIntersection", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"i", "==", "j"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0"}], "}"}], ",", + RowBox[{ + RowBox[{"NSolve", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "i", "]"}], "]"}], "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "i", "]"}], "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "2"]}], "==", + SuperscriptBox[ + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "i", "]"}], "]"}], "[", + RowBox[{"[", "3", "]"}], "]"}], "2"]}], ",", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "j", "]"}], "]"}], "[", + RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "2"], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "j", "]"}], "]"}], "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "2"]}], "==", + SuperscriptBox[ + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "j", "]"}], "]"}], "[", + RowBox[{"[", "3", "]"}], "]"}], "2"]}]}], "}"}], ",", + "Reals"}], "]"}], "/.", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"x", "->", "a_"}], ",", + RowBox[{"y", "->", "b_"}]}], "}"}], ",", "_"}], "}"}], "->", + RowBox[{"{", + RowBox[{"a", ",", "b"}], "}"}]}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", + RowBox[{"Length", "[", "circs", "]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"j", ",", + RowBox[{"Length", "[", "circs", "]"}]}], "}"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"duals", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"CircleThrough", "[", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"pointsOfIntersection", "[", + RowBox[{"[", + RowBox[{ + RowBox[{"face", "[", + RowBox[{"[", "i", "]"}], "]"}], ",", + RowBox[{"face", "[", + RowBox[{"[", + RowBox[{"If", "[", + RowBox[{ + RowBox[{"i", "==", + RowBox[{"Length", "[", "face", "]"}]}], ",", "1", ",", + RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "]"}]}], "]"}], + "]"}], ",", + RowBox[{"{", + RowBox[{"i", ",", "3"}], "}"}]}], "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"face", ",", "faces"}], "}"}]}], "]"}], "//", "Chop"}], + ")"}], "/.", + RowBox[{ + RowBox[{"Circle", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"x_", ",", "y_"}], "}"}], ",", "r_"}], "]"}], "->", + RowBox[{"{", + RowBox[{"x", ",", "y", ",", "r"}], "}"}]}]}]}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"invertAboutCircle", "@@", "#"}], "&"}], "/@", "duals"}]}]}], + "\[IndentingNewLine]", "]"}]}]], "Input", + CellChangeTimes->{{3.836311382224783*^9, 3.836311419633215*^9}, { + 3.836311452786697*^9, 3.8363115754821777`*^9}, {3.836311671596231*^9, + 3.836311911486074*^9}, {3.83631202465561*^9, 3.8363120458893223`*^9}, { + 3.8363120966552258`*^9, 3.8363121518749323`*^9}, {3.836312205319263*^9, + 3.836312308220592*^9}, {3.8363126041123037`*^9, 3.8363126356297626`*^9}, { + 3.836312719672307*^9, 3.836312731342832*^9}, {3.83631288194462*^9, + 3.836312925832314*^9}, {3.836335503087988*^9, 3.83633554789843*^9}, { + 3.836335652905367*^9, 3.8363356695012817`*^9}, {3.8363359177817593`*^9, + 3.836335919048725*^9}, 3.836336062206873*^9, {3.836336095237904*^9, + 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"], Cell[BoxData[ RowBox[{ @@ -956,7 +1124,8 @@ Cell[BoxData[ 3.834671395332242*^9, 3.83467148748079*^9}, {3.834671580308955*^9, 3.834671642730775*^9}, {3.834671988628789*^9, 3.834671991147118*^9}, { 3.83467255246567*^9, 3.8346725653260603`*^9}}, - CellLabel->"In[19]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"], + CellLabel-> + "In[298]:=",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"], Cell[CellGroupData[{ @@ -965,7 +1134,8 @@ Cell[BoxData[ CellChangeTimes->{{3.833893222127377*^9, 3.833893227672316*^9}, { 3.83397931096562*^9, 3.833979311902438*^9}, {3.833982525256192*^9, 3.833982529177711*^9}, {3.833982918567665*^9, 3.8339829240001698`*^9}}, - CellLabel->"In[20]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"], + CellLabel-> + "In[299]:=",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"], Cell[BoxData["16384"], "Output", CellChangeTimes->{ @@ -1006,8 +1176,10 @@ Cell[BoxData["16384"], "Output", 3.834670724619562*^9, 3.8346707922130203`*^9, 3.834672572650928*^9, { 3.834672606536978*^9, 3.834672633714957*^9}, 3.834688011488668*^9, 3.834741745404797*^9, 3.834840168954259*^9, 3.835099016743781*^9, - 3.8351796489040537`*^9}, - CellLabel->"Out[20]=",ExpressionUUID->"bbf5dd8e-e10c-4275-a0dc-b914393f11a3"] + 3.8351796489040537`*^9, 3.836781531078821*^9, 3.836826948477407*^9, + 3.836830434949655*^9, 3.8368306081895647`*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"6c62ce82-041b-4fae-9a4b-c88d2a54cb6e"] }, Open ]], Cell[BoxData[ @@ -1077,7 +1249,8 @@ Cell[BoxData[ 3.8342709184846773`*^9}, {3.834271399281299*^9, 3.834271400142085*^9}, { 3.8345760352900133`*^9, 3.834576035855191*^9}, {3.834594490350781*^9, 3.834594498152722*^9}}, - CellLabel->"In[21]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"], + CellLabel-> + "In[300]:=",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"], Cell[BoxData[{ RowBox[{ @@ -1168,7 +1341,8 @@ Cell[BoxData[{ 3.834757807603224*^9}, {3.834758018406104*^9, 3.8347580192628*^9}, { 3.8347582118524027`*^9, 3.834758212224677*^9}, {3.834758276954211*^9, 3.834758277276855*^9}, {3.834758321078662*^9, 3.834758332831156*^9}}, - CellLabel->"In[22]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"], + CellLabel-> + "In[301]:=",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"], Cell[BoxData[ RowBox[{ @@ -1204,7 +1378,8 @@ Cell[BoxData[ 3.833979410979437*^9}, {3.8339798534902363`*^9, 3.833979853676499*^9}, { 3.8339800331837673`*^9, 3.833980033963599*^9}, {3.833981434488759*^9, 3.8339814414612226`*^9}, {3.833981948527481*^9, 3.8339819534472733`*^9}}, - CellLabel->"In[24]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"], + CellLabel-> + "In[303]:=",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"], Cell[BoxData[ RowBox[{ @@ -1229,7 +1404,71 @@ Cell[BoxData[ RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.8346584900042677`*^9, 3.834658495237359*^9}, { 3.834752246211548*^9, 3.834752276988707*^9}}, - CellLabel->"In[25]:=",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"], + CellLabel-> + "In[304]:=",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"tetrahedron", "=", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1"} + }]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"octahedron", "=", GridBox[{ + {"1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}]}, + { + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], "1", + RowBox[{"-", "1"}], + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "1"}], + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1", + RowBox[{"-", "1"}]}, + { + RowBox[{"-", "3"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], + RowBox[{"-", "1"}], "1"} + }]}], ";"}]}], "Input", + CellChangeTimes->{{3.8367815709437532`*^9, 3.836781616938365*^9}}, + CellLabel-> + "In[305]:=",ExpressionUUID->"897b1d52-af46-4e1c-8207-c0acc9e2c1f3"], Cell[BoxData[ RowBox[{ @@ -1301,7 +1540,8 @@ Cell[BoxData[ }]}], ";"}]], "Input", CellChangeTimes->{{3.834755880160933*^9, 3.834755881259757*^9}, 3.834785693874516*^9}, - CellLabel->"In[26]:=",ExpressionUUID->"a88926ed-6f50-457b-9480-401929196ff8"], + CellLabel-> + "In[307]:=",ExpressionUUID->"a88926ed-6f50-457b-9480-401929196ff8"], Cell[BoxData[ RowBox[{ @@ -1363,7 +1603,8 @@ Cell[BoxData[ }]}], ";"}]], "Input", CellChangeTimes->{{3.834742774681567*^9, 3.8347428287244883`*^9}, { 3.834743896750102*^9, 3.8347439689703417`*^9}}, - CellLabel->"In[27]:=",ExpressionUUID->"ac2fc7fb-1a08-4495-8c53-210ad6f3664b"], + CellLabel-> + "In[308]:=",ExpressionUUID->"ac2fc7fb-1a08-4495-8c53-210ad6f3664b"], Cell[BoxData[ RowBox[{ @@ -1672,7 +1913,8 @@ Cell[BoxData[ RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.834743429368106*^9, 3.8347434388724737`*^9}}, - CellLabel->"In[28]:=",ExpressionUUID->"609d9edf-fd45-4e4e-aae5-f4d3cc6359f5"], + CellLabel-> + "In[309]:=",ExpressionUUID->"609d9edf-fd45-4e4e-aae5-f4d3cc6359f5"], Cell[BoxData[ RowBox[{ @@ -1825,7 +2067,8 @@ Cell[BoxData[ CellChangeTimes->{{3.8347499838493013`*^9, 3.8347500201575737`*^9}, 3.834750116070956*^9, {3.8347502692524233`*^9, 3.834750279540098*^9}, { 3.8347503806900682`*^9, 3.834750484892733*^9}}, - CellLabel->"In[29]:=",ExpressionUUID->"294e535d-e3a7-4a1d-8c24-303f127653b2"], + CellLabel-> + "In[310]:=",ExpressionUUID->"294e535d-e3a7-4a1d-8c24-303f127653b2"], Cell[BoxData[ RowBox[{ @@ -2101,7 +2344,8 @@ Cell[BoxData[ MatrixForm[BoxForm`e$]]]}], ";"}]], "Input", CellChangeTimes->{{3.834755068584971*^9, 3.8347550726738453`*^9}, 3.8347857193270597`*^9}, - CellLabel->"In[30]:=",ExpressionUUID->"45d67d9a-02e6-48ac-8e3a-435a001307e6"], + CellLabel-> + "In[311]:=",ExpressionUUID->"45d67d9a-02e6-48ac-8e3a-435a001307e6"], Cell[BoxData[ RowBox[{ @@ -2304,7 +2548,8 @@ Cell[BoxData[ RowBox[{"-", "1"}], "1"} }]}], ";"}]], "Input", CellChangeTimes->{{3.834755613463056*^9, 3.834755830758485*^9}}, - CellLabel->"In[31]:=",ExpressionUUID->"65e20246-7792-4c97-b2ee-553e60d6428e"], + CellLabel-> + "In[312]:=",ExpressionUUID->"65e20246-7792-4c97-b2ee-553e60d6428e"], Cell[BoxData[ RowBox[{ @@ -3369,7 +3614,8 @@ Cell[BoxData[ RowBox[{"-", "17.94427190999916`"}], ",", "1.`"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.8351052258837433`*^9, 3.83510523223288*^9}}, - CellLabel->"In[32]:=",ExpressionUUID->"1c98ab0f-7be0-4b82-83f8-0a1739369b4d"], + CellLabel-> + "In[313]:=",ExpressionUUID->"1c98ab0f-7be0-4b82-83f8-0a1739369b4d"], Cell[BoxData[ RowBox[{ @@ -7037,7 +7283,8 @@ Cell[BoxData[ RowBox[{"-", "25.18033988749895`"}], ",", RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.835099208339944*^9, 3.835099213546089*^9}}, - CellLabel->"In[33]:=",ExpressionUUID->"239a4292-049d-4293-9674-7e78c28ca011"], + CellLabel-> + "In[314]:=",ExpressionUUID->"239a4292-049d-4293-9674-7e78c28ca011"], Cell[BoxData[ RowBox[{ @@ -7094,10 +7341,2137 @@ Cell[BoxData[ CellChangeTimes->{{3.835179658699398*^9, 3.835179697234489*^9}, 3.835179904759911*^9, {3.8351799445200777`*^9, 3.835179974915256*^9}, 3.83518031842799*^9}, - CellLabel->"In[45]:=",ExpressionUUID->"b6c05a3c-d9ef-41f8-9987-9bf57f74096c"] + CellLabel-> + "In[315]:=",ExpressionUUID->"b6c05a3c-d9ef-41f8-9987-9bf57f74096c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"dodeca", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", "1", ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "8"}], "-", + RowBox[{"3", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{ + RowBox[{"-", "5"}], "-", + RowBox[{"2", " ", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ")"}]}], ",", "1"}], "}"}]}], + "}"}]}], ";"}]], "Input", + CellChangeTimes->{{3.836826245042097*^9, 3.83682624774428*^9}}, + CellLabel-> + "In[316]:=",ExpressionUUID->"851b8d35-e5c6-40f2-826f-018f704c8a73"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"g", "=", + RowBox[{"pyramidG", "[", "7", "]"}]}], ";"}]], "Input", + CellChangeTimes->{{3.836826920000658*^9, 3.836826922164174*^9}, { + 3.8368304325805902`*^9, 3.8368304328370247`*^9}, {3.836830605294839*^9, + 3.836830605767033*^9}}, + CellLabel-> + "In[317]:=",ExpressionUUID->"c9c3f8c5-57c2-442b-83c1-93d4627643e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"g", "//", "graphFromG"}]], "Input", + CellChangeTimes->{{3.836826262636533*^9, 3.836826272003983*^9}, { + 3.8368263211194973`*^9, 3.836826322965259*^9}, {3.8368268814461517`*^9, + 3.836826884806394*^9}, 3.8368269267893*^9}, + CellLabel-> + "In[318]:=",ExpressionUUID->"4d7d714e-f2ed-41ab-a3c1-9f7a73b68b46"], + +Cell[BoxData[ + GraphicsBox[ + NamespaceBox["NetworkGraphics", + DynamicModuleBox[{Typeset`graph = HoldComplete[ + Graph[{1, 2, 3, 4, 5, 6, 7, 8}, { + Null, {{1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}, {1, 7}, {1, 8}, {2, 3}, { + 2, 8}, {3, 4}, {4, 5}, {5, 6}, {6, 7}, {7, 8}}}, { + GraphLayout -> "TutteEmbedding", VertexLabels -> {"Name"}}]]}, + TagBox[GraphicsGroupBox[{ + {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.], + ArrowBox[CompressedData[" +1:eJxTTMoPSmVmYGDgA2ImKJ6k4glCeyB00x6urnk+lpWr9jCAwQd7dHnve6yl +h1le2l962/1owefHGPKZLyNY5xi9t69zZXo8ofrMfnT5Q6sLfQ8cuW1fEHN6 +5Z4rbzDkD0Dk9xfhkIeav78bh/k+EPftvwB1H7p/0N2PLo+uH109uv/Q+ej+ +Q+ej+w+dj+4/dD66+wDq4egq + "], 0.02220329551621769]}, + {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ + 0.7]}], { + DiskBox[{-6.344131569286608*^-17, -3.172065784643304*^-17}, + 0.02220329551621769], + InsetBox["1", + Offset[{2, 2}, {0.02220329551621763, 0.02220329551621766}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{-1.8369701987210297*^-16, 1.}, 0.02220329551621769], + InsetBox["2", + Offset[{2, 2}, {0.022203295516217508, 1.0222032955162177}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{0.7818314824680298, 0.6234898018587336}, + 0.02220329551621769], + InsetBox["3", + Offset[{2, 2}, {0.8040347779842475, 0.6456930973749513}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{0.9749279121818236, -0.22252093395631428}, + 0.02220329551621769], + InsetBox["4", + Offset[{2, 2}, {0.9971312076980413, -0.2003176384400966}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{0.4338837391175582, -0.900968867902419}, + 0.02220329551621769], + InsetBox["5", + Offset[{2, 2}, {0.45608703463377587, -0.8787655723862013}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{-0.43388373911755806, -0.9009688679024193}, + 0.02220329551621769], + InsetBox["6", Offset[{2, 2}, + {-0.4116804436013404, -0.8787655723862016}], ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{-0.9749279121818236, -0.22252093395631464}, + 0.02220329551621769], + InsetBox["7", + Offset[{2, 2}, {-0.9527246166656059, -0.20031763844009695}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}, { + DiskBox[{-0.7818314824680299, 0.6234898018587334}, + 0.02220329551621769], + InsetBox["8", + Offset[{2, 2}, {-0.7596281869518122, 0.6456930973749511}], + ImageScaled[{0, 0}], + BaseStyle->"Graphics"]}}}], + MouseAppearanceTag["NetworkGraphics"]], + AllowKernelInitialization->False]], + DefaultBaseStyle->{ + "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}, + CellLabel-> + "Out[318]=",ExpressionUUID->"4f1d9765-f0d8-425e-b16b-a040781ba630"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"root", "=", + RowBox[{"rootTupleFromG", "[", + RowBox[{"g", ",", + RowBox[{"\"\\"", "->", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ",", + RowBox[{"\"\\"", "->", "5"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"graphAbbc", "[", "root", "]"}]}], "Input", + CellChangeTimes->{{3.8367816749980087`*^9, 3.83678169373193*^9}, { + 3.836782212585052*^9, 3.836782213164598*^9}, {3.836782537265017*^9, + 3.836782580512849*^9}, {3.836783320961067*^9, 3.836783330078374*^9}, { + 3.836783716493782*^9, 3.8367837243801003`*^9}, {3.8368262522877493`*^9, + 3.836826267184659*^9}, {3.836826333956609*^9, 3.8368263402284737`*^9}, { + 3.836826890490547*^9, 3.836826898050591*^9}, 3.83682693124685*^9, { + 3.836830452142412*^9, 3.836830555345973*^9}}, + CellLabel-> + "In[319]:=",ExpressionUUID->"64697f86-4592-4a50-b42f-8039aaa8a819"], + +Cell[BoxData[ + GraphicsBox[{ + CircleBox[{-0.8019377358048382, 0.9504844339512095}, 0.04951556604879044], + CircleBox[{-0.8019377358048382, 0.8955263018638384}, 0.005442566038580752], + CircleBox[{-0.7877383903693225, 0.8938691951846615}, + 0.008853147072113328], + CircleBox[{-0.7418441504755342, 0.8875967871701637}, 0.03746773760994686], + CircleBox[{-0.8019377358047971, 0.9009688679023986}, 0.09903113209757894], + CircleBox[{-0.8679584905365658, 0.9009688679024263}, 0.033010377365860384], + CircleBox[{-0.8265450532663595, 0.8979301151448246}, + 0.008514396021295157], + CircleBox[{-0.8127056576307283, 0.8966512664782302}, + 0.005383960912945071]}]], "Output", + CellChangeTimes->{ + 3.836782581009417*^9, {3.836783321814218*^9, 3.836783330443108*^9}, + 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}, + CellLabel-> + "Out[320]=",ExpressionUUID->"a2b2c706-9882-45de-b864-bc0e8d00581d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["root"], "Input", + CellChangeTimes->{{3.8367825880947943`*^9, 3.8367825884417067`*^9}}, + CellLabel-> + "In[321]:=",ExpressionUUID->"a12d9058-1edd-4fb6-b435-8ceb29d8c529"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"31.183587772959072`", ",", "20.19566935808922`", ",", + RowBox[{"-", "16.19566935808922`"}], ",", "19.19566935808922`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"265.50745689976964`", ",", "183.73686105254282`", ",", + RowBox[{"-", "147.34552233636435`"}], ",", "164.5411916944536`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"160.33344075123415`", ",", "112.95418362018589`", ",", + RowBox[{"-", "88.97834679044612`"}], ",", "100.96626520531603`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"35.677546980394254`", ",", "26.689628565524117`", ",", + RowBox[{"-", "19.79954482969879`"}], ",", "23.68962856552423`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "14.59179388647999`"}], ",", + RowBox[{"-", "10.097834679044809`"}], ",", "8.097834679044354`", ",", + RowBox[{"-", "9.097834679044581`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"47.379257131047325`", ",", "30.293504037133744`", ",", + RowBox[{"-", "26.29350403713397`"}], ",", "27.29350403713397`"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"174.92523463771386`", ",", "117.44814282762081`", ",", + RowBox[{"-", "97.07618146949085`"}], ",", "105.46022441275136`"}], "}"}], + ",", + RowBox[{"{", + 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}, + CellLabel-> + "Out[321]=",ExpressionUUID->"bdb651b7-cffa-4222-a74c-b00d819a4303"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"alg", "=", + RowBox[{ + RowBox[{"findGeneratorsFromG", "[", + RowBox[{"N", "[", "g", "]"}], "]"}], "//", "Chop"}]}]], "Input", + CellChangeTimes->{{3.836781716070932*^9, 3.8367817192268267`*^9}, { + 3.836782228380805*^9, 3.836782229077721*^9}, {3.8367826154875526`*^9, + 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"], + +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[{ + "6.493959207434934`", ",", "5.048917339522307`", ",", "0", ",", "0", + ",", + RowBox[{"-", "0.35689586789220945`"}], ",", "0", ",", "0", ",", + "2.801937735804839`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "14.591793886479545`", ",", "9.097834679044611`", ",", "0", ",", "0", + ",", + RowBox[{"-", "0.8019377358048382`"}], ",", "0", ",", "0", ",", + "7.2958969432397724`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "18.195669358089223`", ",", "10.097834679044613`", ",", "0", ",", "0", + ",", + RowBox[{"-", "1.`"}], ",", "0", ",", "0", ",", "10.097834679044613`"}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + "14.591793886479547`", ",", "7.295896943239775`", ",", "0", ",", "0", + ",", + RowBox[{"-", "0.8019377358048383`"}], ",", "0", ",", "0", ",", + "9.097834679044613`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "6.493959207434934`", ",", "2.80193773580484`", ",", "0", ",", "0", ",", + RowBox[{"-", "0.35689586789220945`"}], ",", "0", ",", "0", ",", + "5.048917339522306`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "1.`"}], "}"}]}], "}"}], ",", + 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[{ + "6.493959207434933`", ",", "3.246979603717467`", ",", + "4.692021471630094`", ",", "0", ",", "0", ",", "0", ",", + RowBox[{"-", "0.4450418679126286`"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "14.591793886479541`", ",", "8.295896943239773`", ",", + "8.295896943239768`", ",", "0", ",", "0", ",", "0", ",", + RowBox[{"-", "0.9999999999999997`"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "18.195669358089223`", ",", "11.34481428276208`", ",", + "9.09783467904461`", ",", "0", ",", "0", ",", "0", ",", + RowBox[{"-", "1.246979603717467`"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "14.591793886479547`", ",", "10.097834679044613`", ",", + "6.4939592074349335`", ",", "0", ",", "0", ",", "0", ",", + RowBox[{"-", "1.`"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "6.4939592074349335`", ",", "5.493959207434934`", ",", + "2.445041867912628`", ",", "0", ",", "0", ",", "0", ",", + RowBox[{"-", "0.44504186791262873`"}], ",", "0"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6.4939592074349335`", ",", + RowBox[{"-", "1.`"}], ",", "6.4939592074349335`", ",", + "1.9999999999999998`", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6.493959207434932`", ",", + RowBox[{"-", "0.9999999999999998`"}], ",", "4.246979603717466`", ",", + "4.246979603717466`", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"14.591793886479541`", ",", + RowBox[{"-", "2.2469796037174667`"}], ",", "10.542876546957238`", ",", + "7.29589694323977`", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"18.19566935808922`", ",", + RowBox[{"-", "2.801937735804838`"}], ",", "14.146752018566914`", ",", + "7.850855075327141`", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"14.591793886479547`", ",", + RowBox[{"-", "2.2469796037174676`"}], ",", "12.34481428276208`", ",", + "5.493959207434934`", ",", "0", ",", "0", ",", "0", ",", "0"}], + "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "14.59179388647954`", ",", "0", ",", "0", ",", "8.295896943239768`", + ",", "8.295896943239772`", ",", "0", ",", + RowBox[{"-", "0.9999999999999994`"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "6.493959207434932`", ",", "0", ",", "0", ",", "4.692021471630094`", + ",", "3.2469796037174663`", ",", "0", ",", + RowBox[{"-", "0.4450418679126285`"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "6.4939592074349335`", ",", "0", ",", "0", ",", "2.4450418679126282`", + ",", "5.4939592074349335`", ",", "0", ",", + RowBox[{"-", "0.4450418679126287`"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "14.591793886479548`", ",", "0", ",", "0", ",", "6.493959207434934`", + ",", "10.097834679044613`", ",", "0", ",", + RowBox[{"-", "1.`"}], ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "18.195669358089223`", ",", "0", ",", "0", ",", "9.09783467904461`", + ",", "11.344814282762078`", ",", "0", ",", + RowBox[{"-", "1.2469796037174667`"}], ",", "0"}], "}"}]}], "}"}], ",", + + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "18.195669358089223`", ",", "0", ",", "0", ",", "0", ",", + "9.09783467904461`", ",", "11.344814282762078`", ",", "0", ",", + RowBox[{"-", "1.2469796037174667`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "14.59179388647954`", ",", "0", ",", "0", ",", "0", ",", + "8.295896943239768`", ",", "8.295896943239772`", ",", "0", ",", + RowBox[{"-", "0.9999999999999994`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "6.493959207434932`", ",", "0", ",", "0", ",", "0", ",", + "4.692021471630094`", ",", "3.2469796037174663`", ",", "0", ",", + RowBox[{"-", "0.4450418679126285`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "6.4939592074349335`", ",", "0", ",", "0", ",", "0", ",", + "2.4450418679126282`", ",", "5.4939592074349335`", ",", "0", ",", + RowBox[{"-", "0.4450418679126287`"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "14.591793886479548`", ",", "0", ",", "0", ",", "0", ",", + "6.493959207434934`", ",", "10.097834679044613`", ",", "0", ",", + RowBox[{"-", "1.`"}]}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14.591793886479541`", ",", "0", ",", "0", ",", + RowBox[{"-", "0.9999999999999997`"}], ",", "0", ",", + "8.295896943239773`", ",", "8.295896943239768`", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{"18.195669358089223`", ",", "0", ",", "0", ",", + RowBox[{"-", "1.246979603717467`"}], ",", "0", ",", + "11.34481428276208`", ",", "9.09783467904461`", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14.591793886479547`", ",", "0", ",", "0", ",", + RowBox[{"-", "1.`"}], ",", "0", ",", "10.097834679044613`", ",", + "6.4939592074349335`", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6.4939592074349335`", ",", "0", ",", "0", ",", + RowBox[{"-", "0.44504186791262873`"}], ",", "0", ",", + "5.493959207434934`", ",", "2.445041867912628`", ",", "0"}], "}"}], + ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1.`", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1.`", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6.493959207434933`", ",", "0", ",", "0", ",", + RowBox[{"-", "0.4450418679126286`"}], ",", "0", ",", + "3.246979603717467`", ",", "4.692021471630094`", ",", "0"}], "}"}]}], + "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + "1.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6.493959207434934`", ",", "0", ",", "0", ",", + RowBox[{"-", "0.35689586789220945`"}], ",", "0", ",", "0", ",", + "2.80193773580484`", ",", "5.048917339522306`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14.591793886479547`", ",", "0", ",", "0", ",", + RowBox[{"-", "0.8019377358048383`"}], ",", "0", ",", "0", ",", + "7.295896943239775`", ",", "9.097834679044613`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18.195669358089223`", ",", "0", ",", "0", ",", + RowBox[{"-", "1.`"}], ",", "0", ",", "0", ",", "10.097834679044613`", + ",", "10.097834679044613`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14.591793886479545`", ",", "0", ",", "0", ",", + RowBox[{"-", "0.8019377358048382`"}], ",", "0", ",", "0", ",", + "9.097834679044611`", ",", "7.2958969432397724`"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6.493959207434934`", ",", "0", ",", "0", ",", + RowBox[{"-", "0.35689586789220945`"}], ",", "0", ",", "0", ",", + "5.048917339522307`", ",", "2.801937735804839`"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1.`", ",", + "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", + "1.`"}], "}"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1.`"}], ",", "0.27412667908544935`", ",", "0", ",", + RowBox[{"-", "0.1521288297805754`"}], ",", "0.3418303776543589`", ",", + "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"}], "}"}], ",", + 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[{"{", + RowBox[{"0", ",", "0.9999999999999998`", ",", "0", ",", + RowBox[{"-", "1.8019377358048387`"}], ",", "1.8019377358048385`", ",", + "0", ",", "0", ",", "0"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1.246979603717467`", ",", "0", ",", + RowBox[{"-", "1.246979603717467`"}], ",", "1.`", ",", "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}, + CellLabel-> + "Out[322]=",ExpressionUUID->"c86a0780-5644-4600-aefc-d58c2c6c5aea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"FindFace", "[", + RowBox[{"graphFromG", "[", "g", "]"}], "]"}], "-", "1"}]], "Input", + CellChangeTimes->{{3.8367826359217863`*^9, 3.836782643868738*^9}, { + 3.836783384674279*^9, 3.8367833852202873`*^9}, {3.8368263719646263`*^9, + 3.8368263747397413`*^9}, 3.8368269449100313`*^9}, + CellLabel-> + "In[324]:=",ExpressionUUID->"ddd3a665-d541-435d-a556-e983f9a2a721"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "1", ",", "7"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "3", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "5", ",", "4"}], "}"}], ",", + 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}, + CellLabel-> + "Out[324]=",ExpressionUUID->"b9d2e402-8335-42a0-9516-b1e5878a7b30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"root", "=", + RowBox[{"rootTupleFromG", "[", + RowBox[{"octahedron", ",", + RowBox[{"\"\\"", "->", "True"}], ",", + RowBox[{"\"\\"", "->", "5"}]}], "]"}]}]], "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}}, + CellLabel-> + "In[362]:=",ExpressionUUID->"74f40533-5cef-42bc-84d6-0432307eb122"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"10", ",", "8", ",", + RowBox[{ + RowBox[{"-", "4"}], " ", + SqrtBox["2"]}], ",", "7"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "24", ",", + RowBox[{ + RowBox[{"-", "12"}], " ", + SqrtBox["2"]}], ",", "17"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "10", ",", + RowBox[{ + RowBox[{"-", "4"}], " ", + SqrtBox["2"]}], ",", "7"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "10", ",", + RowBox[{ + RowBox[{"-", "6"}], " ", + SqrtBox["2"]}], ",", "7"}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "4"}], ",", + RowBox[{"-", "4"}], ",", + RowBox[{"2", " ", + SqrtBox["2"]}], ",", + RowBox[{"-", "3"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "12", ",", + RowBox[{ + RowBox[{"-", "6"}], " ", + SqrtBox["2"]}], ",", "7"}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.836860643338293*^9, 3.8368606643365726`*^9}, + 3.836860767752082*^9, 3.836861378401307*^9, 3.836862086260186*^9, + 3.836862533676415*^9}, + CellLabel-> + "Out[362]=",ExpressionUUID->"f8b57d34-54bf-4555-86d8-b1282d315336"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"alg", "=", + RowBox[{"RootApproximant", "[", + RowBox[{"findGeneratorsFromG", "[", "octahedron", "]"}], "]"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.8368606754023857`*^9, 3.836860701506312*^9}, + 3.8368607477896767`*^9, {3.836861383320847*^9, 3.836861384341001*^9}}, + CellLabel-> + "In[344]:=",ExpressionUUID->"6c3f7ffd-26f3-488f-886c-23454998ed6a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"geom", "=", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"Transpose", "[", "root", "]"}], ".", + RowBox[{"Transpose", "[", "#", "]"}], ".", + RowBox[{"PseudoInverse", "[", + RowBox[{"Transpose", "[", "root", "]"}], "]"}]}], "&"}], "/@", + "alg"}], "//", "Simplify"}]}], ";"}]], "Input", + CellChangeTimes->{{3.836861396756734*^9, 3.836861407500039*^9}, { + 3.836861438320512*^9, 3.836861457101021*^9}}, + CellLabel-> + "In[365]:=",ExpressionUUID->"770d5ee5-e393-4850-9a46-6c7de46cc618"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c", "=", + RowBox[{"root", "[", + RowBox[{"[", + RowBox[{"-", "1"}], "]"}], "]"}]}]], "Input", + CellChangeTimes->{{3.836862090498773*^9, 3.836862095367288*^9}}, + CellLabel-> + "In[364]:=",ExpressionUUID->"68ee96ba-31f2-4143-bd53-307ccabc9cc0"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"10", ",", "12", ",", + RowBox[{ + RowBox[{"-", "6"}], " ", + SqrtBox["2"]}], ",", "7"}], "}"}]], "Output", + CellChangeTimes->{{3.8368620932615356`*^9, 3.836862095786551*^9}, + 3.836862541271953*^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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"root", "//", "N"}]], "Input", + CellChangeTimes->{{3.8368625164866247`*^9, 3.836862516833157*^9}, { + 3.836862635043832*^9, 3.836862640783617*^9}, {3.8368632642245083`*^9, + 3.83686326457684*^9}}, + CellLabel-> + "In[376]:=",ExpressionUUID->"f3528cd8-92c1-47b7-bb02-42e08ed49e1b"], + +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.`"}], "}"}]}], + "}"}]], "Output", + CellChangeTimes->{ + 3.836862517142044*^9, {3.836862635581028*^9, 3.836862641160112*^9}, + 3.83686326503437*^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"] }, -WindowSize->{679.5, 776.25}, -WindowMargins->{{Automatic, 7.5}, {7.5, Automatic}}, +WindowSize->{780., 779.25}, +WindowMargins->{{6, Automatic}, {6, Automatic}}, TaggingRules->{ "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False}, FrontEndVersion->"12.3 for Linux x86 (64-bit) (June 19, 2021)", @@ -7115,41 +9489,89 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[558, 20, 418, 9, 29, "Input",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"], -Cell[979, 31, 1029, 27, 71, "Input",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"], -Cell[2011, 60, 509, 11, 29, "Input",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"], -Cell[2523, 73, 439, 11, 29, "Input",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"], -Cell[2965, 86, 1415, 34, 71, "Input",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"], -Cell[4383, 122, 342, 8, 29, "Input",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"], -Cell[4728, 132, 1140, 33, 92, "Input",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"], -Cell[5871, 167, 740, 20, 51, "Input",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"], -Cell[6614, 189, 671, 19, 51, "Input",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"], -Cell[7288, 210, 708, 19, 71, "Input",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"], -Cell[7999, 231, 548, 14, 51, "Input",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"], -Cell[8550, 247, 702, 19, 71, "Input",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"], -Cell[9255, 268, 996, 28, 71, "Input",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"], -Cell[10254, 298, 4042, 107, 381, "Input",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"], -Cell[14299, 407, 10810, 230, 608, "Input",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"], -Cell[25112, 639, 7334, 180, 608, "Input",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"], -Cell[32449, 821, 912, 24, 92, "Input",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"], -Cell[33364, 847, 5346, 111, 216, "Input",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"], +Cell[558, 20, 423, 10, 29, "Input",ExpressionUUID->"e1bc883b-2413-4a7d-abe0-4a19eb3f78fd"], +Cell[984, 32, 1034, 28, 51, "Input",ExpressionUUID->"025b5df5-f2a6-4cee-a294-e76ee16e74d4"], +Cell[2021, 62, 514, 12, 29, "Input",ExpressionUUID->"54cc4a6c-be37-4091-ac21-3dfd11eb53ea"], +Cell[2538, 76, 444, 12, 29, "Input",ExpressionUUID->"d3298122-6e10-4115-8e61-a949acba4e08"], +Cell[2985, 90, 1420, 35, 71, "Input",ExpressionUUID->"4e2a5664-aeb5-4dfb-88fb-7e7839ba2141"], +Cell[4408, 127, 347, 9, 29, "Input",ExpressionUUID->"c9a1b25a-8cb3-40d1-ac83-1d2405398934"], +Cell[4758, 138, 1145, 34, 71, "Input",ExpressionUUID->"30b57c08-a123-4e7d-9b0a-b512fcfecee8"], +Cell[5906, 174, 745, 21, 29, "Input",ExpressionUUID->"e30807a9-5381-4ad1-b9fd-a6a877ae69fe"], +Cell[6654, 197, 676, 20, 29, "Input",ExpressionUUID->"d1264330-efcb-4ca7-a1c2-f6744f28eebe"], +Cell[7333, 219, 712, 20, 51, "Input",ExpressionUUID->"efd0e321-9f31-4641-bf42-f73e16044635"], +Cell[8048, 241, 552, 15, 51, "Input",ExpressionUUID->"810323e6-91cb-44f2-ad55-323fbec422eb"], +Cell[8603, 258, 706, 20, 51, "Input",ExpressionUUID->"948959db-c926-4458-9e45-ef7f3fb99ba5"], +Cell[9312, 280, 1000, 29, 71, "Input",ExpressionUUID->"e7b8a43b-0fbc-4073-928d-10a091e21dd7"], +Cell[10315, 311, 4046, 108, 339, "Input",ExpressionUUID->"5cb4f612-3c02-42ac-ad57-4fb2daf3366b"], +Cell[14364, 421, 10814, 231, 546, "Input",ExpressionUUID->"df61872a-1e93-4b2b-ad66-1c8fee203402"], +Cell[25181, 654, 7338, 181, 546, "Input",ExpressionUUID->"dab3b84f-3f49-42e4-9bc4-79cb6408f946"], +Cell[32522, 837, 916, 25, 92, "Input",ExpressionUUID->"bd52b017-bd99-4bdf-9126-b7c62804c9f2"], +Cell[33441, 864, 447, 12, 29, "Input",ExpressionUUID->"5ef8c91b-dd7a-440d-b44e-513ae9efffca"], +Cell[33891, 878, 5515, 135, 289, "Input",ExpressionUUID->"2ffd6cba-1ba3-4c73-8457-ef7fc5958282"], +Cell[39409, 1015, 5350, 112, 174, "Input",ExpressionUUID->"4186f080-27d0-474f-9433-7cdeb3a7a49d"], Cell[CellGroupData[{ -Cell[38735, 962, 357, 5, 29, "Input",ExpressionUUID->"a546161f-063b-4b38-811b-1f5d9ac28696"], -Cell[39095, 969, 2838, 40, 33, "Output",ExpressionUUID->"bbf5dd8e-e10c-4275-a0dc-b914393f11a3"] +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"] }, Open ]], -Cell[41948, 1012, 2787, 67, 283, "Input",ExpressionUUID->"3971d33a-d19f-42ea-9b17-0801f7a59659"], -Cell[44738, 1081, 3212, 89, 267, "Input",ExpressionUUID->"3db5443f-dda7-4082-8ab7-96e274634389"], -Cell[47953, 1172, 1383, 34, 116, "Input",ExpressionUUID->"52eb731d-d72b-4ff7-afc4-5691e9750e37"], -Cell[49339, 1208, 843, 23, 65, "Input",ExpressionUUID->"6e172e8f-4972-4597-9559-948bf406a2c4"], -Cell[50185, 1233, 1861, 70, 147, "Input",ExpressionUUID->"a88926ed-6f50-457b-9480-401929196ff8"], -Cell[52049, 1305, 1550, 60, 137, "Input",ExpressionUUID->"ac2fc7fb-1a08-4495-8c53-210ad6f3664b"], -Cell[53602, 1367, 9993, 307, 504, "Input",ExpressionUUID->"609d9edf-fd45-4e4e-aae5-f4d3cc6359f5"], -Cell[63598, 1676, 4066, 151, 216, "Input",ExpressionUUID->"294e535d-e3a7-4a1d-8c24-303f127653b2"], -Cell[67667, 1829, 7538, 274, 221, "Input",ExpressionUUID->"45d67d9a-02e6-48ac-8e3a-435a001307e6"], -Cell[75208, 2105, 5347, 201, 250, "Input",ExpressionUUID->"65e20246-7792-4c97-b2ee-553e60d6428e"], -Cell[80558, 2308, 49457, 1063, 6383, "Input",ExpressionUUID->"1c98ab0f-7be0-4b82-83f8-0a1739369b4d"], -Cell[130018, 3373, 172929, 3666, 21934, "Input",ExpressionUUID->"239a4292-049d-4293-9674-7e78c28ca011"], -Cell[302950, 7041, 1486, 55, 181, "Input",ExpressionUUID->"b6c05a3c-d9ef-41f8-9987-9bf57f74096c"] +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[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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] } ] *) diff --git a/root_tuple.nb b/root_tuple.nb new file mode 100644 index 0000000..df4e3d9 --- /dev/null +++ b/root_tuple.nb @@ -0,0 +1,1100 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 12.3' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 37943, 1092] +NotebookOptionsPosition[ 36764, 1066] +NotebookOutlinePosition[ 37157, 1082] +CellTagsIndexPosition[ 37114, 1079] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell["\<\ +My growing list of utility functions I keep copy and pasting everywhere\ +\>", "Text", + CellChangeTimes->{{3.836775550885043*^9, + 3.8367755620440617`*^9}},ExpressionUUID->"30527bb2-1c83-410b-a9c3-\ +cd217fac9ba3"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"xyrtoabbc", "[", + RowBox[{"{", + RowBox[{"x_", ",", "y_", ",", "r_"}], "}"}], "]"}], ":=", + RowBox[{"{", + RowBox[{ + RowBox[{"r", + RowBox[{"(", + RowBox[{ + FractionBox[ + SuperscriptBox["x", "2"], + SuperscriptBox["r", "2"]], "+", + FractionBox[ + SuperscriptBox["y", "2"], + SuperscriptBox["r", "2"]], "-", "1"}], ")"}]}], ",", + RowBox[{"1", "/", "r"}], ",", + RowBox[{"x", "/", "r"}], ",", + RowBox[{"y", "/", "r"}]}], "}"}]}], "\n", + RowBox[{ + RowBox[{"graphFromG", "[", "G_", "]"}], ":=", + RowBox[{"PlanarGraph", "[", + RowBox[{"AdjacencyGraph", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{"#", "\[Equal]", + RowBox[{"-", "1"}]}], ",", "1", ",", "0"}], "]"}], "&"}], "/@", + "#"}], "&"}], "/@", "G"}], ",", + RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], + "]"}]}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"abbctoxyr", "[", + RowBox[{"{", + RowBox[{"bt_", ",", "b_", ",", "h1_", ",", "h2_"}], "}"}], "]"}], ":=", + RowBox[{"{", + RowBox[{ + RowBox[{"h1", "/", "b"}], ",", + RowBox[{"h2", "/", "b"}], ",", + RowBox[{"1", "/", "b"}]}], "}"}]}], "\n", + RowBox[{ + RowBox[{"graphDuals", "[", "circs_", "]"}], ":=", + RowBox[{"Graphics", "[", + RowBox[{"{", + RowBox[{"Red", ",", "Dashed", ",", + RowBox[{ + RowBox[{ + RowBox[{"Circle", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", + RowBox[{ + "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], + "}"}], ",", + RowBox[{"Abs", "[", + RowBox[{"#", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], + "]"}]}], "]"}], "&"}], "/@", "circs"}]}], "}"}], + "]"}]}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"graphCircles", "[", "circs_", "]"}], ":=", + RowBox[{"Graphics", "[", + RowBox[{ + RowBox[{ + RowBox[{"Circle", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], + ",", + RowBox[{ + "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "}"}], + ",", + RowBox[{"Abs", "[", + RowBox[{"#", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], + "]"}]}], "]"}], "&"}], "/@", "circs"}], "]"}]}], "\n", + RowBox[{ + RowBox[{"graphAbbc", "[", "circs_", "]"}], ":=", + RowBox[{"graphCircles", "[", + RowBox[{"abbctoxyr", "/@", "circs"}], "]"}]}], "\n", + RowBox[{ + RowBox[{"graphDualAbbc", "[", "circs_", "]"}], ":=", + RowBox[{"graphDuals", "[", + RowBox[{"abbctoxyr", "/@", "circs"}], "]"}]}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"findRoot", "[", + RowBox[{"tuple_", ",", "sigmas_"}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", "candidates", "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"candidates", "=", + RowBox[{"Select", "[", + RowBox[{"sigmas", ",", + RowBox[{ + RowBox[{ + RowBox[{"Total", "[", + RowBox[{"#", ".", "tuple"}], "]"}], "<", + RowBox[{"Total", "[", "tuple", "]"}]}], "&"}]}], "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Length", "[", "candidates", "]"}], "\[Equal]", "0"}], ",", + "tuple", ",", + RowBox[{"findRoot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + "candidates", "\[LeftDoubleBracket]", "1", + "\[RightDoubleBracket]"}], ".", "tuple"}], ",", "sigmas"}], + "]"}]}], "]"}]}]}], "]"}]}], "\n", + RowBox[{"reflectx", ":=", GridBox[{ + {"1", "0", "0", "0"}, + {"0", "1", "0", "0"}, + {"0", "0", + RowBox[{"-", "1"}], "0"}, + {"0", "0", "0", "1"} + }]}], "\n", + RowBox[{"reflecty", ":=", GridBox[{ + {"1", "0", "0", "0"}, + {"0", "1", "0", "0"}, + {"0", "0", "1", "0"}, + {"0", "0", "0", + RowBox[{"-", "1"}]} + }]}], "\n", + RowBox[{ + RowBox[{"scale", "[", "a_", "]"}], ":=", GridBox[{ + {"a", "0", "0", "0"}, + {"0", + RowBox[{"1", "/", "a"}], "0", "0"}, + {"0", "0", "1", "0"}, + {"0", "0", "0", "1"} + }]}], "\n", + RowBox[{ + RowBox[{"rotate", "[", "\[Theta]_", "]"}], ":=", GridBox[{ + {"1", "0", "0", "0"}, + {"0", "1", "0", "0"}, + {"0", "0", + RowBox[{"Cos", "[", "\[Theta]", "]"}], + RowBox[{"Sin", "[", "\[Theta]", "]"}]}, + {"0", "0", + RowBox[{"-", + RowBox[{"Sin", "[", "\[Theta]", "]"}]}], + RowBox[{"Cos", "[", "\[Theta]", "]"}]} + }]}], "\n", + RowBox[{ + RowBox[{"translate", "[", + RowBox[{"s_", ",", "t_"}], "]"}], ":=", GridBox[{ + {"1", + RowBox[{ + SuperscriptBox["s", "2"], "+", + SuperscriptBox["t", "2"]}], + RowBox[{"2", "s"}], + RowBox[{"2", "t"}]}, + {"0", "1", "0", "0"}, + {"0", "s", "1", "0"}, + {"0", "t", "0", "1"} + }]}], "\n", + RowBox[{"invert", ":=", GridBox[{ + {"0", "1", "0", "0"}, + {"1", "0", "0", "0"}, + {"0", "0", "1", "0"}, + {"0", "0", "0", "1"} + }]}], "\n", + RowBox[{ + RowBox[{"invertAboutCircle", "[", + RowBox[{"{", + RowBox[{"x_", ",", "y_", ",", "r_"}], "}"}], "]"}], ":=", + RowBox[{ + RowBox[{"translate", "[", + RowBox[{"x", ",", "y"}], "]"}], ".", + RowBox[{"scale", "[", "r", "]"}], ".", GridBox[{ + {"0", "1", "0", "0"}, + {"1", "0", "0", "0"}, + {"0", "0", "1", "0"}, + {"0", "0", "0", "1"} + }], ".", + RowBox[{"scale", "[", + RowBox[{"1", "/", "r"}], "]"}], ".", + RowBox[{"translate", "[", + RowBox[{ + RowBox[{"-", "x"}], ",", + RowBox[{"-", "y"}]}], "]"}]}]}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"invertAboutAbbc", "[", + RowBox[{"{", + RowBox[{"bt_", ",", "b_", ",", "h1_", ",", "h2_"}], "}"}], "]"}], ":=", + RowBox[{"invertAboutCircle", "[", + RowBox[{"abbctoxyr", "[", + RowBox[{"{", + RowBox[{"bt", ",", "b", ",", "h1", ",", "h2"}], "}"}], "]"}], + "]"}]}]}], "Input", + CellChangeTimes->{{3.83518188899883*^9, 3.83518196723921*^9}, { + 3.835189667119636*^9, 3.835189672844467*^9}, 3.8351900823026648`*^9, { + 3.835190500475547*^9, 3.8351905140234118`*^9}, {3.835273965292259*^9, + 3.8352739991796618`*^9}, {3.835274036684937*^9, 3.835274038678647*^9}, { + 3.836773826590536*^9, 3.836773850497075*^9}, {3.83677440688564*^9, + 3.836774407282791*^9}, {3.836775272970418*^9, 3.836775286241686*^9}, + 3.836775349044335*^9}, + CellLabel->"In[1]:=",ExpressionUUID->"712f1eee-ffe3-4442-b0ef-88c55ebe5557"], + +Cell["\<\ +Function to find root tuple just given G. It needs to know three rows of G \ +corresponding to three circles on a face. It defaults to {1, 2, 3}, but you \ +can change that with Face->whatever. Likewise, it will default to inverting \ +through circle 4 to make the bounded packing, but you can change that with \ +Invert->whatever. I\[CloseCurlyQuote]d recommend not picking anything on the \ +face, since two of them don\[CloseCurlyQuote]t work as they are lines and the \ +other can often give extra unwanted symmetry. Finally, it defaults to doing \ +everything numerically, but you can make it exact by specifying Exact->True.\ +\>", "Text", + CellChangeTimes->{{3.836775573543792*^9, 3.836775580674549*^9}, { + 3.836781087527965*^9, 3.836781202947666*^9}, {3.836781271184314*^9, + 3.836781281672988*^9}},ExpressionUUID->"9ac07c3a-f945-48dc-946f-\ +d840bb5c11e3"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"Options", "[", "rootTupleFromG", "]"}], "=", + RowBox[{"{", + RowBox[{ + RowBox[{"\"\\"", "->", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], ",", + RowBox[{"\"\\"", "->", "4"}], ",", + RowBox[{"\"\\"", "->", "False"}]}], "}"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"rootTupleFromG", "[", + RowBox[{"G_", ",", + RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", + RowBox[{"Block", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "circs", ",", "P", ",", "v", ",", "c1", ",", "c2", ",", "c3", ",", + "face", ",", "invert", ",", "exact"}], "}"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"P", "=", GridBox[{ + {"0", + RowBox[{ + RowBox[{"-", "1"}], "/", "2"}], "0", "0"}, + { + RowBox[{ + RowBox[{"-", "1"}], "/", "2"}], "0", "0", "0"}, + {"0", "0", "1", "0"}, + {"0", "0", "0", "1"} + }]}], ";", "\[IndentingNewLine]", + RowBox[{"face", "=", + RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"invert", "=", + RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"exact", "=", + RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"v", "=", + RowBox[{"{", + RowBox[{"bt", ",", "b", ",", "h1", ",", "h2"}], "}"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"c1", "=", + RowBox[{"face", "[", + RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"c2", "=", + RowBox[{"face", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"c3", "=", + RowBox[{"face", "[", + RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{"circs", "=", + RowBox[{"Range", "[", + RowBox[{"Length", "[", "G", "]"}], "]"}]}], ";", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "c1", "]"}], "]"}], "=", + RowBox[{"{", + RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "}"}]}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "c2", "]"}], "]"}], "=", + RowBox[{"{", + RowBox[{"0", ",", "0", ",", "0", ",", + RowBox[{"-", "1"}]}], "}"}]}], ";", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "c3", "]"}], "]"}], "=", + RowBox[{"{", + RowBox[{ + FractionBox[ + RowBox[{"1", "-", + SuperscriptBox[ + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"c2", ",", "c3"}], "]"}], "]"}], "2"]}], + RowBox[{ + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"c1", ",", "c3"}], "]"}], "]"}], "+", + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"c2", ",", "c3"}], "]"}], "]"}]}]], ",", + RowBox[{ + RowBox[{"-", + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"c1", ",", "c3"}], "]"}], "]"}]}], "-", + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"c2", ",", "c3"}], "]"}], "]"}]}], ",", "0", ",", + RowBox[{"-", + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"c2", ",", "c3"}], "]"}], "]"}]}]}], "}"}]}], ";", + "\[IndentingNewLine]", + RowBox[{"For", "[", + RowBox[{ + RowBox[{"i", "=", "1"}], ",", + RowBox[{"i", "<=", + RowBox[{"Length", "[", "G", "]"}]}], ",", + RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", + RowBox[{"If", "[", + RowBox[{ + RowBox[{"Not", "[", + RowBox[{"MemberQ", "[", + RowBox[{"i", ",", "face"}], "]"}], "]"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "i", "]"}], "]"}], "=", + RowBox[{"v", "/.", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"If", "[", + RowBox[{"exact", ",", "Solve", ",", "NSolve"}], "]"}], "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "c1", "]"}], "]"}], ".", "P", ".", "v"}], "==", + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"c1", ",", "i"}], "]"}], "]"}]}], "&&", + RowBox[{ + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "c2", "]"}], "]"}], ".", "P", ".", "v"}], "==", + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"c2", ",", "i"}], "]"}], "]"}]}], "&&", + RowBox[{ + RowBox[{ + RowBox[{"circs", "[", + RowBox[{"[", "c3", "]"}], "]"}], ".", "P", ".", "v"}], "==", + RowBox[{"G", "[", + RowBox[{"[", + RowBox[{"c3", ",", "i"}], "]"}], "]"}]}], "&&", + RowBox[{ + RowBox[{ + SuperscriptBox["h1", "2"], "+", + SuperscriptBox["h2", "2"], "-", + RowBox[{"b", " ", "bt"}]}], "==", "1"}]}], ",", + RowBox[{"{", + RowBox[{"bt", ",", "b", ",", "h1", ",", "h2"}], "}"}]}], + "]"}], "[", + RowBox[{"[", "1", "]"}], "]"}], ")"}]}]}], ";"}]}], + "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"invertAboutAbbc", "[", + RowBox[{"circs", "[", + RowBox[{"[", "invert", "]"}], "]"}], "]"}], ".", "#"}], "&"}], "/@", + "circs"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", + CellChangeTimes->{{3.836772368781335*^9, 3.836772448964113*^9}, { + 3.83677286709816*^9, 3.83677289675002*^9}, {3.83677333408657*^9, + 3.836773426440043*^9}, {3.836773464273794*^9, 3.836773506259012*^9}, { + 3.8367735508177977`*^9, 3.836773588147397*^9}, {3.836773868945211*^9, + 3.836773888576144*^9}, {3.836774011684956*^9, 3.836774013795322*^9}, { + 3.8367742134127903`*^9, 3.836774354444405*^9}, {3.836774442009274*^9, + 3.836774451232985*^9}, {3.836774606345356*^9, 3.836774769320375*^9}, { + 3.836774802029441*^9, 3.836774842000496*^9}, {3.836774975692432*^9, + 3.836774977916898*^9}, {3.836775038086772*^9, 3.8367750548327227`*^9}, { + 3.8367750936076937`*^9, 3.836775095953889*^9}, {3.836775197895112*^9, + 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"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"icos", "=", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1", ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "4"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", + RowBox[{"-", "1"}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + RowBox[{"Sqrt", "[", "5", "]"}]}], ",", "1"}], "}"}]}], "}"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.836773637317699*^9, 3.836773716053958*^9}, { + 3.836773771358551*^9, 3.836773778846367*^9}, {3.836773915102661*^9, + 3.83677398119965*^9}, {3.8367740492110558`*^9, 3.836774049587277*^9}, { + 3.8367754625701113`*^9, 3.836775462934154*^9}, {3.8367812198847322`*^9, + 3.836781220047799*^9}, {3.836781379804858*^9, 3.836781390355057*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"e8ee6a05-c4eb-478e-af98-5d6b7fbfa46a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"root", "=", + RowBox[{ + RowBox[{"rootTupleFromG", "[", + RowBox[{"icos", ",", + RowBox[{"\"\\"", "->", "3"}], ",", + RowBox[{"\"\\"", "->", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "10"}], "}"}]}], ",", + RowBox[{"\"\\"", "->", "True"}]}], "]"}], "//", + "FullSimplify"}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQAWIQ7dJVNllg2hvH32cvgun+vNvzQPSXJY7zQbRCruVK +EP2hJxlM794evxlEH28oANOORTYHQfSJMy5nQPQiubwLIPpx7rorIHoXh8Vt +EH1m1qOHINrM/TeTIJCW+WDGDKLDGDnZQfStT0IiIJrhFJcliP6WzWUHok07 +vZ1BdLpmvyuIFkpt9wLRmotKfED0jwP9cSDaPXwymBaYPKkcRO85UVEHop8X +LGsD0V1s3ztB9K7jmxaD6L6TyUtAtO/zCztA9LqmwF0g+v6h4yEiQNpobXU4 +iD4xVTYORB97+CQFRCsoHckC0W2tV8A0AOvZnTQ= + "], + CellLabel->"In[20]:=",ExpressionUUID->"91e21391-15e5-4f71-a86a-70fa1b7d0f63"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"6", " ", + RowBox[{"(", + RowBox[{"9", "+", + RowBox[{"4", " ", + SqrtBox["5"]}]}], ")"}]}], ",", + RowBox[{"68", "+", + RowBox[{"28", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "4"}], " ", + RowBox[{"(", + RowBox[{"13", "+", + RowBox[{"6", " ", + SqrtBox["5"]}]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{"9", "+", + RowBox[{"4", " ", + SqrtBox["5"]}]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"9", "+", + RowBox[{"4", " ", + SqrtBox["5"]}]}], ")"}]}], ",", + RowBox[{"44", "+", + RowBox[{"20", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "4"}], " ", + RowBox[{"(", + RowBox[{"9", "+", + RowBox[{"4", " ", + SqrtBox["5"]}]}], ")"}]}], ",", + RowBox[{"17", "+", + RowBox[{"8", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"-", "2"}], " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], " ", + RowBox[{"(", + RowBox[{"3", "+", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "2"}], "-", + SqrtBox["5"]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"39", "+", + RowBox[{"17", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"47", "+", + RowBox[{"21", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "37"}], "-", + RowBox[{"17", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"20", "+", + RowBox[{"9", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"11", "+", + RowBox[{"5", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"5", " ", + RowBox[{"(", + RowBox[{"3", "+", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "11"}], "-", + RowBox[{"5", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"5", "+", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"39", "+", + RowBox[{"17", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"46", "+", + RowBox[{"20", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "37"}], "-", + RowBox[{"17", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"19", "+", + RowBox[{"8", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"14", "+", + RowBox[{"6", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"6", " ", + RowBox[{"(", + RowBox[{"3", "+", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "6"}], " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"8", "+", + RowBox[{"3", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"11", "+", + RowBox[{"5", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"16", "+", + RowBox[{"6", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "11"}], "-", + RowBox[{"5", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["5"]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"40", "+", + RowBox[{"18", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"47", "+", + RowBox[{"21", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "39"}], "-", + RowBox[{"17", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"20", "+", + RowBox[{"9", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"4", " ", + RowBox[{"(", + RowBox[{"9", "+", + RowBox[{"4", " ", + SqrtBox["5"]}]}], ")"}]}], ",", + RowBox[{"46", "+", + RowBox[{"20", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "4"}], " ", + RowBox[{"(", + RowBox[{"9", "+", + RowBox[{"4", " ", + SqrtBox["5"]}]}], ")"}]}], ",", + RowBox[{"19", "+", + RowBox[{"8", " ", + SqrtBox["5"]}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"14", "+", + RowBox[{"6", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"16", "+", + RowBox[{"6", " ", + SqrtBox["5"]}]}], ",", + RowBox[{ + RowBox[{"-", "6"}], " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{"3", " ", + RowBox[{"(", + RowBox[{"2", "+", + SqrtBox["5"]}], ")"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"10", "+", + RowBox[{"4", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"5", " ", + RowBox[{"(", + RowBox[{"3", "+", + SqrtBox["5"]}], ")"}]}], ",", + RowBox[{ + RowBox[{"-", "9"}], "-", + RowBox[{"5", " ", + SqrtBox["5"]}]}], ",", + RowBox[{"5", "+", + RowBox[{"2", " ", + SqrtBox["5"]}]}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{ + 3.83677353485019*^9, {3.8367735702734957`*^9, 3.836773580101294*^9}, + 3.836773626672426*^9, 3.8367737074892073`*^9, 3.836773787882546*^9, { + 3.836773892997232*^9, 3.836773986616167*^9}, {3.836774016999596*^9, + 3.836774053862307*^9}, {3.836774106559168*^9, 3.836774159514324*^9}, + 3.8367743638879642`*^9, 3.83677442619223*^9, {3.836774457157482*^9, + 3.8367745609996557`*^9}, {3.836774857772161*^9, 3.836774898603446*^9}, { + 3.8367749306671677`*^9, 3.836775012834338*^9}, {3.8367750432842503`*^9, + 3.836775099374961*^9}, 3.8367751571341887`*^9, {3.836775204207635*^9, + 3.836775251826714*^9}, 3.836775319803225*^9, {3.836775353570438*^9, + 3.83677541220298*^9}, {3.836775480754055*^9, 3.836775504168625*^9}, { + 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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"graphAbbc", "[", "root", "]"}]], "Input", + CellChangeTimes->{{3.836781404223935*^9, 3.836781406064753*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"1b485785-b18a-41cd-ae3f-e08589cba70c"], + +Cell[BoxData[ + GraphicsBox[{ + CircleBox[ + NCache[{(-4) (13 + 6 5^Rational[1, 2])/(68 + 28 5^Rational[1, 2]), + 3 (9 + 4 5^Rational[1, 2])/(68 + + 28 5^Rational[1, 2])}, {-0.8090169943749473, 0.41216488444600474`}], + NCache[(68 + 28 5^Rational[1, 2])^(-1), 0.00765638725853109]], + CircleBox[ + NCache[{(-4) (9 + 4 5^Rational[1, 2])/(44 + + 20 5^Rational[1, 2]), (17 + 8 5^Rational[1, 2])/(44 + + 20 5^Rational[1, 2])}, {-0.8090169943749473, 0.3932372542187894}], + NCache[(44 + 20 5^Rational[1, 2])^(-1), 0.01127124296868428]], + CircleBox[ + NCache[{-(2 + 5^Rational[1, 2])/(3 + 5^Rational[1, 2]), + Rational[-1, 2] (-2 - 5^Rational[1, 2])/(3 + + 5^Rational[1, 2])}, {-0.8090169943749475, 0.4045084971874737}], NCache[ + Rational[1, 2]/(3 + 5^Rational[1, 2]), 0.09549150281252629]], + CircleBox[ + NCache[{(-37 - 17 5^Rational[1, 2])/(47 + + 21 5^Rational[1, 2]), (20 + 9 5^Rational[1, 2])/(47 + + 21 5^Rational[1, 2])}, {-0.7983738762488434, 0.42705098312484224`}], + NCache[(47 + 21 5^Rational[1, 2])^(-1), 0.010643118126104094`]], + CircleBox[ + NCache[{Rational[1, 5] (-11 - 5 5^Rational[1, 2])/(3 + 5^Rational[1, 2]), + Rational[1, 5] (3 + 5^Rational[1, 2])^(-1) (5 + + 2 5^Rational[1, 2])}, {-0.847213595499958, 0.3618033988749895}], + NCache[Rational[1, 5]/(3 + 5^Rational[1, 2]), 0.03819660112501052]], + CircleBox[ + NCache[{(-37 - 17 5^Rational[1, 2])/(46 + + 20 5^Rational[1, 2]), (19 + 8 5^Rational[1, 2])/(46 + + 20 5^Rational[1, 2])}, {-0.8268521987499238, 0.40661365750002176`}], + NCache[(46 + 20 5^Rational[1, 2])^(-1), 0.011022762500036259`]], + CircleBox[ + NCache[{-(2 + 5^Rational[1, 2])/(3 + 5^Rational[1, 2]), + Rational[1, 6] (3 + 5^Rational[1, 2])^(-1) (8 + + 3 5^Rational[1, 2])}, {-0.8090169943749475, 0.4681694990624912}], + NCache[Rational[1, 6]/(3 + 5^Rational[1, 2]), 0.03183050093750876]], + CircleBox[ + NCache[{(-11 - 5 5^Rational[1, 2])/(16 + 6 5^Rational[1, 2]), + 3 (2 + 5^Rational[1, 2])/(16 + + 6 5^Rational[1, 2])}, {-0.7540125221710139, 0.4320107332894405}], + NCache[(16 + 6 5^Rational[1, 2])^(-1), 0.03399463335527976]], + CircleBox[ + NCache[{(-39 - 17 5^Rational[1, 2])/(47 + + 21 5^Rational[1, 2]), (20 + 9 5^Rational[1, 2])/(47 + + 21 5^Rational[1, 2])}, {-0.8196601125010515, 0.42705098312484224`}], + NCache[(47 + 21 5^Rational[1, 2])^(-1), 0.010643118126104094`]], + CircleBox[ + NCache[{(-4) (9 + 4 5^Rational[1, 2])/(46 + + 20 5^Rational[1, 2]), (19 + 8 5^Rational[1, 2])/(46 + + 20 5^Rational[1, 2])}, {-0.791181789999971, 0.40661365750002176`}], + NCache[(46 + 20 5^Rational[1, 2])^(-1), 0.011022762500036259`]], + CircleBox[ + NCache[{(-6) (2 + 5^Rational[1, 2])/(16 + 6 5^Rational[1, 2]), + 3 (2 + 5^Rational[1, 2])/(16 + + 6 5^Rational[1, 2])}, {-0.864021466578881, 0.4320107332894405}], + NCache[(16 + 6 5^Rational[1, 2])^(-1), 0.03399463335527976]], + CircleBox[ + NCache[{Rational[1, 5] (-9 - 5 5^Rational[1, 2])/(3 + 5^Rational[1, 2]), + Rational[1, 5] (3 + 5^Rational[1, 2])^(-1) (5 + + 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"] +}, Open ]] +}, +WindowSize->{1428., 779.25}, +WindowMargins->{{6, Automatic}, {6, Automatic}}, +FrontEndVersion->"12.3 for Linux x86 (64-bit) (June 19, 2021)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1f3ed8ec-6103-45a7-937b-bf03bf80e817" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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[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"] +}, 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"] +}, Open ]] +} +] +*) +