Problem 8 
n=10;  p=0.3;  dist=BinomialDistribution[n,p];
BarChart[Table[PDF[dist,k],{k,0,10}],BarLabels->Range[0,10]]

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

PDF[dist,3]
[Graphics:../Images/prob_gr_20.gif]
1-CDF[dist,0]
[Graphics:../Images/prob_gr_21.gif]

Converted by Mathematica      February 10, 2001