Romberg's method

Revision as of 15:13, 25 May 2025 by imported>OAbot (Open access bot: url-access updated in citation with #oabot.)
(diff) ← Previous revision | Latest revision (diff) | Newer revision → (diff)

Template:Short description Template:About

In numerical analysis, Romberg's method<ref>Template:Harvnb</ref> is used to estimate the definite integral <math display="block"> \int_a^b f(x) \, dx </math> by applying Richardson extrapolation<ref>Template:Harvnb</ref> repeatedly on the trapezium rule or the rectangle rule (midpoint rule). The estimates generate a triangular array. Romberg's method is a Newton–Cotes formula – it evaluates the integrand at equally spaced points. The integrand must have continuous derivatives, though fairly good results may be obtained if only a few derivatives exist. If it is possible to evaluate the integrand at unequally spaced points, then other methods such as Gaussian quadrature and Clenshaw–Curtis quadrature are generally more accurate.

The method is named after Werner Romberg, who published the method in 1955.

MethodEdit

Using <math display="inline">h_n = \frac{(b-a)}{2^n}</math>, the method can be inductively defined by <math display="block">\begin{align} R(0,0) &= h_0 (f(a) + f(b)) \\ R(n,0) &= \tfrac{1}{2} R(n-1,0) + 2h_n \sum_{k=1}^{2^{n-1}} f(a + (2k-1)h_{n-1}) \\ R(n,m) &= R(n,m-1) + \tfrac{1}{4^m-1} (R(n,m-1) - R(n-1,m-1)) \\ &= \frac{1}{4^m-1} ( 4^m R(n,m-1) - R(n-1, m-1)) \end{align}</math> where <math> n \ge m </math> and <math> m \ge 1 \, </math>. In big O notation, the error for R(nm) is:<ref>Template:Harvnb</ref> <math> O\left(h_n^{2m+2}\right).</math>

The zeroeth extrapolation, Template:Math, is equivalent to the trapezoidal rule with Template:Math points; the first extrapolation, Template:Math, is equivalent to Simpson's rule with Template:Math points. The second extrapolation, Template:Math, is equivalent to Boole's rule with Template:Math points. The further extrapolations differ from Newton-Cotes formulas. In particular further Romberg extrapolations expand on Boole's rule in very slight ways, modifying weights into ratios similar as in Boole's rule. In contrast, further Newton-Cotes methods produce increasingly differing weights, eventually leading to large positive and negative weights. This is indicative of how large degree interpolating polynomial Newton-Cotes methods fail to converge for many integrals, while Romberg integration is more stable.

By labelling our <math display="inline">O(h^2)</math> approximations as <math display="inline">A_0\big(\frac{h}{2^n}\big)</math> instead of <math display="inline">R(n,0)</math>, we can perform Richardson extrapolation with the error formula defined below: <math display="block"> \int_a^b f(x) \, dx = A_0\bigg(\frac{h}{2^n}\bigg)+a_0\bigg(\frac{h}{2^n}\bigg)^{2} + a_1\bigg(\frac{h}{2^n}\bigg)^{4} + a_2\bigg(\frac{h}{2^n}\bigg)^{6} + \cdots </math> Once we have obtained our <math display="inline">O(h^{2(m+1)})</math> approximations <math display="inline">A_m\big(\frac{h}{2^n}\big)</math>, we can label them as <math display="inline">R(n,m)</math>.

When function evaluations are expensive, it may be preferable to replace the polynomial interpolation of Richardson with the rational interpolation proposed by Template:Harvtxt.

A geometric exampleEdit

To estimate the area under a curve the trapezoid rule is applied first to one-piece, then two, then four, and so on.

File:One-piece Trapezoid Approximation.svg
One-piece. Note since it starts and ends at zero, this approximation yields zero area.

After trapezoid rule estimates are obtained, Richardson extrapolation is applied.

  • For the first iteration the two piece and one piece estimates are used in the formula Template:Math. The same formula is then used to compare the four piece and the two piece estimate, and likewise for the higher estimates
  • For the second iteration the values of the first iteration are used in the formula Template:Math
  • The third iteration uses the next power of 4: Template:Math on the values derived by the second iteration.
  • The pattern is continued until there is one estimate.

Template:Table alignment

Number of pieces Trapezoid estimates First iteration Second iteration Third iteration
Template:Math Template:Math Template:Math
1 0 Template:Math Template:Math Template:Math
2 16 Template:Math Template:Math
4 30 Template:Math
8 39

ExampleEdit

As an example, the Gaussian function is integrated from 0 to 1, i.e. the error function erf(1) ≈ 0.842700792949715. The triangular array is calculated row by row and calculation is terminated if the two last entries in the last row differ less than 10−8.

0.77174333
0.82526296  0.84310283
0.83836778  0.84273605  0.84271160
0.84161922  0.84270304  0.84270083  0.84270066
0.84243051  0.84270093  0.84270079  0.84270079  0.84270079

The result in the lower right corner of the triangular array is accurate to the digits shown. It is remarkable that this result is derived from the less accurate approximations obtained by the trapezium rule in the first column of the triangular array.

ImplementationEdit

Here is an example of a computer implementation of the Romberg method (in the C programming language):

<syntaxhighlight lang="c">

  1. include <stdio.h>
  2. include <math.h>

void print_row(size_t i, double *R) {

 printf("R[%2zu] = ", i);
 for (size_t j = 0; j <= i; ++j) {
   printf("%f ", R[j]);
 }
 printf("\n");

}

/* INPUT: (*f) : pointer to the function to be integrated a  : lower limit b  : upper limit max_steps: maximum steps of the procedure acc  : desired accuracy

OUTPUT: Rp[max_steps-1]: approximate value of the integral of the function f for x in [a,b] with accuracy 'acc' and steps 'max_steps'.

  • /

double romberg(double (*f)(double), double a, double b, size_t max_steps, double acc) {

 double R1[max_steps], R2[max_steps]; // buffers
 double *Rp = &R1[0], *Rc = &R2[0]; // Rp is previous row, Rc is current row
 double h = b-a; //step size
 Rp[0] = (f(a) + f(b))*h*0.5; // first trapezoidal step
 print_row(0, Rp);
 for (size_t i = 1; i < max_steps; ++i) {
   h /= 2.;
   double c = 0;
   size_t ep = 1 << (i-1); //2^(n-1)
   for (size_t j = 1; j <= ep; ++j) {
     c += f(a + (2*j-1) * h);
   }
   Rc[0] = h*c + .5*Rp[0]; // R(i,0)
   for (size_t j = 1; j <= i; ++j) {
     double n_k = pow(4, j);
     Rc[j] = (n_k*Rc[j-1] - Rp[j-1]) / (n_k-1); // compute R(i,j)
   }
   // Print ith row of R, R[i,i] is the best estimate so far
   print_row(i, Rc);
   if (i > 1 && fabs(Rp[i-1]-Rc[i]) < acc) {
     return Rc[i];
   }
   // swap Rn and Rc as we only need the last row
   double *rt = Rp;
   Rp = Rc;
   Rc = rt;
 }
 return Rp[max_steps-1]; // return our best guess

} </syntaxhighlight>

Here is an implementation of the Romberg method (in the Python programming language):

<syntaxhighlight lang="python"> def print_row(i, R):

   """Prints a row of the Romberg table."""
   print(f"R[{i:2d}] = ", end="")
   for j in range(i + 1):
       print(f"{R[j]:f} ", end="")
   print()


def romberg(f, a, b, max_steps, acc):

   """
   Calculates the integral of a function using Romberg integration.
   Args:
       f: The function to integrate.
       a: Lower limit of integration.
       b: Upper limit of integration.
       max_steps: Maximum number of steps.
       acc: Desired accuracy.
   Returns:
       The approximate value of the integral.
   """
   R1, R2 = [0] * max_steps, [0] * max_steps  # Buffers for storing rows
   Rp, Rc = R1, R2  # Pointers to previous and current rows
   h = b - a  # Step size
   Rp[0] = 0.5 * h * (f(a) + f(b))  # First trapezoidal step
   print_row(0, Rp)
   for i in range(1, max_steps):
       h /= 2.0
       c = 0
       ep = 2 ** (i - 1)
       for j in range(1, ep + 1):
           c += f(a + (2 * j - 1) * h)
       Rc[0] = h * c + 0.5 * Rp[0]  # R(i,0)
       for j in range(1, i + 1):
           n_k = 4**j
           Rc[j] = (n_k * Rc[j - 1] - Rp[j - 1]) / (n_k - 1)  # Compute R(i,j)
       # Print ith row of R, R[i,i] is the best estimate so far
       print_row(i, Rc)
       if i > 1 and abs(Rp[i - 1] - Rc[i]) < acc:
           return Rc[i]
       # Swap Rn and Rc for next iteration
       Rp, Rc = Rc, Rp
   return Rp[max_steps - 1]  # Return our best guess

</syntaxhighlight>

ReferencesEdit

CitationsEdit

Template:Sfn whitelist Template:Reflist

BibliographyEdit

Template:Refbegin

Template:Refend

External linksEdit

Template:Numerical integration