WQ,  FS  2013

(*  ProgrammierBeispiel:  Gleitende Summe  *)

liste=Table[Random[Integer,20],{24}]
subliste=Table[liste[[i+Range[4]]],{i,0,20}]

(* analoges Resultat bringt *)

sub2=Partition[liste,4,1]

summe4=Apply[Plus,#]& /@ sub2

(* analoges Resultat bringt *)

sum24=Apply[Plus,sub2,{1}]

summe4/4

(* allgemeine Definition *)

gleiDurch[list_List,n_Integer?(#>0&)]:=(Apply[Plus,#]& /@ Table[list[[i+Range[n] ]], {i,0,Length[list]-n}])/n

(* Beispiel.  Verrauschte SinusKurve glaetten  *)

li1=Table[{x,2 Sin[x]+Random[]-0.5},{x,0,Pi,0.01}];

li2=gleiDurch[li1,20];

p1=ListLinePlot[li1];
p2=ListLinePlot[li2];

GraphicsGrid[{{p1,p2}}]