
!warn rawmath
!ifval $factor_cnt=0
  !set wims_module_log=fail: $formula
  La factorización de $formula = 
  !htmlmath $n
  <br>
  falló: error en la fórmula, fórmula desconocida, o excedido el tiempo de ejecución.
  <p>
  !if $myn != NaN
   Este servicio sólo tiene como objetivo ser una herramienta educativa. No ha sido diseñado para
   cálculos de computación avanzada. Lo sentimos.
  !else
   Nótese también que la factorización de polinomios de varias variables solamente está
   implementada sobre $m_ZZ por ahora.
  !endif
  !exit
!endif
!if $is_prime=yes
  $formula = 
  !if $myn != NaN
    $factor_html <br> is a 
    !if $probable!=yes
     !href cmd=help&help_subject=certified (certified)
     prime.
    !else
     !href cmd=help&help_subject=certified (probable)
     primo. Puede hacer click en él para verificar si es primo.
     !read bigprob.phtml
    !endif
  !else
    !htmlmath $n
    <br> es un polinomio irreducible sobre $field_name.
  !endif
!else
  Factorización
  !if $myn = NaN
    de la expresión polinomial $formula en componentes irreducibles sobre $field_name :<p>
    !htmlmath $n
    !if $append!=10
     !if $field<=4
      !set factor_html=$m_pm$factor_html
     !endif
     !if $varcnt>1
      !set factor_html=!htmlmath $factor
     !endif
    !else
      $m_equiv $lead$factor_html &nbsp;&nbsp;(mod $basep)<p>
	!goto dd2
    !endif
    !exec Plouffe = $factor_html
  !else
    !set ff=!htmlmath $formula
    of <i>n</i>&nbsp;=&nbsp;$ff&nbsp;:<p>$n = $factor_html
  !endif
  !if $myn = NaN and $varcnt>1
   <p><b>Nota.</b> La factorización de polinomios de varias varables está implementada 
   solamente sobre $m_ZZ por ahora.
  !endif
  !if $myn != NaN
  !if $probable!=yes
    <p><b>Nota.</b> Todos los factores son 
    !href cmd=help&help_subject=certified verdaderos
    primos, no son primos probables.
  !else
    <p><font color=red><b>Atención.</b></font>
    Los factores en color azul son
    !href cmd=help&help_subject=certified probables primos
.    Debe hacer click en uno para comprobar rigurosamente si es primo.
    !read bigprob.phtml
  !endif
  !endif
  <p>
  
!! $certified<p>

  !if $myn != NaN and $myn > 1 and $is_prime!=yes and $moebius != $empty
    Función de Euler:
    $m_varphi($m_n) = $phi<br>
    Número de divisores de $m_n : $numdiv<br>
    Suma de los divisores de $m_n : $sigma<br>
    Función de Möbius:
    $m_mu($m_n) = $moebius<br>
  !endif
  :dd2
!endif
