summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
65ff7b7)
- my ( $mean_num, $num, $div, $div_sum, $mean_div, $std_div );
+ my ( $mean_num, $num, $dev, $dev_sum, $mean_dev, $std_dev );
$mean_num = mean( $numbers );
$mean_num = mean( $numbers );
foreach $num ( @{ $numbers } )
{
foreach $num ( @{ $numbers } )
{
- $div = ( $num - $mean_num ) ** 2;
+ $dev = ( $num - $mean_num ) ** 2;
- $mean_div = $div_sum / scalar @{ $numbers };
+ $mean_dev = $dev_sum / scalar @{ $numbers };
- $std_div = sqrt( abs( $mean_div ) );
+ $std_dev = sqrt( $mean_dev );