bridge/class-master/depend/pari/src/basemath/mftrace.c
/* embed vector of polynomials in var vx */
embed vector of polynomials in var vx
embed vector of polynomials in var vx
static GEN
RgXV_embed(GEN f, long vx, GEN E)
{
  long i, l;
  GEN v;
  if (lg(E) == 1) return f;
  v = cgetg_copy(f, &l);
  for (i = 1; i < l; i++) gel(v,i) = RgX_embed(gel(f,i), vx, E);
  return v;
}
static GEN RgXV_embed ( GEN f , long vx , GEN E ) { long i , l ; GEN v ; if ( lg ( E ) == 1 ) return f ; v = cgetg_copy ( f , & l ) ; for ( i = 1 ; i < l ; i ++ ) gel ( v , i ) = RgX_embed ( gel ( f , i ) , vx , E ) ; return v ; }
embed vector of polynomials in var vx
embed vector of polynomials in var vx