### 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 for "Target":

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 for "Runes":

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 for "Shine":

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 for "Growing Crystallization":

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 for "Glint":

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

:"