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