Rev 20 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 20 | Rev 16136 | ||
---|---|---|---|
Line 6... | Line 6... | ||
6 | tvars__=!varlist $I__ |
6 | tvars__=!varlist $I__ |
7 | tvars__=!lower $tvars__ |
7 | tvars__=!lower $tvars__ |
8 | tvars__=!listintersect $tvars__ and \ |
8 | tvars__=!listintersect $tvars__ and \ |
9 | cos,sin,tan,tg,ctan,ctg,sec,csc,cosh,sinh,tanh,ch,sh,th |
9 | cos,sin,tan,tg,ctan,ctg,sec,csc,cosh,sinh,tanh,ch,sh,th |
10 | !if $tvars__!=$empty |
10 | !if $tvars__!=$empty |
11 | I__=!replace internal $\ |
11 | I__=!replace internal $\ |
12 | $ by ))\ |
12 | $ by ))\ |
13 | trigreduce(trigsimp( in trigreduce(trigsimp($I__)) |
13 | trigreduce(trigsimp( in trigreduce(trigsimp($I__)) |
14 | !endif |
14 | !endif |
15 | 15 | ||
16 | n__=!linecnt $I__ |
16 | n__=!linecnt $I__ |
17 | !reset out,p__ |
17 | !reset out,p__ |
18 | !for i__=1 to $n__ |
18 | !for i__=1 to $n__ |
19 | l__=!line $i__ of $I__ |
19 | l__=!line $i__ of $I__ |
20 | p__=!append line if $maximasimp($l__)=0 then "yes" else "no"; to $p__ |
20 | p__=!append line if $maximasimp($l__)=0 then "yes" else "no"; to $p__ |
21 | !next i__ |
21 | !next i__ |
22 | 22 | ||
23 | out=!exec maxima $p__ |
23 | out=!exec maxima $p__ |
24 | out=!replace internal " by $ in $out |
24 | out=!replace internal " by $ in $out |
25 | - |