bridge/class-master/depend/pari/src/basemath/QX_factor.c
/* Let f be a non-zero QX, return the (squarefree) product of cyclotomic
 * divisors of f */
Let f be a non-zero QX, return the (squarefree) product of cyclotomic
divisors of f
Let f be a non - zero QX return the ( squarefree ) product of cyclotomic divisors of f
GEN
polcyclofactors(GEN f)
{
  pari_sp av = avma;
  if (typ(f) != t_POL || !signe(f)) pari_err_TYPE("polcyclofactors",f);
  (void)RgX_valrem(f, &f);
  f = Q_primpart(f);
  RgX_check_ZX(f,"polcyclofactors");
  if (degpol(f))
  {
    f = BD(ZX_radical(f));
    if (f) return gerepilecopy(av, f);
  }
  avma = av; return cgetg(1,t_VEC);
}
GEN polcyclofactors ( GEN f ) { pari_sp av = avma ; if ( typ ( f ) != t_POL || ! signe ( f ) ) pari_err_TYPE ( " " , f ) ; ( void ) RgX_valrem ( f , & f ) ; f = Q_primpart ( f ) ; RgX_check_ZX ( f , " " ) ; if ( degpol ( f ) ) { f = BD ( ZX_radical ( f ) ) ; if ( f ) return gerepilecopy ( av , f ) ; } avma = av ; return cgetg ( 1 , t_VEC ) ; }
Let f be a non-zero QX, return the (squarefree) product of cyclotomic
 divisors of f
Let f be a non - zero QX return the ( squarefree ) product of cyclotomic divisors of f