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 | - |