hamming ( n -- seq ) - Factor Documentation

Vocabulary
math.extras

Inputs and outputs

n	an integer
seq	a sequence

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 ;