Помню пилил такое на Pascal. Жутко бесило, что там String состоит из 255 символов, нельзя было делать большое количество итераций, вылезало за строку((. Приходилось массивы создавать и самому делать функции replace / insert…
В девятом классе все это проходили).
Очень жаль, что нет free-версии книги. Понятное дело, что всегда можно на торрентах нарыть, но намного приятней, когда автор сам предлагает скачать со своего сайта все что нужно.
К сожалению, договор с издательством запрещает выкладывать всю книгу в открытый доступ. Они ведь тоже должны заработать денег… Через какое-то время, надеюсь, сделаем электронную версию…
10 DIM X(16): DIM Y(16)
20 FOR I=1 TO 4
30 FOR J=1 TO 4
40 LET K=4*I+J-4
50 LET X(K)=J-3: LET Y(K)=I-3
60 NEXT J: NEXT I
70 LET X(2) = 0:LET Y(2) = -3
80 LET X(8) = 2:LET Y(8) = 0
90 LET X(9) = -3:LET Y(9) = -1
100 LET X(15)=-1:LET Y(15)=2
ПО FOR I=1 TO 16
120 FOR J=1 TO 16
130 FOR K=1 TO 16
140 LET XX=16*X(I)+4*X(J)+X(K)
150 LET YY=16*Y(I)+4*Y(J)+Y(K)
160 PLOT 126+XX, 88+YY
170 NEXT K: NEXT J: NEXT I
Не извиняйтесь, это действительно копипаста. Вернее, компиляция копипаст. Вот, например, откуда взято (и текст и картинки) про красоту растений, Хомского и прочее:
А пункт 1.5 автор скопипастил отсюда habrahabr.ru/blogs/algorithm/126653/. Я все понимаю, но можно было хотя бы ссылки на оригинальные статьи поставить.
Синтез фракталов: IFS и L-системы