function bindem3(p)
x=0:10;
n=5;
bar(stand(x,n,p),  sqrt(n)*binopdf(x,n,p),'r' )
title('Binomial histograms standardized, fixed p ')
gtext(['red. Bin, n= ' num2str(n) ' p= ' num2str(p)])
hold on
n=2*n;
bar(stand(x,n,p), sqrt(n)*binopdf(x,n,p),'g')
gtext(['green. Bin, n= ' num2str(n) ' p= ' num2str(p)])
n=2*n;
bar(stand(x,n,p), sqrt(n)*binopdf(x,n,p),'b')
gtext(['blue. Bin, n= ' num2str(n) ' p= ' num2str(p)])
n=2*n;
bar(stand(x,n,p), sqrt(n)*binopdf(x,n,p),'y')
gtext(['yellow. Bin, n= ' num2str(n) ' p= ' num2str(p)])
hold off
figure
n=5;
stairs(stand(x,n,p),  binocdf(x,n,p) )
gtext([' Bin, n= ' num2str(n) ' p= ' num2str(p)])
hold on
n=2*n;
stairs(stand(x,n,p), binocdf(x,n,p))
gtext([' Bin, n= ' num2str(n) ' p= ' num2str(p)])
n=2*n;
stairs(stand(x,n,p), binocdf(x,n,p))
gtext([' Bin, n= ' num2str(n) ' p= ' num2str(p)])
n=2*n;
stairs(stand(x,n,p), binocdf(x,n,p))
gtext([' Bin, n= ' num2str(n) ' p= ' num2str(p)])

hold off