Subversion Repositories wimsdev

Rev

Rev 7116 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7116 Rev 13585
Line 1... Line 1...
1 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Gang, XIAO
 5 
slib_author=Gang, XIAO
6 
 
 6 
 
7 
slib_example=sin(x),x,0,5,numeric\
 7 
slib_example=sin(x),x,0,5,numeric\
Line 18... Line 18...
18 
slib_var=!varlist $slib_var
 18 
slib_var=!varlist $slib_var
19 
slib_var=!item 1 of $slib_var
 19 
slib_var=!item 1 of $slib_var
20 
!default slib_var=x
 20 
!default slib_var=x
21 
slib_out=
 21 
slib_out=
22 
!if $slib_x1=$slib_empty or $slib_x2=$slib_empty
 22 
!if $slib_x1=$slib_empty or $slib_x2=$slib_empty
23 
 slib_out=!exec maxima integrate($slib_fn,$slib_var);
 23 
  slib_out=!exec maxima integrate($slib_fn,$slib_var);
24 
 !exit
 24 
  !exit
25 
!endif
 25 
!endif
26 
slib_test=$[($slib_x1)+($slib_x2)]
 26 
slib_test=$[($slib_x1)+($slib_x2)]
27 
!if numeric notin $slib_opt
 27 
!if numeric notin $slib_opt
28 
 slib_out=!exec maxima integrate($slib_fn,$slib_var,$slib_x1,$slib_x2);
 28 
  slib_out=!exec maxima integrate($slib_fn,$slib_var,$slib_x1,$slib_x2);
29 
!endif
 29 
!endif
30 
!if ($slib_out=$empty or integrate isin $slib_out or i isvarof $slib_out) \
 30 
!if ($slib_out=$empty or integrate isin $slib_out or i isvarof $slib_out) \
31 
  and NaN notin $slib_test
 31 
  and NaN notin $slib_test
32 
   !!no more a true option (it was not documented), default is fast !
 32 
   !!no more a true option (it was not documented), default is fast !
33 
 !!!if fast isin $slib_opt
 33 
    !!!if fast isin $slib_opt
34 
  slib_out=!exec pari intnum($slib_var=$slib_x1,$slib_x2,$slib_fn)
 34 
  slib_out=!exec pari intnum($slib_var=$slib_x1,$slib_x2,$slib_fn)
35 
 !!!else
 35 
  !!!else
36 
 !! slib_out=!exec pari intnum($slib_var=$slib_x1,$slib_x2,$slib_fn)
 36 
  !! slib_out=!exec pari intnum($slib_var=$slib_x1,$slib_x2,$slib_fn)
37 
 !!!endif
 37 
  !!!endif
38 
!endif
 38 
!endif
39 
 
 -