Karena pertanyaan ini menerima jawaban yang bervariasi dari yang kecil hingga hampir 100%, saya ingin menawarkan simulasi untuk dijadikan referensi dan inspirasi untuk solusi yang lebih baik.
Saya menyebutnya "plot api." Masing-masing mendokumentasikan penyebaran materi genetik dalam suatu populasi saat ia bereproduksi dalam generasi yang berbeda. Plot adalah array segmen vertikal tipis yang menggambarkan orang. Setiap baris mewakili generasi, dengan yang mulai di atas. Keturunan setiap generasi berada di barisan tepat di bawahnya.
Pada awalnya, hanya satu orang dalam populasi berukuran n ditandai dan plot berwarna merah. (Sulit dilihat, tetapi mereka selalu diplot di sebelah kanan barisan paling atas.) Keturunan langsung mereka juga digambarkan dalam warna merah; mereka akan muncul dalam posisi yang sepenuhnya acak. Keturunan lainnya diplot sebagai putih. Karena ukuran populasi dapat bervariasi dari satu generasi ke generasi berikutnya, perbatasan abu-abu di sebelah kanan digunakan untuk mengisi ruang kosong.
Berikut ini adalah 20 hasil simulasi independen.
Materi genetik merah akhirnya mati dalam sembilan dari simulasi ini, meninggalkan yang selamat di 11 yang tersisa (55%). (Dalam satu skenario, bagian kiri bawah, sepertinya seluruh populasi akhirnya mati.) Di mana pun ada yang selamat, hampir semua populasi mengandung materi genetik merah. Ini memberikan bukti bahwa peluang individu yang dipilih secara acak dari generasi terakhir yang mengandung gen merah adalah sekitar 50%.
Simulasi ini bekerja dengan secara acak menentukan angka bertahan hidup dan angka kelahiran rata-rata pada awal setiap generasi. Survivorship diambil dari distribusi Beta (6,2): rata-rata 75%. Angka ini mencerminkan angka kematian sebelum dewasa dan orang-orang yang tidak memiliki anak. Tingkat kelahiran diambil dari distribusi Gamma (2,8, 1), sehingga rata-rata 2,8. Hasilnya adalah kisah brutal kapasitas reproduksi yang tidak mencukupi untuk mengimbangi kematian yang umumnya tinggi. Ini mewakili model kasus terburuk yang sangat pesimistis - tetapi (seperti yang telah saya kemukakan dalam komentar) kemampuan populasi untuk tumbuh tidaklah penting. Yang penting di setiap generasi adalah proporsi merah dalam populasi.
Untuk memodelkan reproduksi, populasi saat ini dipersempit menjadi korban dengan mengambil sampel acak sederhana dari ukuran yang diinginkan. Penyintas ini dipasangkan secara acak (penyintas aneh yang tersisa setelah berpasangan tidak dapat mereproduksi). Setiap pasangan menghasilkan sejumlah anak yang diambil dari distribusi Poisson yang rata-rata adalah tingkat kelahiran generasi. Jika salah satu dari orang tua berisi spidol merah, semua anak mewarisinya: ini memodelkan gagasan keturunan langsung melalui salah satu orangtua.
Contoh ini dimulai dengan populasi 512 dan menjalankan simulasi selama 11 generasi (12 baris termasuk awal). Variasi dari simulasi ini dimulai dengan sesedikit dan sebanyak 2 14 = 16 , 384 orang, menggunakan jumlah yang berbeda dari tingkat kesintasan dan kelahiran, semuanya menunjukkan karakteristik yang serupa: pada akhir log 2 ( n ) generasi (sembilan) dalam kasus ini), ada sekitar 1/3 peluang bahwa semua merah telah mati, tetapi jika tidak, maka mayoritas populasi adalah merah. Dalam dua atau tiga generasi lagi, hampir semua populasi berwarna merah dan akan tetap merah (atau populasi akan mati sama sekali).n=8214=16,384log2(n)
Omong-omong, bertahannya 75% atau kurang dalam satu generasi tidaklah fantastis. Pada akhir 1347, tikus-tikus yang diserang oleh penyakit pes pertama-tama berjalan dari Asia ke Eropa; selama tiga tahun berikutnya, di suatu tempat antara 10% dan 50% dari populasi Eropa mati sebagai akibatnya. Tulah ini kambuh hampir sekali dalam satu generasi selama ratusan tahun sesudahnya (tetapi biasanya tidak dengan kematian ekstrim yang sama).
Kode
Simulasi dibuat dengan 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