%	Copyright 2005-2009 José Luis Crespo. Universidad de Cantabria
  function imfinal=pruebamarco(base,fondo,marco,sigma,tamanho,orden,paso,adelanto,coef)
%Predicción de un caso
%Supone que sólo se conoce hasta marco, por lo que no puede
%obtener más velocidades
%DATOS
   %base para el nombre de las imágenes
   %fichero con el fondo
%   marco a tomar para último conocido
%   desviación típica de prefiltrado de secuencia (ejemplo:1.5)
%   tamaño de velocidades consideradas válidas (ejemplo:0.05)
%   orden del modelo temporal a crear (ejemplo:4)
%   paso del modelo " " (ejemplo:3)
%   adelanto de predicción que se pide al modelo (ejemplo:20)
%   coeficientes autorregresivos del modelo

%   fase del proceso para entrar
%       1:creación de secuencia
%       2:filtrado de secuencia
%       3:obtención de velocidades lagrangianas
%       4:filtrado de velocidades lagrangianas
%       5:obtención de velocidades eulerianas
%       6:filtrado de velocidades eulerianas
%       7:preparación de ficheros

% Sólo llega hasta marco
maxim=marco;
  minim=marco-(orden-1)*paso;
%hay que añadir los que se pierden en el proceso de filtrado
%No puede pasar de marco
  minim=minim-16;
fich=creasec(base,minim,maxim);
fich=filtrasec(fich,sigma);
nombre=sprintf('v%s',fich);
secdes(fich,nombre);  
fres=sprintf('a%s',nombre);
fres=nombre;
afinglo(fich,nombre,fres,fondo);
fich=sprintf('e%s',fres);
[veleuler,fconoc,cconoc]=euler(fres,fich,8,6,2);
[eulval,tamvel,fval,filun]=filtraeuler(veleuler,tamanho);
nombre=sprintf('f%s',fich);
save(nombre,'eulval','fval','tamvel','filun');
velpred=aplicamatriz(eulval,orden,paso,coef);
fich=sprintf('p%s',nombre);
save(fich,'velpred');
%Si no se llega más que a marco, hay que restarle 8
  imfinal=prediceorig(base,velpred,tamvel,fval,fconoc,cconoc,fondo,marco-8);
