andre/blas-benchmarks
1
0
Fork 0
mirror of https://github.com/andre-wojtowicz/blas-benchmarks synced 2024-11-22 13:15:28 +01:00
Code Releases Activity

markdown: urbanek and revolution benchmarks

Browse Source
This commit is contained in:
Andrzej Wójtowicz 2016-05-25 18:46:18 +02:00
parent a2dae4369e
commit 65ab1626d1
1 changed files with 33 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
results.Rmd
View File

@ -143,13 +143,15 @@ for (host in hosts.info$Host)
if (!is.na(host.gpu)) if (!is.na(host.gpu))
cat(paste(" +", host.gpu)) cat(paste(" +", host.gpu))
cat("\n\n") cat("\n\n\n\n")
for (benchmark in BENCHMARKS) for (benchmark in BENCHMARKS)
{ {
if (benchmark != "urbanek") if (benchmark == "gcbd")
next next
cat(paste0("## ", paste(toupper(substring(benchmark, 1,1)), substring(benchmark, 2),sep="", collapse=" "), " benchmark\n\n"))
testnames = benchmark.results %>% testnames = benchmark.results %>%
filter(Benchmark == benchmark) %>% filter(Benchmark == benchmark) %>%
select(Test) %>% select(Test) %>%
@ -170,8 +172,18 @@ for (host in hosts.info$Host)
filter(Host == host & Benchmark == benchmark & filter(Host == host & Benchmark == benchmark &
Test == test) Test == test)
data.to.plot$Library = factor(data.to.plot$Library, data.to.plot = data.to.plot %>%
levels=rev(levels(data.to.plot$Library))) mutate(PerfGain=data.to.plot[which(data.to.plot$Library==LIBRARY.REF), "Time"]/Time)
levels(data.to.plot$Library) = list(
"cuBLAS"="cublas",
"BLIS"="blis",
"MKL"="mkl",
"ATLAS (mt)"="atlas_mt",
"OpenBLAS"="openblas",
"GotoBLAS2"="gotoblas2",
"ATLAS (st)"="atlas_st",
"Netlib"="netlib")
image.path = file.path(IMAGES.DIR, image.path = file.path(IMAGES.DIR,
paste0("img_ph", paste0("img_ph",
@ -180,25 +192,33 @@ for (host in hosts.info$Host)
"_t", i, "_t", i,
".png")) ".png"))
png(image.path, width=500, height=50*nrow(data.to.plot)) cat(paste0("#### ", gsub(" \\(.*\\)", "", test)), "\n\n")
cat("Time in seconds - lower is better\n\n")
png(image.path, width=600, height=50*nrow(data.to.plot))
print(ggplot(data.to.plot, aes(x=Library, y=Time)) + print(ggplot(data.to.plot, aes(x=Library, y=Time)) +
theme_classic() + theme_classic() +
theme( theme(
panel.border = element_blank() panel.border = element_blank(),
axis.title.x=element_blank(),
axis.title.y=element_blank(),
axis.text.x = element_text(colour="grey60"),
axis.ticks.x=element_line(color="grey60"),
axis.ticks.y=element_line(color="grey60")
) + ) +
scale_y_continuous(expand = c(0, 0), scale_y_continuous(expand = c(0, 0),
limits = c(0, 1.12*max(data.to.plot$Time))) + limits = c(0, 1.20*max(data.to.plot$Time))) +
ggtitle(test) +
ylab("Seconds (performance gain)") +
geom_bar(stat="identity", width=.75) + geom_bar(stat="identity", width=.75) +
geom_text(aes(label=round(Time, 2)), hjust=-0.25) +
coord_flip() + coord_flip() +
geom_hline(yintercept = 0) + geom_text(aes(y=Time, x=Library, label=as.character(round(Time, 2))), hjust=-0.25, size=3, colour="grey45") +
geom_vline(xintercept = 0.39) geom_text(aes(y=1.15*max(data.to.plot$Time), x=Library, label=paste0("x", round(PerfGain, 1))), hjust=1, size=4) +
geom_hline(yintercept = 0, color="grey") +
geom_vline(xintercept = 0.4, color="grey") +
annotate("text", x=nrow(data.to.plot)/2, y=1.19*max(data.to.plot$Time), label="Performance gain", angle=-90, hjust=0.6)
) )
dev.off() dev.off()
cat(paste0("![](", image.path, ")\n\n")) cat(paste0("![](", image.path, ")\n\n\n\n"))
} }