diff options
Diffstat (limited to 'TAO/orbsvcs/tests/EC_Multiple/latency.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/EC_Multiple/latency.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/TAO/orbsvcs/tests/EC_Multiple/latency.pl b/TAO/orbsvcs/tests/EC_Multiple/latency.pl index 5cc2bcdba5e..017bbb76bab 100755 --- a/TAO/orbsvcs/tests/EC_Multiple/latency.pl +++ b/TAO/orbsvcs/tests/EC_Multiple/latency.pl @@ -55,14 +55,16 @@ while (<>) { } print "Latency results for $opt_k:\n"; +$s2 = $sum2 - ($sum * $sum) / $n; +$sigma = int(sqrt ( $s2 / ($n - 1) )); print "Minimum: $min,", " Maximum: $max,", " Average: ", int($sum / $n), - " Deviation: ", - int(sqrt (($sum2/$n - ($sum/$n)*($sum/$n)))), "\n"; + " Deviation: ", $sigma, + "\n"; while ( ($key,$value) = each %histo ) { $t = ($key / $opt_r); - print $t, " ", $value / $n, "\n"; + print $t, " ", 100 * $value / $n, "\n"; } |