rawdata <- matrix(scan(file="intel-i7-2640M/memaccess-cpumechanisms", what=numeric(), comment.char="#"), ncol=19, byrow=TRUE)

filename <- "memaccess-i7-2640M-cpumechanisms.svg"
svg(filename, width=8, height=8, pointsize=10)

#xrange <- range (rawdata[,1])
#yrange <- range(c(data[,3], data[,2]))

data <- matrix(c(rawdata[,4], rawdata[,7], rawdata[,10], rawdata[,13], rawdata[,19]), ncol=5)

barplot(data, ylim=c(0,7500), main="Selectively Disabling of CPU Mechanisms", xlab="Memory Access Loops: 128 - Memory Blocks: 64 - Memory Block Size: 32", col=rainbow(7), legend=c("Baseline", "CPUID Invocation", "Branch Prediction Flush", "Pipeline Flush", "TLB Flush", "Cache Flush", "Cache disabled"), names.arg=c("Shannon E.", "Avg Mem Acc Time", "Sigma", "Var. Coeff.", "Hist. Slots"), beside=TRUE, xpd=FALSE)

dev.off()