perf .sh fin et debut ggplot

exemples/exemple.R

+library(ggplot2)
+
+#!/usr/bin/env Rscript
+args = commandArgs(trailingOnly=TRUE)
+
+df <- read.table("data", sep="\t", header=TRUE)
+head(df)
+df$moyenneMessagesEnAttente <-with(df, nbMessagesEnAttente * 1.0 / nbStations)#/ nbStations)
+
+df$pn <- with(df, proba * nbStations)
+
+head(df)
+
+tail(df)
+
+y_axis <- "Nombre moyen de messages en attente"
+
+titre <- "Aloha avec relance beb, proba = 0.001"#, k=10"
+
+
+p <- ggplot(data=df,
+    aes(x=nbSlots, y=moyenneMessagesEnAttente, colour=factor(pn)))
+    
+#p <- p + geom_point(size=0, alpha=0.1)
+p <- p + geom_smooth()
+p <- p + labs(  x="Slot",
+                y=y_axis,
+                color="p*n",
+                title=titre)
+ggsave(file="name.eps")
+png("myplot.png")
+print(p)
+dev.off()
+
+print(p)
+
+

exemples/plot_pn2.R

+library(ggplot2)
+
+
+df <- read.table("data", sep="\t", header=TRUE)	#lecture d'un csv avec tabulation en séprateur
+
+y_axis <- "Nombre moyen de messages en attente"
+
+titre <- "Aloha avec relance beb, proba = 0.001"
+
+p <- ggplot(data=df,
+    aes(x=nbSlots,			#nom des issues des colonnes de data
+	y=moyenneMessagesEnAttente,
+	colour=factor(pn)))
+    
+p <- p + geom_smooth()
+p <- p + labs(  x="Slot",
+                y=y_axis,
+                color="p*n",
+                title=titre)
+
+# pour sauvegarder une image (différents formats ici)
+ggsave(file="name.eps")
+png("myplot.png")
+print(p)
+dev.off()
+
+print(p)
+
+

renduTP2/perf.sh

 #!/bin/sh
 
-cmd = 
+echo -e "taille\ttemps\tmem\talgo\ttypeTableau\n"
 
-affichage=0
-versionRap=11
-echo -e "iTest\ttaille\ttemps\tmem\talgo\ttypeTableau\tversionRap"
+for taille in 10000 50000 100000 150000 
+    do
+        for typeTableau in 'a' 't' 'i' 'c' 'm'
+            do
+                for algo in 'i' 'r' 'f'
+                    do
+                        res=`(/usr/bin/time -f "%Us,%MMhz" ./main $taille $typeTableau $algo > /dev/null ) 2>&1`
+                        echo -e "$taille\t$res\t$typeTableau\t$algo"
 
-for iTest in `seq 1 3`
-do
-  #taille=$(( `od -An -N4 -tu < /dev/urandom` % 1000000))
-  #taille=1000000
-
-  for algo in 'r' 'f' 'i'
-  do
-    for typeTableau in 'a' 'r' 'i' 'c' 'm'
-      do
-        for taille in 5000 10000 15000 20000 25000 30000
-          do
-              res=`( /usr/bin/time -f "%U\t%M" ../main $taille $typeTableau $algo > /dev/null ) 2>&1`
-              echo -e "$iTest\t$taille\t$res\t$algo\t$typeTableau"
-          done
+                    done
+            done
     done
-  done
-done