以前没怎么用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运算的例程、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)