mathematica帮我用这个程序编程用蒙特卡洛模拟算这题

以前没怎么用mathematica， 语言不熟悉，if 的结构很怪。。

不过这题手算也很快的！

income 是 举办者的收入

For[k = 0, k < 10, k++,

income = 0

For[i = 0, i < 1000, i++,

S = 0

For[j = 0, j < 10, j++,

S = S + RandomChoice[{10, 5}]

]

If[S == 50 || S == 100, income = income - 100,

If[S == 55 || S == 95, income = income - 10,

If[S == 70 || S == 75 || S == 80, income = income + 1]

]

]

]

Print[income]

]

执行一次结果是

364

367

331

259

307

170

281

367

242

152

mathematica不是随随便便就调用gpu运算。通过OpenCL或CUDA才能掉用。

除了CUDALink中提供了个别的函数可以直接调用外，其他基本都需要手动写，而你是A卡则需要手动写OpenCL的程序，具体直接去帮助里搜索gpu即可，里面有例子，我不会OpenCL你有心情可以自己研究。

我这里N卡就简单用CUDA的来举几个例子。

快慢还是需要看具体用途具体情况，上面几个是1亿次cos计算，下是面点乘。

另外这里这样直接编译cos逆效果>_>~。。。。。不同方法速度明显不同，不能一概而论。

硬件：gtx760 e31230v3

你想对比cpu和gpu还不如去下载一个AIDA64里面不是有一个专门对比cpu和gpu的计算的功能来着。。

以上就是关于mathematica帮我用这个程序编程用蒙特卡洛模拟算这题全部的内容，包括:mathematica帮我用这个程序编程用蒙特卡洛模拟算这题、想要一个最简单的mathematica 调用GPU运算的例程、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！