Rev 7692 | Blame | Compare with Previous | Last modification | View Log | RSS feed
!if $wims_read_parm!=slib_header
!goto proc
!endif
slib_parms=1\
,[data] or [data],[weight]
slib_author=Adeline, Grelot
slib_example=[1,2;3,4;3,5]\
[1,3,3],[2,4,5]
slib_require=pari
!exit
:proc
!readproc slib/stat/dataproc $wims_read_parm
!if $slib_cnt =0
slib_out=0
!exit
!else
!if $slib_weight=$empty
slib_data=!sum x for x in $slib_data
slib_out=$[($slib_data)/$slib_cnt],$slib_cnt
slib_out =!trim $slib_out
!exit
!else
slib_out=!exec pari print(([$slib_data]*[$slib_weight]~)/$slib_tw","$slib_tw);
slib_out =!trim $slib_out
!endif
!endif