Niech i , . Czego oczekuje jako ?
Niech i , . Czego oczekuje jako ?
Odpowiedzi:
Odpowiedź rzeczywiście brzmi , jak przypuszczano we wcześniejszych odpowiedziach opartych na symulacjach i skończonych przybliżeniach.
Rozwiązanie można łatwo znaleźć, wprowadzając sekwencję funkcji . Chociaż moglibyśmy natychmiast przejść do tego kroku, może się to wydawać dość tajemnicze. Pierwsza część tego rozwiązania wyjaśnia, w jaki sposób można ugotować te f n ( t ) . Druga część pokazuje, w jaki sposób są one wykorzystywane do znalezienia równania funkcjonalnego spełnianego przez funkcję ograniczającą f ( t ) = lim n → ∞ f n ( t ). Trzecia część zawiera (rutynowe) obliczenia potrzebne do rozwiązania tego równania funkcjonalnego.
Możemy do tego dojść poprzez zastosowanie standardowych matematycznych technik rozwiązywania problemów. W takim przypadku, gdy jakiś rodzaj operacji powtarza się w nieskończoność, limit będzie istniał jako stały punkt tej operacji. Kluczem jest zatem identyfikacja operacji.
Trudność polega na tym, że przejście z do E [ X 1 X 2 ⋯ X n - 1 X n ] wygląda na skomplikowane. Łatwiej jest zobaczyć ten krok jako wynikający z przylegania do zmiennych niż do przylegania do zmiennych . Gdybyśmy mieli rozważyćX n ( X 1 , X 2 , … , X n - 1 ) ( X 2 , … , X n ) X 2 [ 0 , 1 ] X 3 [ X 2 , 1 ] X 1 X i 1 - X 1 1jako skonstruowano w sposób opisany w pytaniu - z równomiernie rozmieszczone na , warunkowo równomiernie rozmieszczone na , i tak dalej - następnie wprowadzenie spowoduje każdy z kolejnych się kurczyć współczynnik kierunku górnej granicy . To rozumowanie prowadzi naturalnie do następującej konstrukcji.
Na wstępie, ponieważ nieco łatwiej jest zmniejszyć liczby do niż do , niech . Zatem jest równomiernie rozłożone w a jest równomiernie rozłożone w warunkiem dla wszystkich1 Y i = 1 - X i Y 1 [ 0 , 1 ] Y i + 1 [ 0 , Y i ] ( Y 1 , Y 2 , … , Y i ) Interesują nas dwie rzeczy:
Wartość graniczna .
Jak zachowują się te wartości podczas równomiernego zmniejszania wszystkich kierunku 0 : to znaczy, skalując je wszystkie za pomocą pewnego wspólnego współczynnika t , 0 ≤ t ≤ 1 .
W tym celu zdefiniuj
Oczywiście każda jest zdefiniowana i ciągła (w rzeczywistości nieskończenie różniczkowa) dla wszystkich rzeczywistych . Skoncentrujemy się na ich zachowaniu dla .t ∈ [ 0 , 1 ]
Oczywiste są następujące:
Każda jest funkcją monotonicznie malejącą od do .[ 0 , 1 ] [ 0 , 1 ]
n dla wszystkich .
dla wszystkich n .
Te wskazują, że występuje dla wszystkich t ∈ [ 0 , 1 ] , a f ( 0 ) = 1 .
Zauważ, że zależnie od zmienna Y 2 / Y 1 jest jednolita w [ 0 , 1 ], a zmienne Y i + 1 / Y 1 (zależne od wszystkich poprzednich zmiennych) są jednolite w [ 0 , Y i / Y 1 ] : to znaczy ( Y 2 / Y 1 , Y 3 / Y 1 , … , Y n dokładnie spełniają warunki spełnione przez ( Y 1 , … , Y n - 1 ) . w konsekwencji
Jest to relacja rekurencyjna, której szukaliśmy.
W granicach musi zatem być tak, że dla Y równomiernie rozmieszczone w [ 0 , 1 ] niezależnie od wszystkich Y i ,
Oznacza to, że musi być stałym punktem funkcjonalnego L, dla którego
Usuń frakcję , mnożąc obie strony przez t . Ponieważ prawa strona jest całką, możemy ją rozróżnić w odniesieniu do t , dawania
Odpowiednio, po odjęciu i podzieleniu obu stron przez t ,
dla . Możemy rozszerzyć to o ciągłość, aby uwzględnić t = 0 . Ze stanu początkowego (3) C ( 0 ) = 1 The unikalne rozwiązanie
W związku z tym według (4) ograniczające oczekiwanie wynosi f ( 1 ) = e - 1 = 1 / e , QED.
Ponieważ Mathematica wydaje się być popularnym narzędziem do badania tego problemu, oto kod Mathematica do obliczania i kreślenia dla małych n . Wykres f 1 , f 2 , f 3 , f 4 pokazuje szybką zbieżność z e - t (pokazaną jako czarny wykres).
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}]
Aktualizacja
Myślę, że to bezpieczny zakład, że odpowiedź to . Sprawdziłem całki dla oczekiwanej wartości od n = 2 do n = 100 za pomocą Mathematica i przy n = 100 otrzymałem
0.367879441171442321595523770161567628159853507344458757185018968311538556667710938369307469618599737077005261635286940285462842065735614
(do 100 miejsc po przecinku). Odwrotność tej wartości jest
2.718281828459045235360287471351873636852026081893477137766637293458245150821149822195768231483133554
Różnica polega na tym, że wzajemność i są
-7.88860905221011806482437200330334265831479532397772375613947042032873*10^-31
Myślę, że to zbyt blisko, ośmielę się powiedzieć, aby być racjonalnym zbiegiem okoliczności.
Mathematica kod w następujący sposób:
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}]
Koniec aktualizacji
To bardziej rozszerzony komentarz niż odpowiedź.
Jeśli pójdziemy drogą brutalnej siły, określając oczekiwaną wartość dla kilku wartości , być może ktoś rozpozna wzór, a następnie będzie w stanie przekroczyć granicę.
Dla mamy oczekiwaną wartość produktu
czyli 96547/259200 lub około 0,3724807098765432.
Jeśli upuszczymy całkę z 0 na 1, otrzymamy wielomian z następującymi wynikami dla n = 1 do n = 6 (i upuściłem indeks dolny, aby rzeczy były nieco łatwiejsze do odczytania):
Jeśli ktoś rozpozna postać współczynników całkowitych, być może może być określony limit (po wykonaniu całkowania od 0 do 1, który został usunięty, aby pokazać leżący u jego podstaw wielomian).
Fajne pytanie. Jako szybki komentarz chciałbym zauważyć, że:
zbiegnie się szybko do 1, więc dla sprawdzania Monte Carlo ustawienie będzie więcej niż załatwienie.
Jeśli , to przez symulację Monte Carlo, jako , .
Poniższy schemat porównuje symulowany pdf Monte Carlo z rozkładem funkcji mocy [tj. Beta (a, 1) pdf)]
... tutaj z parametrem :
(źródło: tri.org.au )
gdzie:
Dopasowanie wygląda całkiem nieźle.
Kod
Oto 1 milion pseudolosowych rysunków produktu (powiedzmy, że ), tutaj za pomocą Mathematica :
data = Table[Times @@ NestList[RandomReal[{#, 1}] &, RandomReal[], 1000], {10^6}];
Średnia próbki wynosi:
Mean[data]
0,367657
Czysto intuicyjnie i na podstawie innej odpowiedzi Rusty'ego myślę, że odpowiedź powinna być taka:
n = 1:1000
x = (1 + (n^2 - 1)/(n^2)) / 2
prod(x)
0.3583668
To tylko intuicja.
Problem z odpowiedzią Rusty polega na tym, że U [1] jest identyczny w każdej symulacji. Symulacje nie są niezależne. Naprawienie tego jest łatwe. Przesuń linię z U[1] = runif(1,0,1)
do wewnątrz pierwszej pętli. Wynik to:
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)
To daje 0.3545284
.