saf_pro.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