Voy a mostrar un enfoque para hacer esto de manera algebraica, con la ayuda de R.
Asumir las distintas dados tienen distribuciones de probabilidad dada por los vectores
P(X=i)=p(i) where X is the number of eyes seen on throwing the dice, and i is a integer in the range 0,1,…,n. So the probability of two eyes, say, is in the third vector component. Then a standard dice has distribution given by the vector (0,1/6,1/6,1/6,1/6,1/6,1/6). The probability generating function (pgf) is then given by p(t)=∑60p(i)ti. Let the second dice have distribution given by the vector q(j) with j in range 0,1,…,m. Then the distribution of the sum of eyes on two independent dice rolls given by the product of the pgf' s, p(t)q(t). La escritura de thet producto podemos ver que es dado por la convolución de la coeficiente de secuencias, por lo que se puede encontrar por la R de la función de convolución(). Vamos a probar esto por dos tiros de la norma dice:
> 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
y se puede comprobar que es correcto (por mano de cálculo). Ahora a por la pregunta, cinco dados con 4,6,8,12,20 lados. Voy a hacer el cálculo suponiendo uniforme probs para cada uno de los dados. Entonces:
> 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))
La trama se muestra a continuación:
![enter image description here]()
Ahora usted puede comparar esta solución exacta con las simulaciones.