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