RosettaCodeData/Task/Averages-Simple-moving-average/Mathematica/averages-simple-moving-average-2.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

6 lines
193 B
Text

MAData = {{}, 0};
MAS[x_, t_: Null] :=
With[{r = If[t === Null, MAData[[2]], t]},
Mean[MAData[[1]] =
If[Length[#] > (MAData[[2]] = r), #[[-r ;; -1]], #] &@
Append[MAData[[1]], x]]]