mirror of
https://asciireactor.com/otho/cloudy-agn.git
synced 2024-12-05 02:25:08 +00:00
removed conversion scripts, not needed
This commit is contained in:
parent
7227557bfe
commit
235410a4d8
@ -1,30 +0,0 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use utf8;
|
||||
use Encode qw(encode decode);
|
||||
|
||||
use feature 'say';
|
||||
use locale;
|
||||
|
||||
use constant PI => 4 * atan2(1, 1);
|
||||
|
||||
if (!${^UTF8LOCALE}) {
|
||||
say encode($charset,"You are not using UTF-8 encoding. :(");
|
||||
}
|
||||
my $charset=$ENV{LANG};
|
||||
|
||||
my $table_input_filename=$ARGV[0];
|
||||
#my $table_output_filename=$argv[1] or die $!;
|
||||
|
||||
open $ryd_file,'<',$table_input_filename or die $!;
|
||||
|
||||
while( my $line = <$ryd_file>) {
|
||||
my ($rydbergs, $sed1, $sed2) = split ' ', $line;
|
||||
say encode($charset,
|
||||
sprintf("%e %e %e",
|
||||
$rydbergs*13.60569253,
|
||||
$sed1,
|
||||
$sed2));
|
||||
}
|
||||
|
||||
close $ryd_file;
|
@ -1,16 +0,0 @@
|
||||
#!/bin/bash
|
||||
|
||||
# This script converts a cloudy incident continuum's photon
|
||||
# energy unit from Rydberg to eV. Best if continuum is
|
||||
# parsed to a raw table, first. Photon energy needs to be
|
||||
# in the first column. The bash program bc is required.
|
||||
|
||||
|
||||
|
||||
while read -r rydbergs sed1 sed2
|
||||
do
|
||||
# 1 Ryd = 13.60569253 eV
|
||||
eV=$(bc <<< "$rydbergs * 13.60569253")
|
||||
echo "$eV $sed1 $sed2"
|
||||
done
|
||||
|
Loading…
Reference in New Issue
Block a user