Use candlesticks to represent the actual dispersion of the measures, first

centile and last centile are removed to make it more readable.

tools/perfmodel-display-gnuplot.sh

@@ -16,6 +16,60 @@
 # See the GNU Lesser General Public License in COPYING.LGPL for more details.
 #
 
+
+function compute_mean_and_stddev ()
+{
+
+filenamein=$1
+arch=$2
+filenameout=$3
+
+R --no-save > /dev/null << EOF
+
+table <- read.table("$filenamein")
+
+sizelist <- unique(table[,2])
+
+mins <- c()
+maxs <- c()
+means <- c()
+medians <- c()
+sds <- c()
+firstquarts <- c()
+thirdquarts <- c()
+
+for (size in sizelist)
+{
+	sublist <- table[table[,2]==size,3]
+
+	meanval <- mean(sublist)
+	medianval <- median(sublist)
+	sdval <- sd(sublist)
+	firstquart <- quantile(sublist, 0.25)
+	thirdquart <- quantile(sublist, 0.75)
+	#minval <- min(sublist)
+	minval <- quantile(sublist, 0.01)
+	#maxval <- max(sublist)
+	maxval <- quantile(sublist, 0.99)
+
+	means <- c(means, meanval)
+	medians <- c(medians, medianval)
+	sds <- c(sds, sdval)
+	firstquarts <- c(firstquarts, firstquart)
+	thirdquarts <- c(thirdquarts, thirdquart)
+	mins <- c(mins, minval)
+	maxs <- c(maxs, maxval)
+}
+
+newtable <- data.frame(unique(sizelist), mins, firstquarts, medians, thirdquarts, maxs, means, sds);
+write.table(newtable, file="$filenameout");
+
+EOF
+
+}
+
+
+
 function gnuplot_symbol()
 {
 symbol=$1
@@ -49,20 +103,42 @@ echo "CORE : y = $core_a * size ^ $core_b + $core_c"
 echo "CORE : y = $core_alpha * size ^ $core_beta"
 echo "CORE : debug file $core_debug"
 
+# get the list of the different sizes of the tasks
+cuda_size_list=`cut -f2 $cuda_debug| sort -n |uniq|xargs` 
+core_size_list=`cut -f2 $core_debug| sort -n |uniq|xargs` 
+
+core_debug_data="model_$symbol.core.data"
+cuda_debug_data="model_$symbol.cuda.data"
+
+# In case we want stddev instead of a cloud of points ...
+compute_mean_and_stddev "$core_debug" "core"  "$core_debug_data"
+compute_mean_and_stddev "$cuda_debug" "cuda"  "$cuda_debug_data"
+
+# use .. 
+# 	"$core_debug_data" usi 2:3:4 with errorbars title "core measured" 
+
 gnuplot > /dev/null << EOF
 set term postscript eps enhanced color
 set output "model_$symbol.eps"
 
 set logscale x
 set logscale y
+set key top left box
 
-plot $core_a * ( x ** $core_b ) + $core_c title "core (non linear)" ,\
-	$cuda_a * ( x ** $cuda_b ) + $cuda_c title "cuda (non linear)" ,\
-	"$core_debug" usi 2:3 title "core measured" ,\
-	"$cuda_debug" usi 2:3 title "cuda measured"
+set size 0.75
+set bars 4.0
 
-EOF
+set style line 1 lw 1 linecolor 1 
+set style line 2 lw 2 linecolor 2
+
+plot $core_a * ( x ** $core_b ) + $core_c ls 1 title "core (non linear)" ,\
+	$cuda_a * ( x ** $cuda_b ) + $cuda_c ls 2 title "cuda (non linear)" ,\
+	"$core_debug_data" usi 2:4:3:7:6 with candlesticks  ls 1 title "core measured" whiskerbars ,\
+	"$core_debug_data" usi 2:5:5:5:5 with candlesticks  ls 1 notitle ,\
+	"$cuda_debug_data" usi 2:4:3:7:6 with candlesticks  ls 2  title "cuda measured" whiskerbars ,\
+	"$cuda_debug_data" usi 2:5:5:5:5 with candlesticks  ls 2  notitle
 
+EOF
 }
 
 for symbol in $@