rarias/bscpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

nbody: plot nblocks in test

Browse Source
This commit is contained in:
Rodrigo Arias 2020-10-27 10:49:00 +01:00
parent 7b26b59988
commit 43991e9173
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
garlic/fig/nbody/test.R
View File

@ -22,7 +22,6 @@ df = select(dataset, config.nblocks, config.hw.cpusPerSocket, time) %>%
df = df %>% mutate(blocksPerCpu = nblocks / cpusPerSocket) df = df %>% mutate(blocksPerCpu = nblocks / cpusPerSocket)
df$nblocks = as.factor(df$nblocks) df$nblocks = as.factor(df$nblocks)
df$blocksPerCpuFactor = as.factor(df$blocksPerCpu)
# Normalize the time by the median # Normalize the time by the median
D=group_by(df, nblocks) %>% D=group_by(df, nblocks) %>%
@ -42,10 +41,10 @@ png("box.png", width=w*ppi, height=h*ppi, res=ppi)
# #
# #
# Create the plot with the normalized time vs nblocks # Create the plot with the normalized time vs nblocks
p = ggplot(data=D, aes(x=blocksPerCpuFactor, y=tnorm)) + p = ggplot(data=D, aes(x=nblocks, y=tnorm)) +
# Labels # Labels
labs(x="Blocks/CPU", y="Normalized time", labs(x="Blocks", y="Normalized time",
title=sprintf("Nbody normalized time. Particles=%d", particles), title=sprintf("Nbody normalized time. Particles=%d", particles),
subtitle=input_file) + subtitle=input_file) +
@ -56,13 +55,13 @@ p = ggplot(data=D, aes(x=blocksPerCpuFactor, y=tnorm)) +
#theme_bw() + #theme_bw() +
# Add the maximum allowed error lines # Add the maximum allowed error lines
geom_hline(yintercept=c(-0.01, 0.01), #geom_hline(yintercept=c(-0.01, 0.01),
linetype="dashed", color="red") + # linetype="dashed", color="red") +
# Draw boxplots # Draw boxplots
geom_boxplot() + geom_boxplot() +
scale_y_continuous(breaks = scales::pretty_breaks(n = 10)) + #scale_y_continuous(breaks = scales::pretty_breaks(n = 10)) +
theme_bw() + theme_bw() +
@ -84,17 +83,17 @@ dev.off()
png("scatter.png", width=w*ppi, height=h*ppi, res=ppi) png("scatter.png", width=w*ppi, height=h*ppi, res=ppi)
# #
## Create the plot with the normalized time vs nblocks ## Create the plot with the normalized time vs nblocks
p = ggplot(D, aes(x=blocksPerCpuFactor, y=time)) + p = ggplot(D, aes(x=nblocks, y=time)) +
labs(x="Blocks/CPU", y="Time (s)", labs(x="Blocks", y="Time (s)",
title=sprintf("Nbody granularity. Particles=%d", particles), title=sprintf("Nbody granularity. Particles=%d", particles),
subtitle=input_file) + subtitle=input_file) +
theme_bw() + theme_bw() +
theme(plot.subtitle=element_text(size=8)) + theme(plot.subtitle=element_text(size=8)) +
theme(legend.position = c(0.5, 0.88)) + theme(legend.position = c(0.5, 0.88)) +
geom_point(shape=21, size=3) + geom_point(shape=21, size=3) # +
scale_y_continuous(trans=log2_trans()) #scale_y_continuous(trans=log2_trans())
# Render the plot # Render the plot
print(p) print(p)