saf_pro_mex.m

来自「书名应为《掌握和精通MATLAB》附有完整的源程序」· M 代码 · 共 8 行

function y=saf(x)
n=length(x);
x=zeros(1,n);y=zeros(1,n);
for k=1:n
	x(k)=x(k)+(x(k)==0)*eps;
	y(k)=sin(x(k))/x(k);
end