<<目次へ

標準偏差を返す関数

-関数の定義

package sd;

sub sd{
        require("C://Perl/function/var.pl");
        my $var=var::var(@_);
        $sd=sqrt($var);
        return($sd);
}
1;

-関数の呼び出し

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