我的并行计算之旅还在继续。我最初安装
我运行了与以前的问题相同的模拟。回想一下未集群和
Rmpi
时遇到了困难,但我解决了这个问题(我需要sudo apt-get
)。我应该说我正在运行一个带有Ubuntu 10.10的机器。我运行了与以前的问题相同的模拟。回想一下未集群和
SNOW
SOCK集群的系统时间:> system.time(CltSim(nSims=10000, size=100))
user system elapsed
0.476 0.008 0.484
> system.time(ParCltSim(cluster=cl, nSims=10000, size=100))
user system elapsed
0.028 0.004 0.375
现在,使用MPI集群,相对于不使用集群,速度会减慢:
> stopCluster(cl)
> cl <- getMPIcluster()
> system.time(ParCltSim(cluster=cl, nSims=10000, size=100))
user system elapsed
0.088 0.196 0.604
不确定这是否有用,但以下是有关创建的集群的信息:
> cl
[[1]]
$rank
[1] 1
$RECVTAG
[1] 33
$SENDTAG
[1] 22
$comm
[1] 1
attr(,"class")
[1] "MPInode"
[[2]]
$rank
[1] 2
$RECVTAG
[1] 33
$SENDTAG
[1] 22
$comm
[1] 1
attr(,"class")
[1] "MPInode"
attr(,"class")
[1] "spawnedMPIcluster" "MPIcluster" "cluster"
这里发生了什么事情有什么想法吗?感谢您在尝试这些并行化选项时提供的帮助。
诚挚地, Charlie