source: SH_SHM/trunk/command/GAP_DAY_STATISTICS.SHC @ 141

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
9default 1 ;;  day
10default 2 ;;  station
11default 3 bh  chan
12default 4 z   comp
13default 5 600 chunksize (secs)
14default 6 15  numzeroes
15
16sdef numchunks
17calc i &numchunks = 86400 div #5
18
19del all
20reads/force db: #1 86400 #2 #4 #3
21split 1 #5
22
23sdef cnt 1
24loop_start:
25   if "cnt gti "numchunks  goto/forward loop_exit:
26   findgap "cnt |gapstat|"cnt|.txt| #6
27   calc i &cnt = "cnt + 1
28goto loop_start:
29loop_exit:
30
31return
Note: See TracBrowser for help on using the repository browser.