Throughout evolution, natural selection is one source of genetic change in populations. However it is possible for a mutation to become common in a population entirely by accident through a phenomenon known as genetic drift. 

It works most strongly in small populations or dramatically fluctuating populations.  When non-lethal mutations occurs it is possible not just because of adaptation but by chance it will have more offspring than it's neighbors. 

Sudden environmental changes also may wipe out many individuals not carrying that mutation and so if either of these situations arise, only after a few generations the mutation can appear in most members of the population.  In large, stable populations this is much less likely to happen by accident.

I have created a procedure in Maple to show a simple simulation of how genetic drift through evolution can occur by chance.

Starting with a population of equal numbers of A and B genotypes.   We implement a couple of rules : each type produces two identical offspring and after each generation half the population dies at random.  Although not a steadfast recipe, this simulation demonstrates the gentic drift phenomenon where one genotype becomes extinct entirely by chance. 


restart; gc()``

geneticdrift := proc (num) local a, b, i, numgen; a := [seq(op([A, B]), i = 1 .. num)]; print(a); numgen := 1; do b := [seq(op(a), i = 1 .. 2)]; a := combinat:-randcomb(b, (1/2)*nops(b)); print(a); if combinat:-numbperm(a) = 1 then break end if; numgen := numgen+1 end do; print("After ", numgen, "generations one genotype has become extinct") end proc:

geneticdrift(4)       
                          [A, B, A, B, A, B, A, B]
                          [B, B, A, B, A, A, A, B]
                          [B, B, A, A, B, A, B, B]
                          [B, A, A, B, B, B, B, A]
                          [A, A, A, A, B, B, B, B]
                          [A, A, A, A, A, B, B, B]
                          [A, A, B, B, A, A, B, B]
                          [A, B, A, B, A, B, B, B]
                          [B, B, A, B, B, A, B, B]
                          [A, B, B, A, B, B, B, B]
                          [A, B, A, B, B, A, B, B]
                          [A, B, B, A, B, B, A, B]
                          [B, A, B, B, A, B, B, A]
                          [A, A, B, A, B, A, B, A]
                          [B, A, B, B, B, A, A, A]
                          [A, A, A, A, B, B, A, A]
                          [A, A, A, A, A, A, A, A]

"After ", 16, "generations one genotype has become extinct"

(1)

``

``


Download genetic_drift_pro.mw


Please Wait...