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

math.extras: rename 2pi-range to [0,2pi].

db4
John Benediktsson 2013-04-22 11:56:23 -07:00
parent 5f543dd8af
commit 66e3138f4b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -123,22 +123,22 @@ PRIVATE>
] curry map ] curry map
] if ; ] if ;
: 2pi-range ( n -- seq ) : [0,2pi] ( n -- seq )
[ iota ] [ 1 - 2pi swap / ] bi v*n ; [ iota ] [ 1 - 2pi swap / ] bi v*n ;
: hanning ( n -- seq ) : hanning ( n -- seq )
dup 1 <= [ 1 = [ 1 1array ] [ { } ] if ] [ dup 1 <= [ 1 = [ 1 1array ] [ { } ] if ] [
2pi-range [ cos -0.5 * 0.5 + ] map! [0,2pi] [ cos -0.5 * 0.5 + ] map!
] if ; ] if ;
: hamming ( n -- seq ) : hamming ( n -- seq )
dup 1 <= [ 1 = [ 1 1array ] [ { } ] if ] [ dup 1 <= [ 1 = [ 1 1array ] [ { } ] if ] [
2pi-range [ cos -0.46 * 0.54 + ] map! [0,2pi] [ cos -0.46 * 0.54 + ] map!
] if ; ] if ;
: blackman ( n -- seq ) : blackman ( n -- seq )
dup 1 <= [ 1 = [ 1 1array ] [ { } ] if ] [ dup 1 <= [ 1 = [ 1 1array ] [ { } ] if ] [
2pi-range [ [0,2pi] [
[ cos -0.5 * ] [ 2 * cos 0.08 * ] bi + 0.42 + [ cos -0.5 * ] [ 2 * cos 0.08 * ] bi + 0.42 +
] map ] map
] if ; ] if ;