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

Адаптация в недавним изменениям

master
L_DelOff 2021-06-18 12:03:10 +03:00
parent cd63191b9a
commit 640a864846
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Program.m
View File

@ -5,11 +5,17 @@
% 3. Дополнительный анализ % 3. Дополнительный анализ
%% Начало %% Начало
close all
clear all
% Дано % Дано
param.k=1.2; % коэффициент для расчёта доверительного интервала param.k=1.2; % коэффициент для расчёта доверительного интервала
%% Подгрузка сведений об катаклизме %% Подгрузка сведений об катаклизме
% N = 1 - Япония [11,3,2011] % N = 1 - Япония [11.03.2011]
% N = 2 - Чили [16,9,2015] % N = 2 - Чили [16.09.2015]
% N = 3 - Перу [26.05.2019]
% N = 4 - Охотское море [24.05.2013]
% N = 5 - Залив Аляска [23.01.2018]
% N = 6 - Бейрут [04.08.2020]
N = 6; N = 6;
prev=10; prev=10;
next=5; next=5;
@ -43,8 +49,10 @@ for i=param.sattelite_available
end end
%% Корреляционные матрицы %% Корреляционные матрицы
param=analysis_corr(param); param=analysis_corr(param);
%% Превышение порога %% Сохранение в файл
%param=analysis_limit(param); export_report(param.filename_report)
disp('Готово')
disp('--------')
function grafik(param,katalog) function grafik(param,katalog)
win1=figure; win1=figure;
@ -54,7 +62,8 @@ win1.Name=[katalog.Location,...
,'.', myformat(katalog.year,4)... ,'.', myformat(katalog.year,4)...
,' [',num2str(katalog.fi),';',num2str(katalog.L),']',... ,' [',num2str(katalog.fi),';',num2str(katalog.L),']',...
' M=',num2str(param.M),... ' M=',num2str(param.M),...
' R=',num2str(fix(param.R_quake)), 'км Sat: F-',num2str(param.sattelite_range)]; ' R=',num2str(fix(param.R_quake)), 'км Sat: F-',num2str(param.sattelite_range),...
' K=',num2str(param.k)];
win1.Units='normalized'; win1.Units='normalized';
win1.OuterPosition = [0 0 1 1]; win1.OuterPosition = [0 0 1 1];
t1=uicontrol(win1,'Style','text'); t1=uicontrol(win1,'Style','text');