Anonymous user
Averages/Simple moving average: Difference between revisions
Mathematica
(Mathematica) |
(Mathematica) |
||
Line 678:
If[Length[#] > (MAData[[2]] = r), #[[-r ;; -1]], #] &@
Append[MAData[[1]], x]]]</lang>
Tests:
<lang Mathematica>
MA[{1, 2, 3, 4, 5, 5, 4, 3, 2, 1}, 5]
=> {1, 3/2, 2, 5/2, 3, 19/5, 21/5, 21/5, 19/5, 3}
MAS[1, 5] => 1
MAS[2] => 3/2
MAS[3] => 2
MAS[4] => 5/2
MAS[5] => 3
MAS[5] => 19/5
MAS[4] => 21/5
MAS[3] => 21/5
MAS[2] => 19/5
MAS[1] => 3
</lang>
=={{header|Oz}}==
|