P( X= i ) = p ( i )
XTôi0 , 1 , ... , n( 0 , 1 / 6 , 1 / 6 , 1 / 6 , 1 / 6 , 1 / 6 , 1 / 6 ). Hàm tạo xác suất (pgf) sau đó được đưa ra bởi
p ( t ) = Σ60p ( i ) tTôi. Để con súc sắc thứ hai có phân phối được cho bởi vectơ
q( j ) với
j trong phạm vi
0 , 1 , ... , m. Sau đó, sự phân phối của tổng số mắt trên hai cuộn xúc xắc độc lập được đưa ra bởi sản phẩm của pgf 's,
p ( t ) q( t ). Viết ra sản phẩm này chúng ta có thể thấy nó được đưa ra bởi tích chập của các chuỗi hệ số, do đó có thể được tìm thấy bởi hàm R chập (). Hãy kiểm tra điều này bằng hai lần ném xúc xắc tiêu chuẩn:
> p <- q <- c(0, rep(1/6,6))
> pq <- convolve(p,rev(q),type="open")
> zapsmall(pq)
[1] 0.00000000 0.00000000 0.02777778 0.05555556 0.08333333 0.11111111
[7] 0.13888889 0.16666667 0.13888889 0.11111111 0.08333333 0.05555556
[13] 0.02777778
và bạn có thể kiểm tra xem điều đó có đúng không (bằng cách tính toán bằng tay). Bây giờ cho câu hỏi thực sự, năm con xúc xắc với 4,6,8,12,20 bên. Tôi sẽ làm phép tính giả sử probs đồng phục cho mỗi con xúc xắc. Sau đó:
> p1 <- c(0,rep(1/4,4))
> p2 <- c(0,rep(1/6,6))
> p3 <- c(0,rep(1/8,8))
> p4 <- c(0, rep(1/12,12))
> p5 <- c(0, rep(1/20,20))
> s2 <- convolve(p1,rev(p2),type="open")
> s3 <- convolve(s2,rev(p3),type="open")
> s4 <- convolve(s3,rev(p4),type="open")
> s5 <- convolve(s4, rev(p5), type="open")
> sum(s5)
[1] 1
> zapsmall(s5)
[1] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00002170
[7] 0.00010851 0.00032552 0.00075955 0.00149740 0.00262587 0.00421007
[13] 0.00629340 0.00887587 0.01191406 0.01534288 0.01907552 0.02300347
[19] 0.02699653 0.03092448 0.03465712 0.03808594 0.04112413 0.04370660
[25] 0.04578993 0.04735243 0.04839410 0.04891493 0.04891493 0.04839410
[31] 0.04735243 0.04578993 0.04370660 0.04112413 0.03808594 0.03465712
[37] 0.03092448 0.02699653 0.02300347 0.01907552 0.01534288 0.01191406
[43] 0.00887587 0.00629340 0.00421007 0.00262587 0.00149740 0.00075955
[49] 0.00032552 0.00010851 0.00002170
> plot(0:50,zapsmall(s5))
Cốt truyện được hiển thị dưới đây:
Bây giờ bạn có thể so sánh giải pháp chính xác này với mô phỏng.