function y=v(x);y=(1.3*10^(-3)*x)/(4*10^(-6)+x);endfunction
n=0
while v(n*10^(-3)+10^(-3))-v(n*10^(-3))>10^(-7)
    n=n+1
end
afficher(n)