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__