砍木棍问题
问题描述
初始时有一根长为
还有一种离散的版本:初始时有一个数字
离散版本
首先考虑一下我们可以手算的问题,记
上面的
其中
原始问题
从离散版本中我们可以估计出答案应该是对数级别的。为了解决这个问题,首先将模型转化一下:每次砍掉随机的长度,可以视为随机一个
也就是:
为了方便,令
不等式两边同时算期望:
而
相关的概率问题
现在来考虑一个扩展的问题:
首先考虑一些特殊的情况:
$n = 1$ 时,显然概率就是$a$ 。$n = 2$ 时,设这两个随机变量分别为$x$ 和$y$ ,那么可以看做在以原点为左下角,坐标$(1, 1)$ 为右上角的正方形中随机投点,问这个点处于$xy = a$ 的图像(即反比例函数)的左下方的概率。由于这个正方形的面积为$1$ ,所以概率就是围出的面积,关于$x$ 积分,即$a + \int_a^1 a / x \ \mathrm{d}x = a - a\ln a$ 。
当
- 若
$z < a$ ,那么$X$ 一定小于$a$ ,这种情况发生的概率为$a$ 。 - 若
$z \geqslant a$ ,那么$X < a \Leftrightarrow X/z < a/z$ ,注意这里$a \leqslant a/z \leqslant 1$ ,并且$X/z$ 是$n - 1$ 个独立随机变量的乘积。依此,我们可以将问题规模缩减。通过关于$z$ 求积分,我们可以求出这种情况的概率为$\int_a^1 P(n - 1, a/z) \ \mathrm{d}z$ 。
综上所述,我们可以归纳出
看上去并不好直接得出
1 2 3 4 5 6 7 8 9 | In[1]:= P[0, a_] := 0 P[n_, a_] := a + Integrate[P[n - 1, a/Subscript[z, n]], {Subscript[z, n], a, 1}, Assumptions -> 0 < a < 1] Table[Expand[P[i, a]], {i, 6}] Out[1]:= {a, a - a Log[a], a - a Log[a] + 1/2 a Log[a]^2, a - a Log[a] + 1/2 a Log[a]^2 - 1/6 a Log[a]^3, a - a Log[a] + 1/2 a Log[a]^2 - 1/6 a Log[a]^3 + 1/24 a Log[a]^4, a - a Log[a] + 1/2 a Log[a]^2 - 1/6 a Log[a]^3 + 1/24 a Log[a]^4 - 1/120 a Log[a]^5} |
Wow!
如果对阶乘比较熟悉,不难发现
为了确认这个结论,数学归纳法应该是个比较好的选择:上面已经验证了
单独考虑积分:
进行换元:令
将结果代回到
所以归纳假设成立。
非常有趣的事情是,这个多项式
又一次与自然常数美妙的邂逅,也难怪它值得配上一个专用符号在各种场合大显身手。
-
代码里面的定积分的积分变量用的是
Subscript[z, n]
,主要原因是 Mathematica 是直接展开函数来计算的,如果使用z
计算,积分变量会不对,因而出来的结果也会不对。 ↩