c = 2;
P = N[n*Log[n]]
K = N[c*Log[n]]
Needs["PlotLegends`"];
PrDEqK[P_, K_, n_, c_, k_] := Module[{p, q, r, ps, qs, m, tmp},
r = Sqrt[(c*Log[n])/(n*\[Pi])];
p = \[Pi]*r^2;
q = 1 - p;
ps = 1 - Binomial[P - K, K]/Binomial[P, K];
qs = 1 - ps;
N[Sum[Binomial[n - 1, m]*p^m*q^(n - 1 - m)*Binomial[m, k]*ps^k*
qs^(m - k), {m, k, n - 1}]]
];
Plot[CDF[{PrDEqK[P, K, 20, c, k], {k, 1, 8},Filling -> Axis
]
i'm not getting the CDF plot...what is the problem?