function dist = delta_dist(i, n)
% DELTA_DIST Make a discrete prob. distr. of length n with all its mass on a single point i.
% dist = delta_dist(i, n)

dist = zeros(n,1);
dist(i) = 1;
