hamming ( n -- seq ) (original) (raw)

hamming ( n -- seq )

Vocabulary
math.extras

Inputs

Outputs

Word description
Return the Hamming window.

Definition

USING: arrays kernel math math.functions sequences ;

IN: math.extras

: hamming ( n -- seq )
dup 1 <=
[ 1 = [ 1 1array ] [ { } ] if ]
[ [0,2pi] [ cos -0.46 * 0.54 + ] map! ] if ;