Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 16136
Line 6... Line 6...
6 
n__=!linecnt $I__
 6 
n__=!linecnt $I__
7 
!reset out,p__
 7 
!reset out,p__
8 
!distribute item integerp,ratnump,constantp into p_ZZ,p_QQ,p_RR
 8 
!distribute item integerp,ratnump,constantp into p_ZZ,p_QQ,p_RR
9 
ch__=$(p_$m_environ)
 9 
ch__=$(p_$m_environ)
10 
!for i__=1 to $n__
 10 
!for i__=1 to $n__
11 
 l__=!line $i__ of $I__
 11 
  l__=!line $i__ of $I__
12 
 l__=$maximasimp($l__)
 12 
  l__=$maximasimp($l__)
13 
 !if $m_environ notwordof ZZ QQ RR
 13 
  !if $m_environ notwordof ZZ QQ RR
14 
  p__=!append line "bad"; to $p__
 14 
    p__=!append line "bad"; to $p__
15 
 !else
 15 
  !else
16 
  p__=!append line $ch__($l__); to $p__
 16 
    p__=!append line $ch__($l__); to $p__
17 
 !endif
 17 
  !endif
18 
!next i__
 18 
!next i__
19 
 
 19 
 
20 
out__=!exec maxima $p__
 20 
out__=!exec maxima $p__
21 
 
 21 
 
22 
!for i__=1 to $n__
 22 
!for i__=1 to $n__
23 
 l__=!line $i__ of $out__
 23 
  l__=!line $i__ of $out__
24 
 !if $l__ notwordof true false
 24 
  !if $l__ notwordof true false
25 
  l__=bad
 25 
    l__=bad
26 
 !endif
 26 
  !endif
27 
 out=!append line $l__ to $out
 27 
  out=!append line $l__ to $out
28 
!next i__
 28 
!next i__
29 
 
 -