Deje y , . ¿Cuál es la expectativa de como ?
Deje y , . ¿Cuál es la expectativa de como ?
Respuestas:
La respuesta es de hecho , como se adivinó en las respuestas anteriores basadas en simulaciones y aproximaciones finitas.
La solución se llega fácilmente introduciendo una secuencia de funciones . Aunque podríamos proceder a ese paso de inmediato, puede parecer bastante misterioso. La primera parte de esta solución explica cómo se pueden cocinar estos . La segunda parte muestra cómo se explotan para encontrar una ecuación funcional satisfecha por la función limitante . La tercera parte muestra los cálculos (de rutina) necesarios para resolver esta ecuación funcional.
Podemos llegar a esto aplicando algunas técnicas estándar de resolución de problemas matemáticos. En este caso, donde algún tipo de operación se repite hasta el infinito, el límite existirá como un punto fijo de esa operación. La clave, entonces, es identificar la operación.
La dificultad es que el movimiento de a E [ X 1 X 2 ⋯ X n - 1 X n ] parece complicado. Es más simple ver este paso como resultado de la unión de X 1 a las variables ( X 2 , ... , X n ) en lugar de la unión de X n a las variables ( X 1 , . Si tuviéramos que considerar ( X 2 , ... , X n ) como construido como se describe en la pregunta, con X 2 uniformemente distribuido en [ 0 , 1 ] , X 3 uniformemente distribuido uniformemente en [ X 2 , 1 ] , y así sucesivamente - a continuación, la introducción de X 1 hará que cada uno de la posterior X i areducir por un factor de hacia el límite superior 1 . Este razonamiento conduce naturalmente a la siguiente construcción.
Como cuestión preliminar, dado que es un poco más simple reducir los números hacia que hacia 1 , sea Y i = 1 - X i . Por lo tanto, Y 1 se distribuye uniformemente en [ 0 , 1 ] e Y i + 1 se distribuye uniformemente en [ 0 , Y i ] condicional a ( Y 1 , Y 2 , ... , Y i ) para todo i Nos interesan dos cosas:
El valor límite de .
Cómo se comportan estos valores cuando se reducen todas las uniformemente hacia 0 : es decir, escalando todas ellas por algún factor común t , 0 ≤ t ≤ 1 .
Para este fin, defina
Claramente cada se define y continuo (infinitamente diferenciable, en realidad) para todos reales t . Nos centraremos en su comportamiento para t ∈ [ 0 , 1 ] .
Lo siguiente es obvio:
Cada es una función monotónicamente decreciente de [ 0 , 1 ] a [ 0 , 1 ] .
para todos los n .
para todo n .
Estos implican que existe para todo t ∈ [ 0 , 1 ] y f ( 0 ) = 1 .
Observe que, condicional en , la variable Y 2 / Y 1 es uniforme en [ 0 , 1 ] y las variables Y i + 1 / Y 1 (condicional en todas las variables anteriores) son uniformes en [ 0 , Y i / Y 1 ] : es decir, ( Y 2 / Y 1 , Y 3 / Y 1 , … , Y n satisface con precisión las condiciones satisfechas por ( Y 1 , ... , Y n - 1 ) . Por consiguiente
Esta es la relación recursiva que estábamos buscando.
En el límite como lo tanto, debe darse el caso de que para Y distribuido uniformemente en [ 0 , 1 ] independientemente de todos los Y i ,
Es decir, debe ser un punto fijo de la L funcional para la cual
Despeja la fracción multiplicando ambos lados por t . Debido a que el lado derecho es una integral, podemos diferenciarlo con respecto a t , dando
De manera equivalente, al restar y dividir ambos lados por t ,
para . Podemos extender esto por continuidad para incluir t = 0 . Con la condición inicial (3) f ( 0 ) = 1 , la solución única es
En consecuencia, por (4), la expectativa limitante de es f ( 1 ) = e - 1 = 1 / e , QED.
Debido a que Mathematica parece ser una herramienta popular para estudiar este problema, aquí hay un código de Mathematica para calcular y trazar para n pequeña . La gráfica de f 1 , f 2 , f 3 , f 4 muestra una convergencia rápida a e - t (se muestra como el gráfico negro).
a = 0 <= t <= 1;
l[g_] := Function[{t}, (1/t) Integrate[(1 - x) g[x], {x, 0, t}, Assumptions -> a]];
f = Evaluate@Through[NestList[l, 1 - #/2 &, 3][t]]
Plot[f, {t,0,1}]
Actualizar
Creo que es una apuesta segura que la respuesta es . Ejecuté las integrales para el valor esperado de n = 2 a n = 100 usando Mathematica y con n = 100 obtuve
0.367879441171442321595523770161567628159853507344458757185018968311538556667710938369307469618599737077005261635286940285462842065735614
(hasta 100 decimales). El recíproco de ese valor es
2.718281828459045235360287471351873636852026081893477137766637293458245150821149822195768231483133554
La diferencia con ese recíproco y es
-7.88860905221011806482437200330334265831479532397772375613947042032873*10^-31
Creo que está demasiado cerca, me atrevo a decir, para ser una coincidencia racional.
El código de Mathematica sigue:
Do[
x = Table[ToExpression["x" <> ToString[i]], {i, n}];
integrand = Expand[Simplify[(x[[n - 1]]/(1 - x[[n - 1]])) Integrate[x[[n]], {x[[n]], x[[n - 1]], 1}]]];
Do[
integrand = Expand[Simplify[x[[i - 1]] Integrate[integrand, {x[[i]], x[[i - 1]], 1}]/(1 - x[[i - 1]])]],
{i, n - 1, 2, -1}]
Print[{n, N[Integrate[integrand, {x1, 0, 1}], 100]}],
{n, 2, 100}]
Fin de la actualización
Esto es más un comentario extendido que una respuesta.
Si tomamos una ruta de fuerza bruta determinando el valor esperado para varios valores de , tal vez alguien reconocerá un patrón y luego podrá tomar un límite.
Para , tenemos el valor esperado del producto que se está
que es 96547/259200 o aproximadamente 0.3724807098765432.
Si bajamos la integral de 0 a 1, tenemos un polinomio en con los siguientes resultados para n = 1 a n = 6 (y he bajado el subíndice para que las cosas sean un poco más fáciles de leer):
Si alguien reconoce la forma de los coeficientes enteros, entonces quizás se pueda determinar un límite como (después de realizar la integración de 0 a 1 que se eliminó para mostrar el polinomio subyacente).
Buena pregunta. Solo como un comentario rápido, me gustaría señalar que:
convergerá a 1 rápidamente, por lo que para la comprobación de Monte Carlo, establecer será más que suficiente.
Si , entonces por simulación de Monte Carlo, como , .
El siguiente diagrama compara el pdf simulado de Monte Carlo de con una distribución de función de potencia [es decir, un Beta (a, 1) pdf)]
... aquí con el parámetro :
(fuente: tri.org.au )
dónde:
El ajuste parece bastante bueno.
Código
Aquí hay 1 millón de dibujos pseudoaleatorios del producto (digamos con ), aquí usando Mathematica :
data = Table[Times @@ NestList[RandomReal[{#, 1}] &, RandomReal[], 1000], {10^6}];
La media muestral es:
Mean[data]
0.367657
Puramente intuitivo, y basado en la otra respuesta de Rusty, creo que la respuesta debería ser algo como esto:
n = 1:1000
x = (1 + (n^2 - 1)/(n^2)) / 2
prod(x)
0.3583668
Esto es solo intuición.
El problema con la respuesta de Rusty es que U [1] es idéntico en cada simulación. Las simulaciones no son independientes. Una solución para esto es fácil. Mueva la línea con U[1] = runif(1,0,1)
dentro del primer bucle. El resultado es:
set.seed(3) #Just for reproducibility of my solution
n = 1000 #Number of random variables
S = 1000 #Number of Monte Carlo samples
Z = rep(NA,S)
U = rep(NA,n)
for(j in 1:S){
U[1] = runif(1,0,1)
for(i in 2:n){
U[i] = runif(1,U[i-1],1)
}
Z[j] = prod(U)
}
mean(Z)
Esto da 0.3545284
.