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

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

Browse Source
This commit is contained in:
L_DelOff
2021-06-12 23:31:37 +03:00
parent 87b79bc538
commit 33a9e3dc2c
3 changed files with 188 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

132
analysis.m
View File

@@ -3,73 +3,102 @@ 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,...
type_sensor); %загрузка данных
DATA.DATA=[DATA.DATA DATA_temp.DATA];
end
end
end
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
%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)% по числам
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);
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
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);
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);
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
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);
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
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);
@@ -82,7 +111,7 @@ for i=1:str
counter=counter+1;
end
end
filename=filename(1:end-counter);
filename=filename(1:end-counter);
if length(filename)>7
keyword=[num2str_new(year,4) num2str_new(month,2) num2str_new(day,2)];
flag=0;
@@ -90,11 +119,18 @@ for i=1:str
if filename(j:j+length(keyword)-1)==keyword
flag=1;
end
end
if (prod(filename(end-3:end)=='.mat')==1)&&(flag==1)
DATA = load([foldername,'/',filename], 'DATA'); % открыть для чтения
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