### Various cellular automata discovered on graphing calculators

Posted:

**November 6th, 2018, 8:17 pm**These were discovered on the TI-84 Plus Graphing Calculator. They all have unknown rules, since they were made by screwing around with a faulty program, and it isn't exactly straightforward, despite how it may seem, to translate them into GoL rules.

Names: Segmentations, Target, Runes, Shine, Growing Crystallization, and Glint.

Code for "Segmentations":
Code for "Target":
Code for "Runes":
Code for "Shine":
Code for "Growing Crystallization":
Code for "Glint":

Names: Segmentations, Target, Runes, Shine, Growing Crystallization, and Glint.

Code for "Segmentations":

Code: Select all

```
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:1=Ans or 2=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
```

Code: Select all

```
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:2=Ans or 2=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
```

Code: Select all

```
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:1=Ans or 2=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
```

Code: Select all

```
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:2=Ans or 4=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
```

Code: Select all

```
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:3=Ans or 2=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
```

Code: Select all

```
:Plot1(Scatter,X,Y,.
:∟X→P
:∟Y→Q
:Repeat getKey or S<2
:∟P→X
:∟Q→Y
:DispGraph
:DelVar ∟P
:DelVar∟Q
:1→S
:For(X,min(∟X)-1,1+max(∟X
:For(Y,min(∟Y)-1,1+max(∟Y
:sum(1=max(abs(∟X-X),abs(∟Y-Y
:4=Ans or 2=Ans-max(∟X=X and ∟Y=Y
:If Ans
:Then
:X→∟P(S
:Y→∟Q(S
:S+1→S
:End
:End
:End
:End
:PlotsOff
:ClrHome
:"
```