%% Procedure makes 5-min averaged X Y file
%
% The procedure creates 5-minute averaged array
% of X and Y disturbed variations
% for PC coefficient calculation
%%
% =============================================

%-------------------------------------   
disp('1997');
dist_1997 = dist_5m(1997);
save('dist_1997.mat','dist_1997');
clear dist*;
%-------------------------------------
disp('1998');
dist_1998 = dist_5m(1998);
save('dist_1998.mat','dist_1998');
clear dist*;
%-------------------------------------
disp('1999');
dist_1999 = dist_5m(1999);
save('dist_1999.mat','dist_1999');
clear dist*;
%-------------------------------------
disp('2000');
dist_2000 = dist_5m(2000);
save('dist_2000.mat','dist_2000');
clear dist*;
%-------------------------------------
disp('2001');
dist_2001 = dist_5m(2001);
save('dist_2001.mat','dist_2001');
clear dist*;
%-------------------------------------
disp('2002');
dist_2002 = dist_5m(2002);
save('dist_2002.mat','dist_2002');
clear dist*;
%-------------------------------------
disp('2003');
dist_2003 = dist_5m(2003);
save('dist_2003.mat','dist_2003');
clear dist*;
%-------------------------------------
disp('2004');
dist_2004 = dist_5m(2004);
save('dist_2004.mat','dist_2004');
clear dist*;
%-------------------------------------
disp('2005');
dist_2005 = dist_5m(2005);
save('dist_2005.mat','dist_2005');
clear dist*;
%-------------------------------------
disp('2006');
dist_2006 = dist_5m(2006);
save('dist_2006.mat','dist_2006');
clear dist*;
%-------------------------------------
disp('2007');
dist_2007 = dist_5m(2007);
save('dist_2007.mat','dist_2007');
clear dist*;
%-------------------------------------
disp('2008');
dist_2008 = dist_5m(2008);
save('dist_2008.mat','dist_2008');
clear dist*;
%-------------------------------------
disp('2009');
dist_2009 = dist_5m(2009);
save('dist_2009.mat','dist_2009');
clear dist*;
%-------------------------------------
