(adapt-stepsize) ( n epsilon -- n' )

Vocabulary

math.runge-kutta

Inputs

n	an object
epsilon	an object

Outputs

n'

an object

Definition

USING: kernel math math.functions ;

IN: math.runge-kutta

: (adapt-stepsize) ( n epsilon -- n' )
    swap /f 1 rk-order 1 + /f ^ 0.9 * ;