Điều này không dễ để tính toán, nhưng nó có thể được thực hiện, cung cấp không quá lớn. (Con số này tính các trạng thái có thể bạn cần theo dõi trong khi thu thập phiếu giảm giá.)( m+kk)
Hãy bắt đầu với một mô phỏng để hiểu được câu trả lời. Ở đây, tôi đã thu thập số liệu LEGO một triệu lần. Đường màu đen trong âm mưu này theo dõi tần suất của số lượng mua cần thiết để thu thập ít nhất ba trong số mười con số khác nhau.
Dải màu xám là khoảng tin cậy hai mặt xấp xỉ 95% cho mỗi lần đếm. Bên dưới tất cả là một đường cong màu đỏ: đây là giá trị thực.
n = 12k = 3m = 10xTôi00xTôi11xTôi22xTôi33Tôijk = 0k = tΠkj = 0xTôijj
Tôi0Tôi0/ nTôi1/ n
xTôi00xTôi11xTôi22xTôi33→ 1n( tôi0xTôi0- 10xTôi1+ 11xTôi22xTôi33+ ⋯ + i3xTôi00xTôi11xTôi2- 12xTôi33) .
( x1Dx0+ x2Dx1+ x3Dx2+ x3Dx3) / nx120= xn0p( n+kk)Πkj = 0xTôijjpTôi3≥ t( m + 1 ) ( n + kk)
6 n k = 21610- 17
n = 12;
threshold = 10;
k = 3;
(* Draw one object randomly from an urn with `n` of them *)
draw[p_] :=
Expand[Sum[Subscript[x, i] D[#, Subscript[x, i - 1]], {i, 1, k}] +
Subscript[x, k] D[#, Subscript[x, k]] & @ p];
(* Find the chance that we have collected at least `k` each of `threshold` objects *)
f[p_] := Sum[
Coefficient[p, Subscript[x, k]^t] /.
Table[Subscript[x, i] -> 1, {i, 0, k - 1}], {t, threshold, n}]
(* Compute the chances for a long series of draws *)
q = f /@ NestList[draw[#]/n &, Subscript[x, 0]^n, 6 n k];
Kết quả, mất khoảng hai giây để tính toán (nhanh hơn so với mô phỏng!) Là một loạt các xác suất được lập chỉ mục bởi số lần rút. Dưới đây là một âm mưu về sự khác biệt của nó, đó là xác suất kết thúc giao dịch mua hàng của bạn dưới dạng hàm số:
Đây chính xác là những con số được sử dụng để vẽ đường cong nền đỏ trong hình đầu tiên. (Một thử nghiệm chi bình phương cho thấy mô phỏng không khác biệt đáng kể so với tính toán này.)
1 - q50,7619549386733