00000100110111
01110000010011
00110111000001
00010011011100
11000001001101
11011100000100
01001101110000
Yesterday I spent some time programming this old plaything in Mathematica. Here is how a larger configuration of crystal cells appears in my implementation:
The lighter-blue ones of the size-3 triangles are meant to blend in with the darker-blue zeros, providing contrast for the other-sized triangles (in orange) of a typical evolution, out of which I have cropped this small detail:
The orange "particles" are recognized as defects, or cracks, in the crystal. They move left or right or just stand still. Colliding particles obviously conserve the sum of the defect offset numbers that individual particles may be said to possess, as they interact and regroup, or occasionally disappear. You can surmise from the (final) four particles at the very bottom of my example that the size of my space is a multiple of 14, the necessary space-size of a left-right-joined perfect crystal. (The right-moving particles will crash into the left-moving particles and disappear.)
The orange "particles" are recognized as defects, or cracks, in the crystal. They move left or right or just stand still. Colliding particles obviously conserve the sum of the defect offset numbers that individual particles may be said to possess, as they interact and regroup, or occasionally disappear. You can surmise from the (final) four particles at the very bottom of my example that the size of my space is a multiple of 14, the necessary space-size of a left-right-joined perfect crystal. (The right-moving particles will crash into the left-moving particles and disappear.)
GGGGG... You have an interesting hobby, using Mathematica. I remember purchasing Mathematica 3.0 for Mac with a student discount when I was working on my Ph.D. That's more than 15 years ago, I think. I needed it just in order to draw a normal distribution curve. That was it. I don't think I ever used it again. You must be a math-oriented person to Mathematica.
ReplyDeleteTom Bluewater
Hey, Tom. Yes, recreational arithmetic (finding numbers with certain properties) is one of my lifelong hobbies. And Mathematica makes it easy.
Delete