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');