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