Select Code to Download

sub int_gen_curve
{
...
        return 1 / ( sqrt( 2 * $pi * $sdev * $sdev ))
                * exp( -($x-$mean)*($x-$mean) / ( 2 * $sdev * $sdev ))
+;
}

sub compare_bell_curves
my ($self,$m1,$sd1,$m2,$sd2) = @_;
...
# do the above again for the $m2 and $sd2
# then subtract $data1 from $data, any $data->[x]
# that remains positive is a point of difference