julian.kunkel
/
ddn-ime-evaluation
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Performance overview

This commit is contained in:
Eugen Betke 2018-10-24 18:57:56 +02:00
parent 21fdfa9ebb
commit 3af9993a66
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
benchmark/eval_analysis.R
View File

@ -30,7 +30,7 @@ connection = dbConnect(SQLite(), dbname=file_db)
#dbdata = dbGetQuery(connection,'select * from p where tag=="mpio-individual"') #dbdata = dbGetQuery(connection,'select * from p where tag=="mpio-individual"')
#dbdata = dbGetQuery(connection,'select *, (x*y*z) as blocksize from p where count=8') #dbdata = dbGetQuery(connection,'select *, (x*y*z) as blocksize from p where count=8')
#dbdata = dbGetQuery(connection,'select * from p where count<5') #dbdata = dbGetQuery(connection,'select * from p where count<5')
dbdata = dbGetQuery(connection,'select * from p') dbdata = dbGetQuery(connection,'select * from p where (ppn==1 or ppn=4 or ppn=8) and striping="yes"' )
dbdata[,"blocksize"] = dbdata$tsize dbdata[,"blocksize"] = dbdata$tsize
@ -60,18 +60,18 @@ for (scale in c("linear", "logarithmic")) {
fss = unique(dbdata$fs) fss = unique(dbdata$fs)
for (fs in fss) { for (fs in fss) {
data1 = dbdata[fs == dbdata$fs, ] data1 = dbdata[fs == dbdata$fs, ]
apis = unique(data1$api) #apis = unique(data1$api)
print(fs) print(fs)
for (api in apis) { #for (api in apis) {
data2 = data1[api == data1$api, ] #data2 = data1[api == data1$api, ]
apps = unique(data2$app) apps = unique(data1$app)
print(api) #print(api)
for (app in apps) { for (app in apps) {
data3 = data2[app == data2$app, ] data3 = data1[app == data1$app, ]
iotypes = unique(data3$iotype) iotypes = unique(data3$iotype)
print(app) print(app)
@ -83,7 +83,7 @@ print(iotype)
p = ggplot(data=data, aes(x=nn, y=perf, colour=as.factor(blocksize/1024), group=blocksize), ymin=0) + p = ggplot(data=data, aes(x=nn, y=perf, colour=as.factor(blocksize/1024), group=blocksize), ymin=0) +
#ggtitle("Write") + #ggtitle("Write") +
facet_grid(ppn ~ accesstype + striping, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) + facet_grid(ppn ~ api + accesstype, labeller = labeller(nn = as_labeller(nn_lab), ppn = as_labeller(ppn_lab))) +
xlab("Nodes") + xlab("Nodes") +
ylab("Performance in MiB/s") + ylab("Performance in MiB/s") +
theme(axis.text.x=element_text(angle=90, hjust=0.95, vjust=0.5)) + theme(axis.text.x=element_text(angle=90, hjust=0.95, vjust=0.5)) +
@ -100,10 +100,10 @@ print(iotype)
p = p + scale_y_log10() p = p + scale_y_log10()
} }
filename_eps = sprintf("%s/performance_%s_%s_%s_%s_%s_%s.eps", folder_out, app, fs, api, iotype, "write", scale) filename_eps = sprintf("%s/performance_%s_%s_%s_%s_%s.eps", folder_out, app, fs, iotype, "write", scale)
filename_png = sprintf("%s/performance_%s_%s_%s_%s_%s_%s.png", folder_out, app, fs, api, iotype, "write", scale) filename_png = sprintf("%s/performance_%s_%s_%s_%s_%s.png", folder_out, app, fs, iotype, "write", scale)
ggsave(filename_png, width = 6, height = 10) ggsave(filename_png, width = 10, height = 6)
ggsave(filename_eps, width = 6, height = 10) ggsave(filename_eps, width = 10, height = 6)
#system(sprintf("epstopdf %s", filename_eps)) #system(sprintf("epstopdf %s", filename_eps))
system(sprintf("rm %s", filename_eps)) system(sprintf("rm %s", filename_eps))
@ -134,4 +134,3 @@ print(iotype)
#system(sprintf("rm %s", filename_eps)) #system(sprintf("rm %s", filename_eps))
}}}} }}}}
}