Subversion Repositories wimsdev

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

slib_author=Adeline Grelot

!exit

:proc
!reset slib_out,slib_weight
slib_parm= !item 1 of $wims_read_parm
slib_data= !item 2 to -1 of $wims_read_parm

# Name of computation must not contain digits et al.
slib_test=!text select 0123456789.-+*_/()[] in $slib_parm
!if $slib_test!=$empty or $slib_parm=$empty or $slib_data=$empty
 !exit
!endif
slib_parm=!singlespace $slib_parm
slib_parm=!trim $slib_parm
slib_parm=!lower $slib_parm
slib_parm=!deaccent $slib_parm

!if $slib_parm isitemof average,arithmetic mean,mean,\
moyenne, moyenne arithmetique, arithmean
 !readproc slib/stat/arithmean $slib_data
 !exit
!endif

!if $slib_parm isitemof deviation, standard deviation
 !readproc slib/stat/deviation $slib_data
 !exit
!endif

!if $slib_parm isitemof median, mediane
 !readproc slib/stat/median $slib_data
 !exit
!endif median

!if $slib_parm isitemof geometric mean, geometric average, moyenne geometrique, geomean
!readproc slib/stat/geomean $slib_data
 !exit
!endif geomean




!if $slib_parm isitemof harmonic, harmonic mean, harmonic average, moyenne harmonique
!readproc slib/stat/harmonic $slib_data
!exit
!endif harmonic

!if $slib_parm isitemof  prod, produit, product, data product
!readproc slib/stat/prod $slib_data
!exit
!endif prod

!if $slib_parm isitemof  sum, somme, data sum
!readproc slib/stat/range $slib_data
!exit
!endif sum


!if $slib_parm isitemof  variance
!readproc slib/stat/variance $slib_data
!exit
!endif 

!if $slib_parm isitemof quadratic, quadratic mean, moyenne quadratique
!readproc slib/stat/quadratic $slib_data
!exit
!endif 

!if $slib_parm isitemof range, data range, etendue, etendu
!readproc slib/stat/range $slib_data
!exit
!endif range