및 , 이라고합시다 . 을 로 기대하는 것은 무엇입니까 ?
및 , 이라고합시다 . 을 로 기대하는 것은 무엇입니까 ?
답변:
대답은 참으로 , 시뮬레이션과 유한 근사치에 따라 이전 응답에서 짐작한다.
일련의 함수 을 도입하면 솔루션에 쉽게 도달 할 수 있습니다 . 우리는 그 단계를 즉시 진행할 수 있지만 다소 신비한 것처럼 보일 수 있습니다. 이 솔루션의 첫 번째 부분에서는 이러한 f n ( t )를 어떻게 요리 할 수 있는지 설명합니다 . 두 번째 부분은 제한 함수 f ( t ) = lim n → ∞ f n ( t )에 의해 충족되는 함수 방정식을 찾기 위해 어떻게 활용되는지 보여줍니다.. 세 번째 부분에는이 함수 방정식을 푸는 데 필요한 (일상적인) 계산이 표시됩니다.
우리는 몇 가지 표준 수학 문제 해결 기술을 적용하여 이에 도달 할 수 있습니다. 이 경우 어떤 종류의 작업이 무한정 반복되는 경우 해당 작업 의 고정 된 지점 으로 제한이 존재 합니다. 따라서 핵심은 작업을 식별하는 것입니다.
어려움은 에서 E [ X 1 X 2 ⋯ X n - 1 X n ] 로의 이동 이 복잡해 보인다는 점입니다. 이것은 인접 발생하는 경우이 단계 볼 간단 X 1 변수를로 ( X 2 , ... , X N ) 대신 인접보다 X를 N 개의 변수로 ( X 1 , . 우리가 ( X 2 , … , X n ) 을 질문에 설명 된대로 구성한것으로 간주한다면 -X 2 가 [ 0 , 1 ] 에균일하게 분포되고 X 3이 [ X 2 , 1 ] 에 조건부로 균일하게 분포되고 그래서 - 도입 후 X 1은 후속 각자 발생할 X I 행을배 축소 상한쪽으로 1 . 이 추론은 자연스럽게 다음과 같은 구성으로 이어집니다.
예비 문제로서, 1 보다 숫자를 축소하는 것이 조금 더 간단하므로 Y i = 1 - X i로 하자 . 따라서, Y 1은 균일하게 분포되어있다 [ 0 , 1 ] 및 Y는 I + 1에 균일하게 분포한다 [ 0 , Y I ] 조건에 ( Y 1 , Y 2 , ... , Y I ) 모든 전 우리는 두 가지에 관심이 있습니다.
의 한계 값 .
어떻게 모든 축소 할 때이 값 행동 향해 균일 0 : 즉, 몇 가지 일반적인 요인에 의해 그들 모두를 확장하여 t , 0 ≤ t ≤ 1 .
이를 위해
분명히 각 은 모든 실수 t에 대해 정의되고 연속적입니다 (실제로 미분 가능합니다) . 우리는 그들의 행동에 초점을 맞출 것이다 t ∈ [ 0 , 1 ] .
다음은 분명합니다.
각 에서 단조 감소 함수이고 [ 0 , 1 ] 을 [ 0 , 1 ] .
모든 n에 대해 f n ( t ) > f n + 1 ( t ) .
모든 n에 대해 f n ( 0 ) = 1 입니다.
이것은 모든 t ∈ [ 0 , 1 ] 및 f ( 0 ) = 1에 대해 가 존재 함을 의미합니다 .
Observe that, conditional on , the variable is uniform in and variables (conditional on all preceding variables) are uniform in : that is, satisfy precisely the conditions satisfied by . Consequently
This is the recursive relationship we were looking for.
In the limit as it must therefore be the case that for uniformly distributed in independently of all the ,
That is, must be a fixed point of the functional for which
Clear the fraction by multiplying both sides by . Because the right hand side is an integral, we may differentiate it with respect to , giving
Equivalently, upon subtracting and dividing both sides by ,
for . We may extend this by continuity to include . With the initial condition (3) , the unique solution is
Consequently, by (4), the limiting expectation of is , QED.
Because Mathematica appears to be a popular tool for studying this problem, here is Mathematica code to compute and plot for small . The plot of displays rapid convergence to (shown as the black graph).
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}]
Update
I think it's a safe bet that the answer is . I ran the integrals for the expected value from to using Mathematica and with I got
0.367879441171442321595523770161567628159853507344458757185018968311538556667710938369307469618599737077005261635286940285462842065735614
(to 100 decimal places). The reciprocal of that value is
2.718281828459045235360287471351873636852026081893477137766637293458245150821149822195768231483133554
The difference with that reciprocal and is
-7.88860905221011806482437200330334265831479532397772375613947042032873*10^-31
I think that's too close, dare I say, to be a rational coincidence.
The Mathematica code follows:
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}]
End of update
This is more of an extended comment than an answer.
If we go a brute force route by determining the expected value for several values of , maybe someone will recognize a pattern and then be able to take a limit.
For , we have the expected value of the product being
which is 96547/259200 or approximately 0.3724807098765432.
If we drop the integral from 0 to 1, we have a polynomial in with the following results for to (and I've dropped the subscript to make things a bit easier to read):
If someone recognizes the form of the integer coefficients, then maybe a limit as can be determined (after performing the integration from 0 to 1 that was removed to show the underlying polynomial).
Nice question. Just as a quick comment, I would note that:
will converge to 1 rapidly, so for Monte Carlo checking, setting will more than do the trick.
If , then by Monte Carlo simulation, as , .
The following diagram compares the simulated Monte Carlo pdf of to a Power Function distribution [ i.e. a Beta(a,1) pdf) ]
... here with parameter :
(source: tri.org.au)
where:
The fit appears pretty good.
Code
Here are 1 million pseudorandom drawings of the product (say with ), here using Mathematica:
data = Table[Times @@ NestList[RandomReal[{#, 1}] &, RandomReal[], 1000], {10^6}];
The sample mean is:
Mean[data]
0.367657
Purely intuitively, and based on Rusty's other answer, I think the answer should be something like this:
n = 1:1000
x = (1 + (n^2 - 1)/(n^2)) / 2
prod(x)
Which gives us 0.3583668
. For each , you are splitting the range in half, where starts out at . So it's a product of , etc.
This is just intuition.
The problem with Rusty's answer is that U[1] is identical in every single simulation. The simulations are not independent. A fix for this is easy. Move the line with U[1] = runif(1,0,1)
to inside the first loop. The result is:
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)
This gives 0.3545284
.