WikiSort.ru - Не сортированное

Система Линденмайера

Кривую Госпера можно можно представить с помощью системы Линденмайера^[en] со следующими правилами:

• Угол: 60°
• Аксиома: ${\displaystyle A}$
• Правила подстановки:
  • ${\displaystyle A\mapsto A-B--B+A++AA+B-}$
  • ${\displaystyle B\mapsto +A-BB--B-A++A+B}$

В этом случае A и B означают движение вперёд, + означает поворот влево на 60º, а — означает поворот на 60º вправо с использованием «черепашьего» стиля программирования, как в Лого.

Лого

Программа на Лого для рисования кривой Госпера с использованием черепашьей графики (онлайн-версия):

to rg :st :ln
make "st :st - 1
make "ln :ln / sqrt 7
if :st > 0 [rg :st :ln rt 60 gl :st :ln  rt 120 gl :st :ln lt 60 rg :st :ln lt 120 rg :st :ln rg :st :ln lt 60 gl :st :ln rt 60]
if :st = 0 [fd :ln rt 60 fd :ln rt 120 fd :ln lt 60 fd :ln lt 120 fd :ln fd :ln lt 60 fd :ln rt 60]
end

to gl :st :ln
make "st :st - 1
make "ln :ln / sqrt 7
if :st > 0 [lt 60 rg :st :ln rt 60 gl :st :ln gl :st :ln rt 120 gl :st :ln rt 60 rg :st :ln lt 120 rg :st :ln lt 60 gl :st :ln]
if :st = 0 [lt 60 fd :ln rt 60 fd :ln fd :ln rt 120 fd :ln rt 60 fd :ln lt 120 fd :ln lt 60 fd :ln]
end

Программу можно запустить, например, командой rg 4 300 или gl 4 300.