function y =f(x);y=200*exp(-x/2)+20;endfunction
n=0
while abs(f(n+1)-f(n))>=0.1
    n=n+1
end
afficher(n)