Averages/Simple moving average: Difference between revisions
Added Quackery.
(Added Quackery.) |
|||
Line 3,780:
Next number = 2 , SMA = 3.8
Next number = 1 , SMA = 3 </pre>
=={{header|Quackery}}==
<lang Quackery> [ $ "bigrat.qky" loadfile ] now!
[ over size -
space swap of
swap join ] is justify ( $ n --> $ )
[ ' [ stack [ ] ]
copy nested
' [ tuck take swap join
dup size ] join
swap join
' [ > if
[ 1 split nip ]
tuck swap put
0 over witheach +
swap size
dip n->v n->v v/ ]
join copy ] is make-sma ( n --> [ )
( behaviour of [ is: n --> n/d )
[ stack ] is sma-3 ( --> s )
3 make-sma sma-3 put
[ stack ] is sma-5 ( --> s )
5 make-sma sma-5 put
say "n sma-3 sma-5" cr
say "-----------------------" cr
' [ 1 2 3 4 5 5 4 3 2 1 ]
witheach
[ dup echo sp
dup sma-3 share do
7 point$ 10 justify echo$ sp
sma-5 share do
7 point$ 10 justify echo$ cr ]</lang>
{{out}}
<pre>n sma-3 sma-5
-----------------------
1 1 1
2 1.5 1.5
3 2 2
4 3 2.5
5 4 3
5 4.6666667 3.8
4 4.6666667 4.2
3 4 4.2
2 3 3.8
1 2 3
</pre>
=={{header|R}}==
| |||