Cool.
Here's one result: http://www.eskimo.com/~ghawk/temp/randplot.png
Here's what I had to do:
D:\PERL\_myStuff>ppm install Chart-Plot
Installing package 'Chart-Plot'...
Bytes transferred: 13610
Installing D:\Perl\html\site\lib\Chart\Plot.html
Installing D:\Perl\site\lib\Chart\Plot.pm
Writing D:\Perl\site\lib\auto\Chart\Plot\.packlist
D:\PERL\_myStuff>ppm install gd
Installing package 'gd'...
Bytes transferred: 225001
Installing D:\Perl\site\lib\auto\GD\GD.bs
Installing D:\Perl\site\lib\auto\GD\GD.dll
Installing D:\Perl\site\lib\auto\GD\GD.exp
Installing D:\Perl\site\lib\auto\GD\GD.lib
Installing D:\Perl\html\site\lib\GD.html
Installing D:\Perl\site\lib\GD.pm
Installing D:\Perl\site\lib\qd.pl
Installing D:\Perl\site\lib\auto\GD\autosplit.ix
Writing D:\Perl\site\lib\auto\GD\.packlist
D:\PERL\_myStuff>randplot.pl
File gets created... D:\PERL\_myStuff\randplot.png
File randplot.pl contents...
#!perl
use Chart::Plot;
my $img = Chart::Plot->new(400,400);
my @data;
for (1..10000) { push @data, rand() }
$img->setData (\@data, 'black noline points');
open (WR,'>randplot.png') or die ("Failed to write file: $!");
binmode WR;
print WR $img->draw();
close WR;
`randplot.png`;
__END__
Another way to determine how randomly the rand() function is working is to plot
it sorted. A bad random function might predominate in a particular area, so
you want to see a straight diagonal line in this case, meaning the results are
spread throughout the range. Here's what it looks like with @data = sort
@data:
http://www.eskimo.com/~ghawk/temp/randplotsorted.png
Gary
> -----Original Message-----
> From: Wagner-David [mailto:[EMAIL PROTECTED]]
> Sent: Sunday, January 13, 2002 9:20 PM
> To: 'Roger C Haslock'; Gary Hawkins
> Cc: [EMAIL PROTECTED]
> Subject: RE: rand() function
>
>
> Worked just like stated. I missed that you were pushing on
> @data and used @dataset when going to the img. After I changed that
> and reran, it gave me the graph desired.
>
> It was as easy as stated.
> Thanks.
>
> Wags ;)
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
