|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Michael Ryazanov 2:5030/1006.64 22 Nov 2002 00:20:00
To : Arthur Martirosyan
Subject : Re: Клеточные автоматы
--------------------------------------------------------------------------------
08.11 07:13 Arthur Martirosyan, 2:5061/103.51@FIDOnet.org -> All
AM> Ищутся алгоритмы либо исходники игр по сабжу.
AM> Игры: "Жизнь" (Life),
Клетки бесконечного квадратного поля могут иметь два состояния: "живое" и
"мёртвое". Если в текущем поколении у клетки из 8 соседей 2 или 3 живые, в
следующем поколении она будет живой, иначе -- мёртвой.
Исходничек:
/M 5 def % высота
/N 20 def % ширина
/p {[M 2 add {N 2 add string} repeat]} def
/p0 p def
/p1 p def
/Arial findfont 10 scalefont setfont
p0 3 get 1 1 put
p0 2 get 2 1 put
p0 2 get 3 1 put
p0 2 get 4 1 put
p0 2 get 5 1 put
p0 3 get 5 1 put
p0 4 get 5 1 put
p0 5 get 4 1 put
0
11 {
30 50 translate
10 -10 moveto (Generation ) show dup ( ) cvs show 1 add
10 10 scale
1 1 M {
/y exch def
1 1 N {
/x exch def
-1 1 1 {
/dy exch def
/s p0 y dy add get def
-1 1 1 {
/dx exch def
s x dx add get
} for
} for
8 {add} repeat
/S exch def
/cur p0 y get x get 1 eq def
cur {
x y .9 .9 rectfill
} if
p1 y get x S 3 eq S 4 eq cur and or {1}{0} ifelse put
} for
} for
/t p0 def /p0 p1 def /p1 t def
showpage
} repeat
;-)
AM> Охотники и чудовища.
Без понятия.
AM> Заранее благодарен за любую информацию.
По поводу "жизни" полезно Гарднера почитать.
|V|uxau/\
--- -- - ъ
* Origin: Ф И З Ф А К - Ч Е М П И О H ! (2:5030/1006.64)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
