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 
 
 -