<<目次へ

分散を返す関数

-関数の定義

package var;

sub var{
        require("C://Perl/function/mean.pl");
        my $mean=mean::mean(@_);
        my $n=@_;
        my $sum=0;
        for($i=0;$i<$n;$i++){
                $sum+=($_[$i]-$mean)**2;
        }
        $var=$sum/($n-1);
        return($var);
}
1;

-関数の呼び出し

@dat=(1,2,3,4,5,6,7,8,9,10);
require("C://Perl/function/var.pl");
$x=var::var(@dat);
print $x;