CrLf

回复 8# 普大喜奔


    不一样啊，num 变量不包括 dict[cells[y][x]]，所以当周围的格子都是空的时候 elif num: 将不成立，cells[x][y] 的内容会维持上一轮循环的状态，所以会出现独立的细胞永垂不朽的现象

523066680

回复 18# 普大喜奔


    也搞一个读入矩阵的函数嘛，我在wiki挖了好多经典的模型。

523066680

use strict;
use Term::ReadKey;
use Win32::Console;
use Time::HiRes 'sleep';
use IO::Handle;
STDOUT->autoflush(1);
system("mode con lines=40 cols=200");

our $OUT=Win32::Console->new(STD_OUTPUT_HANDLE);
$OUT->Cursor(20, 20, 99, 0);  #hide cursor

my ($i, $j);
our ($rows, $cols) = (40, 90);
our ($mxrow, $mxcol) = ($rows-1, $cols-1);

# init
our @coord;
my (@h, @n);
my $y = 0;

foreach (<DATA>) {
    s/\r?\n$//;
    tr/\*\./10/;
    @{$h[$y++]} = ( split("", $_) );
}

foreach $i (0 .. $mxrow) {
    foreach $j (0 .. $mxcol) {
        $coord[$i][$j]{'x'} = $j*2;
        $coord[$i][$j]{'y'} = $i;
        $h[$i][$j] = 0 unless (defined $h[$i][$j]);
        $n[$i][$j] = 0;
    }
}

&Draw(\@n, \@h);
while (1) {
    sleep 0.02;
    @n = ();
    &NextBuffer(\@h, \@n);
    &Draw(\@h, \@n);
    @h = (@n);

    &KeyFunc();
}

sub NextBuffer {
    my ($ra, $rb) = (shift, shift);
    my ($i, $j, $sum);
    my ($L, $R, $U, $D);
    foreach $i (0 .. $mxrow) {
        $U = ($i-1) < 0 ? $mxrow : ($i-1);
        $D = ($i+1) > $mxrow ? 0 : ($i+1);
        foreach $j (0 .. $mxcol) {
            $L = ($j-1) < 0 ? $mxcol : ($j-1);
            $R = ($j+1) > $mxcol ? 0 : ($j+1);
            $sum = $ra->[$U][$L] + $ra->[$U][$j] + $ra->[$U][$R] +
                   $ra->[$i][$L] +        0      + $ra->[$i][$R] +
                   $ra->[$D][$L] + $ra->[$D][$j] + $ra->[$D][$R];

            if ($sum == 3) {
                $rb->[$i][$j] = 1;
            } elsif ($sum == 2) {
                $rb->[$i][$j] = $ra->[$i][$j];
            } else {
                $rb->[$i][$j] = 0;
            }
        }
    }
}

sub Draw {
    my ($ra, $rb) = (shift, shift);
    foreach $i (0 .. $mxrow) {
        foreach $j (0 .. $mxcol) {
            if ($rb->[$i][$j] != $ra->[$i][$j]) {
                &Point( 
                    $coord[$i][$j]{'x'}, 
                    $coord[$i][$j]{'y'}, 
                    $rb->[$i][$j],
                );
            }
        }
    }
}

sub Point {
    my ($mx, $my, $light) = (shift, shift, shift);
    my $color;
    if ($light == 1) {
        $color = $FG_WHITE|$BG_GRAY;
    } else {
        $color = $FG_WHITE|$BG_BLACK;
    }
    $OUT->Cursor($mx, $my);
    $OUT->FillAttr($color, 2, $mx, $my);
}

sub KeyFunc {
    my $key;
    $key = ReadKey(-1);
    return if (not defined $key);
    if ( ord($key) == 27 ) {
        exit;
    }
}



__DATA__
.........................**.....**
.........................**.....**
..................................
..................................
..................................
..................................
..................................
..................................
..................................
..................................
..................................
..................................
..................................
...........................**.**..
..........................*.....*.
..................................
.........................*.......*
.........................*..*.*..*
.........................***...***
..................................
..................................
..................................
..................................
.................*................
**...............**...............
**................**..............
.............**..**...............
..................................
..................................
..................................
.............**..**...............
**................**.......**.....
**...............**........**.....
.................*................
复制代码

普大喜奔

回复 17# 523066680
版主好人！
只是输入矩阵麻烦些 我试试吧

523066680

回复 16# 普大喜奔

前面发的一个矩阵是无限循环的。
    再发一个典型的刷了很久的轰炸模型， 挺精彩的，运行好一段时间才进入稳定状态，当然，还要看你的空间设置为多大。

.........................**.....**
.........................**.....**
..................................
..................................
..................................
..................................
..................................
..................................
..................................
..................................
..................................
..................................
..................................
...........................**.**..
..........................*.....*.
..................................
.........................*.......*
.........................*..*.*..*
.........................***...***
..................................
..................................
..................................
..................................
.................*................
**...............**...............
**................**..............
.............**..**...............
..................................
..................................
..................................
.............**..**...............
**................**.......**.....
**...............**........**.....
.................*................
复制代码

普大喜奔

回复 14# 523066680
谢啦版主 看来细胞自动机最后都要稳定啊

523066680

如果要验证显示结果对不对，可以把典型的生命矩阵代入

......................**...............
......................**...............
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.........*..........**...**............
.......*.*............***..............
......*.*............*...*.............
**...*..*.............*.*..............
**....*.*..............*...............
.......*.*......*.*....................
.........*......**.....................
.................*...*.................
.....................**......*.........
....................*.*......*.*.......
...............*..............*.*....**
..............*.*.............*..*...**
.............*...*............*.*......
..............***............*.*.......
............**...**..........*.........
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
...............**......................
...............**......................
复制代码

523066680

回复 13# 普大喜奔


    恩 我就是说要避免引用。

普大喜奔

回复 11# 523066680
改成引用后明显运动没规律了 细胞较多时好像不像能稳定的样子 我原先改过的应该是对的 都稳定了 形态也符合算法

普大喜奔

回复 11# 523066680

很有可能啊 我试试看直接引用是什么效果 然后对比一下

523066680

我在写perl版本细胞自动机的时候遇到这样的问题：数组赋值变成了引用。
修改赋值方式后得以解决，会不会是相同的问题？

现在不搞python了，没心思细看。

普大喜奔

改制后基本各种概率下基本都在200次以内稳定了

普大喜奔

回复 5# CrLf
改了37行以后应该对了运行了几次都类似这种

我还奇怪呢 10%的概率那么小怎么变化那么久 你不说我都想不起来孤立这回事

普大喜奔

回复 5# CrLf
在第37行那 可是逻辑上这两者没什么不同啊

普大喜奔

回复 5# CrLf
有一行我写错了 elif:num 应该改成else: