Chapter 3: uniform stem plot

xs=1:12; MS=[11];

ps=ones(size(xs))./length(xs);

figure; clf; hold on

for L=1:length(xs),

plot(mean(xs)*[1 1],[0 ps(1)],'k--')

stem(xs(L),ps(L),'ko','MarkerFaceColor', 'k','MarkerSize',MS), end

xlim([0 13]);