Algorithm-RandomPointGenerator

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

examples/bb1.csv
examples/bb2.csv
examples/hist1.csv
examples/hist2.csv
examples/genRand2D
examples/generate_random_points.pl
examples/output_histogram_for_hist1.png
examples/output_histogram_for_hist2.png
examples/README
lib/Algorithm/RandomPointGenerator.pm
Makefile.PL
MANIFEST			This list of files
README
t/test.t
META.yml                                 Module YAML meta-data (added by MakeMaker)
META.json                                Module JSON meta-data (added by MakeMaker)

examples/README  view on Meta::CPAN

to get started:

    hist1.csv   bb1.csv

    hist2.csv   bb2.csv    

If you run the generate_random_points.pl script for the hist1.csv and bb1.csv
files, the histogram you get for the 2000 random point generated by the module
is likely to look like what you see in the file

    output_histogram_for_hist1.png 

On a Linux machine, you can see this histogram with the usual `display' command
from the ImageMagick library.  And if you run generate_random_points.pl script
for the hist2.csv and bb2.csv files, you'll see an output histogram that should
look like what you see in 

    output_histogram_for_hist2.png

You should also try making the command-line calls:

    enRand2D --histfile hist1.csv --bbfile bb1.csv

    enRand2D --histfile hist2.csv --bbfile bb2.csv

lib/Algorithm/RandomPointGenerator.pm  view on Meta::CPAN

    my $x_right = $self->{_bounding_box}->[0][1];
    my $y_lower = $self->{_bounding_box}->[1][0];
    my $y_upper = $self->{_bounding_box}->[1][1];
my $argstring = <<"END";
set xrange [$x_left:$x_right]
set yrange [$y_lower:$y_upper]
set pm3d
splot "$temp_file" with pm3d
END
    unless (defined $pause_time) {
        my $hardcopy_name =  "output_histogram_for_$master_file_basename.png";
        my $plot1 = Graphics::GnuplotIF->new();
        $plot1->gnuplot_cmd( 'set terminal png', "set output \"$hardcopy_name\"");    
        $plot1->gnuplot_cmd( $argstring );
        my $plot2 = Graphics::GnuplotIF->new(persist => 1);
       $plot2->gnuplot_cmd( $argstring );
    } else {
        my $plot = Graphics::GnuplotIF->new();
        $plot->gnuplot_cmd( $argstring );
        $plot->gnuplot_pause( $pause_time );
    }
}

lib/Algorithm/RandomPointGenerator.pm  view on Meta::CPAN

The C<examples> directory contains the following histogram and bounding-box files
for you to get started:

    hist1.csv   bb1.csv

    hist2.csv   bb2.csv    

If you run the C<generate_random_points.pl> script with the C<hist1.csv> and
C<bb1.csv> files, the histogram you get for the 2000 random points generated by the
module will look like what you see in the file C<output_histogram_for_hist1.png>.  On
a Linux machine, you can see this histogram with the usual C<display> command from
the ImageMagick library.  And if you run C<generate_random_points.pl> script with the
C<hist2.csv> and C<bb2.csv> files, you'll see an output histogram that should look
like what you see in C<output_histogram_for_hist2.png>.

You should also try invoking the command-line calls:

    genRand2D --histfile hist1.csv --bbfile bb1.csv

    genRand2D --histfile hist2.csv --bbfile bb2.csv


=head1 REQUIRED