aboutsummaryrefslogtreecommitdiff
path: root/scripts/double-hit
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2010-04-30 12:06:16 +0200
committerThomas White <taw@physics.org>2010-04-30 12:06:16 +0200
commitde6236aa87ddc0dbdcdca6e25bcd0a0534507b0c (patch)
tree394dcf698f98d08820ca96b9df8171cccb0e35b4 /scripts/double-hit
parentf0cab41a28bf5da5e922e4c86fa3a08f3bfccdc5 (diff)
double-hit: Improvements to date format and update for new statistics
Diffstat (limited to 'scripts/double-hit')
-rwxr-xr-xscripts/double-hit48
1 files changed, 20 insertions, 28 deletions
diff --git a/scripts/double-hit b/scripts/double-hit
index a3d4eb07..c0e51d36 100755
--- a/scripts/double-hit
+++ b/scripts/double-hit
@@ -15,42 +15,32 @@ while ( $line = <FH> ) {
$filename = basename($1);
}
- if ( $line =~ /^Peak\ statistics:\ (\d+)\ .*\ (\d+)\ .*\ (\d+)\ / ) {
+ if ( $line =~ /^Peak\ statistics:\ (\d+)\ .*\ (\d+)\ .*\ (\d+)\ .*\ (\d+)\ / ) {
- my $found = $1;
- my $close = $2;
+ my $foundclose = $1;
+ my $found = $2;
+ my $indclose = $3;
my $hits = $3;
- $filename =~ /LCLS_(\d+)_([A-Za-z]+)(\d+)_r\d+_(\d+)_/;
+ $filename =~ /LCLS_(\d+)_([A-Za-z]+)(\d+)_r\d+_(\d\d)(\d\d)(\d\d)_/;
my $year = $1;
my $month = $2;
my $day = $3;
- my $time = $4;
-
- # Yeah, I know.
- if ( $month eq "Jan" ) { $month = "01"; }
- if ( $month eq "Feb" ) { $month = "02"; }
- if ( $month eq "Mar" ) { $month = "03"; }
- if ( $month eq "Apr" ) { $month = "04"; }
- if ( $month eq "May" ) { $month = "05"; }
- if ( $month eq "Jun" ) { $month = "06"; }
- if ( $month eq "Jul" ) { $month = "07"; }
- if ( $month eq "Aug" ) { $month = "08"; }
- if ( $month eq "Sep" ) { $month = "09"; }
- if ( $month eq "Oct" ) { $month = "10"; }
- if ( $month eq "Nov" ) { $month = "11"; }
- if ( $month eq "Dec" ) { $month = "12"; }
+ my $hour = $4;
+ my $min = $5;
+ my $sec = $6;
my $div;
if ( $close > 0 ) {
- $div = $found / $close;
+ $div = $found / $foundclose;
} else {
$div = 0.0;
}
- printf(OFH "%s%s%s%s %f\n", $year, $month, $day, $time,
- $div);
+ printf(OFH "%s/%s/%s-%s:%s:%s %f\n", $year, $month, $day,
+ $hour, $min, $sec,
+ $div);
}
}
@@ -59,12 +49,14 @@ close(FH);
close(OFH);
open(GP, "| gnuplot");
-printf(GP "set term postscript enhanced font \"Helvetica,20\"\n");
-printf(GP "set output \"doublehit.ps\"\n");
-printf(GP "set xtics nomirror out rotate by -60\n");
-print(GP "set format x \"%15.0f\"\n");
-printf(GP "unset key\n");
-printf(GP "plot [] [1:4] \"doublehit.dat\" u 1:2 w points\n");
+print(GP "set term postscript enhanced font \"Helvetica,20\"\n");
+print(GP "set output \"doublehit.ps\"\n");
+print(GP "set xtics nomirror out rotate by -60\n");
+print(GP "set xdata time\n");
+print(GP "set timefmt \"%Y/%b/%d-%H:%M:%S\"\n");
+print(GP "set format x \"%d/%b %H:%M\"\n");
+print(GP "unset key\n");
+print(GP "plot [] [0:5] \"doublehit.dat\" u 1:2 w points\n");
close(GP);
system("ps2pdf doublehit.ps");