Packomania now shows several other new grid packings, as well as many other
improved packings by Eckard Specht, by the program Pack'n'tile and by me.
New packings found by me which have yet to appear at Packomania include the
following:
N = 87, side length = 2 + 14/3 sqrt(2)
Highly symmetric! Precise coordinates of the centers of the 87 unit spheres
are given below my signature.
N = 98, side length = 8.9670822119424704015935524436153786878471791...
N = 99, side length = 8.9776912998071394503672341290673989694456976...
Both of the above packings have one plane of symmetry.
David W. Cantrell
----------------------------------------------------------------
{0, 0, -2*Sqrt[2]}, {0, 0, 2*Sqrt[2]}, {0, -2*Sqrt[2], 0},
{0, -Sqrt[2], -Sqrt[2]}, {0, -Sqrt[2], Sqrt[2]},
{0, Sqrt[2], -Sqrt[2]}, {0, Sqrt[2], Sqrt[2]},
{0, 2*Sqrt[2], 0}, {(-7*Sqrt[2])/3, (-7*Sqrt[2])/3,
(-4*Sqrt[2])/3}, {(-7*Sqrt[2])/3, (-7*Sqrt[2])/3,
(2*Sqrt[2])/3}, {(-7*Sqrt[2])/3, (-4*Sqrt[2])/3,
(-7*Sqrt[2])/3}, {(-7*Sqrt[2])/3, (-4*Sqrt[2])/3,
-Sqrt[2]/3}, {(-7*Sqrt[2])/3, (-2*Sqrt[2])/3,
(7*Sqrt[2])/3}, {(-7*Sqrt[2])/3, -Sqrt[2]/3,
(-4*Sqrt[2])/3}, {(-7*Sqrt[2])/3, Sqrt[2]/3,
(4*Sqrt[2])/3}, {(-7*Sqrt[2])/3, (2*Sqrt[2])/3,
(-7*Sqrt[2])/3}, {(-7*Sqrt[2])/3, (4*Sqrt[2])/3,
Sqrt[2]/3}, {(-7*Sqrt[2])/3, (4*Sqrt[2])/3,
(7*Sqrt[2])/3}, {(-7*Sqrt[2])/3, (7*Sqrt[2])/3,
(-2*Sqrt[2])/3}, {(-7*Sqrt[2])/3, (7*Sqrt[2])/3,
(4*Sqrt[2])/3}, {-2*Sqrt[2], 0, 0},
{-2*Sqrt[2], -Sqrt[2], Sqrt[2]}, {-2*Sqrt[2], Sqrt[2],
-Sqrt[2]}, {(-4*Sqrt[2])/3, (-7*Sqrt[2])/3,
(-7*Sqrt[2])/3}, {(-4*Sqrt[2])/3, (-7*Sqrt[2])/3,
-Sqrt[2]/3}, {(-4*Sqrt[2])/3, (-4*Sqrt[2])/3,
(-4*Sqrt[2])/3}, {(-4*Sqrt[2])/3, -Sqrt[2]/3,
(-7*Sqrt[2])/3}, {(-4*Sqrt[2])/3, Sqrt[2]/3,
(7*Sqrt[2])/3}, {(-4*Sqrt[2])/3, (4*Sqrt[2])/3,
(4*Sqrt[2])/3}, {(-4*Sqrt[2])/3, (7*Sqrt[2])/3,
Sqrt[2]/3}, {(-4*Sqrt[2])/3, (7*Sqrt[2])/3,
(7*Sqrt[2])/3}, {-Sqrt[2], 0, -Sqrt[2]},
{-Sqrt[2], 0, Sqrt[2]}, {-Sqrt[2], -2*Sqrt[2], Sqrt[2]},
{-Sqrt[2], -Sqrt[2], 0}, {-Sqrt[2], -Sqrt[2], 2*Sqrt[2]},
{-Sqrt[2], Sqrt[2], 0}, {-Sqrt[2], Sqrt[2], -2*Sqrt[2]},
{-Sqrt[2], 2*Sqrt[2], -Sqrt[2]}, {(-2*Sqrt[2])/3,
(-7*Sqrt[2])/3, (7*Sqrt[2])/3}, {(-2*Sqrt[2])/3,
(7*Sqrt[2])/3, (-7*Sqrt[2])/3},
{-Sqrt[2]/3, (-7*Sqrt[2])/3, (-4*Sqrt[2])/3},
{-Sqrt[2]/3, (-4*Sqrt[2])/3, (-7*Sqrt[2])/3},
{-Sqrt[2]/3, (4*Sqrt[2])/3, (7*Sqrt[2])/3},
{-Sqrt[2]/3, (7*Sqrt[2])/3, (4*Sqrt[2])/3},
{Sqrt[2]/3, (-7*Sqrt[2])/3, (4*Sqrt[2])/3},
{Sqrt[2]/3, (-4*Sqrt[2])/3, (7*Sqrt[2])/3},
{Sqrt[2]/3, (4*Sqrt[2])/3, (-7*Sqrt[2])/3},
{Sqrt[2]/3, (7*Sqrt[2])/3, (-4*Sqrt[2])/3},
{(2*Sqrt[2])/3, (-7*Sqrt[2])/3, (-7*Sqrt[2])/3},
{(2*Sqrt[2])/3, (7*Sqrt[2])/3, (7*Sqrt[2])/3},
{Sqrt[2], 0, -Sqrt[2]}, {Sqrt[2], 0, Sqrt[2]},
{Sqrt[2], -2*Sqrt[2], -Sqrt[2]}, {Sqrt[2], -Sqrt[2], 0},
{Sqrt[2], -Sqrt[2], -2*Sqrt[2]}, {Sqrt[2], Sqrt[2], 0},
{Sqrt[2], Sqrt[2], 2*Sqrt[2]}, {Sqrt[2], 2*Sqrt[2],
Sqrt[2]}, {(4*Sqrt[2])/3, (-7*Sqrt[2])/3, Sqrt[2]/3},
{(4*Sqrt[2])/3, (-7*Sqrt[2])/3, (7*Sqrt[2])/3},
{(4*Sqrt[2])/3, (-4*Sqrt[2])/3, (4*Sqrt[2])/3},
{(4*Sqrt[2])/3, -Sqrt[2]/3, (7*Sqrt[2])/3},
{(4*Sqrt[2])/3, Sqrt[2]/3, (-7*Sqrt[2])/3},
{(4*Sqrt[2])/3, (4*Sqrt[2])/3, (-4*Sqrt[2])/3},
{(4*Sqrt[2])/3, (7*Sqrt[2])/3, (-7*Sqrt[2])/3},
{(4*Sqrt[2])/3, (7*Sqrt[2])/3, -Sqrt[2]/3},
{2*Sqrt[2], 0, 0}, {2*Sqrt[2], -Sqrt[2], -Sqrt[2]},
{2*Sqrt[2], Sqrt[2], Sqrt[2]}, {(7*Sqrt[2])/3,
(-7*Sqrt[2])/3, (-2*Sqrt[2])/3},
{(7*Sqrt[2])/3, (-7*Sqrt[2])/3, (4*Sqrt[2])/3},
{(7*Sqrt[2])/3, (-4*Sqrt[2])/3, Sqrt[2]/3},
{(7*Sqrt[2])/3, (-4*Sqrt[2])/3, (7*Sqrt[2])/3},
{(7*Sqrt[2])/3, (-2*Sqrt[2])/3, (-7*Sqrt[2])/3},
{(7*Sqrt[2])/3, -Sqrt[2]/3, (4*Sqrt[2])/3},
{(7*Sqrt[2])/3, Sqrt[2]/3, (-4*Sqrt[2])/3},
{(7*Sqrt[2])/3, (2*Sqrt[2])/3, (7*Sqrt[2])/3},
{(7*Sqrt[2])/3, (4*Sqrt[2])/3, (-7*Sqrt[2])/3},
{(7*Sqrt[2])/3, (4*Sqrt[2])/3, -Sqrt[2]/3},
{(7*Sqrt[2])/3, (7*Sqrt[2])/3, (-4*Sqrt[2])/3},
{(7*Sqrt[2])/3, (7*Sqrt[2])/3, (2*Sqrt[2])/3}, {0, 0, 0},
{-1/100 + (7*Sqrt[2])/3, 1/100 - (7*Sqrt[2])/3,
1/100 - (7*Sqrt[2])/3}, {1/100 - (7*Sqrt[2])/3,
-1/100 + (7*Sqrt[2])/3, 1/100 - (7*Sqrt[2])/3},
{-1/100 + (7*Sqrt[2])/3, -1/100 + (7*Sqrt[2])/3,
-1/100 + (7*Sqrt[2])/3}, {1/100 - (7*Sqrt[2])/3,
1/100 - (7*Sqrt[2])/3, -1/100 + (7*Sqrt[2])/3}