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
 
-