请你编程 引人入胜的生命游戏 张凌云 1997-01-01 #3　　生命游戏来源于分形，其规则如下： 　　假设平面上画好方形网格，每个小方块儿视为生命细胞，它有两种状态，即生和死，分别以染白色和红色代表。首先我们设置初始状态，一些方块儿染白色，另一些染红色。生命开始了演化。一个生命细胞下一步是生还是死，依它周围情形而定。对一个内部方块而言，如果周围的８个方块中恰有３块为白，则它下一步染白色；如果有２块为白，则它下一步保持原色彩；如果是其它情形（有０，１，４，５，６，７，８个块为白色）则它下一步染红色。 　　以上规则是１９７０年前后，英国数学家Ｊｏｈｎ　Ｃｏｎｗａｙ和他的学生给出的，这个规则反映了如下背景：如果生命细胞周围其它生命细胞太少，由于得不到足够的支持和帮助，它将死亡；如果生命细胞周围其它生命细胞太多，由于资源不再充足，它也将死亡；只有当环境适宜时，生命细胞才能生存繁衍。 　　由于此规则恰当、简单、变化花样繁多且十分易于实现，所以曾使许多人着迷。现提供一个用Ｂｏｒｌａｎｄ　Ｃ写的生命游戏程序，读者不妨在自己的微机上一试。 　　必要的解释：程序中取２００×２００矩阵对应屏幕像素点阵。初始状态全部赋１，即开始生命细胞全是活的。变换只对内点进行，而不改变四个边界的状态。循环让生命演化实现，于是，我们眼前就展现出一幅幅奇异美妙的图画。欣赏够了，按ＥＳＣ退出。 #3　　三点说明： 　　（１）机器显示卡是ＶＧＡ。 　　（２）由于运行时占内存较大，所以需先将源程序编译成ＥＸＥ文件，退到ＤＯＳ下运行，而不能在Ｃ集成环境下运行。 　　（３）读者还可以作一些发挥。将程序中矩阵初值不是一次全赋为１，而是随机赋给０或１；或是让四个边界也参与变换；或是选择别的色彩代表生和死；则可以看到另一番美妙景致。 #3　　源程序： 　　＃ｉｎｃｌｕｄｅ　＂ｂｉｏｓ．ｈ＂ 　　＃ｉｎｃｌｕｄｅ　＂ａｌｌｏｃ．ｈ＂ 　　＃ｉｎｃｌｕｄｅ　＂ｃｏｎｉｏ．ｈ＂ 　　ｖｏｉｄ　ｄｒａｗ（ｉｎｔ　ｘ，ｉｎｔ　ｙ，ｃｈａｒ　ｃｏｌｏｒ） 　　｛ａｓｍ｛ｍｏｖ　ａｈ，０ｃｈ　　　 　　ｍｏｖ　ａｌ，ｃｏｌｏｒ　　　 　　ｍｏｖ　ｃｘ，ｘ　　　 　　ｍｏｖ　ｄｘ，ｙ　　　 　　ｉｎｔ　１０ｈ　　｝　　　｝ 　　／＊此函数用于在屏幕（ｘ，ｙ）处画一点０≤ｘ≤３１９，０≤ｙ≤１９９，０≤ｃｏｌｏｒ≤２５５＊／ 　　ｖｏｉｄ　ｍａｉｎ（） 　　｛ｉｎｔ　ｉ，ｊ，ｋ１，ｋ２，ｓｔ，ｌ；　　　 　　ｃｈａｒ　ｆａｒ　＊ｂａｓｅ，＊ｃｈ；　　　 　　ｂａｓｅ＝（ｃｈａｒ＊）ｆａｒｍａｌｌｏｃ（４００００）；　　　 　　ｃｈ＝（ｃｈａｒ＊）ｆａｒｍａｌｌｏｃ（４００００）；　　　 　　ｃｌｒｓｃｒ（）；　　　 　　ａｓｍ｛ｍｏｖ　ａｈ，０　　　　　　 　　ｍｏｖ　ａｌ，１３ｈ　　　　　　 　　ｉｎｔ　１０ｈ｝　　　／＊置成３２０×２００－２５６色图形方式＊／ 　　ｆｏｒ（ｉ＝０；ｉ＜＝６０；ｉ＋＋）　　　 　　ｆｏｒ（ｊ＝０；ｊ＜２００；ｊ＋＋）　　　　　　 　　｛ｄｒａｗ（ｉ，ｊ，１１）；　　　　　　 　　ｄｒａｗ（ｉ＋２５９，ｊ，１１）；　　　　　　 　　｝　　　／＊画两条青色色带＊／ 　　ｆｏｒ（ｉ＝０；ｉ＜２００；ｉ＋＋）　　　 　　ｆｏｒ（ｊ＝０；ｊ＜２００；ｊ＋＋）　　　　　　 　　＊（ｂａｓｅ＋ｉ＊２００＋ｊ）＝１；　　　 　　ｆｏｒ（ｌ＝０；ｌ＜１０００；ｌ＋＋）　　　　　　 　　｛ｉｆ（ｂｉｏｓｋｅｙ（１）！＝０）　　　　　　　 　　ｉｆ（（ｂｉｏｓｋｅｙ（０）＜＜８）＞＞８＝＝２７）ｂｒｅａｋ； 　　ｆｏｒ（ｉ＝１；ｉ＜＝１９８；ｉ＋＋）　　　　　　　　　 　　ｆｏｒ（ｊ＝１；ｊ＜１９９；ｊ＋＋）　　　　　　　　　 　　｛ｓｔ＝０； 　　ｆｏｒ（ｋ１＝ｉ－１；ｋ１＜＝ｉ＋１；ｋ１＋＋） 　　ｆｏｒ（ｋ２＝ｊ－１；ｋ２＜＝ｊ＋１；ｋ２＋＋）　　　　　　　 　　ｓｔ＝ｓｔ＋＊（ｂａｓｅ＋ｋ１＊２００＋ｋ２）；　　　　　　　 　　ｓｔ＝ｓｔ－＊（ｂａｓｅ＋ｉ＊２００＋ｊ）； 　　ｉｆ（ｓｔ＝＝３）＊（ｃｈ＋ｉ＊２００＋ｊ）＝１；　　　　　　　 　　ｅｌｓｅ　　　　　　　　　 　　ｉｆ（ｓｔ＝＝２）＊（ｃｈ＋ｉ＊２００＋ｊ）＝＊（ｂａｓｅ＋ｉ＊２００＋ｊ）；　　　　　　　　　 　　ｅｌｓｅ＊（ｃｈ＋ｉ＊２００＋ｊ）＝０； 　　ｉｆ（＊（ｃｈ＋ｉ＊２００＋ｊ））ｄｒａｗ（６０＋ｊ，ｉ，３０）； 　　ｅｌｓｅ　ｄｒａｗ（６０＋ｊ，ｉ，３９）；｝　　　　　　 　　ｆｏｒ（ｉ＝１；ｉ＜１９９；ｉ＋＋）　　　　　　 　　ｆｏｒ（ｊ＝１；ｊ＜１９９，ｊ＋＋）　　　　　　　　　 　　＊（ｂａｓｅ＋ｉ＊２００＋ｊ）＝＊（ｃｈ＋ｉ＊２００＋ｊ）；｝ 　　ａｓｍ｛ｍｏｖ　ａｘ，３　　　　　　　 　　ｉｎｔ　１０ｈ｝　　　／＊恢复文本方式＊／　　　　　　 　　ｆａｒｆｒｅｅ（ｂａｓｅ）；　　　　　　 　　ｆａｒｆｒｅｅ（ｃｈ）；｝