bridge/class-master/depend/pari/src/basemath/bibli2.c
/********************************************************************/
/**                                                                **/
/**                      SERIES TRANSFORMS                         **/
/**                                                                **/
/********************************************************************/
/**                  LAPLACE TRANSFORM (OF A SERIES)               **/
/********************************************************************/
SERIES TRANSFORMS

LAPLACE TRANSFORM (OF A SERIES)
SERIES TRANSFORMS LAPLACE TRANSFORM ( OF A SERIES )
static GEN
serlaplace(GEN x)
{
  long i, l = lg(x), e = valp(x);
  GEN t, y = cgetg(l,t_SER);
  if (e < 0) pari_err_DOMAIN("laplace","valuation","<",gen_0,stoi(e));
  t = mpfact(e); y[1] = x[1];
  for (i=2; i<l; i++)
  {
    gel(y,i) = gmul(t, gel(x,i));
    e++; t = mului(e,t);
  }
  return y;
}
static GEN serlaplace ( GEN x ) { long i , l = lg ( x ) , e = valp ( x ) ; GEN t , y = cgetg ( l , t_SER ) ; if ( e < 0 ) pari_err_DOMAIN ( " " , " " , " " , gen_0 , stoi ( e ) ) ; t = mpfact ( e ) ; y [ 1 ] = x [ 1 ] ; for ( i = 2 ; i < l ; i ++ ) { gel ( y , i ) = gmul ( t , gel ( x , i ) ) ; e ++ ; t = mului ( e , t ) ; } return y ; }
SERIES TRANSFORMS
SERIES TRANSFORMS