什么是在Wolfram Alpha上显示为加载屏幕的元胞自动机?

时间:2014-12-06 14:01:10

标签: language-agnostic cellular-automata

在Wolfram Alpha中输入查询时,您通常会在显示结果前看到显示几秒钟的动画。它似乎是一个具有3种不同状态的元胞自动机。

我想知道这个特定的自动机被调用了什么,以及我在哪里可以找到有关它的信息。谢谢!

3 个答案:

答案 0 :(得分:12)

它是具有5种状态的细胞自动机。该规则为3457/357/5,使用Golly's表示法。

它有5种状态:01234。在每个步骤中,单元格的行为如下:

  • 0 - > 1如果其八个邻居中的3,5或7个为1,或0则为
  • 1 - > 1如果其八个邻居中的3个,4个,5个或7个为1,或2则为
  • 2 - > 3
  • 3 - > 4
  • 4 - > 0

这是一个周期为15的振荡器:

enter image description here

这是第24期的河豚:

enter image description here

答案 1 :(得分:1)

这是Wolfram Alpha移动自动化的一个非常快速的matlab实现:

rng(38); % 31 lasts a while / 38 has two oscillators / 39 lasts longer /42 lasts muuuuch longer
X = randi([0 4],30,40);

[a,b] = size(X);

initialFig = figure('toolbar','none','menubar','none');
[x,y]      = meshgrid(1:b,1:a);
scathandle = scatter(x(:),y(:),20*X(:)+1,X(:)+1,'filled');
colormp    = linspace(1,0.4,5)'*[1 1 1]; colormap(colormp);
axis([0 b+1 0 a+1]); axis off; set(gca,'position',[0 0 1 1]); set(gcf,'toolbar','none','menubar','none','color','w','numbertitle','off','name',''); axis equal;

n = [a 1:a-1]; % The previous row
s = [2:a 1];   % The next row
e = [2:b 1];   % The next column
w = [b 1:b-1]; % The previous column

[A,B,C] = meshgrid(1:a,1:b,[0 1]);

Xnew = X;
while 1
    N = (X(n,:)==1) + (X(s,:)==1) + (X(:,e)==1) + (X(:,w)==1) + (X(n,e)==1) + (X(n,w)==1) + (X(s,e)==1) + (X(s,w)==1); % Look for the total number of nieghbours == 1

    Xnew(X>=2) = mod(X(X>=2)+1,5); % if state is greater or equal to 2, increment 1 modulo 5
    Xnew(X==0) = (N(X==0)==3 | N(X==0)==5 | N(X==0)==7); % if state is 0, turn to 1 when neighbours equal 3,5 or 7. Leave 0 otherwise.
    Xnew(X==1) = 2 - (N(X==1)==3 | N(X==1)==4 | N(X==1)==5 | N(X==1)==7); % if state is 1, turn to 2 unless neighbours equal 3, 4 or 5. In the latter case, leave 1.
    X = Xnew;
    set(scathandle,'cdata',X(:)+1,'sizedata',20*X(:)+1);
    drawnow;

    if ~ishandle(initialFig)
        return
    end
end

我想,在任何时候,有人会发现这很有用(不知何故)。

答案 2 :(得分:-2)

康威的生命游戏。有一篇非常好的维基百科文章,我建议你去看看那里。