Averages/Simple moving average: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 3,780: | Line 3,780: | ||
Next number = 2 , SMA = 3.8 |
Next number = 2 , SMA = 3.8 |
||
Next number = 1 , SMA = 3 </pre> |
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}}== |
=={{header|R}}== |