Subversion Repositories wimsdev

Rev

Rev 4161 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
3 
!endif
4 
slib_title=Data range
5 
slib_parms=1\
6 
 ,data as items, words or lines
7 
slib_author=Adeline Grelot  and Bernadette PERRIN-RIOU
8 
slib_out=data range
9 
slib_example=1,3,5,0,10,-4\
10 
1 3 5 0 10 -4\
11 
1;3;5;0;10;-4
12 
!exit
13 
 
14 
:proc
15 
!readproc slib/stat/dataproc $wims_read_parm
16 
 
17 
!if $slib_data=$empty
18 
slib_out=0
19 
!else
20 
slib_data=!line 1 of $slib_data
21 
slib_data=!sort numeric item $slib_data
22 
slib_min=!item 1 of $slib_data
23 
slib_max=!item -1 of $slib_data
24 
slib_out=$[$slib_max-($slib_min)]
25 
!endif
26 
 
27 
slib_out=!trim $slib_out