>>819
>802が理論値
>806がRでのシミュレーションスクリプト
後は自分でやれよ。