# statmap.prm

taille := x -> nops(x) ;
moy    := x -> convert(x,`+`)/taille(x) ;
carre  := x -> x*x ;
var    := moy(map(carre,x)) - carre(moy(x)) ;
ect    := sqrt(var(x)) ;