From 640a864846d46dda1bec29078aa92d4ad8227188 Mon Sep 17 00:00:00 2001
From: L_DelOff <51275636+LDelOff@users.noreply.github.com>
Date: Fri, 18 Jun 2021 12:03:10 +0300
Subject: [PATCH] =?UTF-8?q?=D0=90=D0=B4=D0=B0=D0=BF=D1=82=D0=B0=D1=86?=
 =?UTF-8?q?=D0=B8=D1=8F=20=D0=B2=20=D0=BD=D0=B5=D0=B4=D0=B0=D0=B2=D0=BD?=
 =?UTF-8?q?=D0=B8=D0=BC=20=D0=B8=D0=B7=D0=BC=D0=B5=D0=BD=D0=B5=D0=BD=D0=B8?=
 =?UTF-8?q?=D1=8F=D0=BC?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Program.m | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/Program.m b/Program.m
index dcb78a3..d0f455c 100644
--- a/Program.m
+++ b/Program.m
@@ -5,11 +5,17 @@
 % 3. Дополнительный анализ
 
 %% Начало
+close all
+clear all
 % Дано
 param.k=1.2; % коэффициент для расчёта доверительного интервала
 %% Подгрузка сведений об катаклизме
-% N = 1 - Япония    [11,3,2011]
-% N = 2 - Чили      [16,9,2015]
+% N = 1 - Япония        [11.03.2011]
+% 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;
 prev=10;
 next=5;
@@ -43,8 +49,10 @@ for i=param.sattelite_available
 end
 %% Корреляционные матрицы
 param=analysis_corr(param);
-%% Превышение порога
-%param=analysis_limit(param);
+%% Сохранение в файл
+export_report(param.filename_report)
+disp('Готово')
+disp('--------')
 
 function grafik(param,katalog)
 win1=figure;
@@ -54,7 +62,8 @@ win1.Name=[katalog.Location,...
     ,'.',   myformat(katalog.year,4)...
     ,'    [',num2str(katalog.fi),';',num2str(katalog.L),']',...
     '     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.OuterPosition = [0 0 1 1];
 t1=uicontrol(win1,'Style','text');