mirror of
https://asciireactor.com/otho/psdlag-agn.git
synced 2024-11-22 09:35:08 +00:00
completely rewrote power_lag_plot.pl due to input misunderstanding. phases take in any negative signs.
This commit is contained in:
caes
parent
743e8bb245
commit
9055ee9b6e
@ -6,12 +6,13 @@ use feature 'say';
|
|||||||
use locale;
|
use locale;
|
||||||
use Switch;
|
use Switch;
|
||||||
|
|
||||||
|
use constant PI => 4 * atan2(1, 1);
|
||||||
|
|
||||||
# Enables debug output.
|
# Enables debug output.
|
||||||
our $debug=0;
|
our $debug=1;
|
||||||
|
|
||||||
|
|
||||||
# This section locate the output data of interest in a
|
# This section locates the output data of interest in a
|
||||||
# psdlab output file.
|
# psdlab output file.
|
||||||
if (!${^UTF8LOCALE}) {
|
if (!${^UTF8LOCALE}) {
|
||||||
say encode($charset,"You are not using UTF-8 encoding. :(");
|
say encode($charset,"You are not using UTF-8 encoding. :(");
|
||||||
@ -61,161 +62,182 @@ if ($debug) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
# These arrays store the various quantities of interest.
|
|
||||||
@freq_coords_mean = [];
|
|
||||||
@freq_coords_err = [];
|
|
||||||
@arr_power_curve_source_mean = [];
|
|
||||||
@arr_power_curve_source_err = [];
|
|
||||||
@arr_power_curve_reprocessed_mean = [];
|
|
||||||
@arr_power_curve_reprocessed_err = [];
|
|
||||||
@arr_cross_correlation_power_curve_mean = [];
|
|
||||||
@arr_cross_correlation_power_curve_err = [];
|
|
||||||
@arr_phase_difference_mean = [];
|
|
||||||
@arr_phase_difference_err = [];
|
|
||||||
@arr_time_lag_mean = [];
|
|
||||||
@arr_time_lag_err = [];
|
|
||||||
|
|
||||||
# This captures the frequency bins.
|
# This captures the frequency bins.
|
||||||
|
our %function_bin = ();
|
||||||
|
|
||||||
my $upper_bound = 0;
|
my $upper_bound = 0;
|
||||||
my $lower_bound = 0;
|
my $lower_bound = 0;
|
||||||
foreach (@bin_bounds) {
|
foreach (@bin_bounds) {
|
||||||
$lower_bound = $upper_bound;
|
$lower_bound = $upper_bound;
|
||||||
$upper_bound = $_;
|
$upper_bound = $_;
|
||||||
if ($lower_bound == 0) {next}
|
if ($lower_bound == 0) {next}
|
||||||
my $mean = ($upper_bound + $lower_bound)/2;
|
my $μ = ($upper_bound + $lower_bound)/2;
|
||||||
my $err = ($upper_bound - $lower_bound)/2;
|
my $Δ = ($upper_bound - $lower_bound)/2;
|
||||||
#say ($mean,":",$err);
|
#say ($μ,":",$Δ);
|
||||||
push(@freq_coords_mean,$mean);
|
# push(@freq_coords_mean,$μ);
|
||||||
push(@freq_coords_err,$err);
|
# push(@freq_coords_err,$Δ);
|
||||||
|
$function_bin{$μ} = {"Δ" => $Δ};
|
||||||
}
|
}
|
||||||
|
|
||||||
$numbins = scalar @freq_coords_mean;
|
$numbins = keys %function_bin;
|
||||||
say encode($charset,"$numbins frequency boundaries captured.");
|
say encode($charset,"$numbins frequency bins captured in output.");
|
||||||
|
|
||||||
|
if($debug) {
|
||||||
# This section collects the various quantities. The mode counter
|
while (each %function_bin ) {
|
||||||
# increments to designate the data being captured.
|
say encode($charset,$_ . " => " . $function_bin{$_}{"Δ"});
|
||||||
my $mode=0;
|
|
||||||
while (<$outputfile>) {
|
|
||||||
next if $_ =~ /\*+/;
|
|
||||||
switch ($mode) {
|
|
||||||
case 0 {
|
|
||||||
our $power_curve_source_mean = my $power_curve_source_err = $_;
|
|
||||||
$power_curve_source_mean =~ s/^([\-\+e0-9\.]+)+\s+[\-\+e0-9\.]+\s*$/$1/;
|
|
||||||
$power_curve_source_err =~ s/^[\-\+e0-9\.]+\s+([\-\+e0-9\.]+)\s*$/$1/;
|
|
||||||
if ($debug) {
|
|
||||||
say encode($charset,"");
|
|
||||||
say encode($charset," New Bin");
|
|
||||||
say encode($charset,"─────────────────────────────────────────────────");
|
|
||||||
print encode($charset,"Driving light curve power from $_");
|
|
||||||
say encode($charset,"Average: $power_curve_source_mean, Err: $power_curve_source_err");
|
|
||||||
}
|
}
|
||||||
push(@arr_power_curve_source_mean,$power_curve_source_mean);
|
|
||||||
push(@arr_power_curve_source_err,$power_curve_source_err);
|
|
||||||
$mode++;
|
|
||||||
}
|
|
||||||
case 1 {
|
|
||||||
my $power_curve_reprocessed_mean = my $power_curve_reprocessed_err = $_;
|
|
||||||
$power_curve_reprocessed_mean =~ s/^([\-\+e0-9\.]+)+\s+[\-\+e0-9\.]+\s*$/$1/;
|
|
||||||
$power_curve_reprocessed_err =~ s/^[\-\+e0-9\.]+\s+([\-\+e0-9\.]+)\s*$/$1/;
|
|
||||||
if ($debug) {
|
|
||||||
print encode($charset,"Reprocessed light curve power from $_");
|
|
||||||
say encode($charset,"Average: $power_curve_reprocessed_mean, Err: $power_curve_reprocessed_err");
|
|
||||||
}
|
|
||||||
push(@arr_power_curve_reprocessed_mean,$power_curve_reprocessed_mean);
|
|
||||||
push(@arr_power_curve_reprocessed_err,$power_curve_reprocessed_err);
|
|
||||||
$mode++;
|
|
||||||
}
|
|
||||||
case 2 {
|
|
||||||
my $cross_correlation_power_curve_mean = my $cross_correlation_power_curve_err = $_;
|
|
||||||
$cross_correlation_power_curve_mean =~ s/^([\-\+e0-9\.]+)+\s+[\-\+e0-9\.]+\s*$/$1/;
|
|
||||||
$cross_correlation_power_curve_err =~ s/^[\-\+e0-9\.]+\s+([\-\+e0-9\.]+)\s*$/$1/;
|
|
||||||
if ($debug) {
|
|
||||||
print encode($charset,"Cross-Correlation from $_");
|
|
||||||
say encode($charset,"Average: $cross_correlation_power_curve_mean, Err: $cross_correlation_power_curve_err");
|
|
||||||
}
|
|
||||||
push(@arr_cross_correlation_power_curve_mean,$cross_correlation_power_curve_mean);
|
|
||||||
push(@arr_cross_correlation_power_curve_err,$cross_correlation_power_curve_err);
|
|
||||||
$mode++;
|
|
||||||
}
|
|
||||||
case 3 {
|
|
||||||
my $phase_difference_mean = my $phase_difference_err = $_;
|
|
||||||
$phase_difference_mean =~ s/^([\-\+e0-9\.]+)\s+[\-\+e0-9\.]+\s*$/$1/;
|
|
||||||
$phase_difference_err =~ s/^[\-\+e0-9\.]+\s+([\-\+e0-9\.]+)\s*$/$1/;
|
|
||||||
if ($debug) {
|
|
||||||
print encode($charset,"Phase different from $_");
|
|
||||||
say encode($charset,"Average: $phase_difference_mean, Err: $phase_difference_err");
|
|
||||||
}
|
|
||||||
push(@arr_phase_difference_mean,$phase_difference_mean);
|
|
||||||
push(@arr_phase_difference_err,$phase_difference_err);
|
|
||||||
my %freqrecord = ( "arr_power_curve_source_mean" => arr_power_curve_source_mean);
|
|
||||||
$mode = 0;
|
|
||||||
}
|
|
||||||
} # End switch
|
|
||||||
}
|
}
|
||||||
|
|
||||||
$numvals = scalar @arr_power_curve_source_mean;
|
|
||||||
say encode($charset,"Retrieved $numvals sets of quantities.");
|
|
||||||
|
|
||||||
# This section builds the records
|
|
||||||
foreach(@freq_coords_mean) {
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
open($datafile,'>',"tmp.sourcePSD") or die $!;
|
|
||||||
open($datafile,'>',"tmp.reprocPSD") or die $!;
|
|
||||||
|
|
||||||
# foreach(@freq_coords_mean)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
=pod
|
=pod
|
||||||
Tried to set up the program to find the boundaries on its own.
|
|
||||||
Should return to complete the program this way; just a syntax
|
|
||||||
problem.
|
|
||||||
|
|
||||||
#while (<$outputfile>) {say $_;}
|
This section collects the various quantities. The mode counter
|
||||||
#while (<$outputfile> =~ /^[^#]+(.*)$/) {}
|
increments to designate the data being captured.
|
||||||
#if (eof($outputfile)) {
|
|
||||||
# say encode($charset,"Could not scrape values of energy bin boundaries.");
|
|
||||||
# exit 9;
|
|
||||||
#}
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
|
if ($debug) {
|
||||||
|
say encode($charset,"");
|
||||||
|
say encode($charset,
|
||||||
|
" New Curve -- Source PSD");
|
||||||
|
say encode($charset,
|
||||||
|
"─────────────────────────────────────────────────────────");
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach ( sort { $a <=> $b } keys %function_bin ) {
|
||||||
|
my $μ = my $σ = <$outputfile>;
|
||||||
|
$μ =~ s/^([\-\+e0-9\.]+)+\s+[\-\+e0-9\.]+\s*$/$1/;
|
||||||
|
$σ =~ s/^[\-\+e0-9\.]+\s+([\-\+e0-9\.]+)\s*$/$1/;
|
||||||
|
if ($μ<0) {
|
||||||
|
$μ = abs($μ);
|
||||||
|
$function_bin{$_}{"φdiff_μ"} = PI;
|
||||||
|
}
|
||||||
|
$function_bin{$_}{"source_PSD_μ"} = $μ;
|
||||||
|
$function_bin{$_}{"source_PSD_σ"} = $σ;
|
||||||
|
if ($debug) {
|
||||||
|
say encode($charset,
|
||||||
|
"freq = " . sprintf('%f',$_) . ": μ = " . $μ . "; σ = " . $σ);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($debug) {
|
||||||
|
say encode($charset,"");
|
||||||
|
say encode($charset,
|
||||||
|
" New Curve -- Reprocessed PSD");
|
||||||
|
say encode($charset,
|
||||||
|
"─────────────────────────────────────────────────────────");
|
||||||
|
}
|
||||||
|
foreach ( sort { $a <=> $b } keys %function_bin ) {
|
||||||
|
my $μ = my $σ = <$outputfile>;
|
||||||
|
$μ =~ s/^([\-\+e0-9\.]+)+\s+[\-\+e0-9\.]+\s*$/$1/;
|
||||||
|
$σ =~ s/^[\-\+e0-9\.]+\s+([\-\+e0-9\.]+)\s*$/$1/;
|
||||||
|
if ($μ<0) {
|
||||||
|
$μ = abs($μ);
|
||||||
|
$function_bin{$_}{"φdiff_μ"} = PI;
|
||||||
|
}
|
||||||
|
$function_bin{$_}{"reproc_PSD_μ"} = $μ;
|
||||||
|
$function_bin{$_}{"reproc_PSD_σ"} = $σ;
|
||||||
|
if ($debug) {
|
||||||
|
say encode($charset,
|
||||||
|
"freq = " . sprintf('%f',$_) . ": μ = " . $μ . "; σ = " . $σ);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if ($debug) {
|
||||||
|
say encode($charset,"");
|
||||||
|
say encode($charset,
|
||||||
|
" New Curve -- Cross-Correlation PSD");
|
||||||
|
say encode($charset,
|
||||||
|
"─────────────────────────────────────────────────────────");
|
||||||
|
}
|
||||||
|
foreach ( sort { $a <=> $b } keys %function_bin ) {
|
||||||
|
my $μ = my $σ = <$outputfile>;
|
||||||
|
$μ =~ s/^([\-\+e0-9\.]+)+\s+[\-\+e0-9\.]+\s*$/$1/;
|
||||||
|
$σ =~ s/^[\-\+e0-9\.]+\s+([\-\+e0-9\.]+)\s*$/$1/;
|
||||||
|
if ($μ<0) {
|
||||||
|
$μ = abs($μ);
|
||||||
|
$function_bin{$_}{"φdiff_μ"} = PI;
|
||||||
|
}
|
||||||
|
$function_bin{$_}{"cc_PSD_μ"} = $μ;
|
||||||
|
$function_bin{$_}{"cc_PSD_σ"} = $σ;
|
||||||
|
if ($debug) {
|
||||||
|
say encode($charset,
|
||||||
|
"freq = " . sprintf('%f',$_) . ": μ = " . $μ . "; σ = " . $σ);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($debug) {
|
||||||
|
say encode($charset,"");
|
||||||
|
say encode($charset,
|
||||||
|
" New Curve -- Phase Difference φ");
|
||||||
|
say encode($charset,
|
||||||
|
"─────────────────────────────────────────────────────────");
|
||||||
|
}
|
||||||
|
foreach ( sort { $a <=> $b } keys %function_bin ) {
|
||||||
|
my $μ = my $σ = <$outputfile>;
|
||||||
|
$μ =~ s/^([\-\+e0-9\.]+)+\s+[\-\+e0-9\.]+\s*$/$1/;
|
||||||
|
$σ =~ s/^[\-\+e0-9\.]+\s+([\-\+e0-9\.]+)\s*$/$1/;
|
||||||
|
if (exists $function_bin{$_}{"φdiff_μ"}) {
|
||||||
|
$μ = $function_bin{$_}{"φdiff_μ"} + $μ;
|
||||||
|
}
|
||||||
|
$function_bin{$_}{"φdiff_μ"} = $μ;
|
||||||
|
$function_bin{$_}{"φdiff_σ"} = $σ;
|
||||||
|
if ($debug) {
|
||||||
|
say encode($charset,
|
||||||
|
"freq = " . sprintf('%f',$_) . ": μ = " . $μ . "; σ = " . $σ);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
say encode($charset,"");
|
||||||
|
|
||||||
|
if($debug) {
|
||||||
|
while (each %function_bin ) {
|
||||||
|
print encode($charset,$_ . ": ");
|
||||||
|
while ( my ($key,$value) = each %{$function_bin{$_}} ) {
|
||||||
|
print encode($charset,$key . " => " . $value . "; ");
|
||||||
|
}
|
||||||
|
say encode($charset,"");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
close($outputfile);
|
||||||
|
|
||||||
|
open($datafile,'>',"tmp.sourcePSD") or die $!;
|
||||||
|
while( each %function_bin) {
|
||||||
|
say $datafile
|
||||||
|
$_ . " " .
|
||||||
|
$function_bin{$_}{"source_PSD_μ"} . " " .
|
||||||
|
$function_bin{$_}{"Δ"} . " " .
|
||||||
|
$function_bin{$_}{"source_PSD_σ"};
|
||||||
|
}
|
||||||
|
close($datafile);
|
||||||
|
|
||||||
|
open($datafile,'>',"tmp.reprocPSD") or die $!;
|
||||||
|
while( each %function_bin) {
|
||||||
|
say $datafile
|
||||||
|
$_ . " " .
|
||||||
|
$function_bin{$_}{"reproc_PSD_μ"} . " " .
|
||||||
|
$function_bin{$_}{"Δ"} . " " .
|
||||||
|
$function_bin{$_}{"reproc_PSD_σ"};
|
||||||
|
}
|
||||||
|
close($datafile);
|
||||||
|
|
||||||
|
open($datafile,'>',"tmp.ccPSD") or die $!;
|
||||||
|
while( each %function_bin) {
|
||||||
|
say $datafile
|
||||||
|
$_ . " " .
|
||||||
|
$function_bin{$_}{"cc_PSD_μ"} . " " .
|
||||||
|
$function_bin{$_}{"Δ"} . " " .
|
||||||
|
$function_bin{$_}{"cc_PSD_σ"};
|
||||||
|
}
|
||||||
|
close($datafile);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#open($datafile,'>',"tmp.reprocPSD") or die $!;
|
||||||
#$thing = <$outputfile>;
|
|
||||||
#say encode($charset,"$thing");
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
# switch ($val) {
|
|
||||||
# case 1 { print encode($charset,"number 1" )}
|
|
||||||
# case "a" { print encode($charset,"string a" )}
|
|
||||||
# case [1..10,42] { print encode($charset,"number in list" )}
|
|
||||||
# case (@array) { print encode($charset,"number in list" )}
|
|
||||||
# case /\w+/ { print encode($charset,"pattern" )}
|
|
||||||
# case qr/\w+/ { print encode($charset,"pattern" )}
|
|
||||||
# case (%hash) { print encode($charset,"entry in hash" )}
|
|
||||||
# case (\%hash) { print encode($charset,"entry in hash" )}
|
|
||||||
# case (\&sub) { print encode($charset,"arg to subroutine" )}
|
|
||||||
# else { print encode($charset,"previous case not true" )}
|
|
||||||
# }
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user