In my last post I was struggling to generalise the transition I'd chosen from five points to six. It felt slightly too neat that the progression continued back to a regular tetrahedron. Reversing the change, we see a transition pulling a duplicate edge off into the tetrahedron internally.

I tried to do the same from two opposing edges of a tet', and this sweep does pass through the maximal eight pointer!

My intuition wasn't far off!

Rather than sweeping points out to rest against existing restrictions, I drag the restrictions out as required. The established volume maxima lie in these progressions.

I expect the capacity to do this is restricted to low n cases with high symmetry. If I were to drag a more complicated set of tethering points it becomes ambiguous: which permitting point progression leads to a maximal volume? I will continue to investigate.

The obvious problem creating progressions between n's is that a maximal change from n-1 to n may not be a global maximum for n. The procedures based on random refinement are inherently invulnerable to this.

Looking at the differences between the p5, p6, and p7 solutions I wondered if splitting points with freedom to rotate would recreate the transitions.

The ultimate answer is no. However it is a very good starting point for n+1 given a solution to n. Essentially I manually create the local maximum of inter point distances one. This is a problem for example in my p7 solution. I have additional distances length 1, but the volume maximisation actually discards some for a more symmetric polygon.

Interesting to me was how close these transitions are structurally. I'm using one transformation on free points, but I expect just one other transform on free co planar sets would transition my slightly warped p6 and p7s into the correct volume maxes.

See attached notebook for code and comparisons.

David

Attachments:

The solutions continue to creep forward.

5 = 0.14433760 ..... 9 = 0.31788630 ... 13 = 0.36741690 ... 17 = 0.40993470 ... 21 = 0.42840140
6 = 0.19540890 ... 10 = 0.33253080 ... 14 = 0.38035100 ... 18 = 0.41535220 ... 22 = 0.43079880
7 = 0.22845060 ... 11 = 0.34397580 ... 15 = 0.38997030 ... 19 = 0.41940620 ... 23 = 0.43486970
8 = 0.27100520 ... 12 = 0.35646460 ... 16 = 0.40585650 ... 20 = 0.42350010 ... 24 = 0.43878690

I've updated the BLPCommunity notebook.

Attachments:

The attached notebook is a modified version of Visualizing the Thomson Problem. It doesn't always work, accounting for the poles and how all the forces interact needs more refinement. But it often works. Some of the generated points provided good starting values for me. I'd eventually like to run some variation of this code up to 30 points and have best results for Thomson with poles.

Attachments:

Most of the Thomson problem solutions have poles going through the center. Try the problem for 12 points. In the method you're suggesting, the vertices of an icosahedron give the solution. Much like the regular hexagon isn't the biggest little hexagon, the icosahedron isn't the biggest 12 point polyhedra, mostly because 12 points at opposite poles is inefficient.

Many of my solutions here were started by using a variation of the Thomson code so that points repelled both each other and their pole. I used those solutions as starting points, and then watched them get relentlessly improved over hundreds of improvement runs.

It's a great idea, and it's good for starting things off. But the true solutions seem to get a bit whackier.

As it looks to me, the most obvious strategy was not tried so far: Take a sphere of diameter 1 and place all your trial points on it (i.e. on the surface of a globe). ( Notice that for the 2-dimensional problem and the regular n-gons the corresponding strategy works.) Set up a simple dynamical system that lets the points move along the surface under forces for mutual repulsion and friction with respect to the surface. If you use a stable integrator such as Störmer-Verlet the points will arrange themselves very fast into a configuration where points are at rest and the potential energy of repulsion takes a minimum. (My personal tool set C+- of C++ classes for physics and mathematics has a function for equi-distributing points on spheres which is proven in years of use.) It is impressive how much faster a damped dynamical systems finds its energy minimum than a statistical search, even if this may be augmented by ideas of simulated annealing. It would be against all my intuition if this equilibrium position of points on the sphere would not create the n-polyhedron of minimal volume under the given restriction. Addition: Aha, I omitted Ed's contribution referring to 'Thomson's problem' which I did not yet come across. I'm not sure whether Ed's reservations concerning poles are relevant. The dynamical system I spoke about holds (by use of suitable coordinates) the 'particles' always on the surface. Even if, as the nice Wolfram Demonstration on Thomson's problem says, the equilibrium solution is not unique, I would guess that creating such equilibrium solutions for statistically varied initial conditions would be much more efficient than maximising the volume by statistical search.

I believe I've solved 10 and 16. My other results from 11 to 24 are all fragile, and my computer runs frequently improve them. I'm working on a blog for all this, but I'd like to get more solid results. So, I'm tossing things out to the Community. Here are my best known results so far.

4 . 0.117851 ... ..9 . 0.317886 ... 14 . 0.380268 ... 19 . 0.419175
5 . 0.144338 ... 10 . 0.332531 ... 15 . 0.389714 ... 20 . 0.423270
6 . 0.195409 ... 11 . 0.343976 ... 16 . 0.405805 ... 21 . 0.428347
7 . 0.228451 ... 12 . 0.356288 ... 17 . 0.409869 ... 22 . 0.430727
8 . 0.271005 ... 13 . 0.367105 ... 18 . 0.415037 ... 23 . 0.434854

If you'd like to help to try to improve things, download the attached notebook, change the file path, and then run some variation of the code under "Try to get better results". If it prints out something, post the best results for each number here, along with your name. Take a look here first to see if someone already has posted a better result. I'll try to keep this status page and the notebook updated.

If your result is the best, I'll mention your name in the write-up.

Attachments:

It seems that optimal solutions for 5 and 6 points are in the literature. The published solutions seem to match yours.

For five points: Bernd Kind, Peter Kleinschmidt, On the maximal volume of convex bodies with few vertices, Journal of Combinatorial Theory, Series A, Volume 21, Issue 1, July 1976, Pages 124–128, doi:10.1016/0097-3165(76)90056-X.

For six points: Andreas Klein, Markus Wessler, The largest small n-dimensional polytope with n+3 vertices, Journal of Combinatorial Theory, Series A, Volume 102, Issue 2, May 2003, Pages 401–409, doi:10.1016/S0097-3165(03)00054-2.

There is an error in the latter paper, but the three-dimensional case survives it: Andreas Klein, Markus Wessler, A correction to “The largest small n-dimensional polytope with vertices”, Journal of Combinatorial Theory, Series A, Volume 112, Issue 1, October 2005, Pages 173–174, doi:10.1016/j.jcta.2005.06.001.

To optimize p8, with a volume somewhere around 0.27100523, I'll need to split the following into discrete tetrahedra and use a tetrahedron volume formula to get the exact equation based on p.

p8rep = {{1/2,0,1/2 (-2 p+Sqrt[1+8 p^2-2 Sqrt[2-8 p^2]])}, {-1/2,0,1/2 (-2 p+Sqrt[1+8 p^2-2 Sqrt[2-8 p^2]])},{0,1/2,-(1/2 (-2 p+Sqrt[1+8 p^2-2 Sqrt[2-8 p^2]]))}, {0,-1/2,-(1/2 (-2 p+Sqrt[1+8 p^2-2 Sqrt[2-8 p^2]]))}, {0,Sqrt[1/2-2 p^2],p},{0,-Sqrt[1/2-2 p^2],p}, {Sqrt[1/2-2 p^2],0,-p},{-Sqrt[1/2-2 p^2],0,-p}};
p8 = p8rep/.p->0.450373121;
Graphics3D[{{Red, Tube /@ Select[Subsets[p8, {2}], EuclideanDistance[#[[1]], #[[2]]] > .999 &]}, Opacity[.5], ConvexHullMesh[p8]["GraphicsComplex"]}, Boxed -> False, SphericalRegion -> True, ViewAngle -> Pi/9, ImageSize -> {500, 500}] Volume[ConvexHullMesh[p8]]

Here's a few views of this polyhedron.

Breaking it down into tetrahedra wasn't hard. By symmetry, needed 2 each of 5 tetrahedra and one of another. When using the tetrahedron volume formula, make sure all the volumes are positive, switching two numbers if necessary.

p8mat = Append[#,1]&/@p8rep;
p8vol = FullSimplify[(Total[(2 Det[#] & /@ ((p8mat[[#]] & /@ #) & /@ {{2, 5, 3, 8}, {4, 6, 2, 8} , {2, 5, 8, 6} , {3, 6, 4, 8}, {3, 6, 8, 5}}))] + Det[p8mat[[{4, 3, 8, 7}]]])/6];
RootReduce /@ Maximize[1/6 (2 p + Sqrt[2 - 8 p^2] Sqrt[1 + 8 p^2 - 2 Sqrt[2 - 8 p^2]]), p]

Giving the p value that gives the maximum volume. {Root[-3170503 + 7784640504 #1^2 - 86041951920 #1^4 - 775194852096 #1^6 + 8843870241792 #1^8 - 28203359404032 #1^10 + 35664401793024 #1^12 &, 5], {p -> Root[-7 - 584 #1^2 + 27728 #1^4 - 129792 #1^6 - 424960 #1^8 + 1441792 #1^10 + 4194304 #1^12 &, 6]}}

That volume is 0.27100523096446955933460701009076408686501941033169... , for p = 0.4503731221464994772... I love that Mathematica can crank out exact answers for these.

I believe the best volume for p7 is 0.22845063813064674774720321520495348848601269300611..., which is the root object

Root[-1514051 + 3577325760 #1^2 - 2684555965440 #1^4 +  625333560016896 #1^6 +
   37285432786944 #1^8 + 181475831829233664 #1^10 - 16291819718669500416 #1^12 +
   160710642044510404608 #1^14 + 134780624734481547264 #1^16 &, 9]

Refinement of the originally found p7 object suggested order-3 symmetry, and further refinement suggested that the necessary figure used the following points, for some .4 < r < .6.

{{0,1/Sqrt[3],0},  {1/2,-(1/(2 Sqrt[3])),0},  {-(1/2),-(1/(2 Sqrt[3])),0},  
{0,-(r/Sqrt[3]),Sqrt[2-r (2+r)]/Sqrt[3]},  {-(r/2), r/(2 Sqrt[3]), Sqrt[2-r (2+r)]/Sqrt[3]},  
{r/2,r/(2 Sqrt[3]),Sqrt[2-r (2+r)]/Sqrt[3]},  {0,0,(-Sqrt[3-r^2]+Sqrt[2-r (2+r)])/Sqrt[3]}}

This can be split into 7 tetrahedra with a simple-looking volume formula, but the actual maximum is that ugly root object above.

Maximize[1/12 (Sqrt[3 - r^2] + r (2 + r) Sqrt[2 - r (2 + r)]), r]

r turns out to be Root[-16+16 #1+74 #1^2-18 #1^3-116 #1^4-50 #1^5+22 #1^6+18 #1^7+3 #1^8&,4] .

p7 =RootReduce[With[{r = Root[-16+16 #1+74 #1^2-18 #1^3-116 #1^4-50 #1^5+22 #1^6+18 #1^7+3 #1^8&,4]},
{{0,1/Sqrt[3],0},{1/2,-(1/(2 Sqrt[3])),0},{-(1/2),-(1/(2 Sqrt[3])),0},{0,-(r/Sqrt[3]),Sqrt[2-r (2+r)]/Sqrt[3]},
{-(r/2),r/(2 Sqrt[3]),Sqrt[2-r (2+r)]/Sqrt[3]},{r/2,r/(2 Sqrt[3]),Sqrt[2-r (2+r)]/Sqrt[3]},{0,0,(-Sqrt[3-r^2]+Sqrt[2-r (2+r)])/Sqrt[3]}}]];   

Graphics3D[{{Red, Tube /@ Select[Subsets[p7, {2}], EuclideanDistance[#[[1]], #[[2]]] > .999 &]}, Opacity[.7], 
ConvexHullMesh[p7]["GraphicsComplex"]}, Boxed -> False, SphericalRegion -> True, ViewAngle -> Pi/8, ImageSize -> {500, 500}]

Giving a solution that looks like the following:

Yes, we can settle p5.

p5a = {{1/2, 0, 0}, {-1/2, 0, 0}, {0, Sqrt[3]/2, 0}, {0, Sqrt[3]/6, 1/2}, {0, Sqrt[3]/6, -1/2}};  
p5b = {{0, 0, 0}, {0, 1, 0}/Sqrt[2], {1, 1, 0}/Sqrt[2], {1/Sqrt[2], 0,0}, {1/(2 Sqrt[2]), 1/(2 Sqrt[2]), Sqrt[3]/2}};  
Row[Graphics3D[{{Red, Line /@ Select[Subsets[#, {2}], EuclideanDistance[#[[1]], #[[2]]] > .999 &]}, 
Opacity[.5], ConvexHullMesh[#]["GraphicsComplex"]}, Boxed -> False, SphericalRegion -> True, 
ViewAngle -> Pi/8, ImageSize -> {300, 300}] & /@ {p5a, p5b}] 

Both with volume Sqrt[3]/12 == 0.14433756729740644113 With five points, three of the points will make an equilateral triangle. Make that the base plane. If the other two points are perpendicular to the plane and a distance of 1 apart, then the maximum volume is reached. There are thus infinite solutions for the five point case.

Really cool Ed.

How does the 5 pointer compare with the square pyramid? The one you have here looks similar and the volume seems similar too.