Qndd1[x_, N_, D_] := Module[{sum = 0, bin}, bin = 1; For[n = N, n > x, n--, sum += bin ((n-x)/D)^n (1-(n-x)/D)^(N-n) (D-N+x)/(D-n+x); bin *= n/(N-n+1); ]; sum ]