| Revision 141,
590 bytes
checked in by marcus, 13 years ago
(diff) |
|
r87 | svn | 2009-07-29 15:48:31 +0200 (Mi, 29 Jul 2009) | 1 line
new command proc for gap statistics; updated station info files
|
| Line | |
|---|
| 1 | ! file GAP_DAY_STATISTICS.SHC |
|---|
| 2 | ! ====================== |
|---|
| 3 | ! |
|---|
| 4 | ! version 1, 17-Jul-2009 |
|---|
| 5 | ! |
|---|
| 6 | ! Check a day of data of one channel in chunks of N seconds |
|---|
| 7 | ! K. Stammler, 21-Jul-2009 |
|---|
| 8 | |
|---|
| 9 | default 1 ;; day |
|---|
| 10 | default 2 ;; station |
|---|
| 11 | default 3 bh chan |
|---|
| 12 | default 4 z comp |
|---|
| 13 | default 5 600 chunksize (secs) |
|---|
| 14 | default 6 15 numzeroes |
|---|
| 15 | |
|---|
| 16 | sdef numchunks |
|---|
| 17 | calc i &numchunks = 86400 div #5 |
|---|
| 18 | |
|---|
| 19 | del all |
|---|
| 20 | reads/force db: #1 86400 #2 #4 #3 |
|---|
| 21 | split 1 #5 |
|---|
| 22 | |
|---|
| 23 | sdef cnt 1 |
|---|
| 24 | loop_start: |
|---|
| 25 | if "cnt gti "numchunks goto/forward loop_exit: |
|---|
| 26 | findgap "cnt |gapstat|"cnt|.txt| #6 |
|---|
| 27 | calc i &cnt = "cnt + 1 |
|---|
| 28 | goto loop_start: |
|---|
| 29 | loop_exit: |
|---|
| 30 | |
|---|
| 31 | return |
|---|
Note: See
TracBrowser
for help on using the repository browser.
