None.
Open in the MATLAB editor: s18cc_example
function s18cc_example fprintf('s18cc 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] = s18cc(x(j)); end disp(' x e^xK_0(x)'); fprintf('%12.3e%12.3e\n',[x; result]);
s18cc example results x e^xK_0(x) 4.000e-01 1.663e+00 6.000e-01 1.417e+00 1.400e+00 9.881e-01 2.500e+00 7.595e-01 1.000e+01 3.916e-01 1.000e+03 3.963e-02