mirror of
https://asciireactor.com/otho/psdlag-agn.git
synced 2024-11-25 01:05: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
|
||||
|
||||
use PDL::Graphics::Gnuplot;
|
||||
gplot( xvals(5)**2 );
|
||||
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();
|
||||
|
Loading…
Reference in New Issue
Block a user