Mari dan , . Apa harapan sebagai ?
Mari dan , . Apa harapan sebagai ?
Jawaban:
Jawabannya memang , seperti yang ditebak dalam balasan sebelumnya berdasarkan simulasi dan perkiraan terbatas.
Solusinya dengan mudah dicapai dengan memperkenalkan urutan fungsi . Meskipun kami bisa segera melanjutkan ke langkah itu, itu mungkin tampak agak misterius. Bagian pertama dari solusi ini menjelaskan bagaimana orang bisa memasak . Bagian kedua menunjukkan bagaimana mereka dieksploitasi untuk menemukan persamaan fungsional yang dipenuhi oleh fungsi pembatas . Bagian ketiga menampilkan perhitungan (rutin) yang diperlukan untuk menyelesaikan persamaan fungsional ini.f n ( t ) f ( t ) = lim n → ∞ f n ( t )
Kita dapat sampai pada hal ini dengan menerapkan beberapa teknik pemecahan masalah matematika standar. Dalam hal ini, di mana beberapa jenis operasi diulangi secara tak terbatas, batas akan ada sebagai titik tetap dari operasi itu. Kuncinya, kemudian, adalah untuk mengidentifikasi operasi.
Kesulitannya adalah perpindahan dari ke terlihat rumit. Lebih mudah untuk melihat langkah ini sebagai yang timbul dari berdampingan ke variabel daripada berdampingan ke variabel . Jika kita menganggap sebagai dibangun seperti yang dijelaskan dalam pertanyaan - dengan didistribusikan secara seragam pada , didistribusikan secara seragam secara kondisional pada , dan seterusnya - kemudian memperkenalkanE [ X 1 X 2 ⋯ X n - 1 X n ] X 1 ( X 2 , … , X n ) X n ( X , 1 ]( X 2 ,X 2 [ 0 X 3 [ X 2 , 1 ] X 1 X i 1 - X 1 1akan menyebabkan setiap salah satu berikutnya untuk mengecilkan dengan faktor menuju batas atas . Alasan ini mengarah secara alami ke konstruksi berikut.
Sebagai masalah awal, karena sedikit lebih mudah untuk mengecilkan angka ke daripada menuju , misalkan . Dengan demikian, didistribusikan secara seragam dalam dan didistribusikan secara seragam dalam bersyarat pada untuk semua Kami tertarik pada dua hal: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 , … .
Nilai pembatas .
Bagaimana nilai-nilai ini berperilaku ketika menyusutkan semua secara seragam menuju : yaitu, dengan menskalakan semuanya dengan beberapa faktor umum , . 0 t
Untuk tujuan ini, tentukan
Jelas setiap didefinisikan dan kontinu (benar-benar terdiferensiasi, sebenarnya) untuk semua nyata . Kami akan fokus pada perilaku mereka untuk . t t ∈ [ 0 , 1 ]
Berikut ini jelas:
Setiap adalah fungsi yang menurun secara monoton dari menjadi .[ 0 , 1 ] [ 0 , 1 ]
untuk semua .
n untuk semua .
Ini menyiratkan bahwa ada untuk semua dan .f ( 0 ) = 1
Perhatikan bahwa, tergantung pada , variabel seragam dalam dan variabel (tergantung pada semua variabel sebelumnya) seragam dalam : yaitu , memenuhi persis kondisi yang dipenuhi oleh . Karena ituY 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 )
Ini adalah hubungan rekursif yang kami cari.
Oleh karena itu dalam batas itu harus menjadi kasus bahwa untuk didistribusikan secara seragam dalam secara independen dari semua ,Y [ 0 , 1 ] Y i
Artinya, harus menjadi titik tetap dari fungsional yang dengannyaL
Kosongkan fraksi dengan mengalikan kedua sisi dengan . Karena sisi kanan adalah bagian yang tidak terpisahkan, kita dapat membedakannya sehubungan dengan , memberit t
Secara ekuivalen, dengan mengurangkan dan membagi kedua sisi dengan ,t
untuk . Kami dapat memperpanjang ini dengan kontinuitas untuk memasukkan . Dengan kondisi awal (3) , solusi uniknya adalaht = 0 f ( 0 ) = 1
Akibatnya, pada (4), harapan membatasi adalah , QED. f ( 1 ) = e - 1 = 1 / e
Karena Mathematica tampaknya menjadi alat yang populer untuk mempelajari masalah ini, di sini adalah kode Mathematica untuk menghitung dan memplot untuk kecil . Plot menampilkan konvergensi cepat ke (ditampilkan sebagai grafik hitam). 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}]
Memperbarui
Saya pikir ini adalah taruhan yang aman bahwa jawabannya adalah . Saya menjalankan integral untuk nilai yang diharapkan dari hingga menggunakan Mathematica dan dengan saya dapatkann = 2 n = 100
0.367879441171442321595523770161567628159853507344458757185018968311538556667710938369307469618599737077005261635286940285462842065735614
(ke 100 tempat desimal). Kebalikan dari nilai itu adalah
2.718281828459045235360287471351873636852026081893477137766637293458245150821149822195768231483133554
Perbedaannya dengan resiprokal dan adalah
-7.88860905221011806482437200330334265831479532397772375613947042032873*10^-31
Saya pikir itu terlalu dekat, berani saya katakan, menjadi kebetulan yang rasional.
The Mathematica kode berikut:
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}]
Akhir pembaruan
Ini lebih merupakan komentar panjang daripada jawaban.
Jika kita menggunakan rute brute force dengan menentukan nilai yang diharapkan untuk beberapa nilai , mungkin seseorang akan mengenali suatu pola dan kemudian dapat mengambil batasan.
Untuk , kami memiliki nilai yang diharapkan dari produk tersebut
yaitu 96547/259200 atau sekitar 0,3724807098765432.
Jika kami menghapus integral dari 0 ke 1, kami memiliki polinomial dalam dengan hasil berikut untuk ke (dan saya telah menjatuhkan subskrip untuk membuat hal-hal sedikit lebih mudah dibaca): nn = 6
Jika seseorang mengenali bentuk koefisien integer, maka mungkin batas sebagai dapat ditentukan (setelah melakukan integrasi dari 0 ke 1 yang dihapus untuk menunjukkan polinomial yang mendasarinya).
Pertanyaan yang bagus Sama seperti komentar singkat, saya akan mencatat bahwa:
akan konvergen ke 1 dengan cepat, jadi untuk pengecekan Monte Carlo, pengaturan akan lebih dari melakukan trik.
Jika , maka dengan simulasi Monte Carlo, seperti , .
Diagram berikut membandingkan pdf simulasi Monte Carlo dari ke distribusi Fungsi Daya [yaitu Beta (a, 1) pdf)]
... di sini dengan parameter :
(sumber: tri.org.au )
dimana:
Pas muncul cukup bagus.
Kode
Berikut adalah 1 juta gambar pseudorandom produk (katakanlah dengan ), di sini menggunakan Mathematica :
data = Table[Times @@ NestList[RandomReal[{#, 1}] &, RandomReal[], 1000], {10^6}];
Sampel rata-rata adalah:
Mean[data]
0,367657
Murni secara intuitif, dan berdasarkan jawaban Rusty yang lain, saya pikir jawabannya harus seperti ini:
n = 1:1000
x = (1 + (n^2 - 1)/(n^2)) / 2
prod(x)
Yang memberi kita 0.3583668
. Untuk setiap , Anda membagi rentang dua, di mana dimulai pada . Jadi ini adalah produk , dll.( a , 1 ) a 0 1 / 2 , ( 1 + 3 / 4 ) / 2 , ( 1 + 8 / 9 ) / 2
Ini hanya intuisi.
Masalah dengan jawaban Rusty adalah bahwa U [1] identik dalam setiap simulasi tunggal. Simulasi tidak independen. Perbaikan untuk ini mudah. Pindahkan garis dengan U[1] = runif(1,0,1)
ke dalam lingkaran pertama. Hasilnya adalah:
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)
Ini memberi 0.3545284
.