Subversion Repositories wimsdev

Rev

Rev 4501 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
13586 bpr 2
  !goto proc
20 reyssat 3
!endif
4161 bpr 4
 
4330 bpr 5
slib_author=Adeline, Grelot
4161 bpr 6
 
20 reyssat 7
slib_example=[2,-7,6]\
8
[2,7,6;1,1,4]\
9
[2,1;7,1;6,4]\
10
[2,7,6],[1,1,4]
3265 bpr 11
slib_require=pari
20 reyssat 12
!exit
13
 
14
:proc
15
 
16
!readproc slib/stat/dataproc $wims_read_parm
17
 
18
!if $slib_cnt=0
19
	slib_out=1
20
!else
21
	!if $slib_weight =$empty
13586 bpr 22
	  slib_out=!product x for x in $slib_data
20 reyssat 23
	!else
13586 bpr 24
	  slib_cnt=!itemcnt $slib_data
4501 bpr 25
		slib_out=!exec pari print(prod(x=1,$slib_cnt,[$slib_data][x]^([$slib_weight][x])))
20 reyssat 26
	!endif weight
27
!endif
28
slib_out =!trim $slib_out