Numerical integration: Difference between revisions

Content added Content deleted

Inline

@@ Line 398: / Line 398: @@
 =={{header|BASIC}}==
-{{incorrect|BASIC|midRect is not sampling midpoints but recreating trap differently}}
 {{works with|QuickBasic|4.5}}
 {{trans|Java}}
 <lang qbasic>FUNCTION leftRect(a, b, n)
      h = (b - a) / n
@@ Line 423: / Line 421: @@
      h = (b - a) / n
      sum = 0
-     FOR x = a TO b - h STEP h
+     FOR x = a + h / 2 TO b - h / 2 STEP h
-        sum = sum + (h / 2) * (f(x) + f(x + h))
+        sum = sum + h * (f(x))
      NEXT x
      midRect = sum
@@ Line 444: / Line 442: @@
      FOR i = 0 TO n-1
-        sum1 = sum + f(a + h * i + h / 2)
+        sum1 = sum1 + f(a + h * i + h / 2)
      NEXT i