Numerical integration: Difference between revisions

Content added Content deleted

Inline

@@ Line 232: / Line 232: @@
    LONG REAL x:= a;
    WHILE x <= b - h DO
-      sum := sum + (h / 2) * (f(x) + f(x + h));
+      sum := sum + h * f(x + h / 2);
       x +:= h
    OD;