perl:index
Differences
This shows you the differences between two versions of the page.
| Both sides previous revisionPrevious revision | Last revisionBoth sides next revision | ||
| perl:index [2009/10/21 15:08] – tkbletsc | perl:index [2009/12/01 07:32] – tkbletsc | ||
|---|---|---|---|
| Line 25: | Line 25: | ||
| sub sum { my $r=0; for (@_) { $r += $_ }; return $r; } | sub sum { my $r=0; for (@_) { $r += $_ }; return $r; } | ||
| sub avg { return sum(@_)/@_; } | sub avg { return sum(@_)/@_; } | ||
| + | sub stdev { | ||
| + | my $s=0; | ||
| + | my $avg = avg(@_); | ||
| + | foreach (@_){ | ||
| + | $s += ($_ - $avg)**2; | ||
| + | } | ||
| + | return sqrt($s/ | ||
| + | } | ||
| sub limits { | sub limits { | ||
| my $lo = my $hi = $_[0]; | my $lo = my $hi = $_[0]; | ||
perl/index.txt · Last modified: 2010/01/08 13:50 by tkbletsc