Science/psdlag-agn
1
0
Fork 0
mirror of https://asciireactor.com/otho/psdlag-agn.git synced 2025-10-31 23:28:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

developing script to plot psdlag output for mode=0

Browse Source
This commit is contained in:
othocaeS 2016-06-17 11:32:34 -04:00
parent 81a44fad38
commit 2013018284
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
scripts/lc_plot.pl
View File

@ -5,15 +5,33 @@ use Encode qw(encode decode);
use feature 'say';
use locale;
if !${^UTF8LOCALE} {
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 $!;
our $outputfilename=decode($charset,$ARGV[0]);
open $outputfile,'<',$outputfilename or die $!;
my $star_linenum_1=0;
my $star_linenum_2=0;
my $linenum=0;
while(<$outputfile>) {
$linenum++;
if ($_ =~ /^\*+$/) {
$star_linenum_1=$star_linenum_2;
$star_linenum_2 = $linenum;
}
}
say "Final set found between lines ",
$star_linenum_1,
" and ",
$star_linenum_2;
@power_curve_source = [];
@power_curve_reprocessed = [];
@cross__correlation_power_curve = [];
@phase_difference = [];