mirror of
https://asciireactor.com/otho/psdlag-agn.git
synced 2024-11-22 08:35:06 +00:00
still figuring out best way to script plotting
This commit is contained in:
parent
7c6f9f2940
commit
34f90f9172
@ -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();
|
||||||
|
Loading…
Reference in New Issue
Block a user