WOLFRAM

Wolfram 语言与系统参考资料中心
在两个势垒间移动的粒子

在两个势垒间移动的粒子

两个势垒之间移动的粒子碰撞次数服从指数分布，其均值为3毫秒. 如果粒子从右边的势垒()开始向左边的势垒()移动，模拟100毫秒时间内发生的碰撞过程.

Wolfram Language code: collisionProcess = TelegraphProcess[1 / 3];
Wolfram Language code: sample = RandomFunction[collisionProcess, {0, 100}];
Wolfram Language code: ListLinePlot[sample["Path"], InterpolationOrder -> 0, Filling -> Axis]
切片分布的方差为1：
Wolfram Language code: Variance[collisionProcess[100]]
比较样本的方差：
Wolfram Language code: Variance[RandomVariate[collisionProcess[100], 10 ^ 4]]//N