quentin/tor_multipath_voip
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Parse in a clever way ;)

Browse source
This commit is contained in:
Quentin 2019-09-17 01:30:43 +02:00
parent 516c50845c
commit ac8274d3c6
2 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
r/thunder_configure.R
View file

@ -127,5 +127,14 @@ v7 <- ggplot(data = downtime_group, aes(x=down_link_count, y=dur)) +
t2 <- plot_grid(v4, v5, v6, v7, labels = c('A', 'B', 'C', 'D'), ncol=2) t2 <- plot_grid(v4, v5, v6, v7, labels = c('A', 'B', 'C', 'D'), ncol=2)
t2 + ggsave("thunder_links.png", dpi=300, dev='png', height=12, width=15, units="cm") t2 + ggsave("thunder_links.png", dpi=300, dev='png', height=12, width=15, units="cm")
latency_evol <- sqldf(
"
select sorting,lat_ms
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
where
tm.run = sel_run.run and tm.jmax = sel_run.jmax and tm.links = sel_run.links
")

4
scripts/parse_lib.sh
View file

@ -7,7 +7,7 @@ is_measurement_done() {
} }
extract_us() { extract_us() {
grep -Po '\d+µs' ./out/$1-$2/res/*.csv | grep -Po '\d+' cat ./out/$1-$2/res/*.csv | perl -i -pe's/^.*Packet (\d+) latency (\d+).*$/$2,$1/'
} }
parse_latency() { parse_latency() {
@ -22,7 +22,7 @@ parse_latency() {
} }
parse_thunder() { parse_thunder() {
echo "run,jmax,links,latency" echo "run,jmax,links,latency,ident"
get_xp $1 | while read r; do get_xp $1 | while read r; do
for i in $(seq 0 1 $2); do for i in $(seq 0 1 $2); do
links=$(grep -Po "thunder-server \d+" out/$r-$i/info.txt|grep -Po "\d+$") links=$(grep -Po "thunder-server \d+" out/$r-$i/info.txt|grep -Po "\d+$")