Có một công thức cho một hình thức chung của vấn đề người sưu tập phiếu giảm giá?


10

Tôi tình cờ phát hiện ra vấn đề người sưu tập phiếu giảm giá và đang cố gắng tìm ra một công thức để khái quát hóa.

Nếu có N đối tượng riêng biệt và bạn muốn thu thập ít nhất k bản sao của mỗi m trong số chúng (trong đó mN ), thì bạn nên mua bao nhiêu đối tượng ngẫu nhiên?. Bài toán thu thập phiếu bình thường có m= =Nk= =1 .

Có 12 nhân vật LEGO khác nhau trong một bộ sưu tập. Tôi muốn thu thập 3 bản sao của mỗi 10 (bất kỳ 10) số liệu. Tôi có thể mua chúng ngẫu nhiên một lần. Tôi nên mua bao nhiêu trước khi tôi có 3 bản trong số 10 bản?


3
Tôi không nhớ là đã thấy một công thức cho sự khái quát hóa cụ thể đó, nhưng đối với một câu hỏi cụ thể một lần như thế, tôi có xu hướng sử dụng mô phỏng.
Glen_b -Reinstate Monica

Câu trả lời:


5

Đ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.

Nhân vật

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= =10x0Tôi0x1Tôi1x2Tôi2x3Tôi3Tôijk= =0k= =tΠj= =0kxjTôij

Tôi0Tôi0/nTôi1/n

x0Tôi0x1Tôi1x2Tôi2x3Tôi31n(Tôi0x0Tôi0-1x1Tôi1+1x2Tôi2x3Tôi3++Tôi3x0Tôi0x1Tôi1x2Tôi2-1x3Tôi3).

(x1Dx0+x2Dx1+x3Dx2+x3Dx3)/nx012= =x0np(n+kk)Πj= =0kxjTôijpTôi3t(m+1)(n+kk)

6nk= =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ố:

Hình 2

Đâ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

Khi sử dụng trang web của chúng tôi, bạn xác nhận rằng bạn đã đọc và hiểu Chính sách cookieChính sách bảo mật của chúng tôi.
Licensed under cc by-sa 3.0 with attribution required.