diff options
| author | Karol Nass <karol.nass@desy.de> | 2013-04-30 14:17:09 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2013-04-30 14:30:54 +0200 |
| commit | 64af7bfd252a42487735a0c7ca7b7f89b2e3ccd3 (patch) | |
| tree | 7a111bc110728a7c8b8ba53a8d96e737d8aa8e58 /scripts/create-xscale | |
| parent | 0cf4e3133b12f0ba1dc9c340d350d0c6bc6d076a (diff) | |
Fix sigma(I) column in create-xscale output
Diffstat (limited to 'scripts/create-xscale')
| -rwxr-xr-x | scripts/create-xscale | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/scripts/create-xscale b/scripts/create-xscale index 5d810f07..d452e8bc 100755 --- a/scripts/create-xscale +++ b/scripts/create-xscale @@ -21,16 +21,15 @@ while ( $line = <FH> ) { chomp($line); - if ( $line =~ /^\s+([0-9]+\-)\s+([0-9]+\-)\s+([0-9]+\-)\s+([0-9\.\-]+)/ ) { + if ( $line =~ /^\s+([0-9]+)\s+([0-9]+)\s+([0-9]+)\s+([0-9\.\-]+)\s+([\-]+)\s+([0-9\.\-]+)/ ) { my $h = $1; my $k = $2; my $l = $3; my $int = $4; + my $sig = $6; - my $err = 179.0 * sqrt(abs($int)/179.0); - - printf("%6i %6i %5i %9.2f %9.2f\n", $h, $k, $l, $int, $err); + printf("%6i %6i %5i %9.2f %9.2f\n", $h, $k, $l, $int, $sig); } } |