One-dimensional cellular automata: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,158: / Line 1,158: @@
 OpenConsole()
 Repeat
+  Print("Generation "+Str(Gen)+": ")
+  For n=1 To 20
-Print("Generation "+Str(Gen)+":")
+    Print(Chr(cG(n)*3+32))
-For n=1 To 20
+  Next
-  Print(Str(cG(n)))
+  Gen +1
-Next
+  PrintN("")
-Gen +1
+  For n=1 To 20
-PrintN("")
+    If (cG(n)= 1 And (cG(n-1)+cg(n+1)=1)) Or (cG(n)= 0 And (cG(n-1)+cg(n+1)=2))
-For n=1 To 20
+     nG(n)=1
-  If (cG(n)= 1 And (cG(n-1)+cg(n+1)=1)) Or (cG(n)= 0 And (cG(n-1)+cg(n+1)=2))
-    nG(n)=1
+   Else
+     nG(n)=0
-  Else
-    nG(n)=0
+   EndIf
-  EndIf
+  Next
+  Swap cG() , nG()
-Next
-Swap cG() , nG()
 Until Gen > 9
-PrintN("Press any key to exit"): Repeat: Until Inkey() <> ""</lang>
+PrintN("Press any key to exit"): Repeat: Until Inkey() <> ""</lang>Output:
+<pre>Generation 0:  ### ## # # # #  #
-Output:
-<pre>Generation 0:01110110101010100100
+Generation 1:  # ##### # # #
-Generation 1:01011111010101000000
+Generation 2:   ##   ## # #
-Generation 2:00110001101010000000
+Generation 3:   ##   ### #
-Generation 3:00110001110100000000
+Generation 4:   ##   # ##
-Generation 4:00110001011000000000
+Generation 5:   ##    ###
-Generation 5:00110000111000000000
+Generation 6:   ##    # #
-Generation 6:00110000101000000000
+Generation 7:   ##     #
-Generation 7:00110000010000000000
+Generation 8:   ##
-Generation 8:00110000000000000000
+Generation 9:   ##
-Generation 9:00110000000000000000
 Press any key to exit</pre>