steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.extras: adding moving-median.

db4
John Benediktsson 2012-05-04 14:23:15 -07:00
parent 0435098bd8
commit a2f8735c9a
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/extras/extras-tests.factor
View File

@ -18,3 +18,5 @@ IN: math.extras.test
[ 6 [1,b] 1/2 exponential-moving-average ] unit-test
{ { 1 3 3 5 5 7 7 9 9 11 } }
[ 10 [1,b] 2 exponential-moving-average ] unit-test
{ { 2 5 5 4 3 } } [ { 1 2 5 6 1 4 3 } 3 moving-median ] unit-test

5
extra/math/extras/extras.factor
View File

@ -87,7 +87,10 @@ PRIVATE>
check-legendere jacobi ;
: moving-average ( seq n -- newseq )
clump [ mean ] map ;
<clumps> [ mean ] map ;
: exponential-moving-average ( seq a -- newseq )
[ 1 ] 2dip [ [ dupd swap - ] dip * + dup ] curry map nip ;
: moving-median ( u n -- v )
<clumps> [ median ] map ;