p((Subscript[c, d])\[VerticalSeparator]c)=((n (Subscript[A, T])n (Subscript[A, D])))*(d^(n (Subscript[A, T])-n (Subscript[A, D])))*(((1-d))^(n (Subscript[A, D])))*(((Subscript[nB, T])(Subscript[nB, D])))*(d^((Subscript[nB, T])-(Subscript[nB, D])))*(((1-d))^(Subscript[nB, D]))