AW: For-Schleife/Neue Liste für Ergebnisse

[Klamser@XXXXXXX.de (Peter Klamser)]

Hallo Michail,

wie würde Wolfram so etwas lösen.

unter Mathematica/AddOns/StandardPackages/Statistics findet man

DataSmoothing.m

und dort

MovingAverage[data_List, (n_Integer)?Positive] :=
        Drop[Apply[Plus, NestList[RotateRight, data, n-1]], n-1]/n

Mit

data=Table[Random[],{1000}]

kann man Testdaten erzeugen.

Mit

ListPlot[MovingAverage[data,20]]

kann man das Ergebnis betrachten.


Gruß Peter Klamser

-----Ursprüngliche Nachricht-----
Von: owner-dmug@XXXXXXX.ch [mailto:owner-dmug@XXXXXXX.ch]Im
Auftrag von Michail Koslov
Gesendet: Freitag, 7. Juli 2000 22:51
An: dmug@XXXXXXX.ch
Betreff: For-Schleife/Neue Liste für Ergebnisse


Hallo Mathematica-Experten,

mit einer For-Schleife
For[i=1, i<=N-20, i++, ....]

möchte ich für die Liste (list={1,...,N}) bei jedem i eine
Funktion (z.B. Mittelwert) für jewels 20 Beobachtungen gleitend
berechnen. Der Output sollte eine neue Liste
mit Ergebnissen der Berechnung (ergeb={ergeb1,...,ergebN-20}) sein.

Vielen Dank
MK