Оскільки на це запитання отримують відповіді, які варіюються від астрономічно малої до майже 100%, я хотів би запропонувати моделювання, яке слугуватиме орієнтиром та натхненням на покращення рішень.
Я називаю ці "сюжетні полум'я". Кожен з них документує дисперсію генетичного матеріалу в межах популяції, оскільки він відтворюється в окремих поколіннях. Сюжети - це масиви тонких вертикальних сегментів із зображенням людей. Кожен рядок являє собою покоління, а початкове - вгорі. Нащадки кожного покоління стоять в ряді безпосередньо під ним.
На початку лише одна людина в популяції розміром позначена і відображається як червона. (Це важко помітити, але вони завжди накреслені праворуч від верхнього ряду.) Їх прямі нащадки так само намальовані червоним кольором; вони виявляться в абсолютно випадкових положеннях. Інші нащадки зображені як білі. Оскільки розміри населення можуть змінюватись від одного покоління до наступного, сіра рамка праворуч використовується для заповнення порожнього простору.n
Ось масив з 20 незалежних результатів моделювання.
Червоний генетичний матеріал врешті-решт вимер у дев'яти цих моделюваннях, залишившись у живих у решті 11 (55%). (За одним сценарієм, що знаходиться внизу ліворуч, схоже, все населення в підсумку вимерло.) Де б не було вижили, хоча майже все населення містило червоний генетичний матеріал. Це свідчить про те, що шанс випадково вибраного індивіда з останнього покоління, що містить червоний ген, становить приблизно 50%.
Моделювання працює шляхом випадкового визначення виживаності та середньої народжуваності на початку кожного покоління. Виживання виживається з бета-версії (6,2): вона становить 75%. Це число відображає як смертність до повноліття, так і людей, які не мають дітей. Коефіцієнт народжуваності базується на розподілі гамма (2,8, 1), тому він становить в середньому 2,8. Результат - жорстока історія недостатньої репродуктивної здатності компенсувати загалом високу смертність. Він представляє надзвичайно песимістичну, найгіршу модель - але (як я підказав у коментарях) здатність населення зростати не є істотним. Важливе значення для кожного покоління - це частка червоного кольору серед населення.
Для моделювання відтворення поточна сукупність зменшується до тих, хто вижив, шляхом простого випадкового зразка потрібного розміру. Ці вижили випадкові пари (будь-який непарний виживший, що залишився після спарювання, не може відтворитись). Кожна пара виробляє кількість дітей, отриманих із розповсюдження Пуассона, середнє значення - рівень народжуваності покоління. Якщо будь-який з батьків містить червоний маркер, усі діти його успадковують: це моделює ідею прямого спуску через будь-якого з батьків.
Цей приклад починається з популяції 512 і запускає моделювання для 11 поколінь (12 рядків, включаючи початок). Варіації цього моделювання, починаючи з і цілих людини, використовуючи різні кількості виживаних та народжуваності, всі мають схожі характеристики: до кінця поколінь ( дев'ять у цьому випадку), існує приблизно 1/3 шансу, що всі червоні вимерли, але якщо цього не сталося, то більшість населення червоніє. Протягом двох-трьох більше поколінь майже все населення червоніє і залишатиметься червоним (інакше населення повністю вимирає).n=8214=16,384log2(n)
До речі, виживаність 75% чи менше в поколінні, до речі, не химерна. Наприкінці 1347 р. Щури, заражені бубонною чумою, вперше пробралися з Азії в Європу; протягом наступних трьох років внаслідок цього померло десь від 10% до 50% європейського населення. Чума повторювалась майже один раз у покоління протягом сотень років після цього (але зазвичай не з такою ж крайньою смертністю).
Код
Моделювання було створено за допомогою 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