2016-06-15 19:29:00 +00:00
|
|
|
#!/usr/local/bin/perl
|
|
|
|
|
|
2016-06-16 19:44:27 +00:00
|
|
|
use Graphics::GnuplotIF;
|
|
|
|
|
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();
|
