Monotone cubic interpolation

<h2 id="monotone-cubic-hermite-interpolation">Monotone cubic Hermite interpolation</h2>

<p>Monotone interpolation can be accomplished using <a href="/facts/Cubic_Hermite_spline/S29nwRUF">cubic Hermite spline</a> with the tangents 
  
    
      
        
          m
          
            i
          
        
      
    
    {\displaystyle m_{i}}
  
 modified to ensure the monotonicity of the resulting Hermite spline.
</p><p>An algorithm is also available for monotone <a href="/facts/Quintic_function/oeNDGj9l">quintic</a> Hermite interpolation.
</p>
<h3>Interpolant selection</h3>
<p>There are several ways of selecting interpolating tangents for each data point. This section will outline the use of the Fritsch–Carlson method. Note that only one pass of the algorithm is required.
</p><p>Let the data points be 
  
    
      
        (
        
          x
          
            k
          
        
        ,
        
          y
          
            k
          
        
        )
      
    
    {\displaystyle (x_{k},y_{k})}
  
 indexed in sorted order for 
  
    
      
        k
        =
        1
        ,
        
        …
        
        n
      
    
    {\displaystyle k=1,\,\dots \,n}
  
.
</p>
<ol><li>Compute the slopes of the <a href="/facts/Secant_line/gJnaF5g3">secant lines</a> between successive points:<blockquote><p>
  
    
      
        
          δ
          
            k
          
        
        =
        
          
            
              
                y
                
                  k
                  +
                  1
                
              
              −
              
                y
                
                  k
                
              
            
            
              
                x
                
                  k
                  +
                  1
                
              
              −
              
                x
                
                  k
                
              
            
          
        
      
    
    {\displaystyle \delta _{k}={\frac {y_{k+1}-y_{k}}{x_{k+1}-x_{k}}}}
  
</p></blockquote> for 
  
    
      
        k
        =
        1
        ,
        
        …
        
        n
        −
        1
      
    
    {\displaystyle k=1,\,\dots \,n-1}
  
.</li>
<li>These assignments are provisional, and may be superseded in the remaining steps. Initialize the tangents at every interior data point as the average of the secants,<blockquote><p>
  
    
      
        
          m
          
            k
          
        
        =
        
          
            
              
                δ
                
                  k
                  −
                  1
                
              
              +
              
                δ
                
                  k
                
              
            
            2
          
        
      
    
    {\displaystyle m_{k}={\frac {\delta _{k-1}+\delta _{k}}{2}}}
  
</p></blockquote> for 
  
    
      
        k
        =
        2
        ,
        
        …
        
        n
        −
        1
      
    
    {\displaystyle k=2,\,\dots \,n-1}
  
.For the endpoints, use one-sided differences: <blockquote><p>
  
    
      
        
          m
          
            1
          
        
        =
        
          δ
          
            1
          
        
        
        
           and 
        
        
        
          m
          
            n
          
        
        =
        
          δ
          
            n
            −
            1
          
        
        
      
    
    {\displaystyle m_{1}=\delta _{1}\quad {\text{ and }}\quad m_{n}=\delta _{n-1}\,}
  
.</p></blockquote>If 
  
    
      
        
          δ
          
            k
            −
            1
          
        
      
    
    {\displaystyle \delta _{k-1}}
  
 and 
  
    
      
        
          δ
          
            k
          
        
      
    
    {\displaystyle \delta _{k}}
  
 have opposite signs, set 
  
    
      
        
          m
          
            k
          
        
        =
        0
      
    
    {\displaystyle m_{k}=0}
  
.</li>
<li>For 
  
    
      
        k
        =
        1
        ,
        
        …
        
        n
        −
        1
      
    
    {\displaystyle k=1,\,\dots \,n-1}
  
, where ever 
  
    
      
        
          δ
          
            k
          
        
        =
        0
      
    
    {\displaystyle \delta _{k}=0}
  
 (where ever two successive 
  
    
      
        
          y
          
            k
          
        
        =
        
          y
          
            k
            +
            1
          
        
      
    
    {\displaystyle y_{k}=y_{k+1}}
  
 are equal),set 
  
    
      
        
          m
          
            k
          
        
        =
        
          m
          
            k
            +
            1
          
        
        =
        0
        ,
      
    
    {\displaystyle m_{k}=m_{k+1}=0,}
  
 as the spline connecting these points must be flat to preserve monotonicity.Ignore steps 4 and 5 for those 
  
    
      
        k
        
      
    
    {\displaystyle k\,}
  
.</li>
<li>Let <blockquote><p>
  
    
      
        
          α
          
            k
          
        
        =
        
          m
          
            k
          
        
        
          /
        
        
          δ
          
            k
          
        
        
        
           and 
        
        
        
          β
          
            k
          
        
        =
        
          m
          
            k
            +
            1
          
        
        
          /
        
        
          δ
          
            k
          
        
      
    
    {\displaystyle \alpha _{k}=m_{k}/\delta _{k}\quad {\text{ and }}\quad \beta _{k}=m_{k+1}/\delta _{k}}
  
.</p></blockquote>If either 
  
    
      
        
          α
          
            k
          
        
      
    
    {\displaystyle \alpha _{k}}
  
 or 
  
    
      
        
          β
          
            k
          
        
      
    
    {\displaystyle \beta _{k}}
  
 is negative, then the input data points are not strictly monotone, and 
  
    
      
        (
        
          x
          
            k
          
        
        ,
        
        
          y
          
            k
          
        
        )
      
    
    {\displaystyle (x_{k},\,y_{k})}
  
 is a local extremum. In such cases, <i>piecewise</i> monotone curves can still be generated by choosing 
  
    
      
        
          m
          
            k
          
        
        =
        0
        
      
    
    {\displaystyle m_{k}=0\,}
  
 if 
  
    
      
        
          α
          
            k
          
        
        <
        0
      
    
    {\displaystyle \alpha _{k}<0}
  
 or 
  
    
      
        
          m
          
            k
            +
            1
          
        
        =
        0
        
      
    
    {\displaystyle m_{k+1}=0\,}
  
 if 
  
    
      
        
          β
          
            k
          
        
        <
        0
      
    
    {\displaystyle \beta _{k}<0}
  
, although strict monotonicity is not possible globally.</li>
<li>To prevent <a href="/facts/Overshoot_(signal)/l450BHuI">overshoot</a> and ensure monotonicity, at least one of the following three conditions must be met:</li></ol>
(a) the function <blockquote><p>
  
    
      
        
          ϕ
          
            k
          
        
        =
        
          α
          
            k
          
        
        −
        
          
            
              (
              2
              
                α
                
                  k
                
              
              +
              
                β
                
                  k
                
              
              −
              3
              
                )
                
                  2
                
              
            
            
              3
              (
              
                α
                
                  k
                
              
              +
              
                β
                
                  k
                
              
              −
              2
              )
            
          
        
        >
        0
        
      
    
    {\displaystyle \phi _{k}=\alpha _{k}-{\frac {(2\alpha _{k}+\beta _{k}-3)^{2}}{3(\alpha _{k}+\beta _{k}-2)}}>0\,}
  
,  or</p></blockquote>
(b) 
  
    
      
        
          α
          
            k
          
        
        +
        2
        
          β
          
            k
          
        
        −
        3
        ≤
        0
        
      
    
    {\displaystyle \alpha _{k}+2\beta _{k}-3\leq 0\,}
  
,  or
(c) 
  
    
      
        2
        
          α
          
            k
          
        
        +
        
          β
          
            k
          
        
        −
        3
        ≤
        0
        
      
    
    {\displaystyle 2\alpha _{k}+\beta _{k}-3\leq 0\,}
  
.
Only condition (a) is sufficient to ensure strict monotonicity: 
  
    
      
        
          ϕ
          
            k
          
        
      
    
    {\displaystyle \phi _{k}}
  
 must be positive.
One simple way to satisfy this constraint is to restrict the vector 
  
    
      
        (
        
          α
          
            k
          
        
        ,
        
        
          β
          
            k
          
        
        )
      
    
    {\displaystyle (\alpha _{k},\,\beta _{k})}
  
 to a circle of radius 3. That is, if 
  
    
      
        
          α
          
            k
          
          
            2
          
        
        +
        
          β
          
            k
          
          
            2
          
        
        >
        9
        
      
    
    {\displaystyle \alpha _{k}^{2}+\beta _{k}^{2}>9\,}
  
, then set <blockquote><p>
  
    
      
        
          τ
          
            k
          
        
        =
        
          
            3
            
              
                α
                
                  k
                
                
                  2
                
              
              +
              
                β
                
                  k
                
                
                  2
                
              
            
          
        
        
      
    
    {\displaystyle \tau _{k}={\frac {3}{\sqrt {\alpha _{k}^{2}+\beta _{k}^{2}}}}\,}
  
,</p></blockquote> and rescale the tangents via <blockquote><p>
  
    
      
        
          m
          
            k
          
        
        =
        
          τ
          
            k
          
        
        
        
          α
          
            k
          
        
        
        
          δ
          
            k
          
        
        
        
           and 
        
        
        
          m
          
            k
            +
            1
          
        
        =
        
          τ
          
            k
          
        
        
        
          β
          
            k
          
        
        
        
          δ
          
            k
          
        
        
      
    
    {\displaystyle m_{k}=\tau _{k}\,\alpha _{k}\,\delta _{k}\quad {\text{ and }}\quad m_{k+1}=\tau _{k}\,\beta _{k}\,\delta _{k}\,}
  
.</p></blockquote>
Alternatively it is sufficient to restrict 
  
    
      
        
          α
          
            k
          
        
        ≤
        3
      
    
    {\displaystyle \alpha _{k}\leq 3}
  
 and 
  
    
      
        
          β
          
            k
          
        
        ≤
        3
        
      
    
    {\displaystyle \beta _{k}\leq 3\,}
  
. To accomplish this, if 
  
    
      
        
          α
          
            k
          
        
        >
        3
        
      
    
    {\displaystyle \alpha _{k}>3\,}
  
, then set 
  
    
      
        
          m
          
            k
          
        
        =
        3
        
        
          δ
          
            k
          
        
        
      
    
    {\displaystyle m_{k}=3\,\delta _{k}\,}
  
, and if 
  
    
      
        
          β
          
            k
          
        
        >
        3
        
      
    
    {\displaystyle \beta _{k}>3\,}
  
, then set 
  
    
      
        
          m
          
            k
            +
            1
          
        
        =
        3
        
        
          δ
          
            k
          
        
        
      
    
    {\displaystyle m_{k+1}=3\,\delta _{k}\,}
  
.
<h3>Cubic interpolation</h3>
<p>After the preprocessing above, evaluation of the interpolated spline is equivalent to a <a href="/facts/Cubic_Hermite_spline/S29nwRUF">cubic Hermite spline</a>, using the data 
  
    
      
        
          x
          
            k
          
        
      
    
    {\displaystyle x_{k}}
  
,  
  
    
      
        
          y
          
            k
          
        
      
    
    {\displaystyle y_{k}}
  
, and 
  
    
      
        
          m
          
            k
          
        
      
    
    {\displaystyle m_{k}}
  
 for 
  
    
      
        k
        =
        1
        ,
        
        …
        
        n
      
    
    {\displaystyle k=1,\,\dots \,n}
  
.
</p><p>To evaluate at 
  
    
      
        x
      
    
    {\displaystyle x}
  
, find the index 
  
    
      
        k
      
    
    {\displaystyle k}
  
 in the sequence where 
  
    
      
        x
      
    
    {\displaystyle x}
  
, lies between 
  
    
      
        
          x
          
            k
          
        
      
    
    {\displaystyle x_{k}}
  
, and 
  
    
      
        
          x
          
            k
            +
            1
          
        
      
    
    {\displaystyle x_{k+1}}
  
, that is: 
  
    
      
        
          x
          
            k
          
        
        ≤
        x
        ≤
        
          x
          
            k
            +
            1
          
        
      
    
    {\displaystyle x_{k}\leq x\leq x_{k+1}}
  
. Calculate
</p>

Δ
        =
        
          x
          
            k
            +
            1
          
        
        −
        
          x
          
            k
          
        
        
        
           and 
        
        
        t
        =
        
          
            
              x
              −
              
                x
                
                  k
                
              
            
            Δ
          
        
      
    
    {\displaystyle \Delta =x_{k+1}-x_{k}\quad {\text{ and }}\quad t={\frac {x-x_{k}}{\Delta }}}

<p>then the interpolated value is
</p>

f
          
            interpolated
          
        
        (
        x
        )
        =
        
          y
          
            k
          
        
        ⋅
        
          h
          
            00
          
        
        (
        t
        )
        +
        Δ
        ⋅
        
          m
          
            k
          
        
        ⋅
        
          h
          
            10
          
        
        (
        t
        )
        +
        
          y
          
            k
            +
            1
          
        
        ⋅
        
          h
          
            01
          
        
        (
        t
        )
        +
        Δ
        ⋅
        
          m
          
            k
            +
            1
          
        
        ⋅
        
          h
          
            11
          
        
        (
        t
        )
      
    
    {\displaystyle f_{\text{interpolated}}(x)=y_{k}\cdot h_{00}(t)+\Delta \cdot m_{k}\cdot h_{10}(t)+y_{k+1}\cdot h_{01}(t)+\Delta \cdot m_{k+1}\cdot h_{11}(t)}

<p>where 
  
    
      
        
          h
          
            i
            i
          
        
      
    
    {\displaystyle h_{ii}}
  
 are the basis functions for the <a href="/facts/Cubic_Hermite_spline/S29nwRUF">cubic Hermite spline</a>.
</p>
<h2 id="example-implementation">Example implementation</h2>
<p>The following <a href="/facts/JavaScript/XhhIIEsl">JavaScript</a> implementation takes a data set and produces a monotone cubic spline interpolant function:
</p>
/*
 * Monotone cubic spline interpolation
 * Usage example listed at bottom; this is a fully-functional package. For
 * example, this can be executed either at sites like
 * https://www.programiz.com/javascript/online-compiler/
 * or using nodeJS.
 */
function DEBUG(s) {
    /* Uncomment the following to enable verbose output of the solver: */
    //console.log(s);
}
var j = 0;
var createInterpolant = function(xs, ys) {
    var i, length = xs.length;
    
    // Deal with length issues
    if (length != ys.length) { throw 'Need an equal count of xs and ys.'; }
    if (length === 0) { return function(x) { return 0; }; }
    if (length === 1) {
        // Impl: Precomputing the result prevents problems if ys is mutated later and allows garbage collection of ys
        // Impl: Unary plus properly converts values to numbers
        var result = +ys[0];
        return function(x) { return result; };
    }
    
    // Rearrange xs and ys so that xs is sorted
    var indexes = [];
    for (i = 0; i < length; i++) { indexes.push(i); }
    indexes.sort(function(a, b) { return xs[a] < xs[b] ? -1 : 1; });
    var oldXs = xs, oldYs = ys;
    // Impl: Creating new arrays also prevents problems if the input arrays are mutated later
    xs = []; ys = [];
    // Impl: Unary plus properly converts values to numbers
    for (i = 0; i < length; i++) { xs.push(+oldXs[indexes[i]]); ys.push(+oldYs[indexes[i]]); }

DEBUG("debug: xs = [ " + xs + " ]")
    DEBUG("debug: ys = [ " + ys + " ]")
    
    // Get consecutive differences and slopes
    var dys = [], dxs = [], ms = [];
    for (i = 0; i < length - 1; i++) {
        var dx = xs[i + 1] - xs[i], dy = ys[i + 1] - ys[i];
        dxs.push(dx); dys.push(dy); ms.push(dy/dx);
    }
    // Get degree-1 coefficients
    var c1s = [ms[0]];
    for (i = 0; i < dxs.length - 1; i++) {
        var m = ms[i], mNext = ms[i + 1];
        if (m*mNext <= 0) {
            c1s.push(0);
        } else {
            var dx_ = dxs[i], dxNext = dxs[i + 1], common = dx_ + dxNext;
            c1s.push(3*common/((common + dxNext)/m + (common + dx_)/mNext));
        }
    }
    c1s.push(ms[ms.length - 1]);

DEBUG("debug: dxs = [ " + dxs + " ]")
    DEBUG("debug: ms = [ " + ms + " ]")
    DEBUG("debug: c1s.length = " + c1s.length)
    DEBUG("debug: c1s = [ " + c1s + " ]")
    
    // Get degree-2 and degree-3 coefficients
    var c2s = [], c3s = [];
    for (i = 0; i < c1s.length - 1; i++) {
        var c1 = c1s[i];
        var m_ = ms[i];
        var invDx = 1/dxs[i];
        var common_ = c1 + c1s[i + 1] - m_ - m_;
        DEBUG("debug: " + i + ". c1 = " + c1);
        DEBUG("debug: " + i + ". m_ = " + m_);
        DEBUG("debug: " + i + ". invDx = " + invDx);
        DEBUG("debug: " + i + ". common_ = " + common_);
        c2s.push((m_ - c1 - common_)*invDx);
        c3s.push(common_*invDx*invDx);
    }
    DEBUG("debug: c2s = [ " + c2s + " ]")
    DEBUG("debug: c3s = [ " + c3s + " ]")

// Return interpolant function
    return function(x) {
        // The rightmost point in the dataset should give an exact result
        var i = xs.length - 1;
        //if (x == xs[i]) { return ys[i]; }
        
        // Search for the interval x is in, returning the corresponding y if x is one of the original xs
        var low = 0, mid, high = c3s.length - 1, rval, dval;
        while (low <= high) {
            mid = Math.floor(0.5*(low + high));
            var xHere = xs[mid];
            if (xHere < x) { low = mid + 1; }
            else if (xHere > x) { high = mid - 1; }
            else {
                j++;
                i = mid;
                var diff = x - xs[i];
                rval = ys[i] + diff * (c1s[i] + diff *  (c2s[i] + diff * c3s[i]));
                dval = c1s[i] + diff * (2*c2s[i] + diff * 3*c3s[i]);
                DEBUG("debug: " + j + ". x = " + x + ". i = " + i + ", diff = " + diff + ", rval = " + rval + ", dval = " + dval);
                return [ rval, dval ];
            }
        }
        i = Math.max(0, high);

// Interpolate
        var diff = x - xs[i];
        j++;
        rval = ys[i] + diff * (c1s[i] + diff *  (c2s[i] + diff * c3s[i]));
        dval = c1s[i] + diff * (2*c2s[i] + diff * 3*c3s[i]);
        DEBUG("debug: " + j + ". x = " + x + ". i = " + i + ", diff = " + diff + ", rval = " + rval + ", dval = " + dval);
        return [ rval, dval ];
    };
};

/*
   Usage example below will approximate x^2 for 0 <= x <= 4.

Command line usage example (requires installation of nodejs):
   node monotone-cubic-spline.js
*/

var X = [0, 1, 2, 3, 4];
var F = [0, 1, 4, 9, 16];
var f = createInterpolant(X,F);
var N = X.length;
console.log("# BLOCK 0 :: Data for monotone-cubic-spline.js");
console.log("X" + "\t" + "F");
for (var i = 0; i < N; i += 1) {
    console.log(F[i] + '\t' + X[i]);
}
console.log(" ");
console.log(" ");
console.log("# BLOCK 1 :: Interpolated data for monotone-cubic-spline.js");
console.log("      x       " + "\t\t" + "     P(x)      " + "\t\t" + "    dP(x)/dx     ");
var message = '';
var M = 25;
for (var i = 0; i <= M; i += 1) {
    var x = X[0] + (X[N-1]-X[0])*i/M;
    var rvals = f(x);
    var P = rvals[0];
    var D = rvals[1];
    message += x.toPrecision(15) + '\t' + P.toPrecision(15) + '\t' + D.toPrecision(15) + '\n';
}
console.log(message);

<ul><li>Fritsch, F. N.; Carlson, R. E. (1980). "Monotone Piecewise Cubic Interpolation". <i><a href="/facts/SIAM_Journal_on_Numerical_Analysis/uUEWPahC">SIAM Journal on Numerical Analysis</a></i>. 17 (2). SIAM: 238–246. <a href="/facts/Bibcode_(identifier)/9HtdQSGB">Bibcode</a>:<a href="https://ui.adsabs.harvard.edu/abs/1980SJNA...17..238F">1980SJNA...17..238F</a>. <a href="/facts/Doi_(identifier)/muM9Etpq">doi</a>:<a href="https://doi.org/10.1137%2F0717021">10.1137/0717021</a>.</li>
<li>Dougherty, R.L.; Edelman, A.; Hyman, J.M. (April 1989). <a href="https://doi.org/10.2307%2F2008477">"Positivity-, monotonicity-, or convexity-preserving cubic and quintic Hermite interpolation"</a>. <i><a href="/facts/Mathematics_of_Computation/KAFdf8sw">Mathematics of Computation</a></i>. 52 (186): 471–494. <a href="/facts/Doi_(identifier)/muM9Etpq">doi</a>:<a href="https://doi.org/10.2307%2F2008477">10.2307/2008477</a>. <a href="/facts/JSTOR_(identifier)/YTeVmaJ7">JSTOR</a> <a href="https://www.jstor.org/stable/2008477">2008477</a>.</li></ul>
<h2 id="external-links">External links</h2>
<ul><li><a href="/facts/GPL/S75KhLSX">GPLv</a>2 licensed <a href="/facts/C%252B%252B/Et0F2qn9">C++</a> implementation: <a href="https://github.com/bska/opm-origins/blob/master/dune-cornerpoint/common/MonotCubicInterpolator.cpp">MonotCubicInterpolator.cpp</a> <a href="https://github.com/bska/opm-origins/blob/master/dune-cornerpoint/common/MonotCubicInterpolator.hpp">MonotCubicInterpolator.hpp</a></li></ul>

Monotone cubic interpolation open-in-new

Monotone cubic interpolation