// Ce code source est régi par la licence CeCILL V2.1 soumise au droit français 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 série x entre la date date1 et la date date2

// à partir de deux séries y et z selon l'équation de récurrence suivante

//

//	x(t)=x(t-1)*y(t)+z(t)

//

// en entrée : serie x, serie y, serie z

//             date1, date2



addfun main;



procedure main(x,y,z,date1,date2)
 {

  t1=date1;

  t2=date2;

  serie=subrange (x,startdate(x), t1);

  for (i=t1+1;i<=t2-1;i=i+1)
    {
    valeur=serie[i-1]*y[i]+z[i];

    serie=( c.(serie,valeur) );
 
  }

  return(serie);

} 
     
