still figuring out best way to script plotting

This commit is contained in:
othocaeS 2016-06-16 15:44:27 -04:00
parent 7c6f9f2940
commit 34f90f9172

View File

@ -1,4 +1,17 @@
#!/usr/local/bin/perl #!/usr/local/bin/perl
use PDL::Graphics::Gnuplot; use Graphics::GnuplotIF;
gplot( xvals(5)**2 ); my $plot = Graphics::GnuplotIF->new (
style => 'histogram', # one of the gnuplot line styles (see below)
title => "$mytitle", # string
xlabel => '$myxlabel', # string
ylabel => '$myylabel', # string
xrange => [@myxrange], # array reference; autoscaling, if empty
yrange => [@myyrange], # array reference; autoscaling, if empty
plot_titles => [ "$titles" ], # array of strings; titles used in the legend
persist => 0, # let plot windows survive after gnuplot exits
# 0 : close / 1 : survive
);
$plot_glacier->gnuplot_plot_xy ( \@x, \@y );
$plot_glacier->gnuplot_pause();