approximation-increment ( k*B_i A*h x..nt -- x..nt' )

Vocabulary

math.runge-kutta

Inputs

k*B_i	an object
A*h	an object
x..nt	an object

Outputs

x..nt'

an object

Definition

USING: kernel math math.vectors sequences ;

IN: math.runge-kutta

: approximation-increment ( k*B_i A*h x..nt -- x..nt' )
    [ but-last swap [ v+ ] unless-empty ] [ last + ] bi-curry
    bi* suffix ;