Esto no contesta la pregunta. Yo no prueban nada aquí, pero acaba de presentar los resultados de algunas simulaciones que sugieren que la respuesta a la pregunta es sí.
Mi experiencia me hace ser cuidadoso acerca de mi intuición, cuando se trata de pensar acerca de la construcción geométrica en más de $3$ dimensiones. Así que antes de investigar más esta pregunta quería comprobar si no hay ningún ejemplo contrario podría conseguir con Mathematica.
Me genera algún azar simplices con un punto al azar en el interior y se contó el número de bolas que cubre el interior de punto. Para todas las pruebas que hice, no contraejemplo apareció. Por otra parte, la distribución del número de pelotas en mi simulaciones parecen estar cerca de una distribución normal.
Por ejemplo, generó $1000$ random $3$-dimensiones simplices como el casco convexo de $4$ puntos aleatorios distribuidos uniformemente en el cubo unitario. Para cada simplex generó $1000$ al azar dentro de los puntos con baricenter coordinar distribuidos de manera uniforme.
Por debajo de este es el histograma del número de bolas que cubre el interior de los puntos considerados.
Observamos que se inicia a las $3$, lo que significa que no encontramos contraejemplo a la conjetura.
dimensión$=3$; número de aristas$={4 \choose 2}=6$.
A continuación doy más histogramas obtenidos a partir de simulaciones en la dimensión superior. Para cada generó $100$ random simplices y probados $100$ al azar dentro de los puntos.
dimensión$=4$; número de aristas$={5 \choose 2}=10$.
dimensión$=5$; número de aristas$={6 \choose 2}=15$.
dimensión$=6$; número de aristas$={7 \choose 2}=21$.
dimensión$=7$; número de aristas$={8 \choose 2}=28$.
dimensión$=8$; número de aristas$={9 \choose 2}=36$.
dimensión$=20$; número de aristas$={20 \choose 2}=190$.
El código que he usado con Mathematica (que sin duda puede ser optimizado si quieres ejecutar biger simulaciones)
> RandomSimplex[dim_] := RandomReal[{0, 1}, {dim, dim + 1}]
> RandomBaricenter[dimension_] := Module[{baricenter},
> baricenter = RandomReal[{0, 1}, dimension + 1];
> baricenter = baricenter/Sum[baricenter[[i]], {i, 1, dimension + 1}];(*normalisation*)
> Return[baricenter]]
> Distance[A_, B_] := Module[{dim},
> dim = Dimensions[A][[1]];
> Return[Sqrt[Sum[(B[[i]] - A[[i]])^2, {i, 1, dim}]]];]
> NumberClosePoints[simplex_, point_] := Module[{dim, number, i, j, M, A, B},
> dim = Dimensions[simplex][[1]];
> number = 0;
> For[i = 1, i <= dim, i++,
> For[j = i + 1, j <= dim + 1, j++,
> A = Transpose[simplex][[i]];
> B = Transpose[simplex][[j]];
> M = (A + B)/2;
> If[Distance[M, A] > Distance[M, point], number++,]]];
> Return[number]]
y para ejecutar las pruebas y producir e histograma:
> dimension = 3;
> nBar = 1000;(*number of barycenter tested*)
> nSimplices = 1000;(*number of simplices tested*)
> list = {};
> For[i = 1, i <= nBar, i++,
> bar = RandomBaricenter[dimension];
> For[j = 1, j <= nSimplices, j++,
> simplex = RandomSimplex[dimension];
> point = simplex.bar;
> n = NumberClosePoints[simplex, point];
> list = Append[list, n];
> If[n < dimension, Print[{bar, simplex, n}],]];]
> Histogram[list]