blackman ( n -- seq )

Vocabulary

math.extras

Inputs

n	an integer

Outputs

seq	a sequence

Word description

Return the Blackman window.

Definition

USING: arrays kernel math math.functions sequences ;

IN: math.extras

: blackman ( n -- seq )
    dup 1 <=
    [ 1 = [ 1 1array ] [ { } ] if ] [
        [0,2pi]
        [ [ cos -0.5 * ] [ 2 * cos 0.08 * ] bi + 0.42 + ] map
    ] if ;