Add parse bandwidth

This commit is contained in:
Quentin 2019-09-16 08:54:22 +02:00
parent c6ba30e687
commit 61675ef4ed
3 changed files with 21 additions and 1 deletions

View file

@ -3,7 +3,7 @@ library(sqldf)
library(plyr)
library(cowplot)
thunder_ms <- read.csv("thunder_configure_4_ms.csv")
thunder_ms <- read.csv("thunder_configure_6.csv")
thunder_ms <- sqldf("select run,jmax,links,latency, CAST(latency as real) / 1000. as lat_ms from thunder_ms")
thunder_ms$links <- as.factor(thunder_ms$links)

View file

@ -348,6 +348,10 @@ thunder_configure_2_full_parse:
@. parse_lib.sh && \
parse_thunder thunder_configure_2 27
thunder_configure_2_full_parse_bw:
@. parse_lib.sh && \
parse_thunder_bw thunder_configure_2 27
tor_just_many_latencies:
./run-3 \
16,tor_just_many_latencies . \

View file

@ -33,3 +33,19 @@ parse_thunder() {
done
done
}
parse_thunder_bw() {
echo "run,jmax,links,udp_sent,udp_rcv,cells_sent,cells_rcv"
get_xp $1 | while read r; do
for i in $(seq 0 1 $2); do
links=$(grep -Po "thunder-server \d+" out/$r-$i/info.txt|grep -Po "\d+$")
jmax=$(grep -Po "thunder-server \d+ \d+" out/$r-$i/info.txt|grep -Po "\d+$")
udp_sent=$(grep -Po "udp_sent: \d+" out/$r-$i/log/client-donar-stdout.log|grep -Po "\d+$")
udp_rcv=$(grep -Po "udp_rcv: \d+" out/$r-$i/log/client-donar-stdout.log|grep -Po "\d+$")
cells_sent=$(grep -Po "cells_sent: \d+" out/$r-$i/log/client-donar-stdout.log|grep -Po "\d+$")
cells_rcv=$(grep -Po "cells_rcv: \d+" out/$r-$i/log/client-donar-stdout.log|grep -Po "\d+$")
[ -n "$udp_sent" ] && [ -n "$udp_rcv" ] && [ -n "$cells_sent" ] && [ -n "$cells_rcv" ] && \
echo "$r,$jmax,$links,$udp_sent,$udp_rcv,$cells_sent,$cells_rcv"
done
done
}