function h=filtrogauss3(tam,sigma)
%Prueba de creación de filtro

extremo=(tam-1)/2;
secuencia=-extremo:extremo;
tsecuencia(1,1,tam)=0;
tsecuencia(:)=secuencia(:);
filas=repmat(secuencia,[tam,1,tam]);
columnas=repmat(secuencia',[1,tam,tam]);
tiempos=repmat(tsecuencia,[tam,tam,1]);
posicion=filas.*filas + columnas.*columnas + tiempos.*tiempos;
hg=exp((-posicion)/2/sigma/sigma);
total=sum(hg(:));
h=hg/total;
