  disp('Plot Binomial')
  lw = 2; 
  set(0, 'DefaultAxesFontSize', 14);
  fs = 14;
  msize = 10;  




close all
n=10; p=0.4; w=0.1; ms=6;
xx = 0:n; yyc= binocdf(xx,n,p);yyp= binopdf(xx,n,p);
figure(1)
subplot(211)
bar(xx, yyp, w,'r')
hold on
plot(xx,yyp, 'bs','MarkerSize',5, 'MarkerFaceColor','b')
hold off
axis tight
subplot(212)
stairs(xx,yyc,'r-','linewidth',2)
hold on
plot(xx(2:end)-0.1,yyc(1:end-1),'r>','MarkerFaceColor','w','markersize',6)
plot(xx, yyc, 'ro',  'MarkerFaceColor','w'  )
hold off