None.
Open in the MATLAB editor: s13ad_example
function s13ad_example fprintf('s13ad example results\n\n'); x = [0:0.2:1]; n = size(x,2); result = x; for j=1:n [result(j), ifail] = s13ad(x(j)); end disp(' x Si(x)'); fprintf('%12.3e%12.3e\n',[x; result]); s13ad_plot; function s13ad_plot x = [-12:0.1:12]; for j=1:numel(x) [si(j), ifail] = s13ad(x(j)); end fig1 = figure; plot(x,si); xlabel('x'); ylabel('Si(x)'); title('Sine Integral Si(x)'); axis([-12 12 -2 2]);
s13ad example results x Si(x) 0.000e+00 0.000e+00 2.000e-01 1.996e-01 4.000e-01 3.965e-01 6.000e-01 5.881e-01 8.000e-01 7.721e-01 1.000e+00 9.461e-01