// Ce code source est rgi par la licence CeCILL V2.1 soumise au droit franais et 
//respectant les principes de diffusion des logiciels libres. Il est autoris de modifier 
//et/ou redistribuer ce code sous les conditions de la licence CeCILL V2.1. Le texte complet
// de la licence CeCILL V2.1 est dans le fichier `LICENSE`.

// fonction qui extrapole une srie x par la variation de y entre une date 1 
// et une date 2
// en entre : serie x, serie y 
//             date1 (i.e. une priode avant la premire nouvelle valeur) date2

addfun main;

PROCEDURE main(x,y,debut,fin)
  {
  	serie=SUBRANGE (x,STARTDATE(x), debut);
 t1=debut;
 t2=fin;
 
  for (i=t1;i<=t2-1;i=i+1)
     {
     valeur=serie[i]+y[i+1]-y[i];
     serie=( c.(serie,valeur) );
     
     }
  return(serie);
  } 
     