That's all for now

This commit is contained in:
Quentin 2019-09-17 01:40:32 +02:00
parent ac8274d3c6
commit 42afaf364e
2 changed files with 9 additions and 4 deletions

View file

@ -5,7 +5,7 @@ library(cowplot)
thunder_ms <- read.csv("thunder_configure_15.csv")
thunder_ms <- sqldf("select run,jmax,links,latency, CAST(latency as real) / 1000. as lat_ms from thunder_ms")
thunder_ms <- sqldf("select run,ident,jmax,links,latency, CAST(latency as real) / 1000. as lat_ms from thunder_ms")
thunder_ms$links <- as.factor(thunder_ms$links)
thunder_ms$jmax <- as.factor(thunder_ms$jmax)
@ -129,12 +129,17 @@ t2 + ggsave("thunder_links.png", dpi=300, dev='png', height=12, width=15, units=
latency_evol <- sqldf(
"
select sorting,lat_ms
select sorting,lat_ms,ident,tm.jmax,tm.links
from
thunder_ms as tm,
(select run,jmax,links,row_number () OVER (ORDER BY run,jmax,links DESC) sorting from thunder_ms group by run,jmax,links ORDER BY links DESC limit 0,3) as sel_run
(select run,jmax,links,row_number () OVER (ORDER BY links DESC) sorting from thunder_ms group by run,jmax,links ORDER BY links DESC limit 0,1) as sel_run
where
tm.run = sel_run.run and tm.jmax = sel_run.jmax and tm.links = sel_run.links
")
latency_evol$sorting <- as.factor(latency_evol$sorting)
ggplot(data=latency_evol, aes(x=ident,y=lat_ms)) +
geom_line() +
theme_classic()

View file

@ -7,7 +7,7 @@ is_measurement_done() {
}
extract_us() {
cat ./out/$1-$2/res/*.csv | perl -i -pe's/^.*Packet (\d+) latency (\d+).*$/$2,$1/'
cat ./out/$1-$2/res/*.csv | grep -P "Packet (\d+) latency (\d+)" | perl -i -pe's/^.*Packet (\d+) latency (\d+).*$/$2,$1/'
}
parse_latency() {