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 |
|
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 |