clf;
t=0.5;
N=5000;

ech=-log(rand(1,N));


ech=ech-t*ones(1,N);

ech=ech(find(ech>0));

M=length(ech);

histplot(round(M/20),ech)

m=max(ech);

x=0:0.01:m;

y=exp(-x);

plot2d(x,y,5);

legend("histogramme empirique","densite theorique");

xtitle("illustration de l absence de memoire de la loi exponentielle");
