Rev Author Line No. Line
3052 kaklik 1 ;Josef Szylar ver 1.2 - 30.1.2013
2 ;PODMÍNKA JEN 80 ZNAKŮ
3 ;PŘÍKAZY JEN 255 ZNAKŮ
4  
5 ;Časovače
6 ;timer0 - časovač maximální mezery mezi 2 meteory K_max_time_btw_met
7 ;timer3 - časovač pro odpočet screenshotu bez meteoru K_max_time_to_scr
8 ;timer4 - časovač pro odečet screenshotu s meteorem po odvalení několika málo sekund aby nebyl meteor moc nahoře
9  
10 ;Proměnné:
11 ;n=0 noise background šum pozadí
12 ;n_1=0 šum v okamžiku detekce meteoru
13 ;f=0 frequency of maximum amplitude frekvence na které se nachází maximum
14 ;aver_amp=0 average amplitude +- 100 Hz průměrná aplituda v rozsahu +- 100Hz od maxima
15 ;aver_amp_1=-999 je average amplitude aktualizovaná v průběhu měření meteoru
16 ;aver_amp_max=-999 je maximální hodnota z hodnot v průběhu měření meteoru
17 ;mag=0 magnitude
18 ;hour_count=0 count of meteors in hour
19 ;strenght_count=0 strenght (souborné hodinové počítadlo délky aktivity meteorů počítadlo 50ms) do RMOB_Dur
20 ;dur_count=0 maximální délka meteoru (count po dobu existence meteoru)
21 ;dur_count_1=0 pomocný k uchování hodnoty dur_count
22 ;dur_count_strenght=0 cout trvání meteoru po celou dobu
23 ;t0=0 průběžný čas a datum (aktualizace každých 50ms) v textové formě "YYYYMMDDhh"
24 ;t0_1 uložený čas pro jméno datového souboru k odeslaní ftp po uplynulé hodině
25 ;t1=0 čas start aktuální meteor v UNIX timestamp formě
26 ;t1_1=0 uložený čas pro zápis do RMOB_dur souboru value:event
27 ;t1_2=0 uložený čas pro odesílání "no meteor" screenshotu
28 ;t2=0 průběžný čas hour (hodnota průběžné hodiny) v textové formě "hh"
29 ;t3=0 průběžný čas hodiny minuty a vteřiny v textové formě "mmss"
30 ;t4=0 čas meteoru s nejdelší dobou aktivity (násobek K_int_cond * dur_count)
31 ;id_met=0 identifikátor meteoru do screenshotu
32  
33 ;Konstanty:
34 ;K_station_name="JOSY_A" station name (devices code - 7 characters maximum, only "A-Z" and "_" - get your unique station code on http://home.robozor.cz)
35 ;K_path základní lokální adresář
36 ;K_path_scr vložit lokální adresář pro screenshoty
37 ;K_path_audio vložit lokální adresář pro audio soubory
38 ;K_path_RMOB vložit lokální adresář textové soubory RMOB
39 ;K_path_SDR vložit lokální adresář textové soubory RMOB
40 ;K_max_time_btw_met=1 maximální doba mezi 2 meteory jsou 1 vteřina (nižší se počítá jako 1 meteor)
41 ;K_max_time_to_scr=50 maximální doba bez meteoru, která pokud vyprší, udělá screenshot (max doba za kterou odroluje waterfall)
42 ;K_init_cond=50 interval pro nastavení vyhodnocení scriptu 50ms Evaluate SpectrumLab condition interval (50ms)
43 ;K_time_to_start_up_waterf=4 vteřiny od okraje screenshot Kolik sekund se má počkat do screenshotu po detekci metreoru (jak daleko od okraje)
44 ;K=7 - citlivost detekce meteoru
45 ;K_min_dur_count_bolid=50 detekce bolidu pro audio (2,5 vteřiny)
46  
47 ;Události
48 ;A_init (inicializace)
49 ;A_measurement (kdykoliv po 50 ms)
50 ;A_still_detect (událost trvání meteoru nebo bolidu) - průběžně
51 ;A_start_detect (událost detekce začátku meteoru nebo bolidu)
52 ;A_start_detect_bolid (událost 2,5 vteřiny od detekce meteoru)
53 ;A_end_detect (událost detekce konce meteoru nebo bolidu)
54 ;A_end_detect_end (konec cyklu události detekce konce meteoru nebo bolidu)
55 ;A_write_waterf (událost záznamu popisu detekce do waterfallu)
56 ;A_update_SDR_data_file (událost generování souboru SDR screenshot při záznamu meteoru)
57 ;A_update_RMOB_Dur_file (událost generování souborů RBOB)
58 ;A_met_screenshot (událost generování screenshotu waterfallu pokud je zaznamenán meteor)
59 ;A_no_met_screenshot (událost generování screenshotu waterfallu pokud není dlouho zaznamenán meteor)
60 ;A_once_hour_20s_before (událost 1x za hodinu před ukončením hodiny 20 vteřin)
61 ;A_once_hour
62 ;A_once_hour_10s_before (událost 1x za hodinu před ukončením hodiny 10 vteřin)
63 ;A_once_hour_30s_after (událost 1x za hodinu po ukončení hodiny 30 vteřin)
64  
65  
66 ;-----------------A_init - Inicializace proměnných a konstant--------------------
67 if( initialising ) then A_init=1:A_still_detect=0:n=0:n_1=0:f=0:f_1=0:aver_amp=0:a=0:mag=0:mag_max=0:hour_count=0:strenght_count=0:strenght_count_1=0:dur_count=0:dur_count_1=0:aver_amp_1=-999:aver_amp_max=-999:t0=0:t0_1=0:t1=0:t1_1=0:t1_2=0:t2=0:t3=0:t4=0:id_met="no"
68 if( A_init = 1 ) then A_init=2:K_station_name="JOSY_A":K_path_scr="capture\\":K_path_audio="capture_audio\\":K_path_RMOB="C:\\Spectrum\\":K_path_SDR="C:\\Spectrum\\":K_path="Z:\\sd\\"
69 if( A_init = 2 ) then A_init=3:K_max_time_btw_met=2:K_max_time_to_scr=40:K_init_cond=50:K_time_to_start_up_waterf=4:K=7:K_min_dur_count_bolid=50
70 if( A_init = 3 ) then A_init=4:A_measurement=0:A_start_detect=0:A_end_detect=0:A_end_detect_end=0:A_write_waterf=0:A_update_SDR_data_file=0:A_update_RMOB_Dur_file=0:A_met_screenshot=0
71 if( A_init = 4 ) then A_init=5:A_no_met_screenshot=0:A_once_hour_20s_before=0:A_once_hour=0:A_once_hour_10s_before=0:A_once_hour_30s_after=0:A_once_hour_40s_after=0:timer3.restart(K_max_time_to_scr)
72 if( A_init = 5 ) then A_init=0:
73  
74 ;----------------A_measurement - (po 50 ms)-------------------------------------
75 ;n=noise(9800,10200) aktualizace a výpočet hodnoty šumu (záleží na nastavení FFT)
76 ;f=peak_f(10300,10900) max intenzita signálu v daném intervalu frekvencí
77 ;aver_amp=avrg(f-100,f+100) vrací prům. intenzitu signálu 100 Hz kolem maxima
78 ;t0=str("YYYYMMDDhh",now) uloží aktuální datum
79 ;t1=now uloží UNIX time stamp na microsekundy (tečka oddělovač)
80 ;t2=str("hh",now) uloží aktuální hodinu
81 ;t3=str("mmss",now) uloží aktuální minutu a vteřinu
82 ;-------------------------------------------------------------------------------
83 if( always ) then A_measurement=1:n=noise(9800,10200):f=peak_f(10300,10900):aver_amp=avrg(f-100,f+100):a=(n+K)
84 if( A_measurement=1 ) then A_measurement=0:t0=str("YYYYMMDDhh",now):t1=round(now*1000):t2=str("hh",now):t3=str("mmss",now)
85  
86 ;-----------------A_still_detect (událost trvání meteoru nebo bolidu)-----------
87 if( aver_amp>a ) then A_still_detect=A_still_detect+1:timer0.restart(K_max_time_btw_met):timer3.restart(K_max_time_to_scr):dur_count=dur_count+1:strenght_count=strenght_count+1:aver_amp_1=aver_amp
88  
89 ;-----------------A_aver_amp (událost aktualizace maximální hodnoty aver_amp)---
90 if( aver_amp_1>aver_amp_max ) then aver_amp_max=aver_amp_1
91  
92 ;-------A_aver_amp (událost aktualizace maximální hodnoty strenght_count_1)-----
93 if( strenght_count>strenght_count_1 ) then strenght_count_1=strenght_count
94  
95 ;-----------------A_start_detect (událost začátku meteoru)----------------------
96 if( A_still_detect=1 ) then A_start_detect=1:t1_1=t1:id_met=(K_station_name+str(t1_1)):sp.print("_ __t+"+str("ss",time))
97 if( A_start_detect=1 ) then A_start_detect=2:n_1=n:f_1=f
98 if( A_start_detect=3 ) then A_start_detect=0:
99  
100 ;------------A_end_detect (událost detekce konce meteoru nebo bolidu)-----------
101 if( timer0.expired(1) ) then A_end_detect=1:hour_count=hour_count+1:timer4.restart(K_time_to_start_up_waterf):dur_count1=dur_count:
102 if( A_end_detect=1 ) then A_end_detect=2:sp.print("_ __"+id_met+" HCount"+str(hour_count)+" nb"+str(round(n_1))+" f"+str(f_1)+" mag"+str(round(n_1-aver_amp_max+10)))
103 if( A_end_detect=2 ) then A_end_detect=3:A_update_SDR_data_file=1
104 if( A_end_detect=3 ) then A_end_detect=0
105  
106 ;-----------------A_update_SDR_data_file----------------------------------------
107 ;SDR datový soubor záznamu radiometeorů (projekt astrozor.cz)
108 ;Název souboru:JOSY_A20130123.dat
109 if( A_update_SDR_data_file=1 ) then A_update_SDR_data_file=2:fopen1(K_path_SDR+K_station_name+t0+".dat",a)
110 if( A_update_SDR_data_file=2 ) then A_update_SDR_data_file=3:fp1(id_met+" ; "+str(round(n_1))+" ; "+str(f_1)+" ; "+str(aver_amp_max)+" ; "+str(round(n_1-aver_amp_max+10))+" ; "+str(dur_count_1)+" ; "+str(K_init_cond)+" ; "+str(K_min_dur_count_bolid))
111 if( A_update_SDR_data_file=3 ) then A_update_SDR_data_file=4:fclose1
112 if( A_update_SDR_data_file=4 ) then A_update_SDR_data_file=5:A_update_RMOB_Dur_file=1
113 if( A_update_SDR_data_file=5 ) then A_update_SDR_data_file=0
114  
115 ;-----A_update_RMOB_Dur_file (událost generování souborů RMOB-Dur)--------------
116 ;RMOB_Dur - soubor pro záznam jednotlivých radiometeorů (projekt www.rmob.org)
117 ;Název souboru:RMOB_Dur-201301.dat,kde 2013 je rok a 01 je měsíc
118 if( A_update_RMOB_Dur_file=1 ) then A_update_RMOB_Dur_file=2:fopen2(K_path_RMOB+"RMOB_Dur-"+str("YYYYMM",now)+".dat",a)
119 if( A_update_RMOB_Dur_file=2 ) then A_update_RMOB_Dur_file=3:fp2(t0,", count=",hour_count,", strenght=",strenght_count,", maxdur=",dur_count_1,", noise=",n_1,", event=",str("mm",t1)):fclose2
120 if( A_update_RMOB_Dur_file=3 ) then A_update_RMOB_Dur_file=4:A_end_detect_end=1
121 if( A_update_RMOB_Dur_file=4 ) then A_update_RMOB_Dur_file=0:
122  
123 ;--------------A_end_detect_end-------------------------------------------------
124 ;zametení
125 if( A_end_detect_end=1 ) then A_end_detect_end=2:dur_count=0:dur_count_1=0:aver_amp_1=-999:aver_amp_max=-999:rec.trigger=0:A_still_detect=0
126 if( A_end_detect_end=2 ) then A_end_detect_end=3:REM exec(K_path+K_path_audio+"ftp_up.bat "+id_met+".wav")
127 if( A_end_detect_end=3 ) then A_end_detect_end=4:REM exec(K_path+K_path_audio+"ftp_up.bat "+id_met+".aux")
128 if( A_end_detect_end=4 ) then A_end_detect_end=0
129  
130 ;-----------------A_start_detect_bolid (událost start bolidu)-------------------
131 if( dur_count=K_min_dur_count_bolid ) then rec.filename=K_path+K_path_audio+id_met+".wav":rec.trigger=1
132  
133 ;---A_met_screenshot (událost generování screenshotu waterfallu pokud je zaznamenán meteor)---
134 if( timer4.expired(1) ) then A_met_screenshot=1:capture (K_path+K_path_scr+id_met+".jpg")
135 if( A_met_screenshot=1 ) then A_met_screenshot=2:REM exec(K_path+K_path_scr+"ftp_up.bat "+id_met+".jpg")
136 if( A_met_screenshot=2 ) then A_met_screenshot=0:
137  
138 ;---A_no_met_screenshot (událost generování screenshotu waterfallu pokud není dlouho zaznamenán meteor)---
139 if( timer3.expired ) then A_no_met_screenshot=1:t1_2=t1:capture (K_path+K_path_scr+K_station_name+str(t1_2)+"no_met.jpg"):timer3.restart(K_max_time_to_scr)
140 if( A_no_met_screenshot=1 ) then A_no_met_screenshot=2:REM exec(K_path+K_path_scr+"ftp_up.bat "+K_station_name+str(t1_2)+"no_met.jpg")
141 if( A_no_met_screenshot=2 ) then A_no_met_screenshot=3:t1_2=0
142 if( A_no_met_screenshot=3 ) then A_no_met_screenshot=0:
143  
144 ;-A_once_hour_20s_before (událost 1x za hodinu před ukončením hodiny 20 vteřin)-
145 ;RMOB - soubor pro měření hodinových četností radiometeorů (projekt www.rmob.org)
146 ;Název souboru:RMOB-201301.dat, kde RMOB je zkratka pro Radio Meteor Observing Bulletin, 2013 je rok a 01 je měsíc
147 if( val(t3,"####")=5940 ) then A_once_hour_20s_before=A_once_hour_20s_before+1:fopen4(K_path_RMOB+"RMOB-"+str("YYYYMM",now)+".dat",a)
148 if( A_once_hour_20s_before=1 ) then A_once_hour=1:fp4(t0,",",t2,",",hour_count):fclose4:t0_1=t0
149 if( A_once_hour=1 ) then A_once_hour=2:sp.print("Last hour=",hour_count):hour_count=0:strenght_count=0:strenght_count_1=0
150 if( A_once_hour=2 ) then A_once_hour=3:
151 if( A_once_hour=3 ) then A_once_hour=0:
152  
153 ;-A_once_hour_10s_before (událost 1x za hodinu před ukončením hodiny 10 vteřin)-
154 if( val(t3,"####")=5950 ) then A_once_hour_10s_before=1:A_once_hour_20s_before=0:
155 if( A_once_hour_10s_before=1 ) then A_once_hour_10s_before=0
156  
157 ;-A_once_hour_30s_after (událost 1x za hodinu po ukončení hodiny 30 vteřin)-
158 if( val(t3,"####")=0030 ) then A_once_hour_30s_after=A_once_hour_30s_after+1
159 if( A_once_hour_30s_after=1 ) then A_once_hour=1:exec(K_path_SDR+"ftp_up.bat "+K_station_name+t0_1+".dat")
160 if( A_once_hour=1 ) then A_once_hour=0
161  
162 ;-A_once_hour_40s_after (událost 1x za hodinu po ukončení hodiny 40 vteřin)-
163 if( val(t3,"####")=0040 ) then A_once_hour_40s_after=1:A_once_hour_30s_after=0
164 if( A_once_hour_40s_after=1 ) then A_once_hour_40s_after=2:t0_1=0
165 if( A_once_hour_40s_after=2 ) then A_once_hour_40s_after=0
166