| Line 1... |
Line 1... |
| 1 |
;Josef Szylar ver 1.6 - 4. 8. 2013 |
1 |
;Josef Szylar ver 1.6 - 4. 8. 2013 |
| 2 |
;PODMÍNKA JEN 80 ZNAKŮ |
2 |
;PODMÍNKA JEN 80 ZNAKŮ |
| 3 |
;PŘÍKAZY JEN 255 ZNAKŮ |
3 |
;PŘÍKAZY JEN 255 ZNAKŮ |
| 4 |
|
4 |
|
| 5 |
;Zmeny: |
5 |
;Zmeny: |
| 6 |
;- Opravena chyba s prepisovanim vypisu zacatku |
6 |
;- Opravena chyba s prepisovanim vypisu zacatku |
| Line 70... |
Line 70... |
| 70 |
;A_once_hour_30s_after (událost 1x za hodinu po ukončení hodiny 30 vteřin) |
70 |
;A_once_hour_30s_after (událost 1x za hodinu po ukončení hodiny 30 vteřin) |
| 71 |
|
71 |
|
| 72 |
|
72 |
|
| 73 |
;-----------------A_init - Inicializace proměnných a konstant-------------------- |
73 |
;-----------------A_init - Inicializace proměnných a konstant-------------------- |
| 74 |
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: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:bolide=0 |
74 |
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: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:bolide=0 |
| 75 |
if( A_init = 1 ) then A_init=2:id_met="no":id_met2="no":K_station_name="SVAK1_":K_path_scr="c:\\meteors\\capture\\":K_path_audio="c:\\meteors\\bolides\\":K_path_RMOB="C:\\meteors\\RMOB\\":K_path_SDR="C:\\meteors\\data\\" |
75 |
if( A_init = 1 ) then A_init=2:id_met="no":id_met2="no":K_station_name="SVAK1_":K_path_scr="c:\\meteors\\capture\\":K_path_audio="c:\\meteors\\audio\\":K_path_RMOB="C:\\meteors\\RMOB\\":K_path_SDR="C:\\meteors\\data\\" |
| 76 |
if( A_init = 2 ) then A_init=3:K_max_time_btw_met=2:K_max_time_to_scr=100:K_init_cond=50:K_time_to_start_up_waterf=4:K=7:K_min_dur_count_bolid=50 |
76 |
if( A_init = 2 ) then A_init=3:K_path_extra="c:\\meteors\\extra\\":K_max_time_btw_met=2:K_max_time_to_scr=100:K_init_cond=50:K_time_to_start_up_waterf=4:K=7:K_min_dur_count_bolid=50 |
| 77 |
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 |
77 |
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 |
| 78 |
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) |
78 |
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) |
| 79 |
if( A_init = 5 ) then A_init=0 |
79 |
if( A_init = 5 ) then A_init=0 |
| 80 |
|
80 |
|
| 81 |
;----------------A_measurement - (po 50 ms)------------------------------------- |
81 |
;----------------A_measurement - (po 50 ms)------------------------------------- |
| Line 97... |
Line 97... |
| 97 |
;-----------------A_aver_amp (udalost aktualizace maximalni hodnoty aver_amp)--- |
97 |
;-----------------A_aver_amp (udalost aktualizace maximalni hodnoty aver_amp)--- |
| 98 |
if( aver_amp_1>aver_amp_max ) then aver_amp_max=aver_amp_1 |
98 |
if( aver_amp_1>aver_amp_max ) then aver_amp_max=aver_amp_1 |
| 99 |
|
99 |
|
| 100 |
;-----------------A_start_detect (událost začátku meteoru)---------------------- |
100 |
;-----------------A_start_detect (událost začátku meteoru)---------------------- |
| 101 |
if( never ) then REM --- A_start_detect (an event of begin of meteor) -------------- |
101 |
if( never ) then REM --- A_start_detect (an event of begin of meteor) -------------- |
| 102 |
if( A_still_detect=1 ) then A_still_detect=2:A_start_detect=1:t1_1=t1:id_met=(K_station_name+str(t1_1)):sp.print(" ^ t+"+str("ss",time)) |
102 |
if( A_still_detect=1 ) then A_still_detect=2:A_start_detect=1:t1_1=t1:id_met=(K_station_name+str(t1_1)):sp.print("` ^ t+"+str("ss",time)) |
| 103 |
if( A_start_detect=1 ) then A_start_detect=2:n_1=n:f_1=f |
103 |
if( A_start_detect=1 ) then A_start_detect=2:n_1=n:f_1=f |
| 104 |
if( A_start_detect=2 ) then A_start_detect=0: |
104 |
if( A_start_detect=2 ) then A_start_detect=0: |
| 105 |
|
105 |
|
| 106 |
;------------A_end_detect (událost detekce konce meteoru nebo bolidu)----------- |
106 |
;------------A_end_detect (událost detekce konce meteoru nebo bolidu)----------- |
| 107 |
if( never ) then REM --- A_end_detect (end of meteor) --- |
107 |
if( never ) then REM --- A_end_detect (end of meteor) --- |
| 108 |
if( timer0.expired(1) ) then A_end_detect=1:id_met2=id_met:hour_count=hour_count+1:timer4.restart(K_time_to_start_up_waterf):dur_count1=dur_count*K_init_cond: |
108 |
if( timer0.expired(1) ) then A_end_detect=1:id_met2=id_met:hour_count=hour_count+1:timer4.restart(K_time_to_start_up_waterf):dur_count1=dur_count*K_init_cond: |
| 109 |
if( A_end_detect=1 ) then A_end_detect=2:sp.print(" "+id_met2+" HCount"+str(hour_count)+" nb"+str(round(n_1))+" f"+str(f_1)+" dur"+str(dur_count1)+" mag"+str(round(n_1-aver_amp_max+10))) |
109 |
if( A_end_detect=1 ) then A_end_detect=2:sp.print("` "+id_met2+" HCount"+str(hour_count)+" nb"+str(round(n_1))+" f"+str(f_1)+" dur"+str(dur_count1)+" mag"+str(round(n_1-aver_amp_max+10))) |
| 110 |
if( A_end_detect=2 ) then A_end_detect=3:A_update_SDR_data_file=1 |
110 |
if( A_end_detect=2 ) then A_end_detect=3:A_update_SDR_data_file=1 |
| 111 |
if( A_end_detect=3 ) then A_end_detect=0 |
111 |
if( A_end_detect=3 ) then A_end_detect=0 |
| 112 |
|
112 |
|
| 113 |
;-----------------A_update_SDR_data_file---------------------------------------- |
113 |
;-----------------A_update_SDR_data_file---------------------------------------- |
| 114 |
;SDR datový soubor záznamu radiometeorů (projekt astrozor.cz) |
114 |
;SDR datový soubor záznamu radiometeorů (projekt astrozor.cz) |
| 115 |
;Název souboru:JOSY_A20130123.dat |
115 |
;Název souboru:JOSY_A20130123.dat |
| 116 |
if( never ) then REM --- write data to file (project astrozor.cz) --- |
116 |
if( never ) then REM --- write data to file (project astrozor.cz) --- |
| 117 |
if( A_update_SDR_data_file=1 ) then A_update_SDR_data_file=2:fopen1(K_path_SDR+K_station_name+t0+".dat",a) |
117 |
if( A_update_SDR_data_file=1 ) then A_update_SDR_data_file=2:fopen1(K_path_SDR+K_station_name+t0+".dat",a) |
| 118 |
if( A_update_SDR_data_file=2 ) then A_update_SDR_data_file=3:fp1(id_met2+" ; "+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)) |
118 |
if( A_update_SDR_data_file=2 ) then A_update_SDR_data_file=3:fp1(id_met2+" ; "+str(round(n_1))+" ; "+str(f_1)+" ; "+str(aver_amp_max)+" ; "+str(round(n_1-aver_amp_max+10))+" ; "+str(dur_count1)+" ; "+str(K_init_cond)+" ; "+str(K_min_dur_count_bolid)) |
| 119 |
if( A_update_SDR_data_file=3 ) then A_update_SDR_data_file=4:fclose1 |
119 |
if( A_update_SDR_data_file=3 ) then A_update_SDR_data_file=4:fclose1 |
| 120 |
if( A_update_SDR_data_file=4 ) then A_update_SDR_data_file=5:A_end_detect_end=1 |
120 |
if( A_update_SDR_data_file=4 ) then A_update_SDR_data_file=5:A_end_detect_end=1 |
| 121 |
if( A_update_SDR_data_file=5 ) then A_update_SDR_data_file=0 |
121 |
if( A_update_SDR_data_file=5 ) then A_update_SDR_data_file=0 |
| 122 |
|
122 |
|
| 123 |
;--------------A_end_detect_end------------------------------------------------- |
123 |
;--------------A_end_detect_end------------------------------------------------- |
| Line 132... |
Line 132... |
| 132 |
if( dur_count=K_min_dur_count_bolid ) then rec.filename=K_path_audio+id_met+".wav":rec.trigger=1:bolide=1 |
132 |
if( dur_count=K_min_dur_count_bolid ) then rec.filename=K_path_audio+id_met+".wav":rec.trigger=1:bolide=1 |
| 133 |
|
133 |
|
| 134 |
;---A_met_screenshot (událost generování screenshotu waterfallu pokud je zaznamenán meteor)--- |
134 |
;---A_met_screenshot (událost generování screenshotu waterfallu pokud je zaznamenán meteor)--- |
| 135 |
if( never ) then REM --- A_met_screenshot (capture a screenshot with meteor) --- |
135 |
if( never ) then REM --- A_met_screenshot (capture a screenshot with meteor) --- |
| 136 |
if( timer4.expired(1) ) then A_met_screenshot=1:capture (K_path_scr+id_met2+".jpg") |
136 |
if( timer4.expired(1) ) then A_met_screenshot=1:capture (K_path_scr+id_met2+".jpg") |
| 137 |
if((A_met_screenshot=1)&&(bolide=1)) then capture (K_path_audio+id_met2+".jpg") |
137 |
if((A_met_screenshot=1)&&(bolide=1)) then capture (K_path_extra+id_met2+".jpg") |
| 138 |
if( A_met_screenshot=1 ) then A_met_screenshot=2:REM exec(K_path_scr+"ftp_up.bat "+id_met2+".jpg") |
138 |
if( A_met_screenshot=1 ) then A_met_screenshot=2:REM exec(K_path_scr+"ftp_up.bat "+id_met2+".jpg") |
| 139 |
if( A_met_screenshot=2 ) then A_met_screenshot=0:bolide=0 |
139 |
if( A_met_screenshot=2 ) then A_met_screenshot=0:bolide=0 |
| 140 |
|
140 |
|
| 141 |
;---A_no_met_screenshot (událost generování screenshotu waterfallu pokud není dlouho zaznamenán meteor)--- |
141 |
;---A_no_met_screenshot (událost generování screenshotu waterfallu pokud není dlouho zaznamenán meteor)--- |
| 142 |
if( never ) then REM --- A_no_met_screenshot (capture a screenshot without meteor) --- |
142 |
if( never ) then REM --- A_no_met_screenshot (capture a screenshot without meteor) --- |