Numerical integration/Adaptive Simpson's method: Difference between revisions

Content added Content deleted
(Added Standard ML before →‎{{header|Wren}})
Line 1,300: Line 1,300:
val h = b - a
val h = b - a
in
in
(m, fm, (h / 6.0) * (f (a) + (4.0 * fm) + f (b)))
(m, fm, (h / 6.0) * (fa + (4.0 * fm) + fb))
end
end