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

for (block in c(0:5))
{
	data <- rawdata[,c(1,(3*block+2),(3*block+3),(3*block+4))]
	if(block == 0)
	{
		name <- "Shannon Entropy"
		filename <-"shannon-entropy"
		main <- "Shannon Entropy of Memory Access Timing Variations"
		data <- data/1024
	}
	if(block == 1)
	{
		name <- "Timing Delta"
		filename <-"delta"
		main <- "Average of Memory Access Timing Variations"
	}
	if(block == 2)
	{
		name <- "Sigma"
		filename <-"sigma"
		main <- "Standard Variation of Memory Access Timing Variations"
	}
	if(block == 3)
	{
		name <- "Variation Coefficient"
		filename <- "var-coeff"
		main <- "Variation Coefficient of Memory Access Timing Variations"
		data <- data/10000
	}
	if(block == 4)
	{
		name <- "Variation Differences"
		filename <- "switches"
		main <- "Changes in Memory Access Timing Variations Compared to Previous Timing"
	}
	if(block == 5)
	{
		name <- "Used Slots of Histogramm"
		filename <- "slots"
		main <- "Number of Different Memory Access Timings"
	}
	filename <- sprintf("memaccess-i7-2640M-%s.svg", filename)
	svg(filename, width=8, height=5, pointsize=10)

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

	plot(xrange, yrange, type="n", xlab="Number of Memory Access Loops", main=main, ylab=name)
	lines(rawdata[,1], data[,3], type="l", col="blue")
	lines(rawdata[,1], data[,2], type="l", col="blue")
	lines(rawdata[,1], data[,4], type="l", col="red")

	#RNG memory access loops
	abline(v=128, col = "green", lwd = 1)

	#legend("topleft", legend=c("Max/Min", "Mean"), col=c("blue", "red"), pch=c(20, 20), lty=c(1,1), lwd=c(1,1))
	dev.off()
}