exm060104.m

来自「matlab电子书籍」· M 代码 · 共 13 行

function [S,N]=exm060104(epsilon)
k=0;
s=0;
d=inf;
S=0;
while d>epsilon
    k=k+1;
    s=s+k;               
    d=1/s;  
    S=S+d;
end
N=k;