%	Copyright 2005-2009 José Luis Crespo. Universidad de Cantabria
function resul=creasec(nombre,min,max)
%Función para crear fichero mat con secuencia (tensor 3D)
%DATOS
%   nombre base de la secuencia de imágenes
%   imagen mínima que entra
%   número máximo
%RESULTADO
%   nombre del fichero de resultados

fichero=sprintf('%s%03d.gif',nombre,min);
% Si nombre='inter' y min=0, se escribe en la variable fichero inter000.gif
resul=sprintf('s%d%d',min,max);
%si max=50 se escribe en la variable resul s050
[imagen,tabla]=imread(fichero);
% se lee la imagen creando un array bidimensional (imagen) y una tabla que
% contiene los valores del mapa de colores de la imagen [0,1].
imagen=ind2gray(imagen,tabla);
tam=size(imagen); 
tensor(tam(1),tam(2),max-min+1)=0;
tensor=uint8(tensor);
% Convierte a entero sin signo de 8-bits
tensor(:,:,1)=imagen(:,:);
for i=min+1:max
    fichero=sprintf('%s%03d.gif',nombre,i);
    [imagen,tabla]=imread(fichero);
    imagen=ind2gray(imagen,tabla);
    tensor(:,:,i-min+1)=imagen(:,:);
end
% con este bucle se realiza la misma tarea para las demas imagenes dadas,
% desde la min+1 hasta la max. Basicamente, se leen las imagenes de los
% ficheros dados y se vuelcan en las componentes correspondientes del
% tensor.
save(resul,'tensor');
