mirror of
https://asciireactor.com/otho/cloudy-agn.git
synced 2024-12-05 02:35: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