RosettaCodeData/Task/Euler-method/Racket/euler-method-6.rkt
Ingy döt Net 6f050a029e update
2013-06-05 21:47:54 +00:00

4 lines
138 B
Racket

(define (RK2 F h)
(λ (x y)
(list (+ x h) (+ y (* h (F (+ x (* 1/2 h))
(+ y (* 1/2 h (F x y)))))))))