Очікування добутку з залежних випадкових величин, коли


18

Нехай і , . Яке очікування як ?X1U[0,1]XiU[Xi1,1]i=2,3,...X1X2Xnn


7
Педантичний зауваження: це означає ? Крім того, це може означати умову лише на , тобто . Але оскільки останній не повністю визначає спільний розподіл s, не відразу зрозуміло, чи однозначно визначено очікування. XiU[Xi1,1]XiX1,,Xi1U[Xi1,1]Xi1XiXi1U[Xi1,1]Xi
Juho Kokkala

Я думаю, що теоретично це повинно бути обумовлене всіма попередніми до . Однак, враховуючи ми можемо отримати розподіл для . Тож я не зовсім впевнений у цьому. XiXi1Xi1Xi
хто

@JuhoKokkala Як зазначено, не має значення, якщо ви ставитеся до змінних до оскільки вони не змінять факту, що є рівномірним . Розподіл здається мені цілком чітко визначеним. Xi1Xi[Xi1,1](X1,,Xn)
dsaxton

@dsaxton Якщо припустимо лише і , це залишається можливим, що і не є умовно незалежними умовними для . Таким чином, розподіл недостатньо визначений. X1U(0,1)XiXi1U(Xi1,1),i=2,3,...X1X3X2(X1,X2,X3)
Juho Kokkala

@JuhoKokkala Якщо я скажу вам, що , який розподіл ? Якщо ви можете відповісти на питання, навіть не замислюючись про , то як і можуть бути залежними від даної ? Також зауважте, як інші плакати не мали проблем з імітацією цієї послідовності. X2=tX3X1X1X3X2
dsaxton

Відповіді:


12

Відповідь справді є ,1/e як було здогадано у попередніх відповідях на основі моделювання та кінцевих наближень.

До рішення легко дійти, ввівши послідовність функцій . Хоча ми могли б перейти до цього кроку негайно, це може здатися загадковою. Перша частина цього рішення пояснює, як можна приготувати ці . У другій частині показано, як вони використовуються для пошуку функціонального рівняння, задоволеного обмежувальною функцією . У третій частині відображаються (звичайні) обчислення, необхідні для вирішення цього функціонального рівняння.f n ( t ) f ( t ) = lim n f n ( t )fn:[0,1][0,1]fn(t)f(t)=limnfn(t)


1. Мотивація

Ми можемо досягти цього, застосовуючи деякі стандартні методи математичного вирішення задач. У цьому випадку, коли якась операція повторюється ad infinitum, межа буде існувати як фіксована точка цієї операції. Ключ, отже, полягає у визначенні операції.

Складність полягає в тому, що перехід від до виглядає складним. Цей крок простіше розглянути як такий, що виникає з примикання до змінних а не примикання до змінних . Якби ми розглядали як побудовані так, як описано у запитанні - з рівномірно розподіленими на , умовно рівномірно розподіленими на тощо потім вводячиE [ X 1 X 2X n - 1 X n ] X 1 ( X 2 , , X n ) X n ( X 1 , X 2 , , X n - 1 ) ( X 2 , , X nE[X1X2Xn1]E[X1X2Xn1Xn]X1(X2,,Xn)Xn(X1,X2,,Xn1)X 2 [ 0 , 1 ] X 3 [ X 2 , 1 ] X 1 X i 1 - X 1 1(X2,,Xn)X2[0,1]X3[X2,1]X1призведе до зменшення кожного наступного на коефіцієнт напрямку до верхньої межі . Це міркування природно призводить до наступної конструкції.Xi1X11

В якості попереднього питання, оскільки трохи простіше зменшити числа до ніж до , нехай . Таким чином, рівномірно розподілений у а рівномірно розподілений у умовно для всіх Нас цікавлять дві речі: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 , .01Yi=1XiY1[0,1]Yi+1[0,Yi](Y1,Y2,,Yi)i=1,2,3,.

  1. Граничне значення .E[X1X2Xn]=E[(1Y1)(1Y2)(1Yn)]

  2. Як поводяться ці значення, коли всі рівномірно скорочуються до : тобто шляхом їх масштабування за деяким загальним фактором , . 0 t 0 t 1Yi0t0t1

З цією метою визначте

fn(t)=E[(1tY1)(1tY2)(1tYn)].

Ясно, що кожен визначений і безперервний (насправді нескінченно диференційований) для всіх реальних . Ми зупинимося на їх поведінці для . t t [ 0 , 1 ]fntt[0,1]


2. Ключовий крок

Наступні очевидні:

  1. Кожен - монотонно зменшується функція від до .[ 0 , 1 ] [ 0 , 1 ]fn(t)[0,1][0,1]

  2. nfn(t)>fn+1(t) для всіх .n

  3. nfn(0)=1 для всіх .n

  4. E(X1X2Xn)=fn(1).

З них випливає, що існує для всіх і .t [ 0 , 1 ] f ( 0 ) = 1f(t)=limnfn(t)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 )Y1Y2/Y1[0,1]Yi+1/Y1[0,Yi/Y1](Y2/Y1,Y3/Y1,,Yn/Y1)(Y1,,Yn1)

fn(t)=E[(1tY1)E[(1tY2)(1tYn)|Y1]]=E[(1tY1)E[(1tY1Y2Y1)(1tY1YnY1)|Y1]]=E[(1tY1)fn1(tY1)].

Це рекурсивні стосунки, яких ми шукали.

У обмеженні як повинно бути так, що для рівномірно розподілено в незалежно від усіх ,Y [ 0 , 1 ] Y inY[0,1]Yi

f(t)=E[(1tY)f(tY)]=01(1ty)f(ty)dy=1t0t(1x)f(x)dx.

Тобто, має бути фіксованою точкою функціоналу для якогоLfL

L[g](t)=1t0t(1x)g(x)dx.

3. Розрахунок розчину

Очистіть дріб , помноживши обидві сторони на . Оскільки права рука є інтегралом, ми можемо диференціювати її відносно , даючиt t1/ttt

f(t)+tf(t)=(1t)f(t).

Рівно, віднімаючи і розділяючи обидві сторони на ,tf(t)t

f(t)=f(t)

для . Ми можемо розширити це безперервністю, щоб включити . З початковою умовою (3) є унікальним рішеннямt = 0 f ( 0 ) = 10<t1t=0f(0)=1

f(t)=et.

Отже, за формулою (4) граничне очікування дорівнює , QED. f ( 1 ) = e - 1 = 1 / eX1X2Xnf(1)=e1=1/e


Оскільки Mathematica видається популярним інструментом для вивчення цієї проблеми, ось код Mathematica для обчислення та для малих . Ділянка відображає швидкої збіжності до (показаний в вигляді чорного графіка). n f 1 , f 2 , f 3 , f 4 e - tfnnf1,f2,f3,f4et

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}]

Малюнок


3
(+1) Прекрасний аналіз.
кардинал

Дякуємо, що поділилися цим із нами. Там є справді геніальні люди!
Феліпе Джерард

4

Оновлення

Я думаю, що це безпечна ставка, що відповідь - . Я побив інтеграли для очікуваного значення від до за допомогою Mathematica і з я отримавn = 2 n = 100 n = 1001/en=2n=100n=100

0.367879441171442321595523770161567628159853507344458757185018968311538556667710938369307469618599737077005261635286940285462842065735614

(до 100 знаків після коми). Зворотна ця величина є

2.718281828459045235360287471351873636852026081893477137766637293458245150821149822195768231483133554

Різниця з цією зворотною і єe

-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}]

Кінець оновлення

Це скоріше розширений коментар, ніж відповідь.

Якщо ми підемо шляхом грубої сили, визначивши очікуване значення для кількох значень , можливо, хтось розпізнає шаблон і тоді зможе взяти обмеження.n

Для ми маємо очікуване значення продукту, який єn=5

μn=01x11x21x31x41x1x2x3x4x5(1x1)(1x2)(1x3)(1x4)dx5dx4dx3dx2dx1

що становить 96547/259200 або приблизно 0,3724807098765432.

Якщо ми скинемо інтеграл від 0 до 1, у нас є многочлен у з такими результатами для до (і я скинув підпис, щоб полегшити читання речей): n = 1 n = 6x1n=1n=6

x

(x+x2)/2

(5x+5x2+2x3)/12

(28x+28x2+13x3+3x4)/72

(1631x+1631x2+791x3+231x4+36x5)/4320

(96547x+96547x2+47617x3+14997x4+3132x5+360x6)/259200

Якщо хтось розпізнає форму цілих коефіцієнтів, то, можливо, може бути визначена межа як (після виконання інтеграції від 0 до 1, який був видалений, щоб показати основний многочлен).n


1/e красиво елегантно! :)
волфує

4

Приємне запитання. Як швидкий коментар я зазначу, що:

  • Xn швидко сходиться на 1, тому для перевірки в Монте-Карло встановлення буде більш ніж трюком.n=1000

  • Якщо , то за моделюванням Монте-Карло, як , .Zn=X1X2XnnE[Zn]0.367

  • Наступна схема порівнює модельований pdf Монте-Карло з розподілом функції живлення [тобто Beta (a, 1) pdf)]Zn

f(z)=aza1

... тут з параметром :a=0.57


(джерело: tri.org.au )

де:

  • синя крива позначає "емпіричний" pdf від Монте-КарлоZn
  • червона пунктирна крива - це PDF-файл PowerFunction.

Підхід виглядає досить непогано.

Код

Ось 1 мільйон псевдовипадкових малюнків добутку (скажімо, ), тут за допомогою Mathematica :Znn=1000

data = Table[Times @@ NestList[RandomReal[{#, 1}] &, RandomReal[], 1000], {10^6}];

Середнє значення вибірки:

 Mean[data]

0,367657


Ви можете поділитися своїм усім кодом? Моє рішення відрізняється від вашого.

1
Перший пункт, який має вирішальне значення, здається недостатньо виправданим. Чому ви можете відхилити ефект, скажімо, наступних значень ? Незважаючи на "швидку" конвергенцію, їх кумулятивний ефект може значно зменшити очікування. х н10100xn
whuber

1
Тут добре використовувати моделювання. У мене є подібні запитання, як у @whuber. Як ми можемо бути впевнені, що значення збігається до 0,367, але не щось нижче, що потенційно можливо, якщо більше? n
хто

У відповідь на вищезазначені 2 коментарі: (a) Серія дуже швидко до 1. Навіть починаючи з початкового значення , протягом приблизно 60 ітерацій, буде чисельно невідрізним від числового 1,0 до комп'ютера . Отже, моделювання з є надмірним. (b) У рамках тесту в Монте-Карло я також перевірив те саме моделювання (з 1 мільйоном пробіжок), але використовуючи а не 1000, і результати не відрізнялися. Таким чином, представляється малоймовірним , що великі значення робитимуть яке - або помітна різниця: вище , це ефективний 1.0.X 1 = 0,1 X 60 X nXiX1=0.1X60Xnn = 5000 n n = 100 X nn=1000n=5000nn=100Xn
волфіть

0

Суто інтуїтивно, і грунтуючись на іншій відповіді Расті, я думаю, що відповідь повинна бути приблизно такою:

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 ) / 2X(a,1)a01/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.


1
Дуже просте виправлення! Я думаю, це правда, у коді завжди є помилка! Я прийму свою відповідь.

1
Так, саме це я і очікував, якщо врахувати очікувані значення як нижчі межі.

1
Я запускаю ваш код з і отримала як відповідь. Хіба це не трохи дивно, оскільки якщо б воно не збігалося з величиною, не більше бігів наблизить нас до цього значення? 0,3631297S=100000.3631297
хто
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.