Averages/Simple moving average: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,787: / Line 3,787: @@
   [ over size -
     space swap of
-    swap join ]            is justify  ( $ n --> $ )
+    join ]                 is pad      ( $ n --> $ )
   [ ' [ stack [ ] ]
@@ Line 3,809: / Line 3,809: @@
 make-sma sma-5 put
-  say "n      sma-3      sma-5" cr
+  say "n sma-3      sma-5" cr cr
-  say "-----------------------" cr
   ' [ 1 2 3 4 5 5 4 3 2 1 ]
   witheach
     [ dup echo sp
       dup sma-3 share do
-point$ 10 justify echo$ sp
+point$ 10 pad echo$ sp
       sma-5 share do
-point$ 10 justify echo$ cr ]</lang>
+point$ 10 pad echo$ cr ]
+</lang>
 {{out}}
-<pre>n      sma-3      sma-5
+<pre>n sma-3      sma-5
------------------------
 1          1
 1.5        1.5
 2          2
-3        2.5
+3          2.5
 4          3
-4.6666667        3.8
+4.6666667  3.8
-4.6666667        4.2
+4.6666667  4.2
-4        4.2
+4          4.2
-3        3.8
+3          3.8
 2          3
 </pre>