// 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 repole une serie x en la multipliant par mult et en additionnant add
// en entree : serie x, valeurs mutl et add, dates de d9but et de fin de prolongement 
// on peut prolonger en niveau et en taux de croissance

addfun main;

procedure main(x,mult,add,fin,debut)
  {
	z=x;
 	t1=fin;
	t2=debut;
    for (i=t1;i>=t2;i=i-1)
       {
       j=i;
       retrop=values(z,j+1)*mult+add;
       z=c.(retrop,z); 
        }
  return(z); 
  }
