SYS-OSS/FRET-LibAFL
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add hists to plot script

Browse Source
This commit is contained in:
Alwin Berger 2023-01-26 09:47:12 +01:00
parent 35435fbd97
commit 267309b954
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fuzzers/FRET/benchmark/plot_comparison.r
View File

@ -1,14 +1,18 @@
library("mosaic")
args = commandArgs(trailingOnly=TRUE) args = commandArgs(trailingOnly=TRUE)
if (length(args)==0) { if (length(args)==0) {
runtype="sequential" runtype="timedump"
target="g723_enc" target="tacle_rtos"
filename_1="graph.pdf" filename_1=sprintf("%s.png",target)
filename_2=sprintf("%s_maxline.png",target)
filename_3=sprintf("%s_hist.png",target)
} else { } else {
runtype=args[1] runtype=args[1]
target=args[2] target=args[2]
filename_1=sprintf("%s.png",args[2]) filename_1=sprintf("%s.png",args[2])
filename_2=sprintf("%s_maxline.png",args[2]) filename_2=sprintf("%s_maxline.png",args[2])
filename_3=sprintf("%s_hist.png",args[2])
# filename_1=args[3] # filename_1=args[3]
} }
@ -31,6 +35,11 @@ abline(lm(timetrace ~ iter, data=timetrace),col="green")
abline(lm(timetrace ~ iter, data=timetrace_rand),col="magenta") abline(lm(timetrace ~ iter, data=timetrace_rand),col="magenta")
dev.off() dev.off()
png(file=filename_3)
gf_histogram(~ timetrace,data=timetrace, fill="blue") %>%
gf_histogram(~ timetrace,data=timetrace_rand, fill="orange")
dev.off()
# Takes a flat list # Takes a flat list
trace2maxline <- function(tr) { trace2maxline <- function(tr) {
maxline = tr maxline = tr
@ -47,6 +56,6 @@ png(file=filename_2)
# pdf(file=filename_1,width=8, height=8) # pdf(file=filename_1,width=8, height=8)
plot(timetrace[[2]],timetrace[[1]], col="#99bbff", xlab="iters", ylab="wcet", pch='.') plot(timetrace[[2]],timetrace[[1]], col="#99bbff", xlab="iters", ylab="wcet", pch='.')
points(timetrace_rand[[2]],timetrace_rand[[1]], col="#ffbb99", pch='.') points(timetrace_rand[[2]],timetrace_rand[[1]], col="#ffbb99", pch='.')
abline(lm(timetrace ~ iter, data=timetrace),col="green") #abline(lm(timetrace ~ iter, data=timetrace),col="green")
abline(lm(timetrace ~ iter, data=timetrace_rand),col="magenta") #abline(lm(timetrace ~ iter, data=timetrace_rand),col="magenta")
dev.off() dev.off()