equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T B I N S |
3 # B E A M S T A T S |
4 # doc: Fri Aug 25 15:57:05 2006 |
4 # doc: Fri Aug 25 15:57:05 2006 |
5 # dlm: Thu Feb 21 15:05:40 2008 |
5 # dlm: Tue Mar 4 13:09:14 2014 |
6 # (c) 2006 A.M. Thurnherr |
6 # (c) 2006 A.M. Thurnherr |
7 # uE-Info: 32 57 NIL 0 0 72 0 2 4 NIL ofnI |
7 # uE-Info: 33 64 NIL 0 0 72 0 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Split data file into per-bin time series. |
10 # Split data file into per-bin time series. |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
28 # Feb 13, 2008: - various improvements |
28 # Feb 13, 2008: - various improvements |
29 # Feb 19, 2008: - BUG: division by zero |
29 # Feb 19, 2008: - BUG: division by zero |
30 # BUG: min() did not work with 1st elt undef |
30 # BUG: min() did not work with 1st elt undef |
31 # Feb 21, 2008: - BUG: had forgotten to undo debugging changes |
31 # Feb 21, 2008: - BUG: had forgotten to undo debugging changes |
32 # - removed missing magdecl warning on -b |
32 # - removed missing magdecl warning on -b |
|
33 # Mar 4, 2014: - added support for missing PITCH/ROLL/HEADING |
33 |
34 |
34 # General Notes: |
35 # General Notes: |
35 # - everything (e.g. beams) is numbered from 1 |
36 # - everything (e.g. beams) is numbered from 1 |
36 # - no support for BT data |
37 # - no support for BT data |
37 |
38 |
158 |
159 |
159 print(P "$dta{ENSEMBLE}[$e]->{NUMBER} "); |
160 print(P "$dta{ENSEMBLE}[$e]->{NUMBER} "); |
160 print(P "$dta{ENSEMBLE}[$e]->{DATE} "); |
161 print(P "$dta{ENSEMBLE}[$e]->{DATE} "); |
161 print(P "$dta{ENSEMBLE}[$e]->{TIME} "); |
162 print(P "$dta{ENSEMBLE}[$e]->{TIME} "); |
162 printf(P "%d ",$dta{ENSEMBLE}[$e]->{UNIX_TIME}-$t0); |
163 printf(P "%d ",$dta{ENSEMBLE}[$e]->{UNIX_TIME}-$t0); |
163 print(P "$dta{ENSEMBLE}[$e]->{HEADING} "); |
164 print(P defined($dta{ENSEMBLE}[$e]->{HEADING}) ? "$dta{ENSEMBLE}[$e]->{HEADING} " : 'nan '); |
164 print(P "$dta{ENSEMBLE}[$e]->{PITCH} "); |
165 print(P defined($dta{ENSEMBLE}[$e]->{PITCH}) ? "$dta{ENSEMBLE}[$e]->{PITCH} " : 'nan '); |
165 print(P "$dta{ENSEMBLE}[$e]->{ROLL} "); |
166 print(P defined($dta{ENSEMBLE}[$e]->{ROLL}) ? "$dta{ENSEMBLE}[$e]->{ROLL} " : 'nan '); |
166 print(P "$dta{ENSEMBLE}[$e]->{HEADING_STDDEV} "); |
167 print(P "$dta{ENSEMBLE}[$e]->{HEADING_STDDEV} "); |
167 print(P "$dta{ENSEMBLE}[$e]->{PITCH_STDDEV} "); |
168 print(P "$dta{ENSEMBLE}[$e]->{PITCH_STDDEV} "); |
168 print(P "$dta{ENSEMBLE}[$e]->{ROLL_STDDEV} "); |
169 print(P "$dta{ENSEMBLE}[$e]->{ROLL_STDDEV} "); |
169 print(P "$dta{ENSEMBLE}[$e]->{ADC_XMIT_CURRENT} "); |
170 print(P "$dta{ENSEMBLE}[$e]->{ADC_XMIT_CURRENT} "); |
170 print(P "$dta{ENSEMBLE}[$e]->{ADC_XMIT_VOLTAGE} "); |
171 print(P "$dta{ENSEMBLE}[$e]->{ADC_XMIT_VOLTAGE} "); |