function [field_f,t_f]=gauss_5s(t,field);
%
W=[0.00229315; 0.00531440; 0.01115655; 0.02121585; 0.03654680;
   0.05702885; 0.08061140; 0.10321785; 0.11972085; 0.12578865];
W=[W;flipud(W(1:9))]; % Gauss filter for 5-second data

NW=length(W);
field_f=conv(field,W);
field_f=field_f(NW:length(field_f)-NW);
t_f=t((fix(NW/2)+1):length(t)-(fix(NW/2)+1));