Como esta pergunta está recebendo respostas que variam de astronomicamente pequenas a quase 100%, eu gostaria de oferecer uma simulação para servir como referência e inspiração para soluções aprimoradas.
Eu chamo esses "planos de chamas". Cada um documenta a dispersão do material genético dentro de uma população, que se reproduz em gerações distintas. As plotagens são matrizes de finos segmentos verticais que representam pessoas. Cada linha representa uma geração, com a inicial no topo. Os descendentes de cada geração estão na fila imediatamente abaixo dela.
No início, apenas uma pessoa em uma população de tamanho é marcada e plotada em vermelho. (É difícil ver, mas eles estão sempre plotados à direita da linha superior.) Seus descendentes diretos também são desenhados em vermelho; eles aparecerão em posições completamente aleatórias. Outros descendentes são plotados em branco. Como os tamanhos da população podem variar de uma geração para a próxima, uma borda cinza à direita é usada para preencher o espaço vazio.n
Aqui está uma matriz de 20 resultados de simulação independentes.
O material genético vermelho acabou por desaparecer em nove dessas simulações, deixando sobreviventes nos 11 restantes (55%). (Em um cenário, no canto inferior esquerdo, parece que toda a população acabou morrendo.) Onde quer que houvesse sobreviventes, quase toda a população continha material genético vermelho. Isso fornece evidências de que a chance de um indivíduo selecionado aleatoriamente da última geração que contém o gene vermelho é de cerca de 50%.
A simulação funciona determinando aleatoriamente uma sobrevivência e uma taxa média de nascimentos no início de cada geração. A sobrevivência é extraída de uma distribuição Beta (6,2): em média 75%. Esse número reflete a mortalidade antes da idade adulta e as pessoas que não têm filhos. A taxa de natalidade é calculada a partir de uma distribuição Gamma (2,8, 1), com uma média de 2,8. O resultado é uma história brutal de capacidade reprodutiva insuficiente para compensar a mortalidade geralmente alta. Representa um modelo extremamente pessimista, no pior dos casos - mas (como sugeri nos comentários) a capacidade da população de crescer não é essencial. Tudo o que importa em cada geração é a proporção de vermelho na população.
Para modelar a reprodução, a população atual é reduzida aos sobreviventes, coletando uma amostra aleatória simples do tamanho desejado. Esses sobreviventes são emparelhados aleatoriamente (qualquer sobrevivente estranho que sobrar após o pareamento não consegue se reproduzir). Cada par produz um número de filhos extraídos de uma distribuição de Poisson cuja média é a taxa de natalidade da geração. Se um dos pais contiver o marcador vermelho, todos os filhos o herdarão: isso modela a idéia de descida direta por qualquer um dos pais.
Este exemplo começa com uma população de 512 e executa a simulação por 11 gerações (12 linhas, incluindo o início). Variações dessa simulação começando com apenas e até pessoas, usando diferentes quantidades de taxas de sobrevivência e nascimento, todas exibem características semelhantes: no final de gerações ( nove neste caso), há uma chance de 1/3 de que todo o vermelho tenha desaparecido, mas se não tiver, a maioria da população é vermelha. Dentro de mais duas ou três gerações, quase toda a população é vermelha e permanecerá vermelha (ou então a população desaparecerá completamente).2 14 = 16 , 384 log 2 ( n )n=8214=16,384log2(n)
Uma sobrevivência de 75% ou menos em uma geração não é fantasiosa, a propósito. No final de 1347, os ratos infestados de peste bubônica fizeram o seu caminho da Ásia para a Europa; durante os próximos três anos, entre 10% e 50% da população europeia morreu como resultado. A praga se repetiu quase uma vez por geração durante centenas de anos depois (mas geralmente não com a mesma mortalidade extrema).
Código
A simulação foi criada com o Mathematica 8:
randomPairs[s_List] := Partition[s[[Ordering[RandomReal[{0, 1}, Length[s]]]]], 2];
next[s_List, survive_, nKids_] := Flatten[ConstantArray[Max[#],
RandomVariate[PoissonDistribution[nKids]]] & /@
randomPairs[RandomSample[s, Ceiling[survive Length[s]]]]]
Partition[Table[
With[{n = 6}, ArrayPlot[NestList[next[#, RandomVariate[BetaDistribution[6, 2]],
RandomVariate[GammaDistribution[3.2, 1]]] &,
Join[ConstantArray[0, 2^n - 1], ConstantArray[1, 1]], n + 2],
AspectRatio -> 2^(n/3)/(2 n),
ColorRules -> {1 -> RGBColor[.6, .1, .1]},
Background -> RGBColor[.9, .9, .9]]
], {i, 1, 20}
], 4] // TableForm