Previous: dem47 Up: ../plot79_d.html Next: dem49


DEM48

       SUBROUTINE  DEM48 (NIN,NOUT)
 C$    (DEM48 - Tensioned Spline Interpolation)
 C$    This program  illustrates the  use  of routines  FITC1  and
 C$    FITC2 from ACM Algorithm 476 for interpolating a curve by a
 C$    spline under tension.  Two examples showing a decaying  sin
 C$    wave  and  its  interpolated   and  exact  derivative   are
 C$    produced.  For each,  the original data  points are  drawn,
 C$    connected by straight lines,  with the interpolated  curves
 C$    for three different tension factors appearing in  quadrants
 C$    2-4.  The error in the interpolated function is  multiplied
 C$    by 100 and superimposed on each plot.
 C$    (10-APR-82)