Numerical integration/Adaptive Simpson's method: Difference between revisions
Content added Content deleted
(→{{header|Common Lisp}}: Do not needlessly recompute f.) |
(→{{header|D}}: Do not needlessly recompute f.) |
||
Line 525: | Line 525: | ||
auto h = b - a; |
auto h = b - a; |
||
return tuple!("m", "fm", "quadval") |
return tuple!("m", "fm", "quadval") |
||
(m, fm, (h / 6) * ( |
(m, fm, (h / 6) * (fa + 4*fm + fb)); |
||
} |
} |
||