Cody

# Problem 1197. Numerical Integration

Solution 710095

Submitted on 3 Aug 2015 by Peng Liu
• Size: 36
• This is the leading solution.
This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

### Test Suite

Test Status Code Input and Output
1   Pass
%% x0 = 1; I_correct = 2.6405789412796; fprintf('Relative difference to reference solution: %e\n',norm(coshint(x0)-I_correct)/I_correct) assert(norm(coshint(x0)-I_correct)/I_correct <= 1e-10)

Relative difference to reference solution: 5.840847e-13

2   Pass
%% x0 = 2; I_correct = 3.9464053536380; fprintf('Relative difference to reference solution: %e\n',norm(coshint(x0)-I_correct)/I_correct) assert(norm(coshint(x0)-I_correct)/I_correct <= 1e-10)

Relative difference to reference solution: 1.905134e-13

3   Pass
%% x0 = 13; I_correct = 9.4065231838369e+02; fprintf('Relative difference to reference solution: %e\n',norm(coshint(x0)-I_correct)/I_correct) assert(norm(coshint(x0)-I_correct)/I_correct <= 1e-10)

Relative difference to reference solution: 5.632056e-14

4   Pass
%% randomized test for small values of x0 where % cosh(x) ~ 1 + x^2/2 + ... % and up to x0=1e-5 Integrating (analytically) the approximation is % accurate enough for l=1:5 x0 = 1e-6 * (1+rand); I_correct = pi*(4+x0^2)/4/sqrt(2); fprintf('Relative difference to reference solution: %e\n',norm(coshint(x0)-I_correct)/I_correct) assert(norm(coshint(x0)-I_correct)/I_correct <= 1e-10) end

Relative difference to reference solution: 2.866715e-13 Relative difference to reference solution: 2.720780e-13 Relative difference to reference solution: 7.584600e-13 Relative difference to reference solution: 1.713232e-13 Relative difference to reference solution: 4.675904e-13