(*						      *)
(* Numerical Mathematics and Computing, Fifth Edition *)
(* Ward Cheney & David Kincaid		              *)
(* Brooks/Cole Publ. Co.			      *)
(* (c) 2003                                           *)
(* No warranties implied or expressed.	              *)
(* File: cubic_spline2				      *)

(* cubic spline example 2 *)
<<NumericalMath`SplineFit`
<<Graphics`Spline`
points2 = {{0.0, -0.8}, {0.6, -0.34}, {1.5, 0.59}, 
           {1.7, 0.59}, {1.9, 0.23}, {2.1, 0.1}, 
           {2.3, 0.28}, {2.6, 1.03}, {2.8, 1.5}, 
           {3.0, 1.44}, {3.6, 0.74}, {4.7, -0.82}, 
           {5.2, -1.27}, {5.7, -0.92}, {5.8, -0.92}, 
           {6.0, -1.04}, {6.4, -0.79}, {6.9, 0.06}, 
           {7.6, 1.0}, {8.0, 0.0}}
inter2 = SplineFit[points2, Cubice]
Show[Graphics[Spline[points2, Cubic, 
              SplineDots -> Automatic, PlotRange -> All], 
              Axes -> True]]