%%% Processus de Galton-Watson avec loi de fécondité géométrique
%%% Probabilité d'extinction empirique

clf; plot([0:ng],sum(Z==0)/nr)
