Help for this page

Select Code to Download


  1. or download this
    use Math::Libm qw(erf erfc M_SQRT2);
sub compare_bell_curves {
...
  my $p3 = erfc(($upper-$m2)/$sd2/M_SQRT2)/2;
  $p1+$p2+$p3;
}
  2. or download this
    --
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/