bridge/class-master/depend/pari/src/basemath/lfun.c
/* Compute contribution of polar part at s when not a pole. */
Compute contribution of polar part at s when not a pole.
Compute contribution of polar part at s when not a pole .
static GEN
veccothderivn(GEN a, long n)
{
  long i;
  pari_sp av = avma;
  GEN c = pol_x(0), cp = mkpoln(3, gen_m1, gen_0, gen_1);
  GEN v = cgetg(n+2, t_VEC);
  gel(v, 1) = poleval(c, a);
  for(i = 2; i <= n+1; i++)
  {
    c = ZX_mul(ZX_deriv(c), cp);
    gel(v, i) = gdiv(poleval(c, a), mpfact(i-1));
  }
  return gerepilecopy(av, v);
}
static GEN veccothderivn ( GEN a , long n ) { long i ; pari_sp av = avma ; GEN c = pol_x ( 0 ) , cp = mkpoln ( 3 , gen_m1 , gen_0 , gen_1 ) ; GEN v = cgetg ( n + 2 , t_VEC ) ; gel ( v , 1 ) = poleval ( c , a ) ; for ( i = 2 ; i <= n + 1 ; i ++ ) { c = ZX_mul ( ZX_deriv ( c ) , cp ) ; gel ( v , i ) = gdiv ( poleval ( c , a ) , mpfact ( i - 1 ) ) ; } return gerepilecopy ( av , v ) ; }
Compute contribution of polar part at s when not a pole.
Compute contribution of polar part at s when not a pole .