bridge/class-master/depend/pari/src/basemath/QX_factor.c
/* f a squarefree ZX; not divisible by any Phi_n, n even */
f a squarefree ZX; not divisible by any Phi_n, n even
f a squarefree ZX ; not divisible by any Phi_n n even
static GEN
BD_odd(GEN f)
{
  while(degpol(f) > 1)
  {
    GEN f1 = ZX_graeffe(f); 
    if (ZX_equal(f1, f)) return f; 
    f = ZX_gcd(f, f1);
  }
  if (degpol(f) == 1) return BD_deg1(f);
  return NULL; 
}
static GEN BD_odd ( GEN f ) { while ( degpol ( f ) > 1 ) { GEN f1 = ZX_graeffe ( f ) ; if ( ZX_equal ( f1 , f ) ) return f ; f = ZX_gcd ( f , f1 ) ; } if ( degpol ( f ) == 1 ) return BD_deg1 ( f ) ; return NULL ; }
f a squarefree ZX; not divisible by any Phi_n, n even
f a squarefree ZX ; not divisible by any Phi_n n even
/* contain all cyclotomic divisors of f */ /* product of cyclotomics */ /* no cyclotomic divisor */