Subversion Repositories wimsdev

!goto $wims_read_parm

:def
title=Factorisation
synonyme=factoriser, factorise
input=function
!exit

:proc
vars=!varlist nofn $formula
!if $vars=$empty
  result=!exec pari print(factor($formula));
  factor_html=
  result=!translate ; to $\
$ in $result
  result=!trim $result
  fn=!linecnt $result
  !for k from 1 to $fn
    ii=!line $k of $result
    !distribute items $ii into base,power
    !if $k>1
      factor_html=$factor_html <span class="green">&times;</span>
    !endif
    factor_html=$factor_html $base
    !ifval $power != 1
      factor_html=$factor_html<sup>$power</sup>
    !endif
  !next k
!else
  result=!exec maxima factor($formula);
!endif
!exit

:output
!htmlmath $formula
 =
!if $vars=$empty
  $factor_html
!else
  !htmlmath $result
!endif
!exit