mirror of
https://asciireactor.com/otho/psdlag-agn.git
synced 2024-11-22 07:55:08 +00:00
18 lines
774 B
Perl
Executable File
18 lines
774 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
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();
|