None.
Open in the MATLAB editor: s18ce_example
function s18ce_example fprintf('s18ce 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] = s18ce(x(j)); end disp(' x e^-|x| I_0(x)'); fprintf('%12.3e%12.3e\n',[x; result]);
s18ce example results x e^-|x| I_0(x) 0.000e+00 1.000e+00 5.000e-01 6.450e-01 1.000e+00 4.658e-01 3.000e+00 2.430e-01 6.000e+00 1.667e-01 1.000e+01 1.278e-01 1.000e+03 1.262e-02 -1.000e+00 4.658e-01