varcila/jungle
1
0
Fork 0
forked from rarias/jungle
Code Pull Requests Activity

saiph: update scaling exp and figures

Browse Source
This commit is contained in:
Sandra
2021-03-12 15:15:53 +01:00
committed by Rodrigo Arias Mallo
parent 8406c1c4e5
commit 46536548ca
8 changed files with 684 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
garlic/fig/saiph/scaling.R
View File

@@ -15,15 +15,22 @@ dataset = jsonlite::stream_in(file(input_file)) %>%
# We only need the nblocks and time
df = select(dataset, config.nby, config.nodes, time, total_time, config.gitCommit) %>%
rename(nby=config.nby, nnodes=config.nodes, gitCommit=config.gitCommit)
#df = select(dataset, config.nbly, config.nodes, time, total_time, config.gitCommit) %>%
# rename(nbly=config.nbly, nnodes=config.nodes, gitCommit=config.gitCommit)
df$nby = as.factor(df$nby)
df = select(dataset, config.nbly, config.nblz, config.nbltotal, config.nodes, time, total_time) %>%
rename(nbly=config.nbly, nblz=config.nblz, nbltotal=config.nbltotal, nnodes=config.nodes)
df$nbly = as.factor(df$nbly)
df$nblz = as.factor(df$nblz)
df$nblPerProc = as.factor(df$nbltotal / 24)
df$nbltotal = as.factor(df$nbltotal)
df$nodes = as.factor(df$nnodes)
df$gitCommit = as.factor(df$gitCommit)
#df$gitCommit = as.factor(df$gitCommit)
# Normalize the time by the median
D=group_by(df, nby, nodes, gitCommit) %>%
#D=group_by(df, nbly, nodes, gitCommit) %>%
D=group_by(df, nbly, nblz, nbltotal, nodes) %>%
mutate(tmedian = median(time)) %>%
mutate(ttmedian = median(total_time)) %>%
mutate(tnorm = time / tmedian - 1) %>%
@@ -33,7 +40,6 @@ D=group_by(df, nby, nodes, gitCommit) %>%
D$bad = as.factor(D$bad)
print(D)
ppi=300
@@ -45,10 +51,10 @@ png("box.png", width=w*ppi, height=h*ppi, res=ppi)
#
#
# Create the plot with the normalized time vs nblocks
p = ggplot(data=D, aes(x=nby, y=tnorm, color=bad)) +
p = ggplot(data=D, aes(x=nbly, y=tnorm, color=bad)) +
# Labels
labs(x="nby", y="Normalized time",
labs(x="nbly", y="Normalized time",
title=sprintf("Saiph-Heat3D normalized time"),
subtitle=input_file) +
@@ -86,9 +92,9 @@ dev.off()
png("scatter.png", width=w*ppi, height=h*ppi, res=ppi)
#
## Create the plot with the normalized time vs nblocks
p = ggplot(D, aes(x=nby, y=time)) +
p = ggplot(D, aes(x=nbltotal, y=time)) +
labs(x="nby", y="Time (s)",
labs(x="nbltotal", y="Time (s)",
title=sprintf("Saiph-Heat3D granularity"),
subtitle=input_file) +
theme_bw() +
@@ -97,8 +103,8 @@ p = ggplot(D, aes(x=nby, y=time)) +
geom_point(aes(color=nodes), shape=21, size=3) +
#scale_x_continuous(trans=log2_trans()) +
scale_y_continuous(trans=log2_trans()) +
facet_wrap( ~ gitCommit)
scale_y_continuous(trans=log2_trans())
# facet_wrap( ~ gitCommit)
# Render the plot
@@ -107,12 +113,37 @@ print(p)
# Save the png image
dev.off()
png("scatter1.png", width=w*ppi, height=h*ppi, res=ppi)
#
## Create the plot with the normalized time vs nblocks
p = ggplot(D, aes(x=nblPerProc, y=time)) +
labs(x="nblPerProc", y="Time (s)",
title=sprintf("Saiph-Heat3D granularity per nodes"),
subtitle=input_file) +
theme_bw() +
theme(plot.subtitle=element_text(size=8)) +
theme(legend.position = c(0.5, 0.5)) +
geom_point(aes(color=nblz), shape=21, size=3) +
#scale_x_continuous(trans=log2_trans()) +
scale_y_continuous(trans=log2_trans()) +
facet_wrap( ~ nodes)
# Render the plot
print(p)
# Save the png image
dev.off()
png("wasted.png", width=w*ppi, height=h*ppi, res=ppi)
#
## Create the plot with the normalized time vs nblocks
p = ggplot(D, aes(x=nby, y=time)) +
p = ggplot(D, aes(x=nbly, y=time)) +
labs(x="nby", y="Time (s)",
labs(x="nbly", y="Time (s)",
title=sprintf("Saiph-Heat3D granularity"),
subtitle=input_file) +
theme_bw() +
@@ -123,8 +154,8 @@ p = ggplot(D, aes(x=nby, y=time)) +
geom_line(aes(y=tmedian, color=nodes, group=nodes)) +
geom_line(aes(y=ttmedian, color=nodes, group=nodes)) +
#scale_x_continuous(trans=log2_trans()) +
scale_y_continuous(trans=log2_trans()) +
facet_wrap( ~ gitCommit)
scale_y_continuous(trans=log2_trans())
# facet_wrap( ~ gitCommit)
# Render the plot
print(p)
@@ -135,9 +166,9 @@ dev.off()
png("test.png", width=w*ppi, height=h*ppi, res=ppi)
#
## Create the plot with the normalized time vs nblocks
p = ggplot(D, aes(x=nby, y=tn)) +
p = ggplot(D, aes(x=nbltotal, y=tn)) +
labs(x="nby", y="Time (s) * nodes",
labs(x="nbltotal", y="Time (s) * nodes",
title=sprintf("Saiph-Heat3D granularity"),
subtitle=input_file) +
theme_bw() +
@@ -146,8 +177,31 @@ p = ggplot(D, aes(x=nby, y=tn)) +
geom_point(shape=21, size=3) +
geom_line(aes(color=nodes, group=nodes)) +
#scale_x_continuous(trans=log2_trans()) +
scale_y_continuous(trans=log2_trans()) +
facet_wrap( ~ gitCommit)
scale_y_continuous(trans=log2_trans())
# facet_wrap( ~ gitCommit)
# Render the plot
print(p)
# Save the png image
dev.off()
png("test1.png", width=w*ppi, height=h*ppi, res=ppi)
#
## Create the plot with the normalized time vs nblocks
p = ggplot(D, aes(x=nblPerProc, y=tn)) +
labs(x="nblPerProc", y="Time (s) * nodes",
title=sprintf("Saiph-Heat3D granularity per nblz blocks"),
subtitle=input_file) +
theme_bw() +
theme(plot.subtitle=element_text(size=8)) +
geom_point(shape=21, size=3) +
geom_line(aes(color=nodes, group=nodes)) +
#scale_x_continuous(trans=log2_trans()) +
scale_y_continuous(trans=log2_trans()) +
facet_wrap( ~ nblz)
# Render the plot
print(p)