perl Statistics::Descriptive Perl 的统计模块

use strict;
use warnings;
use Statistics::Descriptive;

my @temp=qw/26 25 23 23 26 25 24 26 28 27 26 23 28 26 25 27 27 23 24 25/;

my $stat = Statistics::Descriptive::Full->new();
$stat->add_data(@temp);
my $mean = $stat->mean();#平均值
my $variance = $stat->variance();#方差
my $num = $stat->count();#data的数目
my $standard_deviation=$stat->standard_deviation();#标准差
my $sum=$stat->sum();#求和
my $min=$stat->min();#最小值
my $mindex=$stat->mindex();#最小值的index
my $max=$stat->max();#最大值
my $maxdex=$stat->maxdex();#最大值的index
my $range=$stat->sample_range();#最小值到最大值



print "Number of Values = $numn","Mean = $meann","Variance = $variancen","standard_deviation = $standard_deviationn","sum =$sumn","min =$minn","mindex=$mindexn","max=$maxn","maxdex=$maxdexn","range=$rangen";

C:Windowssystem32cmd.exe /c perl "C:UsersGRCDesktopa.pl"
Number of Values = 20
Mean = 25.35
Variance = 2.66052631578944
standard_deviation = 1.63111198750712
sum =507
min =23
mindex=17
max=28
maxdex=12
range=5
Hit any key to close this window...