function cpb6_2_8 ( )
%
%  Reference:
%
%    Ward Cheney & David Kincaid
%    Numerical Mathematics and Computing, Fifth Edition
%    Brooks/Cole Publishing Company, 2003.
%

% evaluate test integrals
% Computer Problem 6.2.8
%
  format long
%a
  A1 = quad ( @(x)(sqrt(sin(x))).^(-1), 0.0, 1.0, 1.e-12 )
% A2 = quadl ( @(x)(sqrt(sin(x))).^(-1), 0.0, 1.0, 1.e-12 )

%b
  B1 = quad ( @(x)exp(-x.^3), 0, 100, 1.e-12 )
% B2 = quadl ( @(x)exp(-x.^3), 0, 100, 1.e-12 )

%c
  C1 = quad ( @(x)x.*abs(sin(x.^(-1))), 0.0, 1.0, 1.e-12 )
% C2 = quadl ( @(x)x.*abs(sin(x.^(-1))), 0.0, 1.0, 1.e-12 )

  return
end

