Нехай і , . Яке очікування як ?
Нехай і , . Яке очікування як ?
Відповіді:
Відповідь справді є , як було здогадано у попередніх відповідях на основі моделювання та кінцевих наближень.
До рішення легко дійти, ввівши послідовність функцій . Хоча ми могли б перейти до цього кроку негайно, це може здатися загадковою. Перша частина цього рішення пояснює, як можна приготувати ці . У другій частині показано, як вони використовуються для пошуку функціонального рівняння, задоволеного обмежувальною функцією . У третій частині відображаються (звичайні) обчислення, необхідні для вирішення цього функціонального рівняння.f n ( t ) f ( t ) = lim n → ∞ f n ( t )
Ми можемо досягти цього, застосовуючи деякі стандартні методи математичного вирішення задач. У цьому випадку, коли якась операція повторюється ad infinitum, межа буде існувати як фіксована точка цієї операції. Ключ, отже, полягає у визначенні операції.
Складність полягає в тому, що перехід від до виглядає складним. Цей крок простіше розглянути як такий, що виникає з примикання до змінних а не примикання до змінних . Якби ми розглядали як побудовані так, як описано у запитанні - з рівномірно розподіленими на , умовно рівномірно розподіленими на тощо потім вводячиE [ 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 1призведе до зменшення кожного наступного на коефіцієнт напрямку до верхньої межі . Це міркування природно призводить до наступної конструкції.
В якості попереднього питання, оскільки трохи простіше зменшити числа до ніж до , нехай . Таким чином, рівномірно розподілений у а рівномірно розподілений у умовно для всіх Нас цікавлять дві речі: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 , … .
Граничне значення .
Як поводяться ці значення, коли всі рівномірно скорочуються до : тобто шляхом їх масштабування за деяким загальним фактором , . 0 t 0 ≤ t ≤ 1
З цією метою визначте
Ясно, що кожен визначений і безперервний (насправді нескінченно диференційований) для всіх реальних . Ми зупинимося на їх поведінці для . t t ∈ [ 0 , 1 ]
Наступні очевидні:
Кожен - монотонно зменшується функція від до .[ 0 , 1 ] [ 0 , 1 ]
n для всіх .
n для всіх .
З них випливає, що існує для всіх і .t ∈ [ 0 , 1 ] f ( 0 ) = 1
Зауважте, що за умови змінна є рівномірною в а змінні (умовні для всіх попередніх змінних) є рівномірними в : тобто , точно відповідають умовам, яким відповідає . ОтжеY 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 )
Це рекурсивні стосунки, яких ми шукали.
У обмеженні як повинно бути так, що для рівномірно розподілено в незалежно від усіх ,Y [ 0 , 1 ] Y i
Тобто, має бути фіксованою точкою функціоналу для якогоL
Очистіть дріб , помноживши обидві сторони на . Оскільки права рука є інтегралом, ми можемо диференціювати її відносно , даючиt t
Рівно, віднімаючи і розділяючи обидві сторони на ,t
для . Ми можемо розширити це безперервністю, щоб включити . З початковою умовою (3) є унікальним рішеннямt = 0 f ( 0 ) = 1
Отже, за формулою (4) граничне очікування дорівнює , QED. f ( 1 ) = e - 1 = 1 / e
Оскільки Mathematica видається популярним інструментом для вивчення цієї проблеми, ось код Mathematica для обчислення та для малих . Ділянка відображає швидкої збіжності до (показаний в вигляді чорного графіка). 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}]
Оновлення
Я думаю, що це безпечна ставка, що відповідь - . Я побив інтеграли для очікуваного значення від до за допомогою Mathematica і з я отримавn = 2 n = 100 n = 100
0.367879441171442321595523770161567628159853507344458757185018968311538556667710938369307469618599737077005261635286940285462842065735614
(до 100 знаків після коми). Зворотна ця величина є
2.718281828459045235360287471351873636852026081893477137766637293458245150821149822195768231483133554
Різниця з цією зворотною і є
-7.88860905221011806482437200330334265831479532397772375613947042032873*10^-31
Я думаю, що це занадто близько, смію сказати, щоб бути раціональним збігом обставин.
Код Mathematica наступний:
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}]
Кінець оновлення
Це скоріше розширений коментар, ніж відповідь.
Якщо ми підемо шляхом грубої сили, визначивши очікуване значення для кількох значень , можливо, хтось розпізнає шаблон і тоді зможе взяти обмеження.
Для ми маємо очікуване значення продукту, який є
що становить 96547/259200 або приблизно 0,3724807098765432.
Якщо ми скинемо інтеграл від 0 до 1, у нас є многочлен у з такими результатами для до (і я скинув підпис, щоб полегшити читання речей): n = 1 n = 6
Якщо хтось розпізнає форму цілих коефіцієнтів, то, можливо, може бути визначена межа як (після виконання інтеграції від 0 до 1, який був видалений, щоб показати основний многочлен).
Приємне запитання. Як швидкий коментар я зазначу, що:
швидко сходиться на 1, тому для перевірки в Монте-Карло встановлення буде більш ніж трюком.
Якщо , то за моделюванням Монте-Карло, як , .
Наступна схема порівнює модельований pdf Монте-Карло з розподілом функції живлення [тобто Beta (a, 1) pdf)]
... тут з параметром :
(джерело: tri.org.au )
де:
Підхід виглядає досить непогано.
Код
Ось 1 мільйон псевдовипадкових малюнків добутку (скажімо, ), тут за допомогою Mathematica :
data = Table[Times @@ NestList[RandomReal[{#, 1}] &, RandomReal[], 1000], {10^6}];
Середнє значення вибірки:
Mean[data]
0,367657
Суто інтуїтивно, і грунтуючись на іншій відповіді Расті, я думаю, що відповідь повинна бути приблизно такою:
n = 1:1000
x = (1 + (n^2 - 1)/(n^2)) / 2
prod(x)
Що нам дає 0.3583668
. Для кожного ви розділяєте діапазон навпіл, де починається з . Тож це добуток тощо.( , 1 ) 0 1 / 2 , ( 1 + 3 / 4 ) / 2 , ( 1 + 8 / 9 ) / 2
Це просто інтуїція.
Проблема з відповіддю Расті полягає в тому, що U [1] однаковий у кожному симуляції. Моделювання не є незалежними. Виправити це легко. Перемістіть лінію з U[1] = runif(1,0,1)
до всередині першої петлі. Результат:
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)
Це дає 0.3545284
.