Let ve , . olarak beklentisi nedir ?X, 1 ~ U [ 0 , 1 ]
Let ve , . olarak beklentisi nedir ?X, 1 ~ U [ 0 , 1 ]
Yanıtlar:
Cevap gerçekten de ,1/e
Çözeltiye, fonksiyonlarının bir dizisi kolayca . Bu adıma hemen geçebilsek de, oldukça gizemli görünebilir. Bu çözümün ilk kısmı kişinin bu nasıl pişirebileceğini açıklar . İkinci bölüm, sınırlama fonksiyonundan memnun olan fonksiyonel bir denklem bulmak için nasıl kullanıldıklarını göstermektedir . Üçüncü bölüm, bu fonksiyonel denklemi çözmek için gerekli (rutin) hesaplamaları göstermektedir.fn:[0,1]→[0,1]
Buna bazı standart matematiksel problem çözme tekniklerini uygulayarak ulaşabiliriz. Bir tür işlemin sonsuz kez yinelendiği bu durumda, sınır söz konusu işlemin sabit bir noktası olarak mevcut olacaktır . O halde anahtar işlemi tanımlamaktır.
Zorluk, dan ' karmaşık görünmesidir. Bu bitişik doğan bu adımı görüntülemek için basit değişkenlerine yerine bitişik daha değişkenlerine . Düşündüğümüz olsaydı söz tarif edildiği gibi inşa edilmiş olarak - ile eşit dağıtılmış [0,1] , X_3 şartlı eşit dağıtılmış [X_2, 1] ve böylece Explorer gibi sonra X_1E[X1X2⋯Xn−1]
Ön konu olarak, sayıları 0
Sınırlayıcı değeri .E[X1X2⋯Xn]=E[(1−Y1)(1−Y2)⋯(1−Yn)]
Tüm küçülen, nasıl bu değerler davranırlar doğru düzgün : Ortak bir faktör tarafından hepsini ölçekleme tarafından olduğunu , .Yi
Bu amaçla tanımlayın
fn(t)=E[(1−tY1)(1−tY2)⋯(1−tYn)].
Açıkça her , tüm gerçek t için tanımlanmış ve süreklidir (gerçekten farklı olabilir) . [0,1] 'deki t \ için davranışlarına odaklanacağız .fn
Aşağıdakiler açıktır:
Her fn(t)
fn(t)>fn+1(t)
fn(0)=1
E(X1X2⋯Xn)=fn(1).
Bunlar , [0,1] ve f (0) = 1'deki tüm t \ için f (t) = \ lim_ {n \ ila \ infty} f_n (t) olduğunu gösterir .f(t)=limn→∞fn(t)
Koşullu bu, dikkate Y1
fn(t)=E[(1−tY1)E[(1−tY2)⋯(1−tYn)|Y1]]=E[(1−tY1)E[(1−tY1Y2Y1)⋯(1−tY1YnY1)|Y1]]=E[(1−tY1)fn−1(tY1)].
Aradığımız özyinelemeli ilişki budur.
Olarak limitte bu nedenle söz konusu durumda olmalıdır muntazam biçimde dağıtılmaktadır , bağımsız bir şekilde her bir ,n→∞
f(t)=E[(1−tY)f(tY)]=∫10(1−ty)f(ty)dy=1t∫t0(1−x)f(x)dx.
Yani, işlevsel için sabit bir nokta olmalıdır.f
L[g](t)=1t∫t0(1−x)g(x)dx.
Fraksiyon temizleyin her iki tarafı çarparak . Sağ taraf bir integral olduğundan, onu göre ayırt edebiliriz ,1/t
f(t)+tf′(t)=(1−t)f(t).
Eşdeğer olarak, çıkarılması ve her iki tarafın da ile bölünmesi üzerine ,f(t)
f′(t)=−f(t)
için . Bunu süreklilikle içerecek şekilde genişletebiliriz . İlk durumda (3) ile , tek çözüm0<t≤1
f(t)=e−t.
Sonuç olarak, (4), sınırlayıcı beklentisi ile olan QED.X1X2⋯Xn
Çünkü Mathematica bu sorunu incelemek için popüler bir araç olarak görünür burada Mathematica hesaplamak için kod ve arsa küçük için . Arsa gösteren, hızlı yakınsama (siyah grafik olarak gösterilmiştir).fn
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}]
Güncelleme
Yanıtın olması güvenli bir bahis olduğunu düşünüyorum . Ben beklenen değeri için integraller ran için kullanılarak Mathematica'yı ile bende1/e
0.367879441171442321595523770161567628159853507344458757185018968311538556667710938369307469618599737077005261635286940285462842065735614
(100 ondalık basamağa kadar). Bu değerin karşılıklılığı
2.718281828459045235360287471351873636852026081893477137766637293458245150821149822195768231483133554
Bu karşılıklı ve ,e
-7.88860905221011806482437200330334265831479532397772375613947042032873*10^-31
Bence bu akılcı bir tesadüf olmaya cesaret edemez.
Mathematica kodu aşağıdaki gibidir:
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}]
Güncelleme sonu
Bu, bir yanıttan ziyade genişletilmiş bir yorumdur.
Birkaç değeri için beklenen değeri belirleyerek bir kaba kuvvet yoluna gidersek , belki birisi bir patern tanıyabilir ve daha sonra bir limit alabilir.n
İçin , ürün varlık beklenen değere sahipn=5
μn=∫10∫1x1∫1x2∫1x3∫1x4x1x2x3x4x5(1−x1)(1−x2)(1−x3)(1−x4)dx5dx4dx3dx2dx1
96547/259200 veya yaklaşık 0.3724807098765432.
İntegrali 0'dan 1'e düşürürsek, ila için aşağıdaki sonuçları içeren bir polinomumuz olur (ve işleri daha kolay okumak için aboneliği bıraktım):x1
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
Birisi tamsayı katsayılarının biçimini tanırsa, olarak bir sınır belirlenebilir (alttaki polinomu göstermek için kaldırılan 0'dan 1'e entegrasyon gerçekleştirildikten sonra).n→∞
Güzel soru. Hızlı bir yorum olarak şunu not ederim:
X n hızla 1'e yakınlaşır, bu nedenle Monte Carlo kontrolü için n = 1000 ayarıhile yapmaktan daha fazla olacaktır.
Eğer Z , n = x 1 x 2 ... x , n , o zaman Monte Carlo simülasyonu ile gibi N → ∞ iken , E [ Z n ] ≈ 0.367 .
Aşağıdaki diyagram, simüle Monte Carlo pdf karşılaştırır Z , n , bir Güç fonksiyonu dağılımı [yani, Beta, (a, 1) pdf)] olarak
f ( z ) = a z a - 1
... burada parametre a = 0.57 ile :
(kaynak: tri.org.au )
nerede:
Uyum oldukça iyi görünüyor.
kod
Burada Mathematica kullanarak Z n ürününün 1 milyon sözde çizimi ( n = 1000 ile ) :
data = Table[Times @@ NestList[RandomReal[{#, 1}] &, RandomReal[], 1000], {10^6}];
Örnek ortalama:
Mean[data]
0.367657
Tamamen sezgisel olarak ve Rusty'nin diğer cevabına dayanarak, cevabın şöyle olması gerektiğini düşünüyorum:
n = 1:1000
x = (1 + (n^2 - 1)/(n^2)) / 2
prod(x)
Hangi bize verir 0.3583668
. Her X için , ( a , 1 ) aralığını ikiye bölersiniz , burada a 0 ile başlar . Bu bir ürünü yani 1 / 2 , ( 1 + 3 / 4 ) / 2 , ( 1 + 8 / 9 ) / 2 , vs.
Bu sadece sezgi.
Rusty'nin cevabı ile ilgili sorun, U [1] 'in her bir simülasyonda aynı olmasıdır. Simülasyonlar bağımsız değildir. Bunun için bir düzeltme kolaydır. İle çizgiyi U[1] = runif(1,0,1)
ilk döngünün içine taşıyın . Sonuç:
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)
Bu verir 0.3545284
.