Numerical integration: Difference between revisions

Content added Content deleted
(Added 11l)
Line 3,527: Line 3,527:
end</lang>
end</lang>


=={{header|Mathematica}}==
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>leftRect[f_, a_Real, b_Real, N_Integer] :=
<lang Mathematica>leftRect[f_, a_Real, b_Real, N_Integer] :=
Module[{sum = 0, dx = (b - a)/N, x = a, n = N} ,
Module[{sum = 0, dx = (b - a)/N, x = a, n = N} ,