removed conversion scripts, not needed

This commit is contained in:
caes 2017-08-03 13:44:04 -04:00
parent 7227557bfe
commit 235410a4d8
2 changed files with 0 additions and 46 deletions

View File

@ -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;

View 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