Resumen:
El número esperado de sobrevivientes después de un tiroteo en $$\lim_{n\rightarrow\infty}\operatorname{E}[n]\aprox 0.284051\ n;\quad \text{(Tao/Wu - ver más abajo)}$$ es, si no es correcto, ciertamente muy cerca de ser correcta (consulte actualizar 2).
Sin embargo, este es disputada por Finch en constantes Matemáticas (de nuevo, ver más abajo para más detalles). Los resultados de Finch son fácilmente replicable en Mathematica o similares, pero yo no era capaz de reproducir incluso los resultados parciales en el Tao/Wu del papel (a pesar de dejar fuera de los valores absolutos de $\alpha$ y $\beta$ que Finch señala como incorrecta - ver abajo para más detalles), me dejó dudas en cuanto a si me falta algo en mi "traducción" del problema a Finch más la notación moderna. Yo debería estar muy agradecido si alguien me podría iluminar aún más en este asunto.
Original respuesta:
Basado en tests numéricos, yo diría que el número esperado de sobrevivientes para $n>3 \aprox n/3.5$
Prueba ejemplo test[20]
(código de abajo):
anim[20,8]
:
Para $1000$ ensayos, $1\leq n\leq 40$ est[40,10^3]
:
Nota
El uso de RandomReal
es muy poco probable que cualquiera de las dos distancias será exactamente igual, cumpliendo así con el no triángulo isósceles requisito.
Actualización 1
Historia del problema
Robert Abilock propuesto en América Mensual El Rifle-Problema (R. Abilock; 1967),
$n$ fusileros son distribuidos al azar los puntos de un plano. A una señal,
cada uno dispara y mata a su vecino más cercano. Lo que se espera que
número de fusileros que quedan vivos?
Este fue depositada como el Vicioso vecino problema (R. Tao y F. Y. Wu; 1986), donde la respuesta de $\aprox 0.284051 n$ restantes fusileros (o $\aprox n/3.52049$) fue presentado como la solución en $2$ dimensiones.
Esto concuerda claramente con las pruebas de la muestra el tamaño de $10^5:$
ListLinePlot[{const[#, 100000] & /@ Range@40}, GridLines -> {{}, {1/0.284051}}]
Sin embargo, en Constantes Matemáticas vecino más Cercano de gráficos (S. R. Pinzón; 2008), el Pinzón de los estados que
En [Vicioso vecino problema], el valor absoluto de los signos en las definiciones de $\varphi$ y $\psi$ erróneamente se han omitido.)$\puntos$
Dada la discrepancia entre nuestro estimado de $\dots$ y su estimado de $\dots$,
parece dudoso que su aproximación $\beta(2) = 0.284051\dots$ es del todo correcto.
Así que la pregunta (la recompensa) se reduce a:
Tiene los progresos realizados desde el 2008 en el problema? En definitiva, es el Tao y Wu cálculo incorrecto, y si es así, es una estimación más precisa de $\beta(2)$ conocido?
Actualización 2
También he probado el problema en otros polígonos regulares (círculo, triángulo, pentágono, etc.) por $10^5$ ensayos, $1\leq n \leq 30$, y parece que el comentario de @D. Thomine a continuación está de acuerdo con los datos recopilados, en el que la constante para cualquier delimitada $2$ tridimensional de la región parece ser la misma para lo suficientemente grande como $n,$ es decir, independiente de la geometría global del dominio:
mientras más simulaciones, usando $2\cdot 10^6$ ensayos para $n=$ 30 y $n=100$ arrojó los siguientes resultados:
con el promedio final después de $2\cdot 10^6,$ en comparación con Tao/Wu resultado, siendo:
\begin{align}
&n=30:&0.284090\dots\\
&n=100:&0.284066\dots\\
&\text{Tao/Wu:}&0.284051\dots\\
\end{align}
lo que indica que el Tao/Wu resultado de $\lim_{n\rightarrow\infty}\operatorname{E}[n]\aprox 0.284051\ n$ es, si no es correcto, ciertamente muy cerca de ser la correcta.
Los límites superior e inferior
Siguiendo @mathreadler la sugerencia de que puede ser interesante para el estudio de la propagación de datos, que incluyen la siguiente como una menor aportación al tema:
Desde que acuerdos como este
son posibles (y sus circular contrapartes, sin embargo poco probable a través de punto aleatorio de selección), claramente el límite inferior de impar $n$ es $1$ y $n$ es $0$ (ya que los puntos pueden ser emparejados).
Encontrar un límite superior es menos evidente, sin embargo. Mirando este sketch de prueba para el límite superior $n=10$ proporcionada por @JohnSmith en los comentarios, es fácil ver que el límite superior es de $7:$
y empleando el mismo método, límites superiores para mayores de $n$ puede ser construido:
Suponiendo que uno puede repetir este proceso indefinidamente, es probable que una cota superior para $n\geq 6$ es $n-\lfloor n/3\rfloor:$
que se ha establecido en contra de los datos por $2\cdot 10^4$ ensayos (puntos rojos - ver data
por debajo).
Respecto a la densidad de propagación, (de nuevo con $2\cdot 10^4$ ensayos), se produce el siguiente diagrama:
ListPlot3D[Flatten[data, 1], ColorFunction -> "LakeColors"]
(cortesía de @AlexeiBoulbitch aquí), y con respecto a max. densidad de propagación a lo largo de $x/z$ ejes de arriba de la parcela, se produce el siguiente:
With[{c = 0.284051},
Show[ListLinePlot[Max@#[[All, 3]] & /@ data, PlotRange -> All],
Plot[{(1 + c)/(n - (1 + c)^2)^(1/2)}, {n, 0, 100}, PlotRange -> All,
PlotStyle -> {Dashed, Red}]]]
Es tentador conjeturar altura max de distribución será de $\aprox (c+1)/\sqrt{n-(c+1)^2},$ pero por supuesto esto es en gran parte empírico.
test[nn_] := With[{aa = Partition[RandomReal[{0, 1}, 2 nn], 2]},
With[{cc = ({aa[[#]], First@Nearest[DeleteCases[aa, aa[[#]]], aa[[#]]]}
& /@ Range@nn)},
With[{dd = Table[Position[aa, cc[[p, 2]]][[1, 1]], {p, nn}]},
With[{ee = Complement[Range@nn, dd]},
Column[{StringJoin[ToString["Expected: "], ToString[nn/3.5]],
StringJoin[ToString["Survivors: "], ToString[Length@ee], ToString[": "],
ToString[ee]], Show[Graphics[{Gray, Line@# & /@ cc}, Frame -> True,
PlotRange -> {{0, 1}, {0, 1}}, Epilog -> {Text[Style[(Range@nn)[[#]],
30/Floor@Log@nn], aa[[#]]] & /@ Range@nn}], ImageSize -> 300]}]]]]]
est[mm_, trials_] := ListLinePlot@({Quiet@With[{nn = #},
(N@Total@(With[{aa = Partition[RandomReal[{0, 1}, 2 nn], 2]},
With[{cc = ({aa[[#]], First@Nearest[DeleteCases[aa, aa[[#]]],
aa[[#]]]} & /@ Range@nn)},
With[{dd = Table[Position[aa, cc[[p, 2]]][[1, 1]], {p, nn}]},
With[{ee = Complement[Range@nn, dd]},Length@ee]]]]
& /@ Range@trials)/trials)] & /@ Range@mm, Range@mm/3.5})
anim[nn_, range_] := ListAnimate[test@nn & /@ Range@range,
ControlPlacement -> Top, DefaultDuration -> nn]
const[mm_, trials_] := With[{ans = Quiet@With[{nn = #},
SetPrecision[(Total@(With[{aa = Partition[RandomReal[{0, 1}, 2 nn], 2]},
With[{cc = ({aa[[#]],First@Nearest[DeleteCases[aa, aa[[#]]],
aa[[#]]]} & /@ Range@nn)},
With[{dd = Table[Position[aa, cc[[p, 2]]][[1, 1]], {p, nn}]},
With[{ee = Complement[Range@nn, dd]},
Length@ee]]]] & /@ Range@trials)/trials), 20]] &@ mm}, mm/ans]
act[nn_, trials_] := With[{aa = Partition[RandomReal[{0, 1}, 2 nn], 2]},
With[{cc = ({aa[[#]], First@Nearest[DeleteCases[aa, aa[[#]]], aa[[#]]]} & /@
Range@nn)}, With[{dd = Table[Position[aa, cc[[p, 2]]][[1, 1]], {p, nn}]},
With[{ee = Complement[Range@nn, dd]}, Length@ee]]]] & /@ Range@trials
data = Quiet@ Table[With[{tt = 2*10^4},
With[{aa = act[nn, tt]}, With[{bb = Sort@DeleteDuplicates@aa},
Transpose@{ConstantArray[nn, Length@bb], bb, (Length@# & /@
Split@Sort@aa)/tt}]]], {nn, 1, 100}];