[Swift-commit] r4195 - SwiftApps/SwiftR/Swift/tests

[noreply at svn.ci.uchicago.edu]

Author: tga
Date: 2011-03-17 17:42:38 -0500 (Thu, 17 Mar 2011)
New Revision: 4195

Modified:
   SwiftApps/SwiftR/Swift/tests/param_size.R
Log:
Improved param size test graphs.


Modified: SwiftApps/SwiftR/Swift/tests/param_size.R
===================================================================
--- SwiftApps/SwiftR/Swift/tests/param_size.R	2011-03-17 19:20:44 UTC (rev 4194)
+++ SwiftApps/SwiftR/Swift/tests/param_size.R	2011-03-17 22:42:38 UTC (rev 4195)
@@ -41,6 +41,17 @@
 
 loc <- subset(anl, server=="local")
 ssh <- subset(anl, server=="ssh")
-plot(x=ssh$arr.bytes, y=ssh$time, col='red', ylab="time", xlab="Argument size (bytes)")
-points(x=loc$arr.bytes, y=loc$time)
-
+plot(x=ssh$arr.bytes/1024, y=ssh$time, col='red', ylab="Time (s)", xlab="Argument size (bytes)",
+#    log="xy", ylim=c(0.1, 500),
+    xaxt="n")
+title(main="Effect of argument size on execution time", line=2)
+title(main="Execution time of identity function with one function invocation per core", line=1, font.main=4, cex.main=0.8)
+axis(1, at=ssh$arr.bytes/1024, 
+        labels=lapply(ssh$arr.bytes,
+        function (n) { if (n >= 1024*1024) {sprintf("%dM", n/(1024*1024))}
+                    else if (n >= 1024 ) {sprintf("%dK", n/1024)}
+                        else {sprintf("%d", n)}})
+    )
+points(x=loc$arr.bytes/1024, y=loc$time)
+legend("topleft", legend=c("Local (4 cores)", "Ssh (4 hosts, 1 core per host)"), 
+        fill=c("black", "red"))