Este es un problema difícil. Vamos a empezar con el N de condición. Como a menudo una forma de simplificar el problema es que en lugar de calcular la probabilidad de que nunca X ocurrencias en una fila, Y los ensayos.
Tenga en cuenta que para $Y < X$ usted nunca tendrá X ocurrencias, y mucho menos en una fila, por lo que la probabilidad de aquí es de 1. Deje que nos indican la probabilidad de que usted NO tiene X ocurrencias en una fila, Y ensayos como $P(X|Y)$.
Desde que asumimos una moneda, vamos a llamar a los dos resultados H y T. T son nuestros éxitos. Permítanos acortar un repetion de n a cara o cruz, como H[n] T[n]. Deje que nosotros además de denotar la probabilidad de que T como p. Mira en los casos en que no se contienen a T[X]. Tienen las siguientes posibles comienza (primeros eventos):
$$
H \\
T[1]H \\
T[2]H \\
\vdots \\
T[X-1]H
$$
Se nota que le separada de la sala de posibles resultados, no es posible que una serie de empezar con dos de esas opciones, que son mutuamente excluyentes. Así que podemos escribir
$$
P(X|Y) = \sum_{i=0}^{X-1} P(\text{serie comienza con $T[i]H$ e no $T[X]$ en el resto de la serie)}
$$
debido a la independencia de cada uno de los eventos tenemos
$$
P(X|Y) = \sum_{i=0}^{X-1} P(\text{serie comienza con $T[i]H$})P(\text{no $T[X]$ en el resto de la serie}).
$$
Note that the rest of the series depends on i; it has length $S-i-1$. So finally we get
$$
P(X|Y) = \sum_{i=0}^{X-1} (1-p)p^{i-1}P(X|Y-1-i).
$$
This is a well-defined recurrent formula given $P(X|Y) = 1$ for $Y < X$. While there is (as far as I know) no general closed form, it is easy enough to calculate. Remember that the chance you seek is actually $1-P(X|Y)$.
Now if could still condition on the total number of sucesses... This could probably be carried along with the Y. I will try to complete that part later. The number of reamining sucesses in the recurrence part of the formula will decrease by i but the inversion part will be tricky...
Okay, let's give this a try. We now look at $P(X,N|Y)$. Representa la probabilidad de tener exactamente n éxitos y sin cadenas de longitud X o más en una secuencia de longitud Y.
Todavía podemos obtener
$$
P(X,N|Y) = \sum_{i=0}^{X-1} (1-p)p^{i-1}P(X,N-i|Y-1-i).
$$
Do we have enough boundary conditions on $P(X,N|Y)$ to make this work? We do know that $P(X,N|Y)$ is $\binom{Y}{N}p^N(1-p)^{N-Y}$ for $Y < X$ and $N \leq Y$. It's also 0 if $Y=N$ AND $S \geq X$.Is that enough? Let's look at an easy example $X=2$,$Y=4$,$N=3$,$p=0.5$.
We get
$$
P(2,3|4) = (1-p)P(2,3|3)+p(1-p)P(2,2|2)
$$
Así, obtenemos
$$
(1-p)0+p(1-p)0=0.
$$
Works in this case.
Let's try $N=4$, $Y=5$, $X=3$, $p=0.5$.
$$
P(3,4|5) = (1-p)P(3,4|4)+p(1-p)P(3,3|3)+p^2(1-p)P(3,2|2)
$$
The first two terms are zero (see above), so what remains is $2^{-5}\binom{2}{2}$.
Usted obtener su probabilidad por
P(exactamente N sucesses) = P(exactamente N éxitos + sin las cadenas de la longitud X) + P(exactamente N éxitos + cadenas de longitud X). La mano izquierda es simplemente dada por el teorema del binomio.
....así que más a la derecha de la probabilidad:
$$
\frac{5}{2^5} = \frac{1}{2^5}+P(\text{cadena de longitud X existe},N|Y)
$$
así
$$
P(\text{cadena de longitud X existe},N|Y)=\frac{4}{2^5}.
$$
Ahora solo hay que dividir por la probabilidad de que haya exactamente N éxitos para obtener la probabilidad condicional de a $\frac{4}{5}$, que es la respuesta correcta.
Creo que la periodicidad y la fórmula está bien definido, pero no estoy 100% seguro de que en este punto.
R-Versión, que después de algunas correcciones parece estar de acuerdo con Max, pero podría mí más general, si lento. chance2 da el resultado final. También he probado los resultados de la función y la comparó con la simulación. Parece que dar la respuesta correcta. Almacenamiento en caché de los valores en una matriz de dos dimensiones para L,N podría hacer que el programa relativamente rápido.
chance <- function(x,L,N)
{
print(c(x,L,N))
if (L < 0) return(0)
if (N <0) return(0)
if (L < N) return(0)
if (L == 0)
{
if (N!=0) return(0)
return(1)
}
if (L < x)
{
return(0.5^(L)*choose(L,N))
}
result <- 0
for (i in 0:(x-1))
{
result <- result + 0.5^(i+1)*chance(x,L-i-1,N-i)
}
return(result)
}
chance2 <- function(x,L,N)
{
result1 <- chance(x,L,N)
left.hand <- choose(L,N)*(0.5)^L
result2 <- (left.hand-result1)/left.hand
return(result2)
}