用C语言演绎“生命游戏”
2008-02-23 05:25:51来源:互联网 阅读 ()
1. 假如一个细胞周围有3个细胞为生(一个细胞周围共有8个细胞),则该细胞为生,即该细胞若原先为死,则转为生,若原先为生,则保
持不变;
2. 假如一个细胞周围有2个细胞为生,则该细胞的生死状态保持不变;
3. 在其他情况下,该细胞为死,即该细胞若原先为生,则转为死,若原先为死,则保持不变。
依此规则进行迭代变化,使细胞生生死死,会得到一些有趣的结果。该游戏之所以被称为“生命游戏”,是因为其简单的游戏规则,反映了
自然界中的生存规律:假如一个生命,其周围的同类生命太少的话,会因为得不到帮助而死亡;假如太多,则会因为得不到足够的资源而死亡。
用电脑模拟这个“生命游戏”也相当简单,能够用一个M×N像素的图像来代表M×N个细胞,其中每一个像素,代表一个细胞,像素为黑色
表示细胞为生,像素为白色代表细胞为死。
设定图像中每个像素的初始状态后依据上述的游戏规则演绎生命的变化,由于初始状态和迭代次数不同,将会得到令人叹服的优美图案。
下面给出的小程式是用TC2.0编写。演示100×100个生命细胞初始状态全为生时的变代情况,变化时边缘细胞不参和变化。随着迭代次数的不
同,在屏幕显示的图案出色纷呈,像万花筒般引人入胜。
#include <graphics.h>
main(){
int orgData[100][100],resData[100][100];/*分别记录每次迭代的初始和结果状态*/
int nCount,nRows,nCols,i,j,times; /*times记录迭代次数*/
int GraphDriver=DETECT,GraphMode;
for (i=0;i<100;i++) /*初始化数据,令每一个细胞为生*/
for (j=0;j<100;j++) orgData[i][j]=1;
initgraph(&GraphDriver,&GraphMode,′′′′); /*初始化屏幕显示*/
setcolor(WHITE);
rectangle(270,190,370,290); /*作显示边框*/
for (times=1;times<200;times++){
for (nRows=1;nRows<99;nRows++) {
for (nCols=1;nCols<99;nCols++){
/*计算每一个细胞周围的活的细胞数*/
nCount=orgData[nRows-1][nCols-1]+orgData[nRows-1][nCols]
+orgData[nRows-1][nCols+1]+orgData[nRows][nCols-1]
+orgData[nRows][nCols+1]+orgData[nRows+1][nCols-1]
+orgData[nRows+1][nCols]+orgData[nRows+1][nCols+1];
switch(nCount){
/*周围有3个活细胞,该细胞为生,在屏幕上用黑色像素表示*
case 3: putpixel(nCols+210,120+nRows,BLACK);
resData[nRows][nCols]=1;break;
/*周围有2个活细胞,该细胞不变,在屏幕显示也不变*/
case 2: resData[nRows][nCols]=orgData[nRows][nCols];
break;
/*其他情况下,细胞为死,在屏幕上用白色像素表示*/
default:resData[nRows][nCols]=0;
putpixel(nCols+210,120+nRows,WHITE);
}
}
}
for (i=1;i<99;i++)
for (j=1;j<99;j++) orgData[i][j]=resData[i][j];
getch();
}
}
在电脑上运行上述程式,得到迭代次数为45、69、74、78、97、116、119和156时的图像分别如上图所示。
在实际模拟时,能够取更多的生命细胞,也能够考虑生命细胞的初始状态是依一定概率设定的随机状态,变化时也能够让边缘细胞参和变化。
只要对上述程式略作更改,就会得到另外一系列美妙绝伦的图案。
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
上一篇: C语言字符串查找
下一篇: 用C语言实现键盘画图
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash