软件
产品
直接上 mathematica代码
"Monte Carlo积分法（蒙特卡罗积分法）"
monteCarlo[f_, indvar_, m_, a_, b_, n_] :=
Module[{
g, x, xr, yr, area, lim, areaave, y1, y2},
g = f /. indvar -> x;
lim = Length[n];
area = Table[0, {
k, 1, lim}];
For[k = 1, k <= lim, k++,
For[couter = 0; i = 1, i <= n[[k]], i++,
xr = a + (b - a)*RandomReal[];
yr
免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删
技术文档
热门文章
155-2731-8020
