integrate-simpson ( from to quot -- x )

Vocabulary

math.numerical-integration

Inputs

from	an object
to	an object
quot	an object

Outputs

x

an object

Definition

USING: kernel math math.vectors sequences ;

IN: math.numerical-integration

: integrate-simpson ( from to quot -- x )
    [ setup-simpson-range dup ] dip map
    dup generate-simpson-weights vdot swap [ third ] keep
    first - 6 / * ; inline