cosine-wave ( steps -- seq )

Vocabulary

ui.gadgets.charts.demos

Inputs

steps

an object

Outputs

seq

an object

Definition

USING: arrays kernel math math.constants math.functions
sequences ;

IN: ui.gadgets.charts.demos

: cosine-wave ( steps -- seq )
    [ <iota> ] keep pi 2 * swap /
    [ * pi - dup cos 2array ] curry map
    { 3.141592653589793 -1.0 } suffix ;