Просмотр кода страницы NetLogo turtles/Remix1

Это ремикс [[NetLogo turtles]]

* [[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 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]]


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