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
/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.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/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

132
analysis.m
View File

@ -3,73 +3,102 @@ function param=analysis(param)
% собираю данные по землетрясению % собираю данные по землетрясению
%% Поехали %% Поехали
type_sensor=param.type_sensor; 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=[]; DATA.DATA=[];
%% Объединяю данные в диапазоне %% Объединяю данные в диапазоне
if 1 if 1
for sattelite=sattelite_range %6:20 for i=1:length(param.dates)
for year=year_range % года year=param.dates(i).year;
for month=month_range % месяца month=param.dates(i).month;
for day=day_range % дни day=param.dates(i).day;
DATA_temp=load_file(sattelite, year, month, day,... DATA_temp=load_file(param.sattelite_range, year, month, day,...
type_sensor); %загрузка данных type_sensor); %загрузка данных
DATA.DATA=[DATA.DATA DATA_temp.DATA]; DATA.DATA=[DATA.DATA DATA_temp.DATA];
end
end
end
end end
end end
%load matlab
%% Сортировка данных %% Сортировка данных
R_quake=param.R_quake; % радиус действия относительно магнитуды,км (еще тыщу ставил) R_quake=param.R_quake; % радиус действия относительно магнитуды,км (еще тыщу ставил)
% расположение эпицентра % расположение эпицентра
fiA=param.fiA; % широта fiA=param.fiA; % широта
LA=param.LA; % долгота LA=param.LA; % долгота
report=[]; % тут будут все данные для графика
global zzz ccc fname_rep=param.filename_report;
zzz=[];
ccc=[]; if exist(fname_rep,'file')
for i=day_range% дни, по которыс строится среднесуточные значения load(fname_rep,'report'); % тут будут все данные для графика
report(end+1).date=[myformat(i,2) '.03.2011']; else
%report=[];
%report.data=[];
report.data.N_sat=[];
report.data.R=[];
end
for i=1:length(param.dates)
HHeden=[]; HHeden=[];
O2den=[]; O2den=[];
Eden=[]; Eden=[];
Etemp=[]; Etemp=[];
for j=1:length(DATA.DATA) for j=1:length(DATA.DATA)
if DATA.DATA(j).year==year_range % сортировка по году date_true=1;
if DATA.DATA(j).month==month_range % по месяцу if DATA.DATA(j).year~=param.dates(i).year % сортировка по году
if (DATA.DATA(j).day==i)% по числам date_true=0;
for k=1:3 % координаты спутника только 3 раза в минуту(кадр) записываются end
fiB=DATA.DATA(j).GeoLat(k); % 1. Географическая широта (градусы, север)(Geographic latitude (degrees, north)) if DATA.DATA(j).month~=param.dates(i).month % по месяцу
LB=DATA.DATA(j).GeoLong(k); % 2. Географическая долгота (градусы, восток)(Geographic longitude (degrees, east)) date_true=0;
R=mydistance(fiA,LA,fiB,LB); end
ccc(1,end+1)=fiB; if (DATA.DATA(j).day~=param.dates(i).day)% по числам
ccc(2,end)=LB; date_true=0;
end
zzz(end+1)=R-R_quake; if date_true
if R<=R_quake for k=1:3 % координаты спутника только 3 раза в минуту(кадр) записываются
HHeden(end+1)= mymean(DATA.DATA(j).RPA_HHeden((k-1)*5+1:(k-1)*5+5),1e10); fiB=DATA.DATA(j).GeoLat(k); % 1. Географическая широта (градусы, север)(Geographic latitude (degrees, north))
O2den(end+1) = mymean(DATA.DATA(j).RPA_O2den((k-1)*5+1:(k-1)*5+5),1e10); LB=DATA.DATA(j).GeoLong(k); % 2. Географическая долгота (градусы, восток)(Geographic longitude (degrees, east))
Eden(end+1) = mymean(DATA.DATA(j).EP_Eden((k-1)*5+1:(k-1)*5+5),1e10); R=mydistance(fiA,LA,fiB,LB);
Etemp(end+1) = mymean(DATA.DATA(j).EP_Etemp((k-1)*5+1:(k-1)*5+5),1e10); if R<=R_quake
end HHeden(end+1)= mymean(DATA.DATA(j).RPA_HHeden((k-1)*5+1:(k-1)*5+5),1e10);
end O2den(end+1) = mymean(DATA.DATA(j).RPA_O2den((k-1)*5+1:(k-1)*5+5),1e10);
Eden(end+1) = mymean(DATA.DATA(j).EP_Eden((k-1)*5+1:(k-1)*5+5),1e10);
Etemp(end+1) = mymean(DATA.DATA(j).EP_Etemp((k-1)*5+1:(k-1)*5+5),1e10);
end end
end end
end end
end end
report(end).RPA_HHeden=mymean(HHeden,1e10); num=give_number(report,param.sattelite_range,R_quake);
report(end).RPA_O2den=mymean(O2den,1e10); report.data(num).N_sat=param.sattelite_range;
report(end).EP_Eden=mymean(Eden,1e10); report.data(num).R=R_quake;
report(end).EP_Etemp=mymean(Etemp,1e10); 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
param.report=report; 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 end
function DATA=load_file(sattelite, year, month, day, type_sensor) 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)]; foldername=['DATA/f' num2str(sattelite) '/' type_sensor '/' num2str_new(year,4) '/' num2str_new(month,2)];
target=ls(foldername); target=ls(foldername);
[str row]=size(target); [str row]=size(target);
@ -82,7 +111,7 @@ for i=1:str
counter=counter+1; counter=counter+1;
end end
end end
filename=filename(1:end-counter); filename=filename(1:end-counter);
if length(filename)>7 if length(filename)>7
keyword=[num2str_new(year,4) num2str_new(month,2) num2str_new(day,2)]; keyword=[num2str_new(year,4) num2str_new(month,2) num2str_new(day,2)];
flag=0; flag=0;
@ -90,11 +119,18 @@ for i=1:str
if filename(j:j+length(keyword)-1)==keyword if filename(j:j+length(keyword)-1)==keyword
flag=1; flag=1;
end end
end
if (prod(filename(end-3:end)=='.mat')==1)&&(flag==1)
DATA = load([foldername,'/',filename], 'DATA'); % открыть для чтения
end end
if (prod(filename(end-3:end)=='.mat')==1)&&(flag==1)
disp(['Найден подходящий файл: ',filename])
DATA = load([foldername,'/',filename], 'DATA'); % открыть для чтения
success=1;
end
end end
end end
if ~success
disp('Нужных файлов не найдено, перехожу к загрузке')
loaddata_edr(sattelite, year, month, type_sensor);
DATA=load_file(sattelite, year, month, day, type_sensor);
end
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 %% By L_DelOff
% Загрузка данных из файла *.EDR % Загрузка данных из файла *.EDR
% Описание файла приведено в: % Описание файла приведено в:
% !docs/!AFRL ASCII and Binary File Format Descriptions.pdf % !docs/!AFRL ASCII and Binary File Format Descriptions.pdf
%% Поехали %% Поехали
warning off warning off
sattelite_range=15:18; % Выбор с какого спутника требуются данные
year_range=2015; %
month_range=9; %
%% Скачать данные в формате архива %% Скачать данные в формате архива
if 1 download_fun(sattelite, year, month, type_sensor); %скачивание и обработка нужных данных
for sattelite=sattelite_range %6:20
for year=year_range % года
for month=month_range % месяца
download_fun(sattelite, year, month); %скачивание и обработка нужных данных
end
end
end
end
%% Распаковать архив %% Распаковать архив
if 1 extract_data_fun(sattelite, year, month, type_sensor); %скачивание и обработка нужных данных
for sattelite=sattelite_range %6:20
for year=year_range % года
for month=month_range % месяца
extract_data_fun(sattelite, year, month); %скачивание и обработка нужных данных
end
end
end
end
%% Преобраховать EDR в mat %% Преобраховать EDR в mat
if 1 convert_data_fun(sattelite, year, month, type_sensor); %скачивание и обработка нужных данных
for sattelite=sattelite_range %6:20
for year=year_range % года
for month=month_range % месяца
convert_data_fun(sattelite, year, month); %скачивание и обработка нужных данных
end
end
end
end end
function convert_data_fun(sattelite, year, month, type_sensor)
end
function convert_data_fun(sattelite, year, month)
type_sensor='ssies';
foldername=['DATA/f' num2str(sattelite) '/' type_sensor '/' num2str_new(year,4) '/' num2str_new(month,2)]; foldername=['DATA/f' num2str(sattelite) '/' type_sensor '/' num2str_new(year,4) '/' num2str_new(month,2)];
target=ls(foldername); target=ls(foldername);
[str row]=size(target); [str row]=size(target);
@ -91,8 +61,7 @@ for i=1:str
end end
end end
function extract_data_fun(sattelite, year, month) function extract_data_fun(sattelite, year, month, type_sensor)
type_sensor='ssies';
foldername=['DATA/f' num2str(sattelite) '/' type_sensor '/' num2str_new(year,4) '/' num2str_new(month,2)]; foldername=['DATA/f' num2str(sattelite) '/' type_sensor '/' num2str_new(year,4) '/' num2str_new(month,2)];
target=ls(foldername); target=ls(foldername);
[str row]=size(target); [str row]=size(target);
@ -107,10 +76,9 @@ for i=1:str
end end
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/
% 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 % 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) '...']; message=['Ищем данные спутника F' num2str(sattelite) ' по дате:' num2str_new(year,4) '/' num2str_new(month,2) '...'];
fprintf(message) 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) '/']; 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
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) function FRAME=getframe_edr(frame)
HEALTH=0; % "здоровье кадра" HEALTH=0; % "здоровье кадра"
%% строка 1: Пустая строка (Blank line) %% строка 1: Пустая строка (Blank line)