本文，继续使用Mathematica来进行抛硬币试验。这一次，介绍一下试验的各种矩的概念。
工具/原料
1
电脑
2
Mathematica
方法/步骤
1
期望，是随机变量序列概率的加权平均。比如，抛n次硬币的期望可以表示为：e[n_]:=Total[(#*N[Binomial[n,#]*(1/2)^n])&/@Range[n]]期望是n/2（怎么理解？）。
2
方差考察的是，随机变量与期望的偏离程度：var[n_]:=Total[((#-e[n])^2*N[Binomial[n,#]*(1/2)^n])&/@Range[n]]
3
随机变量的k阶(原点)矩是：ju[n_,k_]:=Total[(#^k*N[Binomial[n,#]*(1/2)^n])&/@Range[n]]
4
随机变量的k阶中心矩是：zxju[n_,k_]:=Total[((#-e[n])^k*N[Binomial[n,#]*(1/2)^n])&/@Range[n]]
5
矩母函数，是用来生成各种原点矩的函数：M[n_]:=1+Sum[t^m*ju[n,m]/m!,{m,1,+Infinity}]下图是进行10次试验的矩母函数。
6
100次试验的矩母函数。M[100]//FullSimplify//TraditionalForm
上一篇：灰太狼怎么画？
下一篇：My cafe 玫瑰茶怎么做