bridge/class-master/depend/pari/src/basemath/galconj.c
/* Polynomial attached to a vector of conjugates. Not stack clean */
Polynomial attached to a vector of conjugates. Not stack clean
Polynomial attached to a vector of conjugates . Not stack clean
static GEN
vectopol(GEN v, GEN M, GEN den , GEN mod, GEN mod2, long x)
{
  long l = lg(v)+1, i;
  GEN z = cgetg(l,t_POL);
  z[1] = evalsigne(1)|evalvarn(x);
  for (i=2; i<l; i++)
    gel(z,i) = gdiv(centermodii(ZMrow_ZC_mul(M,v,i-1), mod, mod2), den);
  return normalizepol_lg(z, l);
}
static GEN vectopol ( GEN v , GEN M , GEN den , GEN mod , GEN mod2 , long x ) { long l = lg ( v ) + 1 , i ; GEN z = cgetg ( l , t_POL ) ; z [ 1 ] = evalsigne ( 1 ) | evalvarn ( x ) ; for ( i = 2 ; i < l ; i ++ ) gel ( z , i ) = gdiv ( centermodii ( ZMrow_ZC_mul ( M , v , i - 1 ) , mod , mod2 ) , den ) ; return normalizepol_lg ( z , l ) ; }
Polynomial attached to a vector of conjugates.
Polynomial attached to a vector of conjugates .