Stem-and-leaf plot/Data generator: Difference between revisions
Stem-and-leaf plot/Data generator (view source)
Revision as of 02:49, 14 December 2009
, 14 years agoShould produce a bell curve distribution for each hump, now.
(No newlines.) |
(Should produce a bell curve distribution for each hump, now.) |
||
Line 12:
return @a;}
# The greater your pointcount to your width, the more
sub genhump
{
Line 18:
my $width = shift;
my $pointcount = shift;
my $slope = shift;
my $diecount = $slope;
my $range = $width / $diecount;
my @ret;
push @ret, (int(rand($width)+$offset))▼
{
▲ while(($pointcount--) > 0);
my $point = $offset;
for(my $roll = 0; $roll < $diecount; ++$roll)
{
$point += rand($range * 10000) / 10000;
}
}
return @ret;
Line 28 ⟶ 40:
my @list = ();
push @list, &genhump(
push @list, &genhump(
my @shuffled = &shuffle(@list);
| |||