mirror of
https://github.com/mollyim/webrtc.git
synced 2025-05-14 22:30:40 +01:00
bb547203bf
In order to eliminate the WebRTC Subtree mirror in Chromium, WebRTC is moving the content of the src/webrtc directory up to the src/ directory. NOPRESUBMIT=true NOTREECHECKS=true NOTRY=true TBR=tommi@webrtc.org Bug: chromium:611808 Change-Id: Iac59c5b51b950f174119565bac87955a7994bc38 Reviewed-on: https://webrtc-review.googlesource.com/1560 Commit-Queue: Mirko Bonadei <mbonadei@webrtc.org> Reviewed-by: Henrik Kjellander <kjellander@webrtc.org> Cr-Commit-Position: refs/heads/master@{#19845}
286 lines
9.7 KiB
Bash
Executable file
286 lines
9.7 KiB
Bash
Executable file
#!/bin/bash
|
|
|
|
# Copyright (c) 2013 The WebRTC project authors. All Rights Reserved.
|
|
#
|
|
# Use of this source code is governed by a BSD-style license
|
|
# that can be found in the LICENSE file in the root of the source
|
|
# tree. An additional intellectual property rights grant can be found
|
|
# in the file PATENTS. All contributing project authors may
|
|
# be found in the AUTHORS file in the root of the source tree.
|
|
|
|
# To set up in e.g. Eclipse, run a separate shell and pipe the output from the
|
|
# test into this script.
|
|
#
|
|
# In Eclipse, that amounts to creating a Run Configuration which starts
|
|
# "/bin/bash" with the arguments "-c [trunk_path]/out/Debug/modules_unittests
|
|
# --gtest_filter=*BweTest* | [trunk_path]/webrtc/modules/
|
|
# remote_bitrate_estimator/test/plot_bars.sh
|
|
|
|
# This script supports multiple figures (windows), the figure is specified as an
|
|
# identifier at the first argument after the PLOT command. Each figure has a
|
|
# single y axis and a dual y axis mode. If any line specifies an axis by ending
|
|
# with "#<axis number (1 or 2)>" two y axis will be used, the first will be
|
|
# assumed to represent bitrate (in kbps) and the second will be assumed to
|
|
# represent time deltas (in ms).
|
|
|
|
log=$(</dev/stdin)
|
|
|
|
# Plot histograms.
|
|
function gen_gnuplot_bar_input {
|
|
x_start=1
|
|
x_end=3.75
|
|
bars=$(echo "$log" | grep "BAR")
|
|
|
|
labels=$(echo "$log" | grep "^LABEL")
|
|
figures=($(echo "$bars" | cut -f 2 | sort | uniq))
|
|
|
|
echo "reset" # Clears previous settings.
|
|
|
|
echo "set title font 'Verdana,22'"
|
|
echo "set xtics font 'Verdana,24'"
|
|
echo "set ytics font 'Verdana,14'"
|
|
echo "set ylabel font 'Verdana,16'"
|
|
|
|
echo "set xrange[$x_start:$x_end]"
|
|
echo "set style fill solid 0.5"
|
|
echo "set style fill solid border -1"
|
|
|
|
declare -a ydist=(11.5 10.5 10.5) # Used to correctly offset the y label.
|
|
i=0
|
|
for figure in "${figures[@]}" ; do
|
|
|
|
echo "set terminal wxt $figure size 440,440 dashed"
|
|
echo "set ylabel offset ${ydist[$i]}, -3"
|
|
(( i++ ))
|
|
|
|
title=$(echo "$labels" | grep "^LABEL.$figure" | cut -f 3 | \
|
|
head -n 1 | sed 's/_/ /g')
|
|
y_label=$(echo "$labels" | grep "^LABEL.$figure" | cut -f 4 | \
|
|
head -n 1 | sed 's/_/ /g')
|
|
|
|
# RMCAT flows.
|
|
num_flows=$(echo "$labels" | grep "^LABEL.$figure" | cut -f 5 | \
|
|
head -n 1)
|
|
|
|
# RMCAT algorithm 1.
|
|
x_label_1=$(echo "$log" | grep "BAR.$figure" | cut -f 3 | sed 's/_/\t/g' \
|
|
| cut -f 1 | sort | uniq | head -n 1 )
|
|
|
|
# RMCAT algorithm 2.
|
|
x_label_2=$(echo "$log" | grep "BAR.$figure" | cut -f 3 | sed 's/_/\t/g' \
|
|
| cut -f 1 | sort | uniq | sed -n 2p)
|
|
|
|
x_labels="('$x_label_1' 2, '$x_label_2' 3)"
|
|
tcp_flow=false
|
|
|
|
tcp_space=0.2 # Extra horizontal space between bars.
|
|
|
|
# Parse labels if there are other flows in addition to RMCAT ones.
|
|
IFS='x' read -ra split_label_1 <<< "$x_label_1"
|
|
|
|
if (( ${#split_label_1[@]} > "1" )); then
|
|
tcp_flow=true
|
|
box_width=$(echo "(1.0-$tcp_space/2)/$num_flows" | bc -l)
|
|
echo "set xtics font 'Verdana,16'"
|
|
x_labels="("
|
|
delimiter=""
|
|
abscissa=$(echo $x_start + 0.5 + 0.5*$box_width | bc)
|
|
for label in "${split_label_1[@]}" ; do
|
|
x_labels+="$delimiter'$label' $abscissa"
|
|
abscissa=$(echo $abscissa + $box_width | bc)
|
|
delimiter=", "
|
|
done
|
|
abscissa=$(echo $abscissa + $tcp_space | bc)
|
|
IFS='x' read -ra split_label_2 <<< "$x_label_2"
|
|
for label in "${split_label_2[@]}" ; do
|
|
x_labels+="$delimiter'$label' $abscissa"
|
|
abscissa=$(echo $abscissa + $box_width | bc)
|
|
done
|
|
x_labels="$x_labels)"
|
|
else
|
|
box_width=$(echo 1.0/$num_flows | bc -l)
|
|
fi
|
|
|
|
echo "set boxwidth $box_width"
|
|
|
|
# Plots can be directly exported to image files.
|
|
file_name=$(echo "$labels" | grep "^LABEL.$figure" | cut -f 5 | head -n 1)
|
|
|
|
y_max=0 # Used to scale the plot properly.
|
|
|
|
# Scale all latency plots with the same vertical scale.
|
|
delay_figure=5
|
|
if (( $figure==$delay_figure )) ; then
|
|
y_max=400
|
|
else # Take y_max = 1.1 * highest plot value.
|
|
|
|
# Since only the optimal bitrate for the first flow is being ploted,
|
|
# consider only this one for scalling purposes.
|
|
data_sets=$(echo "$bars" | grep "LIMITERRORBAR.$figure" | cut -f 3 | \
|
|
sed 's/_/\t/g' | cut -f 1 | sort | uniq)
|
|
|
|
if (( ${#data_sets[@]} > "0" )); then
|
|
for set in $data_sets ; do
|
|
y=$(echo "$bars" | grep "LIMITERRORBAR.$figure.$set" | cut -f 8 | \
|
|
head -n 1)
|
|
if (( $(bc <<< "$y > $y_max") == 1 )); then
|
|
y_max=$y
|
|
fi
|
|
done
|
|
fi
|
|
|
|
data_sets=$(echo "$bars" | grep "ERRORBAR.$figure" | cut -f 3 | \
|
|
sort | uniq)
|
|
if (( ${#data_sets[@]} > "0" )); then
|
|
for set in $data_sets ; do
|
|
y=$(echo "$bars" | grep "ERRORBAR.$figure.$set" | cut -f 6 | \
|
|
head -n 1)
|
|
if (( $(bc <<< "$y > $y_max") == 1 )) ; then
|
|
y_max=$y
|
|
fi
|
|
done
|
|
fi
|
|
|
|
data_sets=$(echo "$bars" | grep "BAR.$figure" | cut -f 3 | sort | uniq)
|
|
|
|
for set in $data_sets ; do
|
|
y=$(echo "$bars" | grep "BAR.$figure.$set" | cut -f 4 | head -n 1)
|
|
if (( $(bc <<< "$y > $y_max") == 1 )) ; then
|
|
y_max=$y
|
|
fi
|
|
done
|
|
|
|
y_max=$(echo $y_max*1.1 | bc)
|
|
fi
|
|
|
|
|
|
echo "set ylabel \"$y_label\""
|
|
echo "set yrange[0:$y_max]"
|
|
|
|
echo "set multiplot"
|
|
|
|
# Plot bars.
|
|
data_sets=$(echo "$bars" | grep "BAR.$figure" | cut -f 3 | sort | uniq)
|
|
|
|
echo "set xtics $x_labels"
|
|
echo "plot '-' using 1:4:2 with boxes lc variable notitle"
|
|
|
|
echo
|
|
|
|
color=11 # Green.
|
|
x_bar=$(echo $x_start + 0.5 + 0.5*$box_width | bc)
|
|
for set in $data_sets ; do
|
|
echo -n "$x_bar $color "
|
|
echo "$bars" | grep "BAR.$figure.$set" | cut -f 3,4
|
|
|
|
# Add extra space if TCP flows are being plotted.
|
|
if $tcp_flow && \
|
|
(( $(bc <<< "$x_bar < $x_start + 1.5 - 0.5*$tcp_space") == 1 )) && \
|
|
(( $(bc <<< "$x_bar + $box_width > $x_start + 1.5 + 0.5*$tcp_space") \
|
|
== 1 )); then
|
|
x_bar=$(echo $x_bar + $tcp_space | bc)
|
|
fi
|
|
|
|
x_bar=$(echo $x_bar + $box_width | bc)
|
|
|
|
if (( $(bc <<< "$x_bar > 2.5") == 1 )) ; then
|
|
color=12 # Blue.
|
|
fi
|
|
# Different bar color for TCP flows:
|
|
if $tcp_flow && \
|
|
(( $(bc <<< "(100*$x_bar)%100 < 50") == 1 ))
|
|
then
|
|
color=18 # Gray.
|
|
fi
|
|
done
|
|
echo "e"
|
|
|
|
# Plot Baseline bars, e.g. one-way path delay on latency plots.
|
|
data_sets=$(echo "$log" | grep "BASELINE.$figure" | cut -f 3 | sort | uniq)
|
|
|
|
if (( ${#data_sets} > "0" )); then
|
|
echo "set xtics $x_labels"
|
|
echo "plot '-' using 1:4:2 with boxes lc variable notitle"
|
|
|
|
echo
|
|
|
|
color=18 # Gray.
|
|
x_bar=$(echo $x_start + 0.5 + 0.5*$box_width | bc)
|
|
for set in $data_sets ; do
|
|
echo -n "$x_bar $color "
|
|
echo "$log" | grep "BASELINE.$figure.$set" | cut -f 3,4
|
|
|
|
# Add extra space if TCP flows are being plotted.
|
|
if $tcp_flow && \
|
|
(( $(bc <<< "$x_bar < $x_start + 1.5 - 0.5*$tcp_space") == 1 )) && \
|
|
(( $(bc <<< "$x_bar + $box_width > $x_start + 1.5 \
|
|
+ 0.5*$tcp_space") == 1 )); then
|
|
x_bar=$(echo $x_bar + $tcp_space | bc)
|
|
fi
|
|
|
|
x_bar=$(echo $x_bar + $box_width | bc)
|
|
|
|
done
|
|
echo "e"
|
|
fi
|
|
|
|
# Plot vertical error lines, e.g. y +- sigma.
|
|
data_sets=$(echo "$bars" | grep "ERRORBAR.$figure" | cut -f 3 | sort | uniq)
|
|
|
|
if (( ${#data_sets} > "0" )); then
|
|
|
|
echo "set key left"
|
|
error_title=$(echo "$bars" | grep "ERRORBAR.$figure" | cut -f 7 | \
|
|
head -n 1 | sed 's/_/ /g')
|
|
|
|
echo "set xtics $x_labels"
|
|
echo "plot '-' using 1:3:4:5 title '$error_title' with yerr"
|
|
|
|
x_error_line=$(echo $x_start + 0.5 + 0.5*$box_width | bc)
|
|
for set in $data_sets ; do
|
|
echo -n "$x_error_line "
|
|
echo "$bars" | grep "ERRORBAR.$figure.$set" | cut -f 3,4,5,6
|
|
|
|
# Add extra space if TCP flows are being plotted.
|
|
if $tcp_flow && \
|
|
(( $(bc <<< "$x_error_line < $x_start + 1.5 - 0.5*$tcp_space") == 1 \
|
|
)) && (( $(bc <<< "$x_error_line + $box_width > $x_start + 1.5 \
|
|
+ 0.5*$tcp_space") == 1 )); then
|
|
x_error_line=$(echo $x_error_line + $tcp_space | bc)
|
|
fi
|
|
|
|
x_error_line=$(echo $x_error_line + $box_width | bc)
|
|
done
|
|
echo "e"
|
|
fi
|
|
|
|
# Plot horizontal dashed lines, e.g. y = optimal bitrate.
|
|
data_sets=$(echo "$bars" | grep "LIMITERRORBAR.$figure" | cut -f 3 \
|
|
| sort | uniq)
|
|
if (( ${#data_sets} > "0" )); then
|
|
|
|
echo "set style line 1 lt 1 lw 3 pt 3 ps 0 linecolor rgb 'black'"
|
|
|
|
limit_titles=$(echo "$bars" | grep "LIMITERRORBAR.$figure" | cut -f 9 \
|
|
| sort | uniq)
|
|
|
|
for title in $limit_titles ; do
|
|
y_max=$(echo "$bars" | grep "LIMITERRORBAR.$figure" | grep "$title" \
|
|
| cut -f 8 | head -n 1)
|
|
|
|
retouched_title=$(echo "$title" | sed 's/#/\t/g' | cut -f 1 \
|
|
| sed 's/_/ /g')
|
|
|
|
echo "set key right top"
|
|
echo "set xtics $x_labels"
|
|
echo "plot $y_max lt 7 lw 1 linecolor rgb 'black' \
|
|
title '$retouched_title'"
|
|
done
|
|
|
|
fi
|
|
|
|
echo "unset multiplot"
|
|
done
|
|
}
|
|
|
|
gen_gnuplot_bar_input | gnuplot -persist
|