ましょうと、。期待は何ですかなど?X I〜U [ X I - 1、1 ] I = 2 、3 、。。。X 1 X 2 ⋯ X n n → ∞
ましょうと、。期待は何ですかなど?X I〜U [ X I - 1、1 ] I = 2 、3 、。。。X 1 X 2 ⋯ X n n → ∞
回答:
シミュレーションと有限近似に基づいた以前の回答で推測されたように、答えは確かに1 / eです。
溶液は容易に機能の配列を導入することによって到達される。すぐにそのステップに進むことはできますが、かなり不思議に思われるかもしれません。このソリューションの最初の部分では、これらのf n(t )を調理する方法について説明します。2番目の部分は、制限関数によって満たされる関数方程式を見つけるためにどのように活用されるかを示しています。3番目の部分には、この関数方程式を解くために必要な(ルーチン)計算が表示されます。
いくつかの標準的な数学的問題解決手法を適用することでこれに到達できます。ある種の操作が無限に繰り返されるこの場合、制限はその操作の固定小数点として存在します。キーは、操作を識別することです。
難点は、からが複雑に見えることです。このステップは、を変数隣接させるよりもを変数隣接させることから生じると考える方が簡単です。が質問で説明されているように構築されていると考えた場合、はに均一に分布し、は X_2、1に条件付きで均一に分布し、…を導入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後続のすべての原因の一つであろうするための係数で縮小上限に向かって。この推論は自然に次の構成につながります。
予備的な問題として、数値を向かって縮小するよりも向かって縮小する方が少し簡単なので、ます。したがって、はに均一に分布し、はに均一に分布し、すべてのに対してを条件とします 2つのことに興味があります。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 トン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)
どこ:
フィット感はかなり良いようです。
コード
data = Table[Times @@ NestList[RandomReal[{#, 1}] &, RandomReal[], 1000], {10^6}];
サンプルの平均は次のとおりです。
Mean[data]
0.367657
純粋に直感的で、Rustyの他の答えに基づいて、答えは次のようにすべきだと思います。
n = 1:1000
x = (1 + (n^2 - 1)/(n^2)) / 2
prod(x)
0.3583668
これは単なる直観です。
ラスティの答えの問題は、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
ます。