Subversion Repositories wimsdev

# Standardized expression simplification.

# Input are lines.

# Output are lines, in $out.

!if nosimplify iswordof $m_options

 out=!translate internal $	$ to $ $ in $wims_read_parm

 !exit

!endif

I__=!nonempty lines $wims_read_parm

n__=!linecnt $I__

!reset out,p__

!for i__=1 to $n__

 l__=!line $i__ of $I__

 l__=$maximasimp($l__)

 !if expand iswordof $m_options

  l__=expand($l__)

 !endif

 !if factor iswordof $m_options

  l__=factor($l__)

 !endif

 p__=!append line $l__; to $p__

!next i__

out=!exec maxima $p__