Science/psdlag-agn
1
0
Fork 0
mirror of https://asciireactor.com/otho/psdlag-agn.git synced 2024-11-22 01:55:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

finally on right track with perl plotting program. generating gnuplot script and running with system call.

Browse Source
This commit is contained in:
caes 2016-06-17 03:14:30 -04:00
parent 34f90f9172
commit 81a44fad38
3 changed files with 19 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
scripts/extract_power_curve.pl
View File

@ -1,17 +0,0 @@
#!/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();

19
scripts/lc_plot.pl Executable file
View File

@ -0,0 +1,19 @@
#!/usr/local/bin/perl
use utf8;
use Encode qw(encode decode);
use feature 'say';
use locale;
if !${^UTF8LOCALE} {
say "You are not using UTF-8 encoding. :("
}
my $charset=$ENV{LANG};
our $driving_curve_name=decode($charset,$ARGV[0]);
our @reprocessed_curves = [];
while (my $)
our $driving_curve_name=decode($charset,$ARGV[0]);
open $driving_curve_file,$driving_curve_name,< or die $!;

26
scripts/uninstall.pl
View File

@ -1,26 +0,0 @@
#!/usr/local/bin/perl
# uninstall_perl_module.pl from PerlTricks.com
use 5.14.2;
use ExtUtils::Installed;
use ExtUtils::Packlist;
# Exit unless a module name was passed
die ("Error: no Module::Name passed as an argument. E.G.\n\t perl $0 Module::Name\n") unless $#ARGV == 0;
my $module = shift @ARGV;
my $installed_modules = ExtUtils::Installed->new;
# iterate through and try to delete every file associated with the module
foreach my $file ($installed_modules->files($module)) {
print "removing $file\n";
unlink $file or warn "could not remove $file: $!\n";
}
# delete the module packfile
my $packfile = $installed_modules->packlist($module)->packlist_file;
print "removing $packfile\n";
unlink $packfile or warn "could not remove $packfile: $!\n";