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