diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-06-20 04:29:06 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-06-20 04:29:06 +0000 |
| commit | e3e69e0cd2bd1de52257c4cf2739ee6fd668c5cf (patch) | |
| tree | 157856ed84b066edbe574bd1df8550985438e8ba /Echolot | |
| parent | 825b50b586c911daf73a007387c2153b5f6a5f4f (diff) | |
everything > 99.99% is + in v2 stats
Diffstat (limited to 'Echolot')
| -rw-r--r-- | Echolot/Stats.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm index 8938d08..142a4b2 100644 --- a/Echolot/Stats.pm +++ b/Echolot/Stats.pm @@ -1,7 +1,7 @@ package Echolot::Stats; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Stats.pm,v 1.4 2002/06/18 17:22:28 weasel Exp $ +# $Id: Stats.pm,v 1.5 2002/06/20 04:29:06 weasel Exp $ # =pod @@ -22,7 +22,7 @@ use warnings; use Carp qw{cluck}; use constant DAYS => 12; -use constant SECS_PER_DAY => 30 * 60; +use constant SECS_PER_DAY => 3 * 60 * 60; #use constant DAYS => 12; #use constant SECS_PER_DAY => 24 * 60 * 60; @@ -129,7 +129,8 @@ sub build_list2_reliabilitystr($) { for my $day (0 .. DAYS - 1) { substr($str, DAYS - 1 - $day, 1) = (defined $rel->[$day]) ? - (($rel->[$day] == 1) ? + (($rel->[$day] >= 0.9999) ? + #(($rel->[$day] == 1) ? '+' : (int ($rel->[$day]*10))) : '?'; |