Runge-Kutta method: Difference between revisions
Content deleted Content added
→{{header|Perl 6}}: golfing a bit |
m →{{header|Perl 6}}: minor rewrite |
||
Line 502: | Line 502: | ||
t + δt, y + 6 R/ [+] <1 2 2 1> Z* |
t + δt, y + 6 R/ [+] <1 2 2 1> Z* |
||
map { |
map { |
||
state $ |
state $dy = 0; |
||
$dy = δt * yp(t + $_*δt, y + $_*$dy) |
|||
}, <0 1/2 1/2 1>; |
}, <0 1/2 1/2 1>; |
||
} |
} |