function [ x, y ] = p05_dat ( data_num )

%*****************************************************************************80
%
%% P05_DAT returns the data vector for problem 5.
%
%  Discussion:
%
%    This example is due to deBoor.
%    This data represents a property of titanium as a function of temperature.
%
%    The X data is equally spaced.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    12 August 2011
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Carl deBoor,
%    A Practical Guide to Splines,
%    Springer Verlag.
%
%  Parameters:
%
%    Input, integer DATA_NUM, the number of data points.
%
%    Output, real X(DATA_NUM,1), the abscissa data.
%
%    Output, real Y(DATA_NUM,1), the ordinate data.
%
  x(1:49,1) = [ ...
    595.0, ...
    605.0,  615.0,  625.0,  635.0,  645.0, ...
    655.0,  665.0,  675.0,  685.0,  695.0, ...
    705.0,  715.0,  725.0,  735.0,  745.0, ...
    755.0,  765.0,  775.0,  785.0,  795.0, ...
    805.0,  815.0,  825.0,  835.0,  845.0, ...
    855.0,  865.0,  875.0,  885.0,  895.0, ...
    905.0,  915.0,  925.0,  935.0,  945.0, ...
    955.0,  965.0,  975.0,  985.0,  995.0, ...
   1005.0, 1015.0, 1025.0, 1035.0, 1045.0, ...
   1055.0, 1065.0, 1075.0 ]';

  y(1:49,1) = [ ...
    0.644, ...
    0.622, 0.638, 0.649, 0.652, 0.639, ...
    0.646, 0.657, 0.652, 0.655, 0.644, ...
    0.663, 0.663, 0.668, 0.676, 0.676, ...
    0.686, 0.679, 0.678, 0.683, 0.694, ...
    0.699, 0.710, 0.730, 0.763, 0.812, ...
    0.907, 1.044, 1.336, 1.881, 2.169, ...
    2.075, 1.598, 1.211, 0.916, 0.746, ...
    0.672, 0.627, 0.615, 0.607, 0.606, ...
    0.609, 0.603, 0.601, 0.603, 0.601, ...
    0.611, 0.601, 0.608 ]';

  return
end
