% Numerical Mathematics and Computing, Fifth Edition
% Ward Cheney & David Kincaid
% Brooks/Cole Publ. Co.
% (c) 2004
%
% file: cpb6.2.8.m

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

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

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