%	Copyright 2005-2009 José Luis Crespo. Universidad de Cantabria
function nombre=filtrasec(fich,sigma)
%Función que hace y guarda filtrado espacio-temporal de la secuencia
%DATOS
%   fichero en que esta "tensor"
%   desviación típica. Tomar sigma=1.5  
%RESULTADO
%   nombre del fichero de resultado

%   anchura del filtro es el triple de la desviación tìpica redondeado
%   hacia arriba
ancho=ceil(3*sigma);
load(fich);
filtro=filtrogauss3(ancho,sigma);
tensor=imfilter(tensor,filtro);
nombre=sprintf('%sa%d',fich,ancho);
save(nombre,'tensor');