// 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 prend en entre les sries en volch et en valeur et retourne la srie px A-1

addfun main;

procedure main(xvolch,xval)
{
	xpxbase_an = compact(xval,0,1)/compact(xvolch,0,1);
	t1 = startdate(xpxbase_an);
	xpxbase = reshape(expand(xpxbase_an,4),convert(convert(date2year(t1+1),"string")||"q1","date"));
    
  return(xpxbase); 

  }
