bridge/class-master/depend/pari/src/basemath/base2.c
/* check whether P is a polynomials with coeffs in number field Q[y]/(T) */
check whether P is a polynomials with coeffs in number field Q[y]/(T)
check whether P is a polynomials with coeffs in number field Q [ y ] / ( T )
GEN
RgX_nffix(const char *f, GEN T, GEN P, int lift)
{
  long i, l, vT = varn(T);
  GEN Q = cgetg_copy(P, &l);
  if (typ(P) != t_POL) pari_err_TYPE(stack_strcat(f," [t_POL expected]"), P);
  if (varncmp(varn(P), vT) >= 0) pari_err_PRIORITY(f, P, ">=", vT);
  Q[1] = P[1];
  for (i=2; i<l; i++) gel(Q,i) = Rg_nffix(f, T, gel(P,i), lift);
  return normalizepol_lg(Q, l);
}
GEN RgX_nffix ( const char * f , GEN T , GEN P , int lift ) { long i , l , vT = varn ( T ) ; GEN Q = cgetg_copy ( P , & l ) ; if ( typ ( P ) != t_POL ) pari_err_TYPE ( stack_strcat ( f , " " ) , P ) ; if ( varncmp ( varn ( P ) , vT ) >= 0 ) pari_err_PRIORITY ( f , P , " " , vT ) ; Q [ 1 ] = P [ 1 ] ; for ( i = 2 ; i < l ; i ++ ) gel ( Q , i ) = Rg_nffix ( f , T , gel ( P , i ) , lift ) ; return normalizepol_lg ( Q , l ) ; }
check whether P is a polynomials with coeffs in number field Q[y]/(T)
check whether P is a polynomials with coeffs in number field Q [ y ] / ( T )