Numerit[WIN32][1700][1703]d Nm cffffff)@j@fffffvq@9@7@9@4@ @ffffff)@         Times New RomanArialSymbol Courier New G 9V@9V@yx>?>@>@>@>@>@ >@ >@ >@>@>@>@>@>@ >@ >@ >==>>??18010.010.0118010.010.01X 9@@genX 9@@popG Y@gffff&Q@ populationnumber>?>@>@>@>@>@>@ >@ >@ >@>@>@>@>@>@ >@   >==>>?? Population Generation0275500.010.0108002000.010.01]vvv CE 202 Example 8b (16 November, 2001) & / P P P P P Lvvv _________________________________________________________________________vvvpvvvpvvvpvvvpvvvpvvv The Game of Life- Avv Colonies of cells arrive on an empty desert. Ivvv  P P - a new cell is born if it has exactly three live neighbours;Wvvv  P P - a living cell dies of loneliness if it has less than two live neighbours;\vvv  P P - a living cell dies of over-crowding if it has more than three live neighbours.{ Avv Scenario: Four groups of nomads set out to cross the Desert and meet up near the I + @ centre. What happens?vvvp-vvv *Generation: ! Population: " vvv  vvv ,The Desertvvv vvv # vvv ,Population by generation a8ffffff)@j@fffffvq@?@ffffff9@?@ffffff9@ffffff)@ffffff)@         Times New RomanArialSymbol Courier New??? O`CE 202 Example 8b (15/11/01)`The Game of Lifeclear;gen=1;pop=0;N=800;population[N]=0;bound=80;gap=20;er=3;d=108x[bound,bound]=0 `establishing the size of the Deserty[bound,bound]=0`creating the colony/colonies k=gap+d;r=gap&x[k,r+1]=k;y[k,r+1]=r+1 `NE Nomadx[k,r]=k;y[k,r]=rx[k-1,r-1]=k-1;y[k-1,r-1]=r-1x[k+1,r]=k+1;y[k+1,r]=rx[k+1,r-1]=k+1;y[k+1,r-1]=r-1k=bound-gap-3*er+d;r=gap+3*er&x[k,r+1]=k;y[k,r+1]=r+1 `NW Nomadx[k,r]=k;y[k,r]=rx[k-1,r-1]=k-1;y[k-1,r-1]=r-1x[k-1,r]=k-1;y[k-1,r]=rx[k+1,r-1]=k+1;y[k+1,r-1]=r-1#k=bound-gap-2*er+d;r=bound-gap-2*er&x[k,r-1]=k;y[k,r-1]=r-1 `SW Nomadx[k,r]=k;y[k,r]=rx[k-1,r]=k-1;y[k-1,r]=rx[k+1,r-1]=k+1;y[k+1,r-1]=r-1x[k+1,r+1]=k+1;y[k+1,r+1]=r+1k=gap-er+d;r=bound-gap-er&x[k,r-1]=k;y[k,r-1]=r-1 `SE Nomadx[k,r]=k;y[k,r]=rx[k+1,r]=k+1;y[k+1,r]=rx[k-1,r+1]=k-1;y[k-1,r+1]=r+1x[k-1,r-1]=k-1;y[k-1,r-1]=r-1Ifor i=1 to bound `counting the population of the first generationsfor j=1 to bound&if x[i,j]>0 and y[i,j]>0 then pop+=1number[1]=1;population[1]=pop'while gen0 and y[i+m,j+p]>0 then n[i,j]+=1'if x[i,j]>0 and y[i,j]>0 then n[i,j]-=1if n[i,j]>3 then/x2[i,j]=0 `death through over-crowding y2[i,j]=0if n[i,j]<2 then,x2[i,j]=0 `death through loneliness y2[i,j]=0if n[i,j]=3 thenx2[i,j]=i `birth! y2[i,j]=jx=x2;y=y2;pop=0Ifor i=1 to bound `counting the population of succeeding generationsfor j=1 to bound&if x[i,j]>0 and y[i,j]>0 then pop+=1population[gen]=popprint populationprintln print numberc:\program files\numerit\ gen pop N population boundgaperdx y krijnumber x2y2nmp     4       4   4    @   @4  @4 @  4  4   A A4 A A A4 A  @ 4 @ @ 4   @ A4 @ @ A4 A   A  BA @   B@  @4  @4 @  4  4   A A4 A A A4 A  A 4 A A 4   @ A4 @ @ A4 A   A  BA @  A  BA  A4  A4 A  4  4   A 4 A A 4   @ A4 @ @ A4 A  @ @4 @ @ @4 @   A @  A A  A4  A4 A ! 4  4  " @ 4 @ @ 4  # A @4 A A @4 @ $ A A4 A A A4 A &  X8'  X8( 4 X 4 X`7 N N 6 N 6* 4  4 , Y7-/0 N 4 1  2   AX8 3   AX84 4 5 G  X86 G  X87 @ @4 X @ @4 X`7 4 S N6 N69 4 X 4 X`7 4 T: 4 X7; 4 < 4 = 4 Y7> 4 ? 4 @ 4 \7A 4 B 4  N 6  N 6 E   F  X8G  X8H 4 X 4 X`7 N N 6 N 6J 4 6L qMrN q! &SV.ORNj~ 1?0800@80T@204@3@10$@2@