NetLogo turtles/Gorskina - История изменений

Gorskina Tatyana Vladimirovna: Новая страница: «* NetLogo patches * NetLogo links * NetLogo turtles * NetLogo widgets == Пространство тестирования == == Базовые команды к черепашкам == {| class="wikitable" ! task ! realisation |- | Все turtles выполняют команду | ask turtles [ fd 1 ] |- | Выбрать turtles по условию |
2026-04-23T06:33:45Z

Новая страница: «* NetLogo patches * NetLogo links * NetLogo turtles * NetLogo widgets == Пространство тестирования == <netlogo model="Turtles" /> == Базовые команды к черепашкам == {| class="wikitable" ! task ! realisation |- | Все turtles выполняют команду | <syntaxhighlight lang="Lisp" line> ask turtles [ fd 1 ] </syntaxhighlight> |- | Выбрать turtles по условию | <s...»

Новая страница
* [[NetLogo patches]]
* [[NetLogo links]]
* [[NetLogo turtles]]
* [[NetLogo widgets]]

== Пространство тестирования ==

<netlogo model="Turtles" />

== Базовые команды к черепашкам ==

{| class="wikitable"
! task
! realisation
|-
| Все turtles выполняют команду
| <syntaxhighlight lang="Lisp" line>
ask turtles [ fd 1 ]
</syntaxhighlight>
|-
| Выбрать turtles по условию
| <syntaxhighlight lang="Lisp" line>
ask turtles with [color = red] [ set size 2 ]
</syntaxhighlight>
|-
| Исключить текущую turtle из набора
| <syntaxhighlight lang="Lisp" line>
ask turtles [ show other turtles ]
</syntaxhighlight>
|-
| Turtles на текущем патче
| <syntaxhighlight lang="Lisp" line>
ask turtles [ show turtles-here ]
</syntaxhighlight>
|-
| Другие turtles на текущем патче
| <syntaxhighlight lang="Lisp" line>
ask turtles [ show other turtles-here ]
</syntaxhighlight>
|-
| Turtles на соседних патчах
| <syntaxhighlight lang="Lisp" line>
ask turtles [ show turtles-on neighbors4 ]
</syntaxhighlight>
|-
| Turtles в радиусе
| <syntaxhighlight lang="Lisp" line>
ask turtles [ show turtles in-radius 3 ]
</syntaxhighlight>
|-
| Проверить, есть ли соседи-черепахи
| <syntaxhighlight lang="Lisp" line>
ask turtles [ if any? other turtles in-radius 2 [ set color red ] ]
</syntaxhighlight>
|-
| Посчитать число соседей
| <syntaxhighlight lang="Lisp" line>
ask turtles [ set label count other turtles in-radius 2 ]
</syntaxhighlight>
|-
| Получить patch под turtle
| <syntaxhighlight lang="Lisp" line>
ask turtles [ show patch-here ]
</syntaxhighlight>
|-
| Получить patch впереди
| <syntaxhighlight lang="Lisp" line>
ask turtles [ show patch-ahead 1 ]
</syntaxhighlight>
|-
| Проверить, можно ли идти вперед
| <syntaxhighlight lang="Lisp" line>
ask turtles [ if can-move? 1 [ fd 1 ] ]
</syntaxhighlight>
|-
| Выбрать самую "богатую" turtle
| <syntaxhighlight lang="Lisp" line>
turtles-own [energy]
ask max-one-of turtles [energy] [ set color yellow ]
</syntaxhighlight>
|-
| Выбрать несколько turtles по максимуму
| <syntaxhighlight lang="Lisp" line>
turtles-own [energy]
ask max-n-of 5 turtles [energy] [ set shape "star" ]
</syntaxhighlight>
|-
| Случайная turtle из набора
| <syntaxhighlight lang="Lisp" line>
ask one-of turtles with [color = blue] [ set color pink ]
</syntaxhighlight>
|-
| Собрать список значений turtle-переменной
| <syntaxhighlight lang="Lisp" line>
turtles-own [energy]
show [energy] of turtles
</syntaxhighlight>
|-
| Среднее значение по turtles
| <syntaxhighlight lang="Lisp" line>
turtles-own [energy]
show mean [energy] of turtles
</syntaxhighlight>
|-
| Сумма значений по turtles
| <syntaxhighlight lang="Lisp" line>
turtles-own [energy]
show sum [energy] of turtles
</syntaxhighlight>
|-
| Отсортировать turtles по who
| <syntaxhighlight lang="Lisp" line>
show sort-on [who] turtles
</syntaxhighlight>
|-
| Сформировать набор из разных источников
| <syntaxhighlight lang="Lisp" line>
let selected turtle-set turtles with [color = red] turtles with [shape = "car"]
ask selected [ set label who ]
</syntaxhighlight>
|-
| Создать links со всеми остальными
| <syntaxhighlight lang="Lisp" line>
ask turtle 0 [ create-links-with other turtles ]
</syntaxhighlight>
|-
| Получить все links данной turtle
| <syntaxhighlight lang="Lisp" line>
ask turtles [ show my-links ]
</syntaxhighlight>
|}

Научимся создавать, расставлять и группировать черепах. Листинг программы -

Создадим новый проект. У черепашек Netlogo есть свойства - номер, цвет, координаты и т.д.
Кроме того, мы можем задавать черепашкам новые свойства - turtles-own. Свойства всегда задаются в начале программы.
Например, зададим для черепашек свойство group. Свойство будет иметь 2 значения - ложь или истина. Принадлежит черепашка к группе или не принадлежит.

turtles-own [group]

Вообще внутри turtles-own [] можно перечислить множество свойств

Теперь создадим первую процедуру, которая будет очищать все имеющиеся объекты и значения. Далее следует программа с комментариями. Комментарии задаются двумя символами ;;

==== Создаем новых черепах ====
to setup
* ca - очищаем значения
* каждая черепашка располагается в случайной точке экрана
* crt 50 [ ;; создаем 50 черепах и разбрасываем их по экрану
* setxy random-xcor random-ycor
* set group false
* ]
* черепахи рождаются по порядку и поворачиватся последовательно. Когда мы им потом даем команду разойтись, они образуют круг
* cro number_of_turtles [fd max-pxcor - 2]
* Этого же результата можно достичь, если мы используем команду layout-circle
* end

<syntaxhighlight lang="Lisp" line>
to circle
layout-circle turtles max-pxcor - 2
end
</syntaxhighlight>

Мы умеем создавать черепашек и расставлять их по экрану. Теперь попробуем собрать черепашек одинакового цвета

==== Группируем черепах по цветам ====
'''to collect_color'''
* Первая версия - черепашки объединяются, но делают много лишних движений
<nowiki> ask other turtles with [color = [color] of myself] [face myself jump (distance myself) - 1] </nowiki>

во второй версии задаем черепашкам свойство принадлежности к группе и в начале устанавливаем значение этого свойства в false
* <nowiki>if group = false [ask other turtles with [(color = [color] of myself) and (group = false)] </nowiki>
<nowiki> [ </nowiki>
черепашка прыгает в сторону вызывающего агента
* face myself jump (distance myself) - 1
черепашка устанавливает свою принадлежность к группе в true - и теперь ее не будут вызывать
* <nowiki> set group true create-link-to myself]] </nowiki>
end

На странице использованы [[Команды к черепахам NetLogo]]

[[Категория:NetLogo]]