Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif

slib_author=Adeline, Grelot; Bernadette, PERRIN-RIOU

slib_example=[2,-7,6]\
[2,-7,6;1,1,4]\
[2,1;-7,1;6,4]\
[2,-7,6],[1,1,4]

!exit

:proc

!readproc slib/stat/dataproc $wims_read_parm
 slib_cnt=!itemcnt item $slib_data
!if $slib_cnt=0
 slib_out=0
!else
!if $slib_weight<>$empty
slib_d=$empty
!for slib_i =1 to $slib_cnt
slib_w=!item $slib_i of $slib_weight
slib_j=!item $slib_i of $slib_data
slib_r = !values $slib_j for x=1 to $slib_w
slib_d=!append item $slib_r to $slib_d
!next slib_i
slib_data=$slib_d
slib_cnt=!itemcnt item $slib_data
!endif
 slib_fml=$empty

 !for slib_t in  $slib_data
  !!slib_t=!item $slib_i of $slib_data
  slib_fml=!append item $[$slib_t] to $slib_fml
 !next slib_i
 slib_fml=!sort numeric item $slib_fml
 !if $[$slib_cnt%2]=1
  slib_out=!item $[($slib_cnt+1)/2] of $slib_fml
 !else
  slib_t1=!item $[$slib_cnt/2] of $slib_fml
  slib_t2=!item $[$slib_cnt/2+1] of $slib_fml
  slib_out=$[($slib_t1+$slib_t2)/2]
 !endif
!endif
slib_out =!trim $slib_out