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