geometric

x = 125; % samples analysed until a large particle is detected
p = 0.01; % P(wafer conatins a large particle of contamination
Px = geopdf(x,p);
stem(0:25:200,geopdf(0:25:200,geopdf(0:25:200,p)));
title('GEOMETRIC PROBABILITY DISTRIBUTION');
xlabel('Samples analysed --->');
ylabel('Probability --->');