Parent Directory
| 
Revision Log
| 
Patch
| revision 1.2, Tue Apr 20 18:32:51 2010 UTC | revision 1.3, Mon May 17 13:05:46 2010 UTC | |
|---|---|---|
| # | Line 136 | Line 136 |
| 136 | foreach my $peg2 (@$cluster) | foreach my $peg2 (@$cluster) |
| 137 | { | { |
| 138 | my $v = $hash->{$peg1}->{$peg2}; | my $v = $hash->{$peg1}->{$peg2}; |
| 139 | if ((! defined($v)) || ($v < 0.3)) { return 0 } | if ((! defined($v)) || ($v < 0.4)) { return 0 } |
| 140 | $sum += $v; | $sum += $v; |
| 141 | } | } |
| 142 | return (($sum / @$cluster) >= 0.4); | return (($sum / @$cluster) >= 0.7); |
| 143 | } | } |
|
||||||||
| MCS Webmaster | ViewVC Help |
| Powered by ViewVC 1.0.3 |