Vamos e , . Qual é a expectativa de como ?
Vamos e , . Qual é a expectativa de como ?
Respostas:
A resposta é de fato , como adivinhado nas respostas anteriores, com base em simulações e aproximações finitas.
A solução é facilmente alcançada através da introdução de uma sequência de funções . Embora possamos avançar imediatamente para essa etapa, ela pode parecer bastante misteriosa. A primeira parte desta solução explica como se pode preparar esses . A segunda parte mostra como eles são explorados para encontrar uma equação funcional satisfeita pela função limitadora . A terceira parte exibe os cálculos (de rotina) necessários para resolver esta equação funcional.f n ( t ) f ( t ) = lim n → ∞ f n ( t )
Podemos chegar a isso aplicando algumas técnicas matemáticas padrão de solução de problemas. Nesse caso, onde algum tipo de operação é repetida ad infinitum, o limite existirá como um ponto fixo dessa operação. A chave, então, é identificar a operação.
A dificuldade é que a mudança de para parece complicada. É mais simples visualizar esta etapa como decorrente do adjacente às variáveis vez de adjacente às variáveis . Se considerarmos como sendo construído como descrito na pergunta - com distribuído uniformemente em , condicionalmente distribuído uniformemente em e assim por diante-- introduzindoE [ X 1 X 2 ⋯ X n - 1 X n ] X 1 ( X 2 , … , X n ) X n ( X 1 , X 2 , … , X n - 1 ) ( X 2 , … , X nX 2 [ 0 , 1 ] X 3 [ X 2 , 1 ] X 1 X i 1 - X 1 1fará com que cada um dos subsequentes para encolher por um factor de em direcção ao limite superior . Esse raciocínio leva naturalmente à seguinte construção.
Como questão preliminar, como é um pouco mais simples reduzir os números para que para , deixe . Portanto, é distribuído uniformemente em e é distribuído uniformemente em condicional em para todos os Estamos interessados em duas coisas:1 Y i = 1 - X i Y 1 [ 0 , 1 ] Y i + 1 [ 0 , Y i ] ( Y 1 , Y 2 , … , Y i ) i = 1 , 2 , 3 , … .
O valor limite de .
Como esses valores se comportam ao reduzir todo o uniformemente em direção a : ou seja, escalonando todos por algum fator comum , . 0 t 0 ≤ t ≤ 1
Para esse fim, defina
Claramente cada é definido e contínuo (infinitamente diferenciável, na verdade) para todos reais . Vamos nos concentrar no comportamento deles para . t t ∈ [ 0 , 1 ]
O seguinte é óbvio:
Cada é uma função monotonicamente decrescente de a .[ 0 , 1 ] [ 0 , 1 ]
n para todos os .
n para todos os .
Estas implicam que existe para todos e .t ∈ [ 0 , 1 ] f ( 0 ) = 1
Observe que, condicional em , a variável é uniforme em e as variáveis (condicional em todas as variáveis anteriores) são uniformes em : isto é , satisfazem precisamente as condições satisfeitas por . ConsequentementeY 2 / Y 1 [ 0 , 1 ] Y i + 1 / Y 1 [ 0 , Y i / Y 1 ] ( Y 2 / Y 1 , Y 3 / Y 1 , … , Y n / Y 1 ) ( Y 1 , … , Y n - 1 )
Essa é a relação recursiva que estávamos procurando.
No limite de , portanto, deve ser o caso de distribuído uniformemente em independentemente de todos os ,Y [ 0 , 1 ] Y i
Ou seja, deve ser um ponto fixo do para o qualL
Limpe a fração multiplicando os dois lados por . Como o lado direito é uma integral, podemos diferenciá-lo em relação a , dandot t
Equivalentemente, ao subtrair e dividir ambos os lados por ,t
para . Podemos estender isso por continuidade para incluir . Com a condição inicial (3) , a solução exclusiva ét = 0 f ( 0 ) = 1
Consequentemente, por (4), a expectativa limitadora de é , QED. f ( 1 ) = e - 1 = 1 / e
Como o Mathematica parece ser uma ferramenta popular para estudar esse problema, aqui está o código do Mathematica para calcular e plotar para pequeno . O gráfico de exibe convergência rápida para (mostrado como o gráfico preto). n f 1 , f 2 , f 3 , f 4 e - t
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}]
Atualizar
Eu acho que é uma aposta segura que a resposta seja . Corri as integrais para o valor esperado de a usando Mathematica e com eu tenhon = 2 n = 100 n = 100
0.367879441171442321595523770161567628159853507344458757185018968311538556667710938369307469618599737077005261635286940285462842065735614
(até 100 casas decimais). O recíproco desse valor é
2.718281828459045235360287471351873636852026081893477137766637293458245150821149822195768231483133554
A diferença com esse recíproco é
-7.88860905221011806482437200330334265831479532397772375613947042032873*10^-31
Eu acho que é muito próximo, ouso dizer, ser uma coincidência racional.
O código do Mathematica é o seguinte:
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}]
Fim da atualização
Este é mais um comentário extenso do que uma resposta.
Se seguirmos uma rota de força bruta, determinando o valor esperado para vários valores de , talvez alguém reconheça um padrão e, em seguida, consiga estabelecer um limite.
Para , temos o valor esperado do produto sendo
que é 96547/259200 ou aproximadamente 0,3724807098765432.
Se deixarmos a integral de 0 para 1, teremos um polinômio em com os seguintes resultados para a (e deixei cair o subscrito para facilitar a leitura das coisas): n = 1 n = 6
Se alguém reconhecer a forma dos coeficientes inteiros, talvez seja possível determinar um limite como (depois de executar a integração de 0 a 1 que foi removida para mostrar o polinômio subjacente).
Boa pergunta. Apenas como um comentário rápido, eu observaria que:
convergirá para 1 rapidamente; portanto, para a verificação de Monte Carlo, definir será mais do que suficiente.
Se , pela simulação de Monte Carlo, como , .
O diagrama a seguir compara o pdf de Monte Carlo simulado de com uma distribuição de Função de Potência [ie, um beta (a, 1) pdf]]
... aqui com o parâmetro :
(fonte: tri.org.au )
Onde:
O ajuste parece muito bom.
Código
Aqui estão 1 milhão de desenhos pseudo-aleatórios do produto (digamos, com ), aqui usando o Mathematica :
data = Table[Times @@ NestList[RandomReal[{#, 1}] &, RandomReal[], 1000], {10^6}];
A média da amostra é:
Mean[data]
0,367657
Puramente intuitivamente, e com base na outra resposta de Rusty, acho que a resposta deve ser algo assim:
n = 1:1000
x = (1 + (n^2 - 1)/(n^2)) / 2
prod(x)
O que nos dá 0.3583668
. Para cada , você está dividindo o intervalo ao meio, onde começa em . Portanto, é um produto de , etc.
Isso é apenas intuição.
O problema com a resposta de Rusty é que U [1] é idêntico em todas as simulações. As simulações não são independentes. Uma correção para isso é fácil. Mova a linha com U[1] = runif(1,0,1)
para dentro do primeiro loop. O resultado é:
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)
Isso dá 0.3545284
.