Re: [問題] 有人寫過生命遊戲的程式嗎?已回收

看板MATLAB作者KevinT (凱文踢)時間14年前 (2010/06/10 05:45)推噓3(3推 0噓 8→)

留言11則, 6人參與討論串2/2 (看更多)

※ 引述《AMooMA (阿斌)》之銘言： : 以下是這款遊戲的規則： : ◆ 對於存活的細胞（塗色的方格）： : 　當八個鄰近細胞中，只有零個或一個是活細胞時，則該細胞會因孤獨而死亡 : 　當八個鄰近細胞中，恰有二或三個是活細胞時，則該細胞繼續存活 : 　當八個鄰近細胞中，有四個或超過四個是活細胞時，則該細胞會因擁擠而死亡 : ◆ 對於死亡的細胞（未塗色的空方格）： : 　當八個鄰近細胞中，恰有三個是活細胞時，則該處誕生一個活細胞 : ------------------------------------------------------------------------ : 請問有寫過這個遊戲的大大 : 或對這款遊戲有興趣的神人 : 可以告訴我會用到的相關指令或程式碼嗎？ : 感謝！好玩的問題XD %% 三層function 一次滿足很黃很暴力之迴圈寫法 function map = life_game(msize,cell_level,duration) % Usage: % map = life_game(msize,cell_level,duration) % Input: % msize: matrix size, can be a scalar or a [r c] % cell_level: determind the initial cell level, between 0 to 1 % duration: how many life-cycle want to perform % Output: % map: the final cell distribution % -- % Kevin @ yymmdd: 100610 temp = zeros(msize); temp = imnoise(temp,'salt & pepper',cell_level); map = zeros(msize+2); map(2:end-1,2:end-1) = temp; for ii = 1:duration figure,imagesc(map),colormap(gray);axis image,axis off; new_map = zeros(size(map)); for jj = 1:size(temp,2) for kk = 1:size(temp,1) if temp(kk,jj) new_map(kk+1,jj+1) = live_rule(map(kk:kk+2,jj:jj+2)); else new_map(kk+1,jj+1) = dead_rule(map(kk:kk+2,jj:jj+2)); end end end map = new_map; end figure,imagesc(map),colormap(gray);axis image,axis off; map = map(2:end-1,2:end-1); return end function output = live_rule(pattern) a = sum(sum(pattern))-1; if a <= 1 || a >= 4 output = 0; else output = 1; end return end function output = dead_rule(pattern) a = sum(sum(pattern)); if a == 3 output = 1; else output = 0; end return end % 打完收工！應該沒錯啦～請慢用～ -- ◥◥ ╔═╦═╗ ╔═╗ ╔═══╗ ╭──╮╱◥ ║ ║╔══╗╔═╦╗╔═╗╔══╗║ ║ ◎ ╰╮ ║ ╣║ ═ ║║ ║║ ║║ ║║ ║ ╱ │ ║ ║║ ╣║ ║║ ║║ ║╚╗ ╔╝ ▁╱ │ ╚═╩═╝╚══╝╚══╝╚═╝╚═╩╝ ╚═╝ ▏ ◎╯ 順手雜記 → http://www.wretch.cc/album/kevint By luh4@PTT -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.112.148.130

→

DigiPrince

06/10 06:23, , 1^F

06/10 06:23, 1^F

推

sunev

06/10 07:16, , 2^F

06/10 07:16, 2^F

→

sunev

06/10 07:18, , 3^F

06/10 07:18, 3^F