Translations:R/32/fr: Difference between revisions

Translations:R/32/fr (view source)

4 bytes added , 6 years ago

J'ai enlevé des espaces et rajouté 2 lignes de code (voir justif. anglaise)

cc_staff

56

edits

@@ Line 1: / Line 1: @@
 <source lang="r">
- #Tell all slaves to return a message identifying themselves.
+#Tell all slaves to return a message identifying themselves.
-  library("Rmpi")
+library("Rmpi")
-  sprintf("TEST mpi.universe.size() =  %i", mpi.universe.size())
+sprintf("TEST mpi.universe.size() =  %i", mpi.universe.size())
-  ns <- mpi.universe.size() - 1
+ns <- mpi.universe.size() - 1
-  sprintf("TEST attempt to spawn %i slaves", ns)
+sprintf("TEST attempt to spawn %i slaves", ns)
-  mpi.spawn.Rslaves(nslaves=ns)
+mpi.spawn.Rslaves(nslaves=ns)
-  mpi.remote.exec(paste("I am",mpi.comm.rank(),"of",mpi.comm.size()))
+mpi.remote.exec(paste("I am",mpi.comm.rank(),"of",mpi.comm.size()))
-  mpi.remote.exec(paste(mpi.comm.get.parent()))
+mpi.remote.exec(paste(mpi.comm.get.parent()))
-  #Send execution commands to the slaves
+#Send execution commands to the slaves
-  x<-5
+x<-5
-  #These would all be pretty correlated one would think
+#These would all be pretty correlated one would think
-  x<-mpi.remote.exec(rnorm,x)
+x<-mpi.remote.exec(rnorm,x)
-  length(x)
+length(x)
-  x
+x
+mpi.close.Rslaves()
+mpi.quit()
 </source>