标题:[转帖]小程序演绎的生命游戏
只看楼主
live41
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:67
帖 子:12442
专家分:0
注 册:2004-7-22
结帖率:66.67%
 问题点数:0 回复次数:10 
[转帖]小程序演绎的生命游戏

小程序演绎的生命游戏 作者:梁昌霖

  本世纪70年代,人们曾疯迷于一种被称作“生命游戏”的小游戏,这种游戏相当简单。假设有一个象棋盘一样的方格网,每个方格中放置一个生命细胞,生命细胞只有两种状态:“生”或“死”。由英国数学家John Conway确定的游戏规则如下:

如果一个细胞周围有3个细胞为生(一个细胞周围共有8个细胞),则该细胞为生,即该细胞若原先为死,则转为生,若原先为生,则保持不变;   如果一个细胞周围有2个细胞为生,则该细胞的生死状态保持不变;    在其它情况下,该细胞为死,即该细胞若原先为生,则转为死,若原先为死,则保持不变。   依此规则进行迭代变化,使细胞生生死死,会得到一些有趣的结果。该游戏之所以被称为生命游戏,是因为其简单的游戏规则反映了自然界中这样的生存规律:如果一个生命,其周围的同类生命太少的话,会因为得不到帮助而死亡,如果太多,则会因为得不到足够的生命资源而死亡。      用计算机模拟这个生命游戏也相当简单,可以用一个M×N象素的图象来代表M×N个细胞,其中每一个象素,代表一个细胞,象素为黑色表示细胞为生,象素为白色代表细胞为死。

设定图象中每个象素的初始状态后依据上述的游戏规则演绎生命的变化,由于初始状态和迭代次数不同,将会得到令人叹服的优美图案。      下面给出的小程序程序用TC2.0编写。变化时边缘细胞不参与变化。随着迭代次数的不同,在屏幕显示的图案精彩纷呈,象万花筒般引人入胜。

#include <graphics.h> #include <stdlib.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]=random(2); initgraph(&GraphDriver,&GraphMode,"C:\\turboc2");/*初始化屏幕 显示*/ setcolor(WHITE); 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();

} }

N年前的旧帖了,我看不懂,你们看看吧~~~

[此贴子已经被作者于2004-10-09 21:21:37编辑过]

搜索更多相关主题的帖子: 生命游戏 转帖 演绎 
2004-08-29 19:47
忆楠
Rank: 1
等 级:新手上路
帖 子:721
专家分:0
注 册:2004-7-5
得分:0 
帮你顶一下   问题是我想知道进入游戏以后怎么退出.......................

点 鼠 标 , 救 饥 民 http://www./
2004-08-29 19:55
live41
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:67
帖 子:12442
专家分:0
注 册:2004-7-22
得分:0 
Alt + F4 吧,呵呵,要不按reset或者power。
2004-08-29 21:10
忆楠
Rank: 1
等 级:新手上路
帖 子:721
专家分:0
注 册:2004-7-5
得分:0 

都不管用啊``` 我重新启动了......................


点 鼠 标 , 救 饥 民 http://www./
2004-08-29 22:02
live41
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:67
帖 子:12442
专家分:0
注 册:2004-7-22
得分:0 

#include <graphics.h>

不好意思我没运行过,因为有上面这句……

2004-08-29 22:54
忆楠
Rank: 1
等 级:新手上路
帖 子:721
专家分:0
注 册:2004-7-5
得分:0 
   晕倒.....

点 鼠 标 , 救 饥 民 http://www./
2004-08-29 23:03
live41
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:67
帖 子:12442
专家分:0
注 册:2004-7-22
得分:0 
没有这头文件,所以想你传一个上来……
2004-08-29 23:07
无处躲避
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2004-10-9
得分:0 

我有两个问题:1.^-^ 怎么设定边框大小?

2.^-^ 为何不是自动的?即 要我按一下Enter or Space 才进行一次运作?

望各位大侠解难了。。。。。。。


五年后硅谷的中国人才 小弟 邮箱: aeolusfly.student@ aeolusfly@
2004-10-09 18:34
Knocker
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:10454
专家分:603
注 册:2004-6-1
得分:0 

#include <graphics.h> #include <stdlib.h> #define Asize 110 #define Bsize 110 //理论上改大就可以,但是受计算内存及运行速度的制约100左右是最大了,改小则可 #define TIME 200 //运行时间

main() { int orgData[Asize][Bsize],resData[Asize][Bsize]; /*分别记录每次 迭代的初始和结果状态*/ int nCount,nRows,nCols,i,j,times ; /*times记录迭代次数*/ int GraphDriver=DETECT,GraphMode ; /*初始化数据,生死随机*/ for(i=0;i<Asize;i++)for(j=0;j<Bsize;j++)orgData[i][j]=random(2); initgraph(&GraphDriver,&GraphMode,"C:\\turboc2"); /*初始化屏幕 显示*/ setcolor(WHITE); for(times=1;times<TIME;times++) { for(nRows=1;nRows<Asize-1;nRows++) { for(nCols=1;nCols<Bsize-1;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<Asize-1;i++) for(j=1;j<Bsize-1;j++)orgData[i][j]=resData[i][j]; /* getch(); 这句不要就自动了*/ } }


九洲方除百尺冰,映秀又遭蛮牛耕。汽笛嘶鸣国旗半,哀伤尽处是重生。     -老K
治国就是治吏。礼义廉耻,国之四维。四维不张,国之不国。   -毛泽东
2004-10-09 21:39
无处躲避
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2004-10-9
得分:0 

谢了


五年后硅谷的中国人才 小弟 邮箱: aeolusfly.student@ aeolusfly@
2004-10-10 20:22



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-4717-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.260514 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved