Poiché questa domanda sta ricevendo risposte che variano da astronomicamente piccole a quasi il 100%, vorrei offrire una simulazione che serva da riferimento e ispirazione per soluzioni migliorate.
Chiamo questi "diagrammi di fiamma". Ognuno documenta la dispersione del materiale genetico all'interno di una popolazione mentre si riproduce in generazioni discrete. Le trame sono matrici di sottili segmenti verticali che raffigurano persone. Ogni riga rappresenta una generazione, con quella iniziale in alto. I discendenti di ogni generazione sono nella fila immediatamente sotto di essa.
All'inizio, solo una persona in una popolazione di taglia è contrassegnata e viene rappresentata in rosso. (È difficile da vedere, ma sono sempre tracciati a destra della riga superiore.) Anche i loro discendenti diretti sono disegnati in rosso; si presenteranno in posizioni completamente casuali. Gli altri discendenti sono stampati in bianco. Poiché le dimensioni della popolazione possono variare da una generazione all'altra, un bordo grigio a destra viene utilizzato per riempire lo spazio vuoto.n
Ecco un array di 20 risultati di simulazione indipendenti.
Il materiale genetico rosso alla fine si estinse in nove di queste simulazioni, lasciando i sopravvissuti nelle restanti 11 (55%). (In uno scenario, in basso a sinistra, sembra che l'intera popolazione alla fine si sia estinta.) Ovunque vi fossero sopravvissuti, tuttavia, quasi tutta la popolazione conteneva il materiale genetico rosso. Ciò fornisce la prova che la probabilità che un individuo selezionato casualmente dall'ultima generazione contenente il gene rosso è circa del 50%.
La simulazione funziona determinando casualmente una sopravvivenza e un tasso di natalità medio all'inizio di ogni generazione. La sopravvivenza è tratta da una distribuzione Beta (6,2): ha una media del 75%. Questo numero riflette sia la mortalità prima dell'età adulta sia quelle persone che non hanno figli. Il tasso di natalità è tratto da una distribuzione Gamma (2.8, 1), quindi ha una media di 2.8. Il risultato è una storia brutale di insufficiente capacità riproduttiva per compensare la mortalità generalmente elevata. Rappresenta un modello estremamente pessimista, nel peggiore dei casi - ma (come ho suggerito nei commenti) la capacità della popolazione di crescere non è essenziale. Tutto ciò che conta in ogni generazione è la proporzione di rosso all'interno della popolazione.
Per modellare la riproduzione, l'attuale popolazione viene ridotta ai sopravvissuti prelevando un semplice campione casuale della dimensione desiderata. Questi sopravvissuti vengono accoppiati in modo casuale (qualsiasi sopravvissuto dispari rimasto dopo l'accoppiamento non riesce a riprodursi). Ogni coppia produce un certo numero di bambini estratti da una distribuzione di Poisson la cui media è il tasso di natalità della generazione. Se uno dei genitori contiene il marcatore rosso, tutti i bambini lo ereditano: questo modella l'idea di discesa diretta attraverso entrambi i genitori.
Questo esempio inizia con una popolazione di 512 ed esegue la simulazione per 11 generazioni (12 righe incluso l'inizio). Le variazioni di questa simulazione che iniziano con un minimo di e fino a persone, utilizzando diverse quantità di sopravvivenza e tassi di natalità, presentano tutte caratteristiche simili: entro la fine di generazioni ( nove in questo caso), c'è circa 1/3 di probabilità che tutto il rosso sia scomparso, ma se non lo è, allora la maggior parte della popolazione è rossa. Entro altre due o tre generazioni, quasi tutta la popolazione è rossa e rimarrà rossa (altrimenti la popolazione si estinguerà del tutto).n=8214=16,384log2(n)
A proposito, una sopravvivenza del 75% o meno in una generazione non è fantasiosa. Alla fine del 1347 i topi infestati dalla peste bubbonica si diressero dapprima dall'Asia all'Europa; nei prossimi tre anni, tra il 10% e il 50% della popolazione europea è morto di conseguenza. La peste si ripresentò quasi una generazione dopo centinaia di anni (ma di solito non con la stessa mortalità estrema).
Codice
La simulazione è stata creata con 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