Y ahora de la otra forma.
Las dos corridas pueden determinar 3, 4 ó 5 grupos, escribiré solo un elemento de cada grupo pero puede repetirse varias veces
DBD
DBDB
BDBD
BDBDB
Mi primera intención era estudiar tres casos ya que el segundo y tercero son equivalentes, pero luego he pensado que a lo mejor solo hay que estudiar el cuarto caso y hacer de los anteriores casos particulares.
Entonces los m tubos se dividirán en 5 grupos y estará permitido que el primero y último valgan 0, pero 2º, 3º y 4º deberán valer más de cero.
Las formas de repartir n elementos en m contedores son
CR(m,n) = C(m+n-1, n)
Las formas de repartirlos en 5 contenedores son
CR(5,m) = C(m+4, m)=C(m+4,4)
Debemos quitar las formas que tienen 0 en el segundo, tercero o cuarto contenedor
Las formas de que haya un cero en un contenedor son
CR(4,m) = C(m+3, m)=C(m+3,3)
Como son tres contenedores quitaremos
3C(m+3,3)
Por el principio de inclusión-exclusión ahora debemos sumar las combinaciones de 3 tomados de 2 en 2 contenedores con 0 en los dos, que son
3CR(3,m)=3C(m+2,m)=3C(m+2,2)
y finalmente hay que restar la combinación de tres contenedores con 0 que es
CR(2,m)=C(m+1,m) =C(m+1,1) = m+1
Resumiendo, las cuentas serían
Co(m,2) = C(m+4,4) - 3C(m+3,3) + 3C(m+2,2) - (m+1) =
(m+4)(m+3)(m+2)(m+1)/24 - 3(m+3)(m+2)(m+1)/6 + 3(m+2)(m+1)/2 + m+1 =
(m^4+10m^3+35m^2+50m+24)/24 - (3m^3+18m^2+33m+18)/6 + (3m^2+9m+6)/2 - (m+1) =
(m^4 - 2m^3 - m^2 + 2m)/24
·
Por supuesto que he usado el ordenador para hacer esas operaciones, no quiero ni volverme loco ni equivocarme.
Y como vemos el resultado es el mismo que con la otra forma de calcular, lo cual confirma la veracidad del resultado, que por si fuera poco es el mismo que se obtiene con este programa hecho con VisualStudio VisualBasic
Module Module1
Sub Main()
Dim a(4096, 12)
Dim i, j, k, ac, corridas, suma As Integer
suma = 0
For i = 0 To 4095
For j = 0 To 11 : a(i, j) = 0 : Next
k = i
If k >= 2048 Then a(i, 0) = 1 : k = k - 2048
If k >= 1024 Then a(i, 1) = 1 : k = k - 1024
If k >= 512 Then a(i, 2) = 1 : k = k - 512
If k >= 256 Then a(i, 3) = 1 : k = k - 256
If k >= 128 Then a(i, 4) = 1 : k = k - 128
If k >= 64 Then a(i, 5) = 1 : k = k - 64
If k >= 32 Then a(i, 6) = 1 : k = k - 32
If k >= 16 Then a(i, 7) = 1 : k = k - 16
If k >= 8 Then a(i, 8) = 1 : k = k - 8
If k >= 4 Then a(i, 9) = 1 : k = k - 4
If k >= 2 Then a(i, 10) = 1 : k = k - 2
If k >= 1 Then a(i, 11) = 1 : k = k - 1
corridas = 0
ac = a(i, 0) : If ac = 1 Then corridas = 1
For j = 1 To 11
If a(i, j) <> ac Then
ac = a(i, j) : If ac = 1 Then corridas = corridas + 1
End If
Next
If corridas = 2 Then suma = suma + 1
Next
MsgBox(suma)
End Sub
End Module
Luego es definitivo en número de formas de hacer 2 corridas con m tubos es:
$$\begin{align}&Co(m,2)=\frac{m^4-2m^3-m^2+2m}{24}\\&\\&\text{Y la probabilidad es}\\&\\&P(2\;corridas)=\frac{m^4-2m^3-m^2+2m}{24·2^m}\\&\\&\text{Y para m=12 esto supone}\\&\\&Co(12,2)=715\\&\\&P(2\;corridas) = \frac {715}{4096}=0.1745605469\end{align}$$
Y eso es todo, para los elementos con tres corridas hace falta otra pregunta. Yo cuando vi el ejercicio me quedé alucinando de como pueden mandar semejante trabajo y quedarse tan tranquilos.