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__