L_DelOff
/
Earthquake
1
0
Fork 0
Code Issues 1 Pull Requests Packages Projects Releases Wiki Activity

Адаптированы для работы с автоматическим алгоритмом

master
L_DelOff 2021-06-12 23:31:37 +03:00
parent 87b79bc538
commit 33a9e3dc2c
3 changed files with 188 additions and 124 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
.gitignore vendored
View File

@ -916,3 +916,100 @@
/DATA/f18/ssies/2020/06/PS.CKGWC_SC.U_DI.A_GP.SIES3-F18-R99990-B9999090-APGA_AR.GLOBAL_DD.20200630_TP.000001-235959_DF.EDR
/DATA/f18/ssies/2020/06/PS.CKGWC_SC.U_DI.A_GP.SIES3-F18-R99990-B9999090-APGA_AR.GLOBAL_DD.20200630_TP.000001-235959_DF.EDR.gz
/DATA/f18/ssies/2020/06/PS.CKGWC_SC.U_DI.A_GP.SIES3-F18-R99990-B9999090-APGA_AR.GLOBAL_DD.20200630_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140901_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140901_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140901_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140902_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140902_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140902_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140903_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140903_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140903_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140904_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140904_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140904_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140905_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140905_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140905_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140906_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140906_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140906_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140907_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140907_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140907_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140908_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140908_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140908_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140909_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140909_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140909_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140910_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140910_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140910_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140911_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140911_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140911_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140912_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140912_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140912_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140913_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140913_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140913_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140914_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140914_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140914_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140915_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140915_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140915_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140916_TP.000001-225240_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140916_TP.000001-225240_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140916_TP.000001-225240_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140917_TP.002818-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140917_TP.002818-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140917_TP.002818-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140918_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140918_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140918_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140919_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140919_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140919_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140920_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140920_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140920_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140921_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140921_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140921_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140922_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140922_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140922_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140923_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140923_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140923_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140924_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140924_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140924_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140925_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140925_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140925_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140926_TP.000002-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140926_TP.000002-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140926_TP.000002-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140927_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140927_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140927_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140928_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140928_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140928_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140929_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140929_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140929_TP.000001-235959_DF.mat
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140930_TP.000001-235959_DF.EDR
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140930_TP.000001-235959_DF.EDR.gz
/DATA/f15/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES2-F15-R99990-B9999090-APGA_AR.GLOBAL_DD.20140930_TP.000001-235959_DF.mat
/loaddata_edr.asv
/Program.asv
/DATA/f16/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES3-F16-R99990-B9999090-APGA_AR.GLOBAL_DD.20140901_TP.000001-235959_DF.EDR.gz
/DATA/f16/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES3-F16-R99990-B9999090-APGA_AR.GLOBAL_DD.20140902_TP.000002-235959_DF.EDR.gz
/DATA/f16/ssies/2014/09/PS.CKGWC_SC.U_DI.A_GP.SIES3-F16-R99990-B9999090-APGA_AR.GLOBAL_DD.20140903_TP.000001-235959_DF.EDR.gz.html
/analysis.asv
/mymean.asv

100
analysis.m
View File

@ -3,53 +3,58 @@ function param=analysis(param)
% собираю данные по землетрясению
%% Поехали
type_sensor=param.type_sensor;
sattelite_range=param.sattelite_range;
year_range=param.year_range;
month_range=param.month_range;
day_range=param.day_range;
DATA.DATA=[];
%% Объединяю данные в диапазоне
if 1
for sattelite=sattelite_range %6:20
for year=year_range % года
for month=month_range % месяца
for day=day_range % дни
DATA_temp=load_file(sattelite, year, month, day,...
for i=1:length(param.dates)
year=param.dates(i).year;
month=param.dates(i).month;
day=param.dates(i).day;
DATA_temp=load_file(param.sattelite_range, year, month, day,...
type_sensor); %загрузка данных
DATA.DATA=[DATA.DATA DATA_temp.DATA];
end
end
end
end
end
%load matlab
%% Сортировка данных
R_quake=param.R_quake; % радиус действия относительно магнитуды,км (еще тыщу ставил)
% расположение эпицентра
fiA=param.fiA; % широта
LA=param.LA; % долгота
report=[]; % тут будут все данные для графика
global zzz ccc
zzz=[];
ccc=[];
for i=day_range% дни, по которыс строится среднесуточные значения
report(end+1).date=[myformat(i,2) '.03.2011'];
fname_rep=param.filename_report;
if exist(fname_rep,'file')
load(fname_rep,'report'); % тут будут все данные для графика
else
%report=[];
%report.data=[];
report.data.N_sat=[];
report.data.R=[];
end
for i=1:length(param.dates)
HHeden=[];
O2den=[];
Eden=[];
Etemp=[];
for j=1:length(DATA.DATA)
if DATA.DATA(j).year==year_range % сортировка по году
if DATA.DATA(j).month==month_range % по месяцу
if (DATA.DATA(j).day==i)% по числам
date_true=1;
if DATA.DATA(j).year~=param.dates(i).year % сортировка по году
date_true=0;
end
if DATA.DATA(j).month~=param.dates(i).month % по месяцу
date_true=0;
end
if (DATA.DATA(j).day~=param.dates(i).day)% по числам
date_true=0;
end
if date_true
for k=1:3 % координаты спутника только 3 раза в минуту(кадр) записываются
fiB=DATA.DATA(j).GeoLat(k); % 1. Географическая широта (градусы, север)(Geographic latitude (degrees, north))
LB=DATA.DATA(j).GeoLong(k); % 2. Географическая долгота (градусы, восток)(Geographic longitude (degrees, east))
R=mydistance(fiA,LA,fiB,LB);
ccc(1,end+1)=fiB;
ccc(2,end)=LB;
zzz(end+1)=R-R_quake;
if R<=R_quake
HHeden(end+1)= mymean(DATA.DATA(j).RPA_HHeden((k-1)*5+1:(k-1)*5+5),1e10);
O2den(end+1) = mymean(DATA.DATA(j).RPA_O2den((k-1)*5+1:(k-1)*5+5),1e10);
@ -59,17 +64,41 @@ for i=day_range% дни, по которыс строится среднесут
end
end
end
num=give_number(report,param.sattelite_range,R_quake);
report.data(num).N_sat=param.sattelite_range;
report.data(num).R=R_quake;
report.data(num).date{i}=[myformat(param.dates(i).day,2),'.',...
myformat(param.dates(i).month,2),'.',...
myformat(param.dates(i).year,4)];
report.data(num).RPA_HHeden(i)=mymean(HHeden,1e10);
report.data(num).RPA_O2den(i)=mymean(O2den,1e10);
report.data(num).EP_Eden(i)=mymean(Eden,1e10);
report.data(num).EP_Etemp(i)=mymean(Etemp,1e10);
end
end
report(end).RPA_HHeden=mymean(HHeden,1e10);
report(end).RPA_O2den=mymean(O2den,1e10);
report(end).EP_Eden=mymean(Eden,1e10);
report(end).EP_Etemp=mymean(Etemp,1e10);
end
param.report=report;
save(fname_rep,'report');
end
function num=give_number(report,f,R)
flag=0; % Проверяет, есть ли в отчете данные со спутника f
[~,b]=size(report.data);
for i=1:b
if report.data(i).N_sat==f
if report.data(i).R==R
flag=1;
num=i;
end
end
end
if flag==0
num=b+1;
end
end
function DATA=load_file(sattelite, year, month, day, type_sensor)
success=0;
foldername=['DATA/f' num2str(sattelite) '/' type_sensor '/' num2str_new(year,4) '/' num2str_new(month,2)];
target=ls(foldername);
[str row]=size(target);
@ -93,8 +122,15 @@ for i=1:str
end
if (prod(filename(end-3:end)=='.mat')==1)&&(flag==1)
disp(['Найден подходящий файл: ',filename])
DATA = load([foldername,'/',filename], 'DATA'); % открыть для чтения
success=1;
end
end
end
if ~success
disp('Нужных файлов не найдено, перехожу к загрузке')
loaddata_edr(sattelite, year, month, type_sensor);
DATA=load_file(sattelite, year, month, day, type_sensor);
end
end

83
loaddata_edr.m
View File

@ -1,49 +1,19 @@
function loaddata_edr %DATA=loaddata_edr(filename)
function loaddata_edr(sattelite, year, month, type_sensor) %DATA=loaddata_edr(filename)
%% By L_DelOff
% Загрузка данных из файла *.EDR
% Описание файла приведено в:
% !docs/!AFRL ASCII and Binary File Format Descriptions.pdf
%% Поехали
warning off
sattelite_range=15:18; % Выбор с какого спутника требуются данные
year_range=2015; %
month_range=9; %
%% Скачать данные в формате архива
if 1
for sattelite=sattelite_range %6:20
for year=year_range % года
for month=month_range % месяца
download_fun(sattelite, year, month); %скачивание и обработка нужных данных
end
end
end
end
download_fun(sattelite, year, month, type_sensor); %скачивание и обработка нужных данных
%% Распаковать архив
if 1
for sattelite=sattelite_range %6:20
for year=year_range % года
for month=month_range % месяца
extract_data_fun(sattelite, year, month); %скачивание и обработка нужных данных
end
end
end
end
extract_data_fun(sattelite, year, month, type_sensor); %скачивание и обработка нужных данных
%% Преобраховать EDR в mat
if 1
for sattelite=sattelite_range %6:20
for year=year_range % года
for month=month_range % месяца
convert_data_fun(sattelite, year, month); %скачивание и обработка нужных данных
end
end
end
convert_data_fun(sattelite, year, month, type_sensor); %скачивание и обработка нужных данных
end
end
function convert_data_fun(sattelite, year, month)
type_sensor='ssies';
function convert_data_fun(sattelite, year, month, type_sensor)
foldername=['DATA/f' num2str(sattelite) '/' type_sensor '/' num2str_new(year,4) '/' num2str_new(month,2)];
target=ls(foldername);
[str row]=size(target);
@ -91,8 +61,7 @@ for i=1:str
end
end
function extract_data_fun(sattelite, year, month)
type_sensor='ssies';
function extract_data_fun(sattelite, year, month, type_sensor)
foldername=['DATA/f' num2str(sattelite) '/' type_sensor '/' num2str_new(year,4) '/' num2str_new(month,2)];
target=ls(foldername);
[str row]=size(target);
@ -107,10 +76,9 @@ for i=1:str
end
end
function download_fun(sattelite, year, month)
function download_fun(sattelite, year, month, type_sensor)
% https://satdat.ngdc.noaa.gov/dmsp/data/f18/ssies/2020/05/
% https://satdat.ngdc.noaa.gov/dmsp/data/f18/ssies/2020/05/PS.CKGWC_SC.U_DI.A_GP.SIES3-F18-R99990-B9999090-APGA_AR.GLOBAL_DD.20200501_TP.000001-235959_DF.EDR.gz
type_sensor='ssies';
message=['Ищем данные спутника F' num2str(sattelite) ' по дате:' num2str_new(year,4) '/' num2str_new(month,2) '...'];
fprintf(message)
url_site=['https://satdat.ngdc.noaa.gov/dmsp/data/f' num2str_new(sattelite,2) '/' type_sensor '/' num2str_new(year,4) '/' num2str_new(month,2) '/'];
@ -157,43 +125,6 @@ while i<length(text)
end
end
% %% Инициализация
% %load DATA
% %% Открытие файла если уже нет DATA
% if exist('DATA')~=1
% fid = fopen('DATA/PS.CKGWC_SC.U_DI.A_GP.SIES3-F18-R99990-B9999090-APGA_AR.GLOBAL_DD.20140831_TP.000001-235959_DF.EDR', 'rt'); % открыть для чтения
% counter=1;
% while ~feof(fid) % пока не конец файла
% frame=[]; % здесь будет 1 кадр (1 минута) в текстовом формате
% for i=1:114
% if ~feof(fid)
% frame(i).str = fgets(fid); % Последовательно читаем из файла строки
% end
% end
%
% if counter==1
% DATA=getframe_edr(frame); % Считываем кадр
% else
% DATA(counter)=getframe_edr(frame); % Считываем кадр
% end
% counter=counter+1;
% if mod(counter,100)==0
% disp(num2str(counter));
% end
% end
% end
%
% for i=1:length(DATA)
% x(i)=(DATA(i).GeoLong(1));
% y(i)=(DATA(i).GeoLat(1));
% end
% plot(x,y)
% xlabel('Geographic longitude (degrees, east)')
% ylabel('Geographic latitude (degrees, north)')
%end
function FRAME=getframe_edr(frame)
HEALTH=0; % "здоровье кадра"
%% строка 1: Пустая строка (Blank line)