Subversion Repositories wimsdev

Rev

Rev 20 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 16136
Line 1... Line 1...
1 
# Standardized expression simplification.
 1 
# Standardized expression simplification.
2 
# Input are lines.
 2 
# Input are lines.
3 
# Output are lines, in $out.
 3 
# Output are lines, in $out.
4 
 
 4 
 
5 
!if nosimplify iswordof $m_options
 5 
!if nosimplify iswordof $m_options
6 
 out=!translate internal $	$ to $ $ in $wims_read_parm
 6 
  out=!translate internal $	$ to $ $ in $wims_read_parm
7 
 !exit
 7 
  !exit
8 
!endif
 8 
!endif
9 
 
 9 
 
10 
I__=!nonempty lines $wims_read_parm
 10 
I__=!nonempty lines $wims_read_parm
11 
n__=!linecnt $I__
 11 
n__=!linecnt $I__
12 
!reset out,p__
 12 
!reset out,p__
13 
!for i__=1 to $n__
 13 
!for i__=1 to $n__
14 
 l__=!line $i__ of $I__
 14 
  l__=!line $i__ of $I__
15 
 l__=$maximasimp($l__)
 15 
  l__=$maximasimp($l__)
16 
 !if expand iswordof $m_options
 16 
  !if expand iswordof $m_options
17 
  l__=expand($l__)
 17 
    l__=expand($l__)
18 
 !endif
 18 
  !endif
19 
 !if factor iswordof $m_options
 19 
  !if factor iswordof $m_options
20 
  l__=factor($l__)
 20 
    l__=factor($l__)
21 
 !endif
 21 
  !endif
22 
 p__=!append line $l__; to $p__
 22 
  p__=!append line $l__; to $p__
23 
!next i__
 23 
!next i__
24 
 
 24 
 
25 
out=!exec maxima $p__
 25 
out=!exec maxima $p__
26 
 
 -