Dendrite(CAM-PC)

有名な樹状突起のセルオートマトン。ランダムウォークをする緑色の粒子が、青色のセルの近傍に入ると青色に変わり固定される。菌類を思わせる樹状突起の成長過程が興味深い。総てのセルが固定されて終局状態に至るまで約7000ステップを要する。

\ DENDRITE.EXP Diffusion-limited aggregation 16Feb89nhm
(CAM Book 15.7)
The experiment is ready to go as loaded. Simply type `g' to
to restart (by getting back the initial configuration, which
is saved in the plane buffers).
To use a different concentration of diffusers, get the
initial configuration back with `g' and then change the pattern
on plane 0 (initially we have about 6% of the area filled with
particles). For example, to try 10%, type `g10%0;' and then
run.

\ DENDRITE Diffusion-limited aggregation (see scrn 0) 29Jun87tmt
NEW-EXPERIMENT
: ALT-GRID
STEP NOT IS ;
MAKE-CYCLE ALT-GRID

CAM-B N/MARG-HV \ Noise generator
: STIR/SAMPLE/DELAY
UL UR XOR
LL LR AND XOR
UL' LL' AND
UR' LR' XOR XOR XOR >PLN2
CENTER >PLN3 ;
MAKE-TABLE STIR/SAMPLE/DELAY

\ 29Jun87tmt
CAM-A N/MARG-PH &/CENTERS \ Diffusers and growing dendrite
: RAND
&CENTER' ;
: WALL
CENTER' CW' OPP' CCW' OR OR OR ;
: DENDRITE
CENTER' RAND { CW CCW }
WALL IF DROP CENTER OR 0 THEN
>PLN0 >PLN1 ;
MAKE-TABLE DENDRITE
: STD-MAP'
STD-MAP 0 >INTEN ; \ don't show CAM-B
MAKE-CMAP STD-MAP'

\ 28Mar89nhm
\ Initial configuration
HEX
1000 0 RND>PL \ diffusers in plane 0
0 1 VAL>PL \ clear plane 1
80 80 1 CHANGE-NSPOT \ insert dot at center
8000 2 RND>PL \ init noise in planes 2, 3
8000 3 RND>PL
PLS>PBS \ save in buffers

Powered by