hamming ( n -- seq )

Vocabulary

math.extras

Inputs

n	an integer

Outputs

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 ;