让和,。作为的期望是什么?
让和,。作为的期望是什么?
Answers:
答案确实是,正如之前基于模拟和有限逼近的答复所猜测的那样。
通过引入函数的序列,很容易得出解决方案。尽管我们可以立即进行此步骤,但它似乎很神秘。此解决方案的第一部分说明了如何准备这些。第二部分说明如何利用它们来找到由极限函数满足的函数方程。第三部分显示解决此功能方程式所需的(常规)计算。˚F Ñ(吨)˚F (吨)= LIM ñ → ∞ ˚F Ñ(吨)
我们可以通过应用一些标准的数学问题解决技术来达到这一目的。在这种情况下,如果无限次重复某种操作,则该限制将作为该操作的固定点存在。然后,关键是识别操作。
困难在于从到看起来很复杂。将这一步骤看成是将与变量相连而不是将与变量相连所引起的。如果我们考虑将构造为问题中所述的结构均匀分布在,有条件均匀分布在,依此类推-然后介绍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 我1 - X 1 1将导致随后的每一个到通过的收缩因子朝向上限。这种推理自然会导致以下结构。
首先,由于将数字向收缩比向收缩更简单,因此让。因此,均匀分布在和均匀地分布在条件上对于所有 我们对两件事感兴趣:1 Ÿ 我 = 1 - X 我ÿ 1 [ 0 ,1 ] ÿ 我+ 1 [ 0 ,ÿ 我 ] (Ý 1,ÿ 2,... ,ÿ 我)我= 1 ,2 ,3 ,... 。
的限制值。
当将所有均一地缩小到时,这些值的行为:也就是说,将它们全部按某个公因子缩放,即。 0 吨0 ≤ 吨≤ 1
为此,定义
显然,对于所有实数,每个都是定义且连续的(实际上是无限可微的)。我们将关注的行为。吨吨∈ [ 0 ,1 ]
以下是显而易见的:
每个是从到的单调递减函数。[ 0 ,1 ] [ 0 ,1 ]
n对于所有。
n对于所有。
这些暗示对于所有和。吨∈ [ 0 ,1 ] ˚F (0 )= 1
请注意,以为条件,变量在是一致的,而变量(以所有先前变量为条件)在中是一致的: ,精确满足满足的条件。 所以Ÿ 2 / ÿ 1 [ 0 ,1 ] ÿ 我+ 1 / ÿ 1 [ 0 ,ÿ 我/ ÿ 1 ] (ý 2 / ÿ 1,ÿ 3 / ÿ 1,... ,ÿ Ñ / Ý 1)(Y 1,… ,Y n − 1)
这是我们一直在寻找的递归关系。
因此,在的极限中,必须保证均匀地分布在,与所有无关,ÿ [ 0 ,1 ] ÿ 我
也就是说,必须是函数的固定点,为此大号
通过将两边乘以清除分数。因为右手边是整数,所以我们可以相对于微分,得到吨吨
等效地,在减去并将两边都除以,t
为。我们可以将此连续性扩展为包括。在初始条件(3),唯一解为吨= 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
我敢说,这太接近了,不能说是理性的巧合。
该数学代码如下:
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的积分后被去除以显示基础多项式)。
好问题。作为快速评论,我要指出:
n = 1000将迅速收敛到1,因此对于蒙特卡洛检查,将设置将比实际完成更多。
如果,则通过蒙特卡洛模拟,作为,。
下图将的模拟蒙特卡洛pdf与幂函数分布[即Beta(a,1)pdf)进行了比较
...这里参数:
(来源:tri.org.au)
哪里:
契合度看起来不错。
码
这是产品一百万个伪随机图(例如),这里使用Mathematica:
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
。对于每个,您都将范围分成两半,其中从开始。因此,它是等的乘积。(一,1 )一个0 1 / 2 ,(1 + 3 / 4 )/ 2 ,(1 + 8 / 9 )/ 2
这只是直觉。
Rusty答案的问题在于,在每个模拟中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
。