Problem 18 
n=13;  p=0.6;  dist=BinomialDistribution[n,p];
BarChart[Table[PDF[dist,k],{k,0,13}],BarLabels->Range[0,13]]

[Graphics:../Images/prob_gr_43.gif]

CDF[dist,3]
[Graphics:../Images/prob_gr_44.gif]

Converted by Mathematica      February 10, 2001