None.
Open in the MATLAB editor: s18cd_example
function s18cd_example fprintf('s18cd example results\n\n'); x = [0.4 0.6 1.4 2.5 10 1000]; n = size(x,2); result = x; for j=1:n [result(j), ifail] = s18cd(x(j)); end disp(' x e^xK_1(x)'); fprintf('%12.3e%12.3e\n',[x; result]);
s18cd example results x e^xK_1(x) 4.000e-01 3.259e+00 6.000e-01 2.374e+00 1.400e+00 1.301e+00 2.500e+00 9.002e-01 1.000e+01 4.108e-01 1.000e+03 3.965e-02