Anonymous user
Unbias a random generator: Difference between revisions
→{{header|Perl}}: fixed stddev for binomial distr
(→{{header|GAP}}: seems it was not obvious) |
(→{{header|Perl}}: fixed stddev for binomial distr) |
||
Line 308:
return int(rand($n) / ($n - 1));
}
for my $n (3 .. 6) {
print "Bias $n: ";
Line 318:
}
print "@raw, ";
printf("%3g+-%.3g%%\tfixed: ", $raw[0]/100,
100 * sqrt($raw[0] * $raw[1]) / ($raw[0] + $raw[1])**1.5);
print "@fixed, ";
printf("%3g+-%.3g%%\n", 100*$fixed[0]/($fixed[0] + $fixed[1]),
100 * sqrt($fixed[0] * $fixed[1]) / ($fixed[0] + $fixed[1])**1.5);
}</lang>Output:<
Bias 4:
Bias 5:
Bias 6:
=={{header|Perl 6}}==
| |||