Compact Simpson's 3/8 Rule(??)

[Dieter]

(12-13-2015 02:26 PM)Namir Wrote:  The variable I cycles between 1, 2, and 3. The coefficient C is calculated using a special (and simple) quadratic equation to yield 3, 3, and 2 for I=1, 2, and 3.

Waaaayyyyyy too complicated. ;-)
Instead of i=1, 2, 3 make it 0, 1, 2 and get c = 2 + sign(i).
This doesn't even require two separate variables i and n (cf. second code sample).

Code:

h = (b - a) / n
sum = f(a) + f(b)

For i = 1 To n - 1
  c = 2 + Sgn(i Mod 3)
  sum = sum + c * f(a + i * h)
Next

result = 3 / 8 * h * sum

Or, if you do not like for-next-loops and prefer while/repeat:

Code:

h = (b - a) / n
sum = f(a) + f(b)
n = n - 1

Do
  a = a + h
  c = 2 + Sgn(n Mod 3)
  sum = sum + c * f(a)
  n = n - 1
Loop Until n = 0

result = 3 / 8 * h * sum

Those who are a bit paranoid about floating point arithmetics and exact zero results may replace the exit condition with something like Loop Until n+4711 = 4711. ;-)

Dieter