Subversion Repositories wimsdev

Rev

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

Rev 4501 Rev 13586
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=Adeline, Grelot
 5 
slib_author=Adeline, Grelot
6 
 
 6 
 
7 
slib_example=[2,-7,6]\
 7 
slib_example=[2,-7,6]\
Line 17... Line 17...
17 
 
 17 
 
18 
!if $slib_cnt=0
 18 
!if $slib_cnt=0
19 
	slib_out=1
 19 
	slib_out=1
20 
!else
 20 
!else
21 
	!if $slib_weight =$empty
 21 
	!if $slib_weight =$empty
22 
	slib_out=!product x for x in $slib_data
 22 
	  slib_out=!product x for x in $slib_data
23 
	!else
 23 
	!else
24 
	slib_cnt=!itemcnt $slib_data
 24 
	  slib_cnt=!itemcnt $slib_data
25 
		slib_out=!exec pari print(prod(x=1,$slib_cnt,[$slib_data][x]^([$slib_weight][x])))
 25 
		slib_out=!exec pari print(prod(x=1,$slib_cnt,[$slib_data][x]^([$slib_weight][x])))
26 
	!endif weight
 26 
	!endif weight
27 
!endif
 27 
!endif
28 
slib_out =!trim $slib_out
 28 
slib_out =!trim $slib_out