पी( एक्स)= i ) = p ( i )
एक्समैं0 , 1 , … , एन( 0 , 1 / 6 , 1 / 6 , 1 / 6 , 1 / 6 , 1 / 6 , 1 / 6 )। प्रायिकता जनरेटिंग फंक्शन (pgf) इसके द्वारा दिया जाता है
p ( t ) = ∑60p ( i ) टीमैं। दूसरे पासे को वेक्टर द्वारा दिया गया वितरण है
क्ष( जे ) साथ में
जे रेंज में
0 , 1 , … , मी। फिर pgf के उत्पाद द्वारा दिए गए दो स्वतंत्र पासा रोल पर आंखों के योग का वितरण,
पी ( टी ) क्यू( टी )। Thet उत्पाद को लिखते हुए हम देख सकते हैं कि यह गुणांक अनुक्रमों के दृढ़ संकल्प द्वारा दिया गया है, इसलिए R फ़ंक्शन कनवल्शन () द्वारा पाया जा सकता है। इसे दो चरणों में मानक पासे से देखें:
> 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
और आप देख सकते हैं कि यह सही है (हाथ की गणना से)। अब असली सवाल के लिए, 5,6, 4,6,8,12,20 पक्षों के साथ। मैं प्रत्येक पासा के लिए एकसमान प्रक्रिया मानकर गणना करूंगा। फिर:
> 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))
प्लॉट नीचे दिखाया गया है:
अब आप सिमुलेशन के साथ इस सटीक समाधान की तुलना कर सकते हैं।