Usando una carrera de jugadores para aproximar ππ\pi

Imagine que dos jugadores adinerados comienzan a lanzar sus propias monedas justas por separado, ganando 1 $ si sale cara y perdiendo 1 $ si sale cruz. Ambos comienzan en 0 $ y tienen saldos bancarios infinitos. Ambos quieren llegar a k $ . ¿Cuál es la probabilidad de que ambos alcancen sus objetivos en el mismo lanzamiento?

Con base en esta pregunta, vemos que las respuestas a todas esas preguntas toman la forma A + B π . Aquí, nos estamos enfocando estrictamente en los sorteos. Primero, sabemos que el tiempo de parada (probabilidad de que alcance su objetivo la primera vez en el lanzamiento) 2 t + k ) para cualquier jugador está dada por:

a k ( t ) = k k + t ( 2 t + k 1 t ) 2 2 t + k

Ahora, la probabilidad de un empate general es simplemente la probabilidad de que ambos alcancen su objetivo en el lanzamiento. 2 t + k , sumado sobre todos los valores posibles de t .

D k = t = 0 ( k k + t ( 2 t + k 1 t ) 2 2 t + k ) 2

Mathematica no puede encontrar una buena expresión de forma cerrada para la suma anterior (si puede, me impresionará mucho). Sin embargo, conectando varios valores de k en encontramos que la respuesta siempre toma la forma:

D k = mi k F k π GRAMO k

Dónde mi k , F k y GRAMO k son todos enteros. Conectando los primeros valores de GRAMO k (calculado usando Mathematica) en OEIS, obtuve la secuencia A002002 . Esto significa que:

GRAMO k = yo = 0 k 1 ( k yo + 1 ) ( k + yo yo )

Sin embargo, no he podido encontrar las expresiones correspondientes para mi k y F k . ¿Alguien puede ayudarme con esto? Podemos usarlo para obtener una expresión para π desde D = 0

Estas son las primeras expresiones para D k .

D 1 = 4 π 1
D 2 = dieciséis π 5
D 3 = 236 3 π 25
D 4 = 1216 3 π 129
D 5 = 32092 15 π 681
D 6 = 172144 15 π 3653
D 7 = 1307924 21 π 19825
D 8 = 7161088 21 π 108545
D 9 = 592194476 315 π 598417
D 10 = 3282949168 315 π 3317445
D 11 = 40221561524 693 π 18474633
D 12 = 224841634624 693 π 103274625

Desafortunadamente, Mathematica renuncia a proporcionar buenas expresiones en términos de π , D 13 adelante.

La idea es cortesía de /u/boyobo en este hilo de reddit .

Mi instinto es que tener mi k y F k en su forma más baja te está haciendo perder algunos factores comunes; o deberías tratar mi k / F k como una sola variable o hay factores que deben ser encontrados. Asumiendo que 236 / dieciséis es de hecho igual a mi 3 / mi 2 , los factores no serán grandes. Esto es, por supuesto, especulación y se basa puramente en mi intuición: no puedo encontrar ningún patrón al hacerlo, pero tal vez alguien más pueda hacerlo.
De acuerdo con @Spitemaster; el F k denominador casi definitivamente debe tener un k ! componente, si observas cómo entran los factores primos 3, 5, 7 y 11.
¿Existe también una enciclopedia en línea para secuencias no enteras? Tal vez las fracciones mi k / F k seguir algún patrón.
A037964 Brevemente ofreció esperanza.
Me temo que una enciclopedia de secuencias no enteras no está en línea sino un apéndice de El Libro, en el que, según Paul Erdős, Dios había escrito las mejores y más elegantes demostraciones de teoremas matemáticos. :-) Pero incluso estando restringido a enteros, tengo la esperanza de adaptarme para F k una de las primeras secuencias en esta consulta. Supongo que un conocimiento de F 13 puede ayudar a elegir el camino correcto.
Gracias alex También por la nota sobre el blog. Tristemente, Mathematica renuncia a proporcionar una buena expresión en términos de π para n=13 (lo hace hasta 12). Escupe "HypergeometricFPQ[{13/2,13/2,7,7},{1,14,14},1]/67108864" cuando conecto 13. La respuesta numérica es 1.89455e-3.
Miré más de cerca las secuencias mencionadas anteriormente. Algunos de ellos parecen relevantes, especialmente A086116 con una referencia de MathWorld a " Random Walk--1-Dimensional " de Eric W. Weisstein.
Esos 21 son realmente espinas en los costados. Desearía que hubiera una forma de calcular la expresión para 13.
Aunque Mathematica no puede reducirse (d[13] + g[13])Pia un número racional, le dará un resultado muy llamativo para ContinuedFraction[(d[13] + g[13])Pi + N[10^-100, 100]], que puede truncar en el elemento estúpidamente grande para obtener una evidencia numérica muy sólida de que mi 13 F 13 es FromContinuedFraction[{1819512525, 1, 4, 2, 1, 1, 1, 1, 1, 2, 3}]= 1821332038340 1001 . Los próximos a partir de mi 14 F 14 parece ser 10242265213328 1001 , 2598075674762068 45045 , 14675811920024576 45045 , 282378678293341060 153153 .
¡Gracias, esto es genial! ¿Puede compartir una captura de pantalla de su código de Mathematica con estos comandos? Todavía soy nuevo con eso y ni siquiera sé cómo poner las d y las g en matrices. Además, ¿cuál es el papel de N[10^-100,100]?
@RohitPandey Este no es el mejor espacio para enseñar Mathematica, pero lo acabo de hacer d[k_] = Sum[(k/(k + t) Binomial[2t + k - 1, t]/2^(2t + k))^2, {t, 0, Infinity}]; g[k_] = Sum[Binomial[k, l + 1] Binomial[k + l, l], {l, 0, k - 1}](los corchetes simples son para funciones, no para matrices). yo añadí 10 100 para evitar obligar a Mathematica a comparar una expresión que no sabe que es racional con la fracción exacta; de lo contrario, no está dispuesto a comprometerse con el último elemento que necesitamos de la expansión de fracción continua. N[…, 100]evalúa numéricamente con 100 dígitos de precisión.
Bien, gracias de nuevo. No pensé que alguna vez conocería una recurrencia de este problema. Incluso podría ser posible resolverlo ahora :)

Respuestas (1)

La entrada OEIS para A002002 da la recurrencia

2 ( 6 k 2 12 k + 5 ) GRAMO k 1 ( k 2 ) ( 2 k 1 ) GRAMO k 2 k ( 2 k 3 ) GRAMO k = 0.

En una corazonada al azar, intenté D norte con el mismo operador y encontró que

2 ( 6 k 2 12 k + 5 ) D k 1 ( k 2 ) ( 2 k 1 ) D k 2 k ( 2 k 3 ) D k = 8 π

se mantiene para todos los valores que Mathematica puede reducir a forma cerrada ( 2 k 12 ), y continúa manteniéndose numéricamente en cientos de dígitos significativos para miles de términos, por lo que es casi seguro que esta es la recurrencia correcta.