None.
Open in the MATLAB editor: s18cf_example
function s18cf_example fprintf('s18cf example results\n\n'); x = [0 0.5 1 3 6 10 1000 -1]; n = size(x,2); result = x; for j=1:n [result(j), ifail] = s18cf(x(j)); end disp(' x e^-|x| I_1(x)'); fprintf('%12.3e%12.3e\n',[x; result]);
s18cf example results x e^-|x| I_1(x) 0.000e+00 0.000e+00 5.000e-01 1.564e-01 1.000e+00 2.079e-01 3.000e+00 1.968e-01 6.000e+00 1.521e-01 1.000e+01 1.213e-01 1.000e+03 1.261e-02 -1.000e+00 -2.079e-01