industry-website/htdocs/examples/process_output.pl

# -*- coding: utf-8 -*-
#!/usr/bin/env perl

# This extracts the gnuplot-ready tables from a psdlag analysis
# and saves them to temporary files. propogate_tables.sh uses this
# script to create the tables it saves to analyses/tables.

use utf8;
use Encode qw(encode decode);
use feature 'say';
use locale;
use Switch;

use constant PI    => 4 * atan2(1, 1);

# Enables various levels of output.
our $verbose=0;
our $debug=0;

if ($debug) { $verbose=1; }

# @ARGV[0] takes the echo wavelength for use in filename
$echo_λ = @ARGV[0];
$ref_λ = "1367A";

# This section locates the output data of interest in a
# psdlab output file.
if (!${^UTF8LOCALE}) {
    say encode($charset,"You are not using UTF-8 encoding. :(");
}
my $charset=$ENV{LANG};


my $echopsd_tabfile="data/tables/psd_${echo_λ}.tab";
my $refpsd_tabfile="data/tables/psd_${ref_λ}.tab";
my $timelag_tabfile="data/tables/lag_${ref_λ}_${echo_λ}.tab";

# This program attempts to fill function_bin with the tabulated
# PSDs and time lags.
our %function_bin = ();

open $freq_file,'<',"freq.out" or die $!;
open $ref_psd_file,'<',"ref_psd.out" or die $!;
open $echo_psd_file,'<',"echo_psd.out" or die $!;
open $crsspctrm_file,'<',"crsspctrm.out" or die $!;
open $timelag_file,'<',"lag.out" or die $!;

=pod

    This section collects the various quantities.

=cut

@bin_bounds = split /\s/,<$freq_file>;
@ref_psd = split /\s/,<$ref_psd_file>;
@ref_psd_σ = split /\s/,<$ref_psd_file>;
@echo_psd = split /\s/,<$echo_psd_file>;
@echo_psd_σ = split /\s/,<$echo_psd_file>;
@crsspctrm_psd = split /\s/,<$crsspctrm_file>;
@crsspctrm_psd_σ = split /\s/,<$crsspctrm_file>;
@timelag = split /\s/,<$timelag_file>;
@timelag_σ = split /\s/,<$timelag_file>;

if ($debug) {
    print encode($charset,"Found bin boundaries: ");
    foreach (@bin_bounds) {print encode($charset,"$_ ");}
    say encode($charset," ");
}
my $count = 0;
my $upper_bound = 0;
my $lower_bound = 0;
foreach (@bin_bounds) {
    $lower_bound = $upper_bound;
    $upper_bound = $_;
    if ($lower_bound == 0) {next}
    my $μ = ($upper_bound + $lower_bound)/2;
    my $Δ = ($upper_bound - $lower_bound)/2;
    #say ($μ,":",$Δ);
    # push(@freq_coords_mean,$μ);
    # push(@freq_coords_σ,$Δ);
    $function_bin{$μ} = {"Δ" => $Δ,
                        "ref_PSD_μ" => $ref_psd[$count],
                        "ref_PSD_σ" => $ref_psd_σ[$count],
                        "echo_PSD_μ" => $echo_psd[$count],
                        "echo_PSD_σ" => $echo_psd_σ[$count],
                        "crsspctrm_μ" => $crosssp_psd[$count],
                        "crsspctrm_σ" => $crosssp_psd_σ[$count],
                        "timelag_μ" => $timelag[$count],
                        "timelag_σ" => $timelag_σ[$count]};
    # $function_bin{$μ}{"φdiff_μ"} = $μ;
    # $function_bin{$μ}{"φdiff_σ"} = $σ;
    # $μ = $μ/(2*PI*$μ);
    # $σ = $σ/(2*PI*$μ);
    $count = $count + 1;
}

close $freq_file;
close $ref_psd_file;
close $echo_psd_file;
close $crsspctrm_file;
close $timelag_file;

$numbins = keys %function_bin;
if ($debug) { say encode($charset,
                "$numbins frequency bins captured in output."); 
}

if($verbose) {
    say encode($charset,"freq μ (lin)  freq σ      ".
                        "ref_PSD_μ      ref_PSD_σ      ".
                        "echo_PSD_μ      echo_PSD_σ      ".
                        "timelag_μ      timelag_σ");

    foreach (sort { $a <=> $b } keys %function_bin) {
        say encode($charset,
            sprintf("%f      %f      %f      %f      %f      ".
                    "%f      %f      %f      ",
                $_,
                $function_bin{$_}{"Δ"},
                $function_bin{$_}{"ref_PSD_μ"},
                $function_bin{$_}{"ref_PSD_σ"},
                $function_bin{$_}{"echo_PSD_μ"},
                $function_bin{$_}{"echo_PSD_σ"},
                $function_bin{$_}{"timelag_μ"},
                $function_bin{$_}{"timelag_σ"}
        ));
    }
}


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,'>',$refpsd_tabfile) or die $!;
while( each %function_bin) {
    say $datafile
        $_ . " " .
        $function_bin{$_}{"ref_PSD_μ"} . " " .
        $function_bin{$_}{"Δ"} . " " .
        $function_bin{$_}{"ref_PSD_σ"};
}
close($datafile);

open($datafile,'>',$echopsd_tabfile) or die $!;
while( each %function_bin) {
    say $datafile
        $_ . " " .
        $function_bin{$_}{"echo_PSD_μ"} . " " .
        $function_bin{$_}{"Δ"} . " " .
        $function_bin{$_}{"echo_PSD_σ"};
}
close($datafile);

# cross spectrum not needed
# open($datafile,'>',"tmp.crsspctrm") or die $!;
# while( each %function_bin) {
#     say $datafile
#         $_ . " " .
#         $function_bin{$_}{"crsspctrm_PSD_μ"} . " " .
#         $function_bin{$_}{"Δ"} . " " .
#         $function_bin{$_}{"crsspctrm_PSD_σ"};
# }
# close($datafile);

open($datafile,'>',$timelag_tabfile) or die $!;
while( each %function_bin) {
    say $datafile
        $_ . " " .
        $function_bin{$_}{"timelag_μ"} . " " .
        $function_bin{$_}{"Δ"} . " " .
        $function_bin{$_}{"timelag_σ"};
}
close($datafile);


#open($datafile,'>',"tmp.echoPSD") or die $!;


open($datafile,'>',"data/tables/cackett_" . $echo_λ . ".tab") or die $!;
say $datafile encode($charset,
    sprintf("#freqmin        freqmax        psd            ".
        "psd error      lag            lag error      "
        ));
foreach ( sort {$a <=> $b} keys %function_bin ) {
    say $datafile encode($charset,
        sprintf("%e   %e   %e   %e   %e   %e",
            ($_ - $function_bin{$_}{"Δ"}), 
            ($_ + $function_bin{$_}{"Δ"}),
            $function_bin{$_}{"echo_PSD_μ"},
            $function_bin{$_}{"echo_PSD_σ"},
            $function_bin{$_}{"timelag_μ"},
            $function_bin{$_}{"timelag_σ"}
        ));
}
close($datafile)