대체 시스템: Wolfram Language 11의 신기능

대체 시스템

SubstitutionSystem은 주어진 초기 상태의 일련의 규칙의 반복적 적용에 의한 진화를 나타내는 목록을 생성합니다.

다음의 초기 상태와 규칙에 대해 생각해봅니다.

In[1]:=

init = "\[Wolf]";
rules = {"\[HappySmiley]" -> "\[Wolf]\[HappySmiley]", 
   "\[Wolf]" -> "\[HappySmiley]"};

SubstitutionSystem을 사용하여 8번의 반복을 시행하고 진화를 얻습니다.

In[2]:=

SubstitutionSystem[{"\[HappySmiley]" -> "\[Wolf]\[HappySmiley]", 
   "\[Wolf]" -> "\[HappySmiley]"}, "\[Wolf]", 8] // Column

Out[2]=

규칙의 이차원 집합을 사용하여 시에르핀스키의 카펫을 구축합니다.

In[3]:=

rules2D = {1 -> {{1, 1, 1}, {1, 0, 1}, {1, 1, 1}}, 
   0 -> ConstantArray[0, {3, 3}]};

RulePlot을 사용하여 대체 시스템을 시각화합니다.

In[4]:=

RulePlot@SubstitutionSystem[rules2D]

Out[4]=

시에르핀스키 카펫을 생성합니다.

In[5]:=

ArrayPlot /@ SubstitutionSystem[rules2D, {{1}}, 5]

Out[5]=