<?xml-stylesheet type="text/xsl" href="../styles/pmathml.xsl"?>
<!-- saved from url=(0014)about:internet -->
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:dsi="http://www.w3.org/1999/xlink" xmlns:m="http://www.w3.org/1998/Math/MathML" xml:space="preserve"><head><meta http-equiv="Content-Type" content="text/html; charset=US-ASCII"/><title>E01AAF : NAG Library, Mark 22</title><link rel="stylesheet" href="../styles/libdoc.css" type="text/css"/><script type="text/javascript">
   function showLevel(_levelId){
    var thisLevel = document.getElementById(_levelId);
    var thisplus = document.getElementById( _levelId.concat('plus'));
    var thisminus = document.getElementById( _levelId.concat('minus'));
    if(thisLevel.style.display != "block"){
     thisLevel.style.display = "block";
     thisplus.style.display = "none";
     thisminus.style.display = "inline";
     }
    else{
     thisLevel.style.display = "none";
     thisminus.style.display = "none";
     thisplus.style.display = "inline";
     }
    }
  </script></head><body><hr/><div><a class="rout" href="../../pdf/E01/e01aaf.pdf">E01AAF (PDF version)</a></div><div><a class="chap" href="e01conts.xml">E01 Chapter Contents</a></div><div><a class="chapint" href="e01intro.xml">E01 Chapter Introduction</a></div>
<div><a class="htmltoc" href="../FRONTMATTER/manconts.xml">NAG Library Manual</a></div><hr/><h1 class="libdoc">NAG Library Routine Document<br/><br/>E01AAF</h1><div class="paramtext"><div class="header"><b>Note:</b>&#160; before using this routine, please read the Users' Note for your implementation to check the interpretation of <span class="bitalic">bold italicised</span> terms and other implementation-dependent details.</div></div> 
<div class="htmltoc">
<h2 class="htmltoc"><span class="htmltochead" onclick="showLevel('htmltoc');"><span class="htmltocplus" id="htmltocplus">+</span><span class="htmltocminus" id="htmltocminus">&#8722;</span></span>&#160;Contents</h2>
<div class="htmltocitem" id="htmltoc">
<div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#purpose">1&#160;&#160;<b>Purpose</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#specification">2&#160;&#160;<b>Specification</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#description">3&#160;&#160;<b>Description</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#references">4&#160;&#160;<b>References</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#parameters">5&#160;&#160;<b>Parameters</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#errors">6&#160;&#160;<b>Error Indicators and Warnings</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#accuracy">7&#160;&#160;<b>Accuracy</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#fcomments">8&#160;&#160;<b>Further Comments</b></a>
</div><div class="htmltoc">
<span class="htmltoc" onclick="showLevel('tocexample');"><span class="htmltocplus" id="tocexampleplus">+</span><span class="htmltocminus" id="tocexampleminus">&#8722;</span></span>
<a class="htmltoc" href="#example">9&#160;&#160;<b>Example</b></a>
<div class="htmltocitem" id="tocexample">
<div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#examtext">9.1&#160;&#160;<b>Program Text</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#examdata">9.2&#160;&#160;<b>Program Data</b></a>
</div><div class="htmltoc">
<span class="htmltocplus">&#160;&#160;&#160;</span>
<a class="htmltoc" href="#examresults">9.3&#160;&#160;<b>Program Results</b></a>
</div>
</div>
</div>
</div>
</div><h2 class="standard"><a class="sec" name="purpose" id="purpose"/>1&#160;&#160;Purpose</h2>
<div class="paramtext">E01AAF interpolates at a given point <m:math><m:mi>x</m:mi></m:math>&#160;from a table of function values <m:math><m:msub><m:mi>y</m:mi><m:mi>i</m:mi></m:msub></m:math>&#160;evaluated at equidistant or non-equidistant points <m:math><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub></m:math>, for <m:math><m:mi>i</m:mi><m:mo>=</m:mo><m:mn>1</m:mn><m:mo>,</m:mo><m:mn>2</m:mn><m:mo>,</m:mo><m:mo>&#8230;</m:mo><m:mo>,</m:mo><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:math>,  using Aitken's technique of successive linear interpolations.</div><h2 class="standard"><a class="sec" name="specification" id="specification"/>2&#160;&#160;Specification</h2>
<table class="fspec"><tr><td class="tdfspec1">SUBROUTINE&#160;E01AAF&#160;(</td><td class="tdfspec2"><a class="arg" href="#A">A</a>, <a class="arg" href="#B">B</a>, <a class="arg" href="#C">C</a>, <a class="arg" href="#N1">N1</a>, <a class="arg" href="#N2">N2</a>, <a class="arg" href="#N">N</a>, <a class="arg" href="#X">X</a>)</td></tr><tr><td class="tdfspec1">INTEGER</td><td class="tdfspec2">N1, N2, N</td></tr><tr><td class="tdfspec1"><b><i>double&#160;precision</i></b></td><td class="tdfspec2">A(N1), B(N1), C(N2), X</td></tr></table><h2 class="standard"><a class="sec" name="description" id="description"/>3&#160;&#160;Description</h2>
<div class="paramtext">E01AAF interpolates at a given point <m:math><m:mi>x</m:mi></m:math>&#160;from a table of values <m:math><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub></m:math>&#160;and <m:math><m:msub><m:mi>y</m:mi><m:mi>i</m:mi></m:msub></m:math>, for  <m:math><m:mi>i</m:mi><m:mo>=</m:mo><m:mn>1</m:mn><m:mo>,</m:mo><m:mn>2</m:mn><m:mo>,</m:mo><m:mo>&#8230;</m:mo><m:mo>,</m:mo><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:math>&#160;using Aitken's method.  The intermediate values of linear interpolations are stored to enable an estimate of the accuracy of the results to be made.</div><h2 class="standard"><a class="sec" name="references" id="references"/>4&#160;&#160;References</h2><div class="paramtext"><a name="ref220" id="ref220"/>Fr&#246;berg C E (1970)  <i>Introduction to Numerical Analysis</i> Addison&#8211;Wesley </div><h2 class="standard"><a class="sec" name="parameters" id="parameters"/>5&#160;&#160;Parameters</h2>
<dl><dt class="paramhead"><a name="A" id="A"/>1: &#160;&#160;&#8194; A(<a class="arg" href="#N1">N1</a>) &#8211; <span class="bitalic">double precision</span> array<span class="pclass">Input/Output</span></dt><dd><div class="paramtext"><i>On entry</i>: <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#A"><m:mi mathcolor="#EE0000" mathvariant="bold">A</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>i</m:mi></m:mfenced></m:mrow></m:math>&#160;must contain the <m:math><m:mi>x</m:mi></m:math>-component of the <m:math><m:mi>i</m:mi></m:math>th data point, <m:math><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub></m:math>, for <m:math><m:mi>i</m:mi><m:mo>=</m:mo><m:mn>1</m:mn><m:mo>,</m:mo><m:mn>2</m:mn><m:mo>,</m:mo><m:mo>&#8230;</m:mo><m:mo>,</m:mo><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:math>.</div>
<div class="paramtext"><i>On exit</i>: <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#A"><m:mi mathcolor="#EE0000" mathvariant="bold">A</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>i</m:mi></m:mfenced></m:mrow></m:math>&#160;contains the value <m:math><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub><m:mo>-</m:mo><m:mi>x</m:mi></m:math>, for <m:math><m:mi>i</m:mi><m:mo>=</m:mo><m:mn>1</m:mn><m:mo>,</m:mo><m:mn>2</m:mn><m:mo>,</m:mo><m:mo>&#8230;</m:mo><m:mo>,</m:mo><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:math>.</div></dd><dt class="paramhead"><a name="B" id="B"/>2: &#160;&#160;&#8194; B(<a class="arg" href="#N1">N1</a>) &#8211; <span class="bitalic">double precision</span> array<span class="pclass">Input/Output</span></dt><dd><div class="paramtext"><i>On entry</i>: <m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#B"><m:mi mathcolor="#EE0000" mathvariant="bold">B</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>i</m:mi></m:mfenced></m:mrow></m:math>&#160;must contain the <m:math><m:mi>y</m:mi></m:math>-component (function value) of the <m:math><m:mi>i</m:mi></m:math>th data point, <m:math><m:msub><m:mi>y</m:mi><m:mi>i</m:mi></m:msub></m:math>, for <m:math><m:mi>i</m:mi><m:mo>=</m:mo><m:mn>1</m:mn><m:mo>,</m:mo><m:mn>2</m:mn><m:mo>,</m:mo><m:mo>&#8230;</m:mo><m:mo>,</m:mo><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:math>.</div>
<div class="paramtext"><i>On exit</i>: the contents of <a class="arg" href="#B">B</a> are unspecified.</div></dd><dt class="paramhead"><a name="C" id="C"/>3: &#160;&#160;&#8194; C(<a class="arg" href="#N2">N2</a>) &#8211; <span class="bitalic">double precision</span> array<span class="pclass">Output</span></dt><dd><div class="paramtext"><i>On exit</i>: 
<ul class="listind"><li class="listind"><m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#C"><m:mi mathcolor="#EE0000" mathvariant="bold">C</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mn>1</m:mn></m:mfenced></m:mrow><m:mo>,</m:mo><m:mo>&#8230;</m:mo><m:mo>,</m:mo><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#C"><m:mi mathcolor="#EE0000" mathvariant="bold">C</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mi>n</m:mi></m:mfenced></m:mrow></m:math>&#160;contain the first set of linear interpolations,</li><li class="listind"><m:math><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#C"><m:mi mathcolor="#EE0000" mathvariant="bold">C</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mrow><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:mrow></m:mfenced></m:mrow><m:mo>,</m:mo><m:mo>&#8230;</m:mo><m:mo>,</m:mo><m:mrow><m:maction actiontype="link" dsi:type="simple" dsi:href="#C"><m:mi mathcolor="#EE0000" mathvariant="bold">C</m:mi></m:maction><m:mfenced separators="," open="(" close=")"><m:mrow><m:mn>2</m:mn><m:mo>&#215;</m:mo><m:mi>n</m:mi><m:mo>-</m:mo><m:mn>1</m:mn></m:mrow></m:mfenced></m:mrow></m:math>&#160;contain the second set of linear interpolations</li><li class="listind"><m:math><m:mo>&#8942;</m:mo></m:math></li><li class="listind"><m:math><m:maction actiontype="link" dsi:type="simple" dsi:href="#C"><m:mi mathcolor="#EE0000" mathvariant="bold">C</m:mi></m:maction><m:mfenced separators=""><m:mi>n</m:mi><m:mo>&#215;</m:mo><m:mfenced separators=""><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:mfenced><m:mo>/</m:mo><m:mn>2</m:mn></m:mfenced></m:math>&#160;contains the interpolated function value at the point <m:math><m:mi>x</m:mi></m:math>.</li></ul>
</div></dd><dt class="paramhead"><a name="N1" id="N1"/>4: &#160;&#160;&#8194; N1 &#8211; INTEGER<span class="pclass">Input</span></dt><dd><div class="paramtext"><i>On entry</i>: 

the value <m:math><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:math>&#160;where <m:math><m:mi>n</m:mi></m:math>&#160;is the number of intervals; that is, <a class="arg" href="#N1">N1</a> is the number of data points.</div></dd><dt class="paramhead"><a name="N2" id="N2"/>5: &#160;&#160;&#8194; N2 &#8211; INTEGER<span class="pclass">Input</span></dt><dd><div class="paramtext"><i>On entry</i>: 

the value <m:math><m:mi>n</m:mi><m:mo>&#215;</m:mo><m:mfenced separators=""><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:mfenced><m:mo>/</m:mo><m:mn>2</m:mn></m:math>&#160;where <m:math><m:mi>n</m:mi></m:math>&#160;is the number of intervals.</div></dd><dt class="paramhead"><a name="N" id="N"/>6: &#160;&#160;&#8194; N &#8211; INTEGER<span class="pclass">Input</span></dt><dd><div class="paramtext"><i>On entry</i>: the number of intervals which are to be used in interpolating the value at <m:math><m:mi>x</m:mi></m:math>; that is, there are <m:math><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:math>&#160;data points <m:math><m:mfenced separators=""><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub><m:mo>,</m:mo><m:msub><m:mi>y</m:mi><m:mi>i</m:mi></m:msub></m:mfenced></m:math>.</div></dd><dt class="paramhead"><a name="X" id="X"/>7: &#160;&#160;&#8194; X &#8211; <span class="bitalic">double precision</span><span class="pclass">Input</span></dt><dd><div class="paramtext"><i>On entry</i>: the point <m:math><m:mi>x</m:mi></m:math>&#160;at which the interpolation is required.</div></dd></dl><h2 class="standard"><a class="sec" name="errors" id="errors"/>6&#160;&#160;Error Indicators and Warnings</h2>
<div class="paramtext">None.</div><h2 class="standard"><a class="sec" name="accuracy" id="accuracy"/>7&#160;&#160;Accuracy</h2>
<div class="paramtext">An estimate of the accuracy of the result can be made from a comparison of the final result and the previous interpolates, given in the array <a class="arg" href="#C">C</a>.  In particular, the first interpolate in the <m:math><m:mi>i</m:mi></m:math>th set, for  <m:math><m:mi>i</m:mi><m:mo>=</m:mo><m:mn>1</m:mn><m:mo>,</m:mo><m:mn>2</m:mn><m:mo>,</m:mo><m:mo>&#8230;</m:mo><m:mo>,</m:mo><m:mi>n</m:mi></m:math>, is the value at <m:math><m:mi>x</m:mi></m:math>&#160;of the polynomial interpolating the first <m:math><m:mfenced separators=""><m:mi>i</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:mfenced></m:math>&#160;data points.  It is given in position <m:math><m:mn>1</m:mn><m:mo>+</m:mo><m:mfrac other="small"><m:mn>1</m:mn><m:mn>2</m:mn></m:mfrac><m:mfenced separators=""><m:mi>i</m:mi><m:mo>-</m:mo><m:mn>1</m:mn></m:mfenced><m:mfenced separators=""><m:mn>2</m:mn><m:mi>n</m:mi><m:mo>-</m:mo><m:mi>i</m:mi><m:mo>+</m:mo><m:mn>2</m:mn></m:mfenced></m:math>&#160;of the array <a class="arg" href="#C">C</a>.  Ideally, providing <m:math><m:mi>n</m:mi></m:math>&#160;is large enough, this set of <m:math><m:mi>n</m:mi></m:math>&#160;interpolates should exhibit convergence to the final value, the difference between one interpolate and the next settling down to a roughly constant magnitude (but with varying sign).  This magnitude indicates the size of the error (any subsequent increase meaning that the value of <m:math><m:mi>n</m:mi></m:math>&#160;is too high).  Better convergence will be obtained if the data points are supplied, not in their natural order, but ordered so that the first <m:math><m:mi>i</m:mi></m:math>&#160;data points give good coverage of the neighbourhood of <m:math><m:mi>x</m:mi></m:math>, for all <m:math><m:mi>i</m:mi></m:math>.  To this end, the following ordering is recommended as widely suitable: first the point nearest to <m:math><m:mi>x</m:mi></m:math>, then the nearest point on the opposite side of  <m:math><m:mi>x</m:mi></m:math>, followed by the remaining points in increasing order of their distance from <m:math><m:mi>x</m:mi></m:math>, that is of <m:math><m:mfenced open="|" close="|" separators=""><m:msub><m:mi>x</m:mi><m:mi>r</m:mi></m:msub><m:mo>-</m:mo><m:mi>x</m:mi></m:mfenced></m:math>.  With this modification the Aitken method will generally perform better than the related method of Neville, which is often given in the literature as superior to that of Aitken.</div><h2 class="standard"><a class="sec" name="fcomments" id="fcomments"/>8&#160;&#160;Further Comments</h2>
<div class="paramtext">The computation time for interpolation at any point <m:math><m:mi>x</m:mi></m:math>&#160;is proportional to <m:math><m:mi>n</m:mi><m:mo>&#215;</m:mo><m:mfenced separators=""><m:mi>n</m:mi><m:mo>+</m:mo><m:mn>1</m:mn></m:mfenced><m:mo>/</m:mo><m:mn>2</m:mn></m:math>.</div><h2 class="standard"><a class="sec" name="example" id="example"/>9&#160;&#160;Example</h2>
<div class="paramtext">This example interpolates at <m:math><m:mi>x</m:mi><m:mo>=</m:mo><m:mn>0.28</m:mn></m:math>&#160;the function value of a curve defined by the points

<div class="formula"><table class="formula"><tr><td class="formula"><m:math display="block">
 <m:mfenced><m:mtable columnalign="right">
  <m:mtr>
   <m:mtd><m:msub><m:mi>x</m:mi><m:mi>i</m:mi></m:msub></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>1.00</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.50</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mn>0.00</m:mn></m:mtd>
   <m:mtd><m:mn>0.50</m:mn></m:mtd>
   <m:mtd><m:mn>1.00</m:mn></m:mtd>
   <m:mtd><m:mn>1.50</m:mn></m:mtd>
  </m:mtr><m:mtr>
   <m:mtd><m:msub><m:mi>y</m:mi><m:mi>i</m:mi></m:msub></m:mtd>
   <m:mtd><m:mn>0.00</m:mn></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.53</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>1.00</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mrow><m:mo>-</m:mo><m:mn>0.46</m:mn></m:mrow></m:mtd>
   <m:mtd><m:mn>2.00</m:mn></m:mtd>
   <m:mtd><m:mn>11.09</m:mn></m:mtd>
  </m:mtr>
 </m:mtable></m:mfenced>
<m:mtext>.</m:mtext>
</m:math></td><td class="formula2"/></tr></table></div></div><h3 class="standard"><a class="sec" name="examtext" id="examtext"/>9.1&#160;&#160;Program Text</h3>
<p><a class="verbatimref" href="../../examples/source/e01aafe.f">Program Text (e01aafe.f)</a></p><h3 class="standard"><a class="sec" name="examdata" id="examdata"/>9.2&#160;&#160;Program Data</h3>
<p><a class="verbatimref" href="../../examples/data/e01aafe.d">Program&#160;Data (e01aafe.d)</a></p><h3 class="standard"><a class="sec" name="examresults" id="examresults"/>9.3&#160;&#160;Program Results</h3>
<p><a class="verbatimref" href="../../examples/baseresults/e01aafe.r">Program Results (e01aafe.r)</a></p>
<hr/><div><a class="rout" href="../../pdf/E01/e01aaf.pdf">E01AAF (PDF version)</a></div><div><a class="chap" href="e01conts.xml">E01 Chapter Contents</a></div><div><a class="chapint" href="e01intro.xml">E01 Chapter Introduction</a></div>
<div><a class="htmltoc" href="../FRONTMATTER/manconts.xml">NAG Library Manual</a></div>
<div><hr/><a class="genint" href="../FRONTMATTER/copyright.xml">&#169; The Numerical Algorithms Group Ltd, Oxford, UK. 2009</a></div></body></html>
