Subversion Repositories wimsdev

Rev

Rev 7692 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 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; Bernadette, PERRIN-RIOU
 5 
slib_author=Adeline, Grelot; Bernadette, PERRIN-RIOU
6 
 
 6 
 
7 
slib_example=[2,-7,6]\
 7 
slib_example=[2,-7,6]\
Line 12... Line 12...
12 
!exit
 12 
!exit
13 
 
 13 
 
14 
:proc
 14 
:proc
15 
 
 15 
 
16 
!readproc slib/stat/dataproc $wims_read_parm
 16 
!readproc slib/stat/dataproc $wims_read_parm
17 
 slib_cnt=!itemcnt item $slib_data
 17 
slib_cnt=!itemcnt item $slib_data
18 
!if $slib_cnt=0
 18 
!if $slib_cnt=0
19 
 slib_out=0
 19 
  slib_out=0
20 
!else
 20 
!else
21 
!if $slib_weight<>$empty
 21 
  !if $slib_weight<>$empty
22 
slib_d=$empty
 22 
    slib_d=$empty
23 
!for slib_i =1 to $slib_cnt
 23 
    !for slib_i =1 to $slib_cnt
24 
slib_w=!item $slib_i of $slib_weight
 24 
      slib_w=!item $slib_i of $slib_weight
25 
slib_j=!item $slib_i of $slib_data
 25 
      slib_j=!item $slib_i of $slib_data
26 
slib_r = !values $slib_j for x=1 to $slib_w
 26 
      slib_r = !values $slib_j for x=1 to $slib_w
27 
slib_d=!append item $slib_r to $slib_d
 27 
      slib_d=!append item $slib_r to $slib_d
28 
!next slib_i
 28 
    !next slib_i
29 
slib_data=$slib_d
 29 
  slib_data=$slib_d
30 
slib_cnt=!itemcnt item $slib_data
 30 
  slib_cnt=!itemcnt item $slib_data
31 
!endif
 31 
  !endif
32 
 slib_fml=$empty
 32 
  slib_fml=$empty
33 
 
 33 
 
34 
 !for slib_t in  $slib_data
 34 
  !for slib_t in  $slib_data
35 
  !!slib_t=!item $slib_i of $slib_data
 35 
    !!slib_t=!item $slib_i of $slib_data
36 
  slib_fml=!append item $[$slib_t] to $slib_fml
 36 
    slib_fml=!append item $[$slib_t] to $slib_fml
37 
 !next slib_i
 37 
  !next slib_i
38 
 slib_fml=!sort numeric item $slib_fml
 38 
  slib_fml=!sort numeric item $slib_fml
39 
 !if $[$slib_cnt%2]=1
 39 
  !if $[$slib_cnt%2]=1
40 
  slib_out=!item $[($slib_cnt+1)/2] of $slib_fml
 40 
    slib_out=!item $[($slib_cnt+1)/2] of $slib_fml
41 
 !else
 41 
  !else
42 
  slib_t1=!item $[$slib_cnt/2] of $slib_fml
 42 
    slib_t1=!item $[$slib_cnt/2] of $slib_fml
43 
  slib_t2=!item $[$slib_cnt/2+1] of $slib_fml
 43 
    slib_t2=!item $[$slib_cnt/2+1] of $slib_fml
44 
  slib_out=$[($slib_t1+$slib_t2)/2]
 44 
    slib_out=$[($slib_t1+$slib_t2)/2]
45 
 !endif
 45 
  !endif
46 
!endif
 46 
!endif
47 
slib_out =!trim $slib_out
 47 
slib_out =!trim $slib_out