国际易经网 - 轻松学习周易从此开始!

国际易经网

当前位置: 主页 > 易学应用 > 易与金融 >

周易和分形的关系(3)

时间:2007-01-16 06:11来源: 作者: 点击:
例如一个图象中几个象素所代表的生命的初始状态如下左图所示,依上述规则进行行迭代变化,则经过1次、2次、3次变化后的情况分别如下图所示: 设定图象中每个象素的初始状态后依据上述的游戏规则演绎生命的变化,由

  例如一个图象中几个象素所代表的生命的初始状态如下左图所示,依上述规则进行行迭代变化,则经过1次、2次、3次变化后的情况分别如下图所示:
  
   设定图象中每个象素的初始状态后依据上述的游戏规则演绎生命的变化,由于初始状态和迭代次数不同,将会得到令人叹服的优美图案。
  
  下面给出的小程序程序用TC2.0编写。变化时边缘细胞不参与变化。随着迭代次数的不同,在屏幕显示的图案精彩纷呈,象万花筒般引人入胜。#include
   main(){
  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;[Page]
      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()
顶一下
(1)
50%
踩一下
(1)
50%
------分隔线----------------------------
------分隔线----------------------------
热点内容