Поле цифровой дидактики - Вклад [ru]

Stygmergia v obrazovanii

2026-06-10T14:39:27Z

CristCas: /* Гипотеза 2: Влияние количества еды (стратегия «феромон + память») */

= [[Стигмергия]] в образовании =

{{#ask: [[Стигмергия]] | ?Description }}

== Аннотация ==

В данном проекте исследуется механизм стигмергии (коллективного взаимодействия через метки в среде) и его конкуренция/синергия с индивидуальной памятью агентов. На примере модифицированной агентной модели «Муравьи» (NetLogo) сравниваются три стратегии поиска ресурсов:
* '''только коллективный феромон'''
* '''только индивидуальная память'''
* '''сочетание (феромон + память)'''
С помощью двух экспериментов в среде BehaviorSpace были собраны данные о эффективности колонии (доставленная еда) и выживаемости муравьёв. Первый эксперимент (проверка Гипотезы 1) включал 6 комбинаций параметров (3 стратегии × 2 уровня еды) с 20 повторениями (120 прогонов). Второй эксперимент (Гипотеза 2) проводился при фиксированной стратегии «феромон + память» и двух уровнях еды (3 и 6 источников) с 30 повторениями (60 прогонов).

----

=== Цель работы ===

Количественно оценить, даёт ли совместное использование коллективного и индивидуального опыта статистически значимое преимущество по сравнению с каждым из механизмов по отдельности.

== Рабочие гипотезы ==

=== Гипотеза 1. Сравнение механизмов: феромон, память и их сочетание ===

* '''H₀:''' Не существует статистически значимой разницы в эффективности (количестве доставленной еды `total-food-count`) между тремя сценариями: использованием только коллективного феромона, только индивидуальной памяти и их сочетанием.
* '''H₁:''' Сценарий, сочетающий коллективный феромон и индивидуальную память, обеспечивает статистически значимо более высокую эффективность, чем каждый из этих механизмов по отдельности.

=== Гипотеза 2. Влияние количества источников еды ===

* '''H₀:''' Увеличение количества источников еды (с 3 до 6) не приводит к статистически значимому изменению эффективности колонии (`total-food-count`) и выживаемости муравьёв (`count turtles`).
* '''H₁:''' Увеличение количества источников еды приводит к статистически значимому росту эффективности колонии и выживаемости муравьёв, а также может влиять на величину преимущества от использования индивидуальной памяти.

== Модель ==
<netlogo model="Memory_Ants" />

=== Скачать модель (.nlogox) ===
'''GitHub:''' [https://github.com/cristycrastys-source/Labs_my_beloved/tree/main/Econometrics]

== Инструменты и параметры модели ==

=== Инструменты ===

* '''Моделирование:''' NetLogo (модель Ants с добавленной памятью)
* '''Анализ данных:''' R (библиотеки tidyverse, ggplot2, lmtest)
* '''Среда реализации:''' Поле цифровой дидактики (SMW)

=== Параметры среды ===

* '''Размер мира:''' от -40 до 40 (80×80)
* '''Гнездо:''' центр (0,0), радиус 5
* '''Еда:''' на радиусе 30 от центра, 3 или 6 кучек
* '''Феромон:''' диффузия и испарение управляются ползунками `diffusion-rate` и `evaporation-rate`

=== Управляющие параметры (настройки модели) ===

{| class="wikitable"
! Переменная !! Тип !! Диапазон !! Описание
|-
| `population` || Slider || 0–100 || Количество муравьёв
|-
| `diffusion-rate` || Slider || 0–50 || Скорость распространения феромона
|-
| `evaporation-rate` || Slider || 0–20 || Скорость испарения феромона
|-
| `use-memory?` || Switch || On/Off || Включение/выключение памяти
|-
| `more-food?` || Switch || On/Off || Дополнительные источники еды (3 → 6)
|-
| `memory-threshold` || Slider || 50–200 || Порог энергии для использования памяти
|}

=== Цветовая индикация муравьёв ===

{| class="wikitable"
! Цвет !! Состояние
|-
| '''Зелёный''' || Ищет еду, память пуста
|-
| '''Синий''' || Идёт по памяти к запомненной еде
|-
| '''Фиолетовый''' || Несёт еду в гнездо
|-
| '''Жёлтый''' || Имеет 1 место в памяти (но не использует его в данный момент)
|-
| '''Красный''' || Имеет 2 и более мест в памяти
|}

=== Собираемые данные для анализа ===

{| class="wikitable"
! Переменная !! Откуда !! Описание
|-
| `total-food-count` || Глобальная || Общее количество доставленной еды
|-
| `count turtles` || Встроенная || Количество живых муравьёв
|}

=== Как это работает ===

# Муравьи начинают с пустой памятью ('''зелёные''')
# Найдя еду, запоминают координаты патча и становятся '''фиолетовыми''' (несут еду)
# После доставки еды в гнездо цвет меняется в зависимости от количества запомненных мест ('''жёлтый''' = 1 место, '''красный''' = 2+)
# Когда энергия падает ниже порога (`memory-threshold`), муравей с памятью становится '''синим''' и идёт к ближайшему запомненному месту
# Если запомненное место опустело, муравей ищет еду в радиусе 8 патчей вокруг; если не находит — забывает это место

== План экспериментов ==

Эксперименты проводятся в среде BehaviorSpace (NetLogo). Реализованы два независимых эксперимента для проверки двух гипотез.

-----

=== Эксперимент 1 (Гипотеза 1): Сравнение трёх стратегий ===

* '''Независимые переменные:'''
** <code>use-memory?</code> — три сценария: только феромон, только память, феромон+память
** <code>more-food?</code> — два уровня: 3 источника, 6 источников

* '''Фиксированные параметры:'''
** <code>population = 50</code>
** <code>memory-threshold = 100</code>
** время прогона = 1000 тиков

* '''Повторений:''' 20
* '''Всего прогонов:''' 6 комбинаций × 20 = '''120'''

-----

=== Эксперимент 2 (Гипотеза 2): Влияние количества еды ===

* '''Фиксированная стратегия:''' феромон + память (<code>use-memory? = true</code>, <code>evaporation-rate = 10</code>, <code>diffusion-rate = 50</code>)
* '''Независимая переменная:''' <code>more-food?</code> — два уровня: 3 источника, 6 источников
* '''Фиксированные параметры:''' те же (<code>population = 50</code>, <code>memory-threshold = 100</code>, 1000 тиков)
* '''Повторений:''' 30
* '''Всего прогонов:''' 2 комбинации × 30 = '''60'''

-----

=== Исходные данные экспериментов ===

Сам эксперимент и CSV-файлы с результатами всех прогонов в BehaviorSpace:

- GitHub:[https://github.com/cristycrastys-source/Labs_my_beloved/tree/fed1a5b206bfe3456bfe9520b9b298f4c4c33946/Econometrics/%D0%AD%D0%BA%D1%81%D0%BF%D0%B5%D1%80%D0%B8%D0%BC%D0%B5%D0%BD%D1%82%D1%8B]

== Результаты ==

=== Гипотеза 1: Сравнение трёх стратегий ===

Был проведён полный факторный эксперимент (6 комбинаций, 20 повторений, 120 прогонов). Для каждой стратегии измерялась доставленная еда (total-food-count) и выживаемость муравьёв (count turtles). Анализ проведён в R.

[[Файл:g1_food.png|thumb|center|600px|Рисунок 1. Доставленная еда по трём стратегиям (3 источника)]]

==== Доставленная еда ====

'''ANOVA (3 источника еды):'''

Df Sum Sq Mean Sq F value Pr(>F)
strategy 2 3885725 1942863 3797 <2e-16 ***
Residuals 1137 581745 512

Различия между стратегиями статистически значимы (p < 0.001).

'''t-тест: феромон+память vs только феромон (3 источника)'''

t = -80.886, df = 774.9, p-value < 2.2e-16

Средняя доставленная еда:
- Только феромон: 88.3
- Феромон + память: 204.1

Разница: 115.8 единиц еды (95% доверительный интервал: от 112.9 до 118.6).

'''Вывод по Гипотезе 1:''' Гипотеза подтверждается. Комбинация феромона и памяти обеспечивает статистически значимо более высокую эффективность поиска еды по сравнению с использованием только феромона (p < 0.001).

==== Выживаемость ====

[[Файл:g1_survival.png|thumb|center|600px|Рисунок 2. Выживаемость муравьёв по трём стратегиям (6 источников)]]

Хотя основная гипотеза проверялась на доставленной еде, анализ выживаемости муравьёв дал интересные дополнительные результаты.

'''Средняя выживаемость (count turtles) при 6 источниках еды:'''

| Стратегия | Средняя выживаемость |
|-----------|---------------------|
| Только память | 41.2 |
| Феромон + память | 23.1 |
| Только феромон | 8.1 |

'''ANOVA для выживаемости (3 источника):'''

Df Sum Sq Mean Sq F value Pr(>F)
strategy 2 18721 9360 627.6 <2e-16 ***
Residuals 1137 16957 15

Различия также статистически значимы. Наибольшая выживаемость наблюдается при стратегии «Только память» с 6 источниками еды, что может объясняться более эффективным использованием энергии благодаря запомненным координатам еды.

=== Гипотеза 2: Влияние количества источников еды ===

Для проверки влияния количества еды проведён отдельный эксперимент при фиксированной стратегии «Феромон + память» (30 повторений, 2 комбинации: 3 и 6 источников, всего 60 прогонов).

[[Файл:g2_food.png|thumb|center|600px|Рисунок 3. Доставленная еда при 3 и 6 источниках]]

==== Доставленная еда ====

Средняя доставленная еда:
- 3 источника: 204.5
- 6 источников: 308.9

t-тест: t = -17.59, df = 41.46, p < 0.001

Разница: 104.4 единицы еды (95% доверительный интервал: от 92.4 до 116.4)

'''Вывод по Гипотезе 2:''' Увеличение количества источников еды с 3 до 6 приводит к статистически значимому росту доставленной еды (p < 0.001).

==== Выживаемость ====

[[Файл:g2_turtles.png|thumb|center|600px|Рисунок 4. Выживаемость при 3 и 6 источниках]]

Средняя выживаемость:
- 3 источника: 7.2 муравья
- 6 источников: 23.4 муравья

t-тест: t = -11.73, df = 57.57, p < 0.001

Разница: 16.2 муравья (95% доверительный интервал: от 13.4 до 18.9)

Увеличение количества еды также значимо повышает выживаемость колонии.

=== Демонстрация работы стратегий ===

Для наглядной демонстрации различий в поведении муравьёв были записаны анимации (GIF) для каждого сценария. Ниже представлены выбранные прогоны, результаты которых близки к средним значениям по соответствующей стратегии.

==== Гипотеза 1: Сравнение трёх стратегий (3 источника еды) ====

<gallery widths="300px" heights="225px" perrow="3" caption="Доставленная еда (слева направо): 103, 210, 212">
Файл:pheromone_only.gif|'''Только феромон''' Зелёные тропы феромона, муравьи идут по коллективному следу. '''Параметры:''' <code>use-memory? = false</code> <code>evaporation-rate = 10</code> <code>diffusion-rate = 50</code>
Файл:memory_only.gif|'''Только память''' Нет феромона, муравьи меняют цвет (жёлтый, красный, синий), идут по памяти. '''Параметры:''' <code>use-memory? = true</code> <code>evaporation-rate = 0</code> <code>diffusion-rate = 0</code>
Файл:pheromone_memory.gif|'''Феромон + память''' И феромонные тропы, и цветовая индикация памяти, максимальная эффективность. '''Параметры:''' <code>use-memory? = true</code> <code>evaporation-rate = 10</code> <code>diffusion-rate = 50</code>
</gallery>

==== Гипотеза 2: Влияние количества еды (стратегия «феромон + память») ====

<gallery widths="300px" heights="225px" perrow="2" caption="Доставленная еда: 204.5 и 308.9">
Файл:three_sources.gif|'''3 источника еды''' Менее интенсивное движение, меньше фиолетовых муравьёв, меньше насыщенность троп. '''Параметры:''' <code>more-food? = false</code> <code>use-memory? = true</code> <code>evaporation-rate = 10</code> <code>diffusion-rate = 50</code>
Файл:six_sources.gif|'''6 источников еды''' Более интенсивное движение, больше фиолетовых муравьёв, выше насыщенность троп. '''Параметры:''' <code>more-food? = true</code> <code>use-memory? = true</code> <code>evaporation-rate = 10</code> <code>diffusion-rate = 50</code>
</gallery>

----

=== Общий вывод ===

Обе гипотезы подтверждены:

1. **Гипотеза 1:** Комбинация феромона и индивидуальной памяти даёт статистически значимо более высокую эффективность доставки еды (204.1 против 88.3, p < 0.001).

2. **Гипотеза 2:** Увеличение количества источников еды с 3 до 6 значимо повышает как доставленную еду (308.9 против 204.5, p < 0.001), так и выживаемость (23.4 против 7.2, p < 0.001).

**Дополнительный вывод:** Наибольшая выживаемость наблюдается при стратегии «Только память» с 6 источниками еды (41.2 муравья). Память важна для выживания при обилии ресурсов, но для максимизации доставки еды необходимо сочетание с феромоном.

== Просмотр кода с пояснениями ==
=== Полный код (.nlogo) ===

<syntaxhighlight lang="lisp" line>
;; ANTS WITH MEMORY - ФИНАЛ
;; ============================================
;; РАЗМЕР МИРА: от -40 до 40 (80×80)
;; ЕДА: на радиусе 30 от центра
;; ============================================
;; ЦВЕТА МУРАВЬЁВ:
;; ЗЕЛЁНЫЙ - ищет еду (память пуста)
;; СИНИЙ - идёт по памяти к еде
;; ФИОЛЕТОВЫЙ - несёт еду в гнездо
;; ЖЁЛТЫЙ - 1 место в памяти (не использует)
;; КРАСНЫЙ - 2+ места в памяти (не использует)
;; ============================================

globals [
total-food-count ; общее количество еды, доставленной в гнездо
]

patches-own [
chemical ; феромон на патче (коллективный след)
food-here ; наличие еды на патче (0 или 1)
is-nest ; является ли патч гнездом (1 да, 0 нет)
]

turtles-own [
my-food ; есть ли у муравья еда (0 или 1)
my-energy ; текущий запас энергии муравья
my-memory ; список запомненных патчей (места, где была еда)
]

;;;;;;;;;;;;;;;;;;;;;;;;
;;; НАСТРОЙКА МИРА
;;;;;;;;;;;;;;;;;;;;;;;;

to setup
clear-all
set-default-shape turtles "bug"

; ===== СОЗДАЁМ ГНЕЗДО =====
; Все патчи в радиусе 5 от центра становятся гнездом
ask patches [
ifelse (distancexy 0 0) < 5 [
set is-nest 1
set pcolor violet
] [
set is-nest 0
set food-here 0
set chemical 0
]
]

; ===== СОЗДАЁМ ИСТОЧНИКИ ЕДЫ =====
let radius 30 ; расстояние от центра до еды
let sources 3 ; базовое количество источников
if more-food? = true [ set sources 6 ] ; если включён переключатель

; Равномерно распределяем источники по кругу
let angles [] ; список углов
let step 360 / sources ; шаг между источниками
let current 0
repeat sources [
set angles lput current angles
set current current + step
]

; Для каждого угла создаём пятно еды радиусом 5
foreach angles [ angle ->
let xc radius * cos angle
let yc radius * sin angle
ask patches with [ distancexy xc yc < 5 ] [
set food-here 1
; Разные цвета для разных источников
if angle = 0 [ set pcolor cyan ]
if angle = 60 [ set pcolor sky ]
if angle = 120 [ set pcolor blue ]
if angle = 180 [ set pcolor cyan ]
if angle = 240 [ set pcolor sky ]
if angle = 300 [ set pcolor blue ]
]
]

; ===== СОЗДАЁМ МУРАВЬЁВ =====
create-turtles population [
setxy 0 0 ; все муравьи начинают из гнезда
set size 2
set color green ; ЗЕЛЁНЫЙ - ищет еду, память пуста
set my-food 0
set my-energy 200
set my-memory [] ; память пуста
]

set total-food-count 0
reset-ticks
end

;;;;;;;;;;;;;;;;;;;;;
;;; ОСНОВНОЙ ЦИКЛ
;;;;;;;;;;;;;;;;;;;;;

to go
ask turtles [
if who >= ticks [ stop ]

; ===== ТРАТИМ ЭНЕРГИЮ =====
; Каждый шаг отнимает 1 единицу энергии
set my-energy my-energy - 1
if my-energy <= 0 [ die ] ; энергия кончилась - муравей умирает

; ===== СБРОС ЕДЫ В ГНЕЗДЕ =====
; Если муравей в гнезде и несёт еду - выгружает её
if is-nest = 1 and my-food = 1 [
set my-food 0
set my-energy my-energy + 100 ; награда за доставленную еду
set total-food-count total-food-count + 1 ; увеличиваем счётчик
update-color-by-memory ; обновляем цвет в зависимости от памяти
rt 180 ; разворачиваемся
]

; ===== ВОЗВРАЩЕНИЕ С ЕДОЙ =====
; Если муравей несёт еду - идёт прямо в гнездо
if my-food = 1 [
set color violet ; ФИОЛЕТОВЫЙ - несёт еду
set chemical chemical + 60 ; оставляет феромон
facexy 0 0 ; поворачивается к центру (гнезду)
wiggle
fd 1
stop
]

; ===== ПОИСК ЕДЫ =====
; Если муравей не несёт еду - ищет её
look-for-food

wiggle
fd 1
]

; ===== ОБРАБОТКА ФЕРОМОНА =====
; Диффузия: феромон распространяется на соседние патчи
diffuse chemical (diffusion-rate / 100)

ask patches [
; Испарение: феромон постепенно исчезает
set chemical chemical * (100 - evaporation-rate) / 100
if chemical < 0.01 [ set chemical 0 ]

; Визуализация феромона (чем больше феромона, тем ярче зелёный)
if food-here = 0 and is-nest = 0 [
set pcolor scale-color green chemical 0 5
]
]

tick
end

;;;;;;;;;;;;;;;;;;;;;
;;; ПОИСК ЕДЫ С ПАМЯТЬЮ
;;;;;;;;;;;;;;;;;;;;;

to look-for-food
; ===== ПОДБОР ЕДЫ =====
; Если на текущем патче есть еда - подбираем её
if food-here > 0 [
set my-food 1
set food-here food-here - 1 ; еда исчезает с патча

; ЗАПОМИНАЕМ МЕСТО
if use-memory? [
set my-memory lput patch-here my-memory ; добавляем патч в список
if length my-memory > 15 [ set my-memory but-last my-memory ] ; ограничиваем размер
]

rt 180 ; разворачиваемся к гнезду
stop
]

; ===== ИСПОЛЬЗОВАНИЕ ПАМЯТИ =====
; Если память включена, энергии мало и есть запомненные места
if use-memory? and my-energy < memory-threshold and length my-memory > 0 [
let target nobody
let best-dist 999999

; Находим ближайшее запомненное место
foreach my-memory [ mem-patch ->
let d distance mem-patch
if d < best-dist [
set best-dist d
set target mem-patch
]
]

if target != nobody [
; ПРОВЕРЯЕМ, ЕСТЬ ЛИ ЕЩЁ ЕДА НА ЗАПОМНЕННОМ МЕСТЕ
ifelse [food-here] of target > 0 [
set color blue ; СИНИЙ - идёт по памяти к еде
face target
stop
] [
; ЕСЛИ ЕДЫ НЕТ - ИЩЕМ В РАДИУСЕ 8 ПАТЧЕЙ ВОКРУГ
let nearby-food patches with [food-here > 0 and distance target <= 8]
ifelse any? nearby-food [
; нашли еду рядом - идём к ближайшей
let closest-nearby min-one-of nearby-food [distance myself]
; добавляем новое место в память
set my-memory lput closest-nearby my-memory
if length my-memory > 15 [ set my-memory but-last my-memory ]
set color blue ; СИНИЙ - идёт по памяти к еде
face closest-nearby
stop
] [
; НЕТ ЕДЫ В РАДИУСЕ - УДАЛЯЕМ ЭТО МЕСТО ИЗ ПАМЯТИ
set my-memory remove target my-memory
]
]
]
]

; ===== ОБНОВЛЕНИЕ ЦВЕТА =====
update-color-by-memory

; ===== ДВИЖЕНИЕ ПО ФЕРОМОНУ =====
; Если есть феромон - идём по нему
if (chemical >= 0.05) and (chemical < 2) [
uphill-chemical
]
end

;;;;;;;;;;;;;;;;;;;;;
;;; ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ
;;;;;;;;;;;;;;;;;;;;;

to update-color-by-memory
; Обновляет цвет муравья в зависимости от размера его памяти
; (только если муравей не несёт еду и не в режиме синего)
if my-food = 0 and color != blue [
let mem-count length my-memory
if mem-count = 0 [ set color green ] ; ЗЕЛЁНЫЙ - память пуста
if mem-count = 1 [ set color yellow ] ; ЖЁЛТЫЙ - 1 место
if mem-count >= 2 [ set color red ] ; КРАСНЫЙ - 2+ мест
]
end

to uphill-chemical
; Движение вверх по градиенту феромона
; Сравнивает концентрацию феромона спереди, справа и слева
let scent-ahead chemical-scent 0
let scent-right chemical-scent 45
let scent-left chemical-scent -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead) [
ifelse scent-right > scent-left [ rt 45 ] [ lt 45 ]
]
end

to wiggle
; Лёгкое случайное покачивание, чтобы муравьи не застревали
rt random 30
lt random 30
if not can-move? 1 [ rt 180 ]
end

to-report chemical-scent [angle]
; Возвращает количество феромона на патче под указанным углом
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [chemical] of p
end

; Copyright 1997 Uri Wilensky.
</syntaxhighlight>

== Ссылки ==
* [[Практикум по эконометрике (syllabus)]]
* An Introduction to Agent-Based Modeling with NetLogo — [[Wilensky]], Rand [https://archive.org/details/introductiontoag0000wile/page/n507/mode/2up]
* Introduction to Econometrics with R — онлайн-учебник [https://www.econometrics-with-r.org/index.html]
* Causal Inference: The Mixtape — Cunningham [https://jwmason.org/wp-content/uploads/2021/08/Cunningham-Cuasal-Inference-the-Mixtape.pdf]
* Дружелюбная эконометрика — учебник [https://books.econ.msu.ru/Introduction-to-Econometrics/]
* NetLogo: [https://netlogo.org netlogo.org]
* R: [https://r-project.org r-project.org]

== Участники ==
* [[Участник:CristCas|Анастасия Юдаева]] — создание и оформление страницы, разработка и модификация кода модели NetLogo, выгрузка модели на GitHub, описание кода
* [[Участник:Маргарита Еськова|Маргарита Еськова]] — аннотация, формирование гипотез, проведение экспериментов в BehaviorSpace, сбор и выгрузка данных на GitHub, частичное оформление
* [[Участник:Софронова Кира|Кира Софронова]] — формулировка статистических гипотез, анализ данных в R, визуализация результатов, интерпретация выводов, частичное оформление

----
[[Категория:Работы по эконометрике]]

Stygmergia v obrazovanii

2026-05-22T18:25:15Z

CristCas: Изменение порядка заголовков статьи

= [[Стигмергия]] в образовании =

{{#ask: [[Стигмергия]] | ?Description }}

== Аннотация ==

== Рабочие гипотезы ==

=== Модель ===
<netlogo model="Memory_Ants" />

=== Скачать модель (.nlogox) ===
'''GitHub:''' [https://github.com/cristycrastys-source/Labs_my_beloved/tree/main/Econometrics]

== Инструменты и параметры модели ==

=== Инструменты ===

* '''Моделирование:''' NetLogo (модель Ants с добавленной памятью)
* '''Анализ данных:''' R (библиотеки tidyverse, ggplot2, lmtest)
* '''Среда реализации:''' Поле цифровой дидактики (SMW)

=== Параметры среды ===

* '''Размер мира:''' от -40 до 40 (80×80)
* '''Гнездо:''' центр (0,0), радиус 5
* '''Еда:''' на радиусе 30 от центра, 3 или 6 кучек
* '''Феромон:''' диффузия и испарение управляются ползунками `diffusion-rate` и `evaporation-rate`

=== Управляющие параметры (настройки модели) ===

{| class="wikitable"
! Переменная !! Тип !! Диапазон !! Описание
|-
| `population` || Slider || 0–100 || Количество муравьёв
|-
| `diffusion-rate` || Slider || 0–50 || Скорость распространения феромона
|-
| `evaporation-rate` || Slider || 0–20 || Скорость испарения феромона
|-
| `use-memory?` || Switch || On/Off || Включение/выключение памяти
|-
| `more-food?` || Switch || On/Off || Дополнительные источники еды (3 → 6)
|-
| `memory-threshold` || Slider || 50–200 || Порог энергии для использования памяти
|}

=== Цветовая индикация муравьёв ===

{| class="wikitable"
! Цвет !! Состояние
|-
| '''Зелёный''' || Ищет еду, память пуста
|-
| '''Синий''' || Идёт по памяти к запомненной еде
|-
| '''Фиолетовый''' || Несёт еду в гнездо
|-
| '''Жёлтый''' || Имеет 1 место в памяти (но не использует его в данный момент)
|-
| '''Красный''' || Имеет 2 и более мест в памяти
|}

=== Собираемые данные для анализа ===

{| class="wikitable"
! Переменная !! Откуда !! Описание
|-
| `total-food-count` || Глобальная || Общее количество доставленной еды
|-
| `count turtles` || Встроенная || Количество живых муравьёв
|-
| `length my-memory` || Индивидуальная || Размер памяти муравья
|}

=== Как это работает ===

# Муравьи начинают с пустой памятью ('''зелёные''')
# Найдя еду, запоминают координаты патча и становятся '''фиолетовыми''' (несут еду)
# После доставки еды в гнездо цвет меняется в зависимости от количества запомненных мест ('''жёлтый''' = 1 место, '''красный''' = 2+)
# Когда энергия падает ниже порога (`memory-threshold`), муравей с памятью становится '''синим''' и идёт к ближайшему запомненному месту
# Если запомненное место опустело, муравей ищет еду в радиусе 8 патчей вокруг; если не находит — забывает это место

== План экспериментов ==

== Результаты ==
''(R-код, графики, выводы)''

== Просмотр кода с пояснениями ==
=== Полный код (.nlogo) ===

<syntaxhighlight lang="netlogo" line>
;; ANTS WITH MEMORY - ФИНАЛ
;; ============================================
;; РАЗМЕР МИРА: от -40 до 40 (80×80)
;; ЕДА: на радиусе 30 от центра
;; ============================================
;; ЦВЕТА МУРАВЬЁВ:
;; ЗЕЛЁНЫЙ - ищет еду (память пуста)
;; СИНИЙ - идёт по памяти к еде
;; ФИОЛЕТОВЫЙ - несёт еду в гнездо
;; ЖЁЛТЫЙ - 1 место в памяти (не использует)
;; КРАСНЫЙ - 2+ места в памяти (не использует)
;; ============================================

globals [
total-food-count ; общее количество еды, доставленной в гнездо
]

patches-own [
chemical ; феромон на патче (коллективный след)
food-here ; наличие еды на патче (0 или 1)
is-nest ; является ли патч гнездом (1 да, 0 нет)
]

turtles-own [
my-food ; есть ли у муравья еда (0 или 1)
my-energy ; текущий запас энергии муравья
my-memory ; список запомненных патчей (места, где была еда)
]

;;;;;;;;;;;;;;;;;;;;;;;;
;;; НАСТРОЙКА МИРА
;;;;;;;;;;;;;;;;;;;;;;;;

to setup
clear-all
set-default-shape turtles "bug"

; ===== СОЗДАЁМ ГНЕЗДО =====
; Все патчи в радиусе 5 от центра становятся гнездом
ask patches [
ifelse (distancexy 0 0) < 5 [
set is-nest 1
set pcolor violet
] [
set is-nest 0
set food-here 0
set chemical 0
]
]

; ===== СОЗДАЁМ ИСТОЧНИКИ ЕДЫ =====
let radius 30 ; расстояние от центра до еды
let sources 3 ; базовое количество источников
if more-food? = true [ set sources 6 ] ; если включён переключатель

; Равномерно распределяем источники по кругу
let angles [] ; список углов
let step 360 / sources ; шаг между источниками
let current 0
repeat sources [
set angles lput current angles
set current current + step
]

; Для каждого угла создаём пятно еды радиусом 5
foreach angles [ angle ->
let xc radius * cos angle
let yc radius * sin angle
ask patches with [ distancexy xc yc < 5 ] [
set food-here 1
; Разные цвета для разных источников
if angle = 0 [ set pcolor cyan ]
if angle = 60 [ set pcolor sky ]
if angle = 120 [ set pcolor blue ]
if angle = 180 [ set pcolor cyan ]
if angle = 240 [ set pcolor sky ]
if angle = 300 [ set pcolor blue ]
]
]

; ===== СОЗДАЁМ МУРАВЬЁВ =====
create-turtles population [
setxy 0 0 ; все муравьи начинают из гнезда
set size 2
set color green ; ЗЕЛЁНЫЙ - ищет еду, память пуста
set my-food 0
set my-energy 200
set my-memory [] ; память пуста
]

set total-food-count 0
reset-ticks
end

;;;;;;;;;;;;;;;;;;;;;
;;; ОСНОВНОЙ ЦИКЛ
;;;;;;;;;;;;;;;;;;;;;

to go
ask turtles [
if who >= ticks [ stop ]

; ===== ТРАТИМ ЭНЕРГИЮ =====
; Каждый шаг отнимает 1 единицу энергии
set my-energy my-energy - 1
if my-energy <= 0 [ die ] ; энергия кончилась - муравей умирает

; ===== СБРОС ЕДЫ В ГНЕЗДЕ =====
; Если муравей в гнезде и несёт еду - выгружает её
if is-nest = 1 and my-food = 1 [
set my-food 0
set my-energy my-energy + 100 ; награда за доставленную еду
set total-food-count total-food-count + 1 ; увеличиваем счётчик
update-color-by-memory ; обновляем цвет в зависимости от памяти
rt 180 ; разворачиваемся
]

; ===== ВОЗВРАЩЕНИЕ С ЕДОЙ =====
; Если муравей несёт еду - идёт прямо в гнездо
if my-food = 1 [
set color violet ; ФИОЛЕТОВЫЙ - несёт еду
set chemical chemical + 60 ; оставляет феромон
facexy 0 0 ; поворачивается к центру (гнезду)
wiggle
fd 1
stop
]

; ===== ПОИСК ЕДЫ =====
; Если муравей не несёт еду - ищет её
look-for-food

wiggle
fd 1
]

; ===== ОБРАБОТКА ФЕРОМОНА =====
; Диффузия: феромон распространяется на соседние патчи
diffuse chemical (diffusion-rate / 100)

ask patches [
; Испарение: феромон постепенно исчезает
set chemical chemical * (100 - evaporation-rate) / 100
if chemical < 0.01 [ set chemical 0 ]

; Визуализация феромона (чем больше феромона, тем ярче зелёный)
if food-here = 0 and is-nest = 0 [
set pcolor scale-color green chemical 0 5
]
]

tick
end

;;;;;;;;;;;;;;;;;;;;;
;;; ПОИСК ЕДЫ С ПАМЯТЬЮ
;;;;;;;;;;;;;;;;;;;;;

to look-for-food
; ===== ПОДБОР ЕДЫ =====
; Если на текущем патче есть еда - подбираем её
if food-here > 0 [
set my-food 1
set food-here food-here - 1 ; еда исчезает с патча

; ЗАПОМИНАЕМ МЕСТО
if use-memory? [
set my-memory lput patch-here my-memory ; добавляем патч в список
if length my-memory > 15 [ set my-memory but-last my-memory ] ; ограничиваем размер
]

rt 180 ; разворачиваемся к гнезду
stop
]

; ===== ИСПОЛЬЗОВАНИЕ ПАМЯТИ =====
; Если память включена, энергии мало и есть запомненные места
if use-memory? and my-energy < memory-threshold and length my-memory > 0 [
let target nobody
let best-dist 999999

; Находим ближайшее запомненное место
foreach my-memory [ mem-patch ->
let d distance mem-patch
if d < best-dist [
set best-dist d
set target mem-patch
]
]

if target != nobody [
; ПРОВЕРЯЕМ, ЕСТЬ ЛИ ЕЩЁ ЕДА НА ЗАПОМНЕННОМ МЕСТЕ
ifelse [food-here] of target > 0 [
set color blue ; СИНИЙ - идёт по памяти к еде
face target
stop
] [
; ЕСЛИ ЕДЫ НЕТ - ИЩЕМ В РАДИУСЕ 8 ПАТЧЕЙ ВОКРУГ
let nearby-food patches with [food-here > 0 and distance target <= 8]
ifelse any? nearby-food [
; нашли еду рядом - идём к ближайшей
let closest-nearby min-one-of nearby-food [distance myself]
; добавляем новое место в память
set my-memory lput closest-nearby my-memory
if length my-memory > 15 [ set my-memory but-last my-memory ]
set color blue ; СИНИЙ - идёт по памяти к еде
face closest-nearby
stop
] [
; НЕТ ЕДЫ В РАДИУСЕ - УДАЛЯЕМ ЭТО МЕСТО ИЗ ПАМЯТИ
set my-memory remove target my-memory
]
]
]
]

; ===== ОБНОВЛЕНИЕ ЦВЕТА =====
update-color-by-memory

; ===== ДВИЖЕНИЕ ПО ФЕРОМОНУ =====
; Если есть феромон - идём по нему
if (chemical >= 0.05) and (chemical < 2) [
uphill-chemical
]
end

;;;;;;;;;;;;;;;;;;;;;
;;; ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ
;;;;;;;;;;;;;;;;;;;;;

to update-color-by-memory
; Обновляет цвет муравья в зависимости от размера его памяти
; (только если муравей не несёт еду и не в режиме синего)
if my-food = 0 and color != blue [
let mem-count length my-memory
if mem-count = 0 [ set color green ] ; ЗЕЛЁНЫЙ - память пуста
if mem-count = 1 [ set color yellow ] ; ЖЁЛТЫЙ - 1 место
if mem-count >= 2 [ set color red ] ; КРАСНЫЙ - 2+ мест
]
end

to uphill-chemical
; Движение вверх по градиенту феромона
; Сравнивает концентрацию феромона спереди, справа и слева
let scent-ahead chemical-scent 0
let scent-right chemical-scent 45
let scent-left chemical-scent -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead) [
ifelse scent-right > scent-left [ rt 45 ] [ lt 45 ]
]
end

to wiggle
; Лёгкое случайное покачивание, чтобы муравьи не застревали
rt random 30
lt random 30
if not can-move? 1 [ rt 180 ]
end

to-report chemical-scent [angle]
; Возвращает количество феромона на патче под указанным углом
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [chemical] of p
end

; Copyright 1997 Uri Wilensky.
</syntaxhighlight>

== Ссылки ==
* [[Практикум по эконометрике (syllabus)]]
* An Introduction to Agent-Based Modeling with NetLogo — Wilensky, Rand
* Introduction to Econometrics with R — онлайн-учебник
* Causal Inference: The Mixtape — Cunningham
* Дружелюбная эконометрика — учебник
* NetLogo: [https://netlogo.org netlogo.org]
* R: [https://r-project.org r-project.org]
''(Всё что использовали и что помогло при изучении - сюда)''

== Участники ==
* [[Участник:Софронова_Кира|Кира Софронова]]
* [[Участник:Маргарита_Еськова|Маргарита Еськова]]
* [[Участник:CristCas|Анастасия Юдаева]]

== Распределение работы ==
* [[Участник:Софронова_Кира|Кира Софронова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:Маргарита_Еськова|Маргарита Еськова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:CristCas|Анастасия Юдаева]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞

----
[[Категория:Работы по эконометрике]]

Обсуждение участника:CristCas

2026-05-22T18:13:03Z

CristCas:

== Изучение модели ==

Изучите модель [[Minority Game|Быть в меньшинстве]] --[[Участник:Patarakin|Patarakin]] ([[Обсуждение участника:Patarakin|обсуждение]]) 10:15, 19 февраля 2026 (MSK)

{{#ask: [[Minority Game]] | ?Description }}

<netlogo model="MinorityGame" />

== Модель муравьев м памятью ==

Я увидел ссылку на вашу новую модель и даже утащил её к себе, но не смог запустить и разместить.
Чтобы мне не разбираться с этим, попробуйте сделать следующее:
# сохранить модель как веб-страницу
# положить на Github
# написать мне в обсуждении

я приду и загружу на вашу страницу. Спасибо!
--[[Участник:Patarakin|Patarakin]] ([[Обсуждение участника:Patarakin|обсуждение]]) 15:47, 22 мая 2026 (MSK)

== Да, все получилось ==

<netlogo model="Memory_Ants" />
* Поставил на страницу. Все получилось, очень рад! Просто потому что это у нас первый опыт на площадке. --[[Участник:Patarakin|Patarakin]] ([[Обсуждение участника:Patarakin|обсуждение]]) 19:43, 22 мая 2026 (MSK)

== Супер! ==

Увидели, большое спасибо! 28 числа обязательно будет что показать ^^

Stygmergia v obrazovanii

2026-05-22T18:11:15Z

CristCas: Удаление старой нерабочей модели

= [[Стигмергия]] в образовании =

{{#ask: [[Стигмергия]] | ?Description }}

== Аннотация ==

== Рабочие гипотезы ==

== Инструменты и параметры модели ==

=== Инструменты ===

* '''Моделирование:''' NetLogo (модель Ants с добавленной памятью)
* '''Анализ данных:''' R (библиотеки tidyverse, ggplot2, lmtest)
* '''Среда реализации:''' Поле цифровой дидактики (SMW)

=== Параметры среды ===

* '''Размер мира:''' от -40 до 40 (80×80)
* '''Гнездо:''' центр (0,0), радиус 5
* '''Еда:''' на радиусе 30 от центра, 3 или 6 кучек
* '''Феромон:''' диффузия и испарение управляются ползунками `diffusion-rate` и `evaporation-rate`

=== Управляющие параметры (настройки модели) ===

{| class="wikitable"
! Переменная !! Тип !! Диапазон !! Описание
|-
| `population` || Slider || 0–100 || Количество муравьёв
|-
| `diffusion-rate` || Slider || 0–50 || Скорость распространения феромона
|-
| `evaporation-rate` || Slider || 0–20 || Скорость испарения феромона
|-
| `use-memory?` || Switch || On/Off || Включение/выключение памяти
|-
| `more-food?` || Switch || On/Off || Дополнительные источники еды (3 → 6)
|-
| `memory-threshold` || Slider || 50–200 || Порог энергии для использования памяти
|}

=== Цветовая индикация муравьёв ===

{| class="wikitable"
! Цвет !! Состояние
|-
| '''Зелёный''' || Ищет еду, память пуста
|-
| '''Синий''' || Идёт по памяти к запомненной еде
|-
| '''Фиолетовый''' || Несёт еду в гнездо
|-
| '''Жёлтый''' || Имеет 1 место в памяти (но не использует его в данный момент)
|-
| '''Красный''' || Имеет 2 и более мест в памяти
|}

=== Собираемые данные для анализа ===

{| class="wikitable"
! Переменная !! Откуда !! Описание
|-
| `total-food-count` || Глобальная || Общее количество доставленной еды
|-
| `count turtles` || Встроенная || Количество живых муравьёв
|-
| `length my-memory` || Индивидуальная || Размер памяти муравья
|}

=== Как это работает ===

# Муравьи начинают с пустой памятью ('''зелёные''')
# Найдя еду, запоминают координаты патча и становятся '''фиолетовыми''' (несут еду)
# После доставки еды в гнездо цвет меняется в зависимости от количества запомненных мест ('''жёлтый''' = 1 место, '''красный''' = 2+)
# Когда энергия падает ниже порога (`memory-threshold`), муравей с памятью становится '''синим''' и идёт к ближайшему запомненному месту
# Если запомненное место опустело, муравей ищет еду в радиусе 8 патчей вокруг; если не находит — забывает это место

== Участники ==
* [[Участник:Софронова_Кира|Кира Софронова]]
* [[Участник:Маргарита_Еськова|Маргарита Еськова]]
* [[Участник:CristCas|Анастасия Юдаева]]

== Распределение работы ==
* [[Участник:Софронова_Кира|Кира Софронова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:Маргарита_Еськова|Маргарита Еськова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:CristCas|Анастасия Юдаева]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞

== План работы ==
# Настройка экспериментов в BehaviorSpace.
# Генерация и выгрузка данных.
# Регрессионный анализ и проверка гипотез в R.
# Оформление выводов и визуализация (RAWGraphs).

== Результаты ==
''(Графики, таблицы и т.д.)''

== Просмотр кода с пояснениями ==
=== Полный код (.nlogo) ===

<syntaxhighlight lang="netlogo" line>
;; ANTS WITH MEMORY - ФИНАЛ
;; ============================================
;; РАЗМЕР МИРА: от -40 до 40 (80×80)
;; ЕДА: на радиусе 30 от центра
;; ============================================
;; ЦВЕТА МУРАВЬЁВ:
;; ЗЕЛЁНЫЙ - ищет еду (память пуста)
;; СИНИЙ - идёт по памяти к еде
;; ФИОЛЕТОВЫЙ - несёт еду в гнездо
;; ЖЁЛТЫЙ - 1 место в памяти (не использует)
;; КРАСНЫЙ - 2+ места в памяти (не использует)
;; ============================================

globals [
total-food-count ; общее количество еды, доставленной в гнездо
]

patches-own [
chemical ; феромон на патче (коллективный след)
food-here ; наличие еды на патче (0 или 1)
is-nest ; является ли патч гнездом (1 да, 0 нет)
]

turtles-own [
my-food ; есть ли у муравья еда (0 или 1)
my-energy ; текущий запас энергии муравья
my-memory ; список запомненных патчей (места, где была еда)
]

;;;;;;;;;;;;;;;;;;;;;;;;
;;; НАСТРОЙКА МИРА
;;;;;;;;;;;;;;;;;;;;;;;;

to setup
clear-all
set-default-shape turtles "bug"

; ===== СОЗДАЁМ ГНЕЗДО =====
; Все патчи в радиусе 5 от центра становятся гнездом
ask patches [
ifelse (distancexy 0 0) < 5 [
set is-nest 1
set pcolor violet
] [
set is-nest 0
set food-here 0
set chemical 0
]
]

; ===== СОЗДАЁМ ИСТОЧНИКИ ЕДЫ =====
let radius 30 ; расстояние от центра до еды
let sources 3 ; базовое количество источников
if more-food? = true [ set sources 6 ] ; если включён переключатель

; Равномерно распределяем источники по кругу
let angles [] ; список углов
let step 360 / sources ; шаг между источниками
let current 0
repeat sources [
set angles lput current angles
set current current + step
]

; Для каждого угла создаём пятно еды радиусом 5
foreach angles [ angle ->
let xc radius * cos angle
let yc radius * sin angle
ask patches with [ distancexy xc yc < 5 ] [
set food-here 1
; Разные цвета для разных источников
if angle = 0 [ set pcolor cyan ]
if angle = 60 [ set pcolor sky ]
if angle = 120 [ set pcolor blue ]
if angle = 180 [ set pcolor cyan ]
if angle = 240 [ set pcolor sky ]
if angle = 300 [ set pcolor blue ]
]
]

; ===== СОЗДАЁМ МУРАВЬЁВ =====
create-turtles population [
setxy 0 0 ; все муравьи начинают из гнезда
set size 2
set color green ; ЗЕЛЁНЫЙ - ищет еду, память пуста
set my-food 0
set my-energy 200
set my-memory [] ; память пуста
]

set total-food-count 0
reset-ticks
end

;;;;;;;;;;;;;;;;;;;;;
;;; ОСНОВНОЙ ЦИКЛ
;;;;;;;;;;;;;;;;;;;;;

to go
ask turtles [
if who >= ticks [ stop ]

; ===== ТРАТИМ ЭНЕРГИЮ =====
; Каждый шаг отнимает 1 единицу энергии
set my-energy my-energy - 1
if my-energy <= 0 [ die ] ; энергия кончилась - муравей умирает

; ===== СБРОС ЕДЫ В ГНЕЗДЕ =====
; Если муравей в гнезде и несёт еду - выгружает её
if is-nest = 1 and my-food = 1 [
set my-food 0
set my-energy my-energy + 100 ; награда за доставленную еду
set total-food-count total-food-count + 1 ; увеличиваем счётчик
update-color-by-memory ; обновляем цвет в зависимости от памяти
rt 180 ; разворачиваемся
]

; ===== ВОЗВРАЩЕНИЕ С ЕДОЙ =====
; Если муравей несёт еду - идёт прямо в гнездо
if my-food = 1 [
set color violet ; ФИОЛЕТОВЫЙ - несёт еду
set chemical chemical + 60 ; оставляет феромон
facexy 0 0 ; поворачивается к центру (гнезду)
wiggle
fd 1
stop
]

; ===== ПОИСК ЕДЫ =====
; Если муравей не несёт еду - ищет её
look-for-food

wiggle
fd 1
]

; ===== ОБРАБОТКА ФЕРОМОНА =====
; Диффузия: феромон распространяется на соседние патчи
diffuse chemical (diffusion-rate / 100)

ask patches [
; Испарение: феромон постепенно исчезает
set chemical chemical * (100 - evaporation-rate) / 100
if chemical < 0.01 [ set chemical 0 ]

; Визуализация феромона (чем больше феромона, тем ярче зелёный)
if food-here = 0 and is-nest = 0 [
set pcolor scale-color green chemical 0 5
]
]

tick
end

;;;;;;;;;;;;;;;;;;;;;
;;; ПОИСК ЕДЫ С ПАМЯТЬЮ
;;;;;;;;;;;;;;;;;;;;;

to look-for-food
; ===== ПОДБОР ЕДЫ =====
; Если на текущем патче есть еда - подбираем её
if food-here > 0 [
set my-food 1
set food-here food-here - 1 ; еда исчезает с патча

; ЗАПОМИНАЕМ МЕСТО
if use-memory? [
set my-memory lput patch-here my-memory ; добавляем патч в список
if length my-memory > 15 [ set my-memory but-last my-memory ] ; ограничиваем размер
]

rt 180 ; разворачиваемся к гнезду
stop
]

; ===== ИСПОЛЬЗОВАНИЕ ПАМЯТИ =====
; Если память включена, энергии мало и есть запомненные места
if use-memory? and my-energy < memory-threshold and length my-memory > 0 [
let target nobody
let best-dist 999999

; Находим ближайшее запомненное место
foreach my-memory [ mem-patch ->
let d distance mem-patch
if d < best-dist [
set best-dist d
set target mem-patch
]
]

if target != nobody [
; ПРОВЕРЯЕМ, ЕСТЬ ЛИ ЕЩЁ ЕДА НА ЗАПОМНЕННОМ МЕСТЕ
ifelse [food-here] of target > 0 [
set color blue ; СИНИЙ - идёт по памяти к еде
face target
stop
] [
; ЕСЛИ ЕДЫ НЕТ - ИЩЕМ В РАДИУСЕ 8 ПАТЧЕЙ ВОКРУГ
let nearby-food patches with [food-here > 0 and distance target <= 8]
ifelse any? nearby-food [
; нашли еду рядом - идём к ближайшей
let closest-nearby min-one-of nearby-food [distance myself]
; добавляем новое место в память
set my-memory lput closest-nearby my-memory
if length my-memory > 15 [ set my-memory but-last my-memory ]
set color blue ; СИНИЙ - идёт по памяти к еде
face closest-nearby
stop
] [
; НЕТ ЕДЫ В РАДИУСЕ - УДАЛЯЕМ ЭТО МЕСТО ИЗ ПАМЯТИ
set my-memory remove target my-memory
]
]
]
]

; ===== ОБНОВЛЕНИЕ ЦВЕТА =====
update-color-by-memory

; ===== ДВИЖЕНИЕ ПО ФЕРОМОНУ =====
; Если есть феромон - идём по нему
if (chemical >= 0.05) and (chemical < 2) [
uphill-chemical
]
end

;;;;;;;;;;;;;;;;;;;;;
;;; ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ
;;;;;;;;;;;;;;;;;;;;;

to update-color-by-memory
; Обновляет цвет муравья в зависимости от размера его памяти
; (только если муравей не несёт еду и не в режиме синего)
if my-food = 0 and color != blue [
let mem-count length my-memory
if mem-count = 0 [ set color green ] ; ЗЕЛЁНЫЙ - память пуста
if mem-count = 1 [ set color yellow ] ; ЖЁЛТЫЙ - 1 место
if mem-count >= 2 [ set color red ] ; КРАСНЫЙ - 2+ мест
]
end

to uphill-chemical
; Движение вверх по градиенту феромона
; Сравнивает концентрацию феромона спереди, справа и слева
let scent-ahead chemical-scent 0
let scent-right chemical-scent 45
let scent-left chemical-scent -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead) [
ifelse scent-right > scent-left [ rt 45 ] [ lt 45 ]
]
end

to wiggle
; Лёгкое случайное покачивание, чтобы муравьи не застревали
rt random 30
lt random 30
if not can-move? 1 [ rt 180 ]
end

to-report chemical-scent [angle]
; Возвращает количество феромона на патче под указанным углом
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [chemical] of p
end

; Copyright 1997 Uri Wilensky.
</syntaxhighlight>

=== Скачать модель (.nlogox) ===
'''GitHub:''' [https://github.com/cristycrastys-source/Labs_my_beloved/tree/main/Econometrics]

=== Модель ===
<netlogo model="Memory_Ants" />

== Ссылки ==
* [[Практикум по эконометрике (syllabus)]]
* An Introduction to Agent-Based Modeling with NetLogo — Wilensky, Rand
* Introduction to Econometrics with R — онлайн-учебник
* Causal Inference: The Mixtape — Cunningham
* Дружелюбная эконометрика — учебник
* NetLogo: [https://netlogo.org netlogo.org]
* R: [https://r-project.org r-project.org]
''(Всё что использовали и что помогло при изучении - сюда)''

----
[[Категория:Работы по эконометрике]]

Stygmergia v obrazovanii

2026-05-22T15:13:29Z

CristCas: Инструменты и параметры модели

= [[Стигмергия]] в образовании =

{{#ask: [[Стигмергия]] | ?Description }}

== Аннотация ==

== Рабочие гипотезы ==

== Инструменты и параметры модели ==

=== Инструменты ===

* '''Моделирование:''' NetLogo (модель Ants с добавленной памятью)
* '''Анализ данных:''' R (библиотеки tidyverse, ggplot2, lmtest)
* '''Среда реализации:''' Поле цифровой дидактики (SMW)

=== Параметры среды ===

* '''Размер мира:''' от -40 до 40 (80×80)
* '''Гнездо:''' центр (0,0), радиус 5
* '''Еда:''' на радиусе 30 от центра, 3 или 6 кучек
* '''Феромон:''' диффузия и испарение управляются ползунками `diffusion-rate` и `evaporation-rate`

=== Управляющие параметры (настройки модели) ===

{| class="wikitable"
! Переменная !! Тип !! Диапазон !! Описание
|-
| `population` || Slider || 0–100 || Количество муравьёв
|-
| `diffusion-rate` || Slider || 0–50 || Скорость распространения феромона
|-
| `evaporation-rate` || Slider || 0–20 || Скорость испарения феромона
|-
| `use-memory?` || Switch || On/Off || Включение/выключение памяти
|-
| `more-food?` || Switch || On/Off || Дополнительные источники еды (3 → 6)
|-
| `memory-threshold` || Slider || 50–200 || Порог энергии для использования памяти
|}

=== Цветовая индикация муравьёв ===

{| class="wikitable"
! Цвет !! Состояние
|-
| '''Зелёный''' || Ищет еду, память пуста
|-
| '''Синий''' || Идёт по памяти к запомненной еде
|-
| '''Фиолетовый''' || Несёт еду в гнездо
|-
| '''Жёлтый''' || Имеет 1 место в памяти (но не использует его в данный момент)
|-
| '''Красный''' || Имеет 2 и более мест в памяти
|}

=== Собираемые данные для анализа ===

{| class="wikitable"
! Переменная !! Откуда !! Описание
|-
| `total-food-count` || Глобальная || Общее количество доставленной еды
|-
| `count turtles` || Встроенная || Количество живых муравьёв
|-
| `length my-memory` || Индивидуальная || Размер памяти муравья
|}

=== Как это работает ===

# Муравьи начинают с пустой памятью ('''зелёные''')
# Найдя еду, запоминают координаты патча и становятся '''фиолетовыми''' (несут еду)
# После доставки еды в гнездо цвет меняется в зависимости от количества запомненных мест ('''жёлтый''' = 1 место, '''красный''' = 2+)
# Когда энергия падает ниже порога (`memory-threshold`), муравей с памятью становится '''синим''' и идёт к ближайшему запомненному месту
# Если запомненное место опустело, муравей ищет еду в радиусе 8 патчей вокруг; если не находит — забывает это место

== Участники ==
* [[Участник:Софронова_Кира|Кира Софронова]]
* [[Участник:Маргарита_Еськова|Маргарита Еськова]]
* [[Участник:CristCas|Анастасия Юдаева]]

== Распределение работы ==
* [[Участник:Софронова_Кира|Кира Софронова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:Маргарита_Еськова|Маргарита Еськова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:CristCas|Анастасия Юдаева]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞

== План работы ==
# Настройка экспериментов в BehaviorSpace.
# Генерация и выгрузка данных.
# Регрессионный анализ и проверка гипотез в R.
# Оформление выводов и визуализация (RAWGraphs).

== Результаты ==
''(Графики, таблицы и т.д.)''

=== Модель ===

{{#widget:Iframe
|url=https://raw.githubusercontent.com/cristycrastys-source/Labs_my_beloved/refs/heads/main/Econometrics/Memory_Ants.nlogox
|width=800
|height=600
|border=0
}}

== Просмотр кода с пояснениями ==
=== Полный код (.nlogo) ===

<syntaxhighlight lang="netlogo" line>
;; ANTS WITH MEMORY - ФИНАЛ
;; ============================================
;; РАЗМЕР МИРА: от -40 до 40 (80×80)
;; ЕДА: на радиусе 30 от центра
;; ============================================
;; ЦВЕТА МУРАВЬЁВ:
;; ЗЕЛЁНЫЙ - ищет еду (память пуста)
;; СИНИЙ - идёт по памяти к еде
;; ФИОЛЕТОВЫЙ - несёт еду в гнездо
;; ЖЁЛТЫЙ - 1 место в памяти (не использует)
;; КРАСНЫЙ - 2+ места в памяти (не использует)
;; ============================================

globals [
total-food-count ; общее количество еды, доставленной в гнездо
]

patches-own [
chemical ; феромон на патче (коллективный след)
food-here ; наличие еды на патче (0 или 1)
is-nest ; является ли патч гнездом (1 да, 0 нет)
]

turtles-own [
my-food ; есть ли у муравья еда (0 или 1)
my-energy ; текущий запас энергии муравья
my-memory ; список запомненных патчей (места, где была еда)
]

;;;;;;;;;;;;;;;;;;;;;;;;
;;; НАСТРОЙКА МИРА
;;;;;;;;;;;;;;;;;;;;;;;;

to setup
clear-all
set-default-shape turtles "bug"

; ===== СОЗДАЁМ ГНЕЗДО =====
; Все патчи в радиусе 5 от центра становятся гнездом
ask patches [
ifelse (distancexy 0 0) < 5 [
set is-nest 1
set pcolor violet
] [
set is-nest 0
set food-here 0
set chemical 0
]
]

; ===== СОЗДАЁМ ИСТОЧНИКИ ЕДЫ =====
let radius 30 ; расстояние от центра до еды
let sources 3 ; базовое количество источников
if more-food? = true [ set sources 6 ] ; если включён переключатель

; Равномерно распределяем источники по кругу
let angles [] ; список углов
let step 360 / sources ; шаг между источниками
let current 0
repeat sources [
set angles lput current angles
set current current + step
]

; Для каждого угла создаём пятно еды радиусом 5
foreach angles [ angle ->
let xc radius * cos angle
let yc radius * sin angle
ask patches with [ distancexy xc yc < 5 ] [
set food-here 1
; Разные цвета для разных источников
if angle = 0 [ set pcolor cyan ]
if angle = 60 [ set pcolor sky ]
if angle = 120 [ set pcolor blue ]
if angle = 180 [ set pcolor cyan ]
if angle = 240 [ set pcolor sky ]
if angle = 300 [ set pcolor blue ]
]
]

; ===== СОЗДАЁМ МУРАВЬЁВ =====
create-turtles population [
setxy 0 0 ; все муравьи начинают из гнезда
set size 2
set color green ; ЗЕЛЁНЫЙ - ищет еду, память пуста
set my-food 0
set my-energy 200
set my-memory [] ; память пуста
]

set total-food-count 0
reset-ticks
end

;;;;;;;;;;;;;;;;;;;;;
;;; ОСНОВНОЙ ЦИКЛ
;;;;;;;;;;;;;;;;;;;;;

to go
ask turtles [
if who >= ticks [ stop ]

; ===== ТРАТИМ ЭНЕРГИЮ =====
; Каждый шаг отнимает 1 единицу энергии
set my-energy my-energy - 1
if my-energy <= 0 [ die ] ; энергия кончилась - муравей умирает

; ===== СБРОС ЕДЫ В ГНЕЗДЕ =====
; Если муравей в гнезде и несёт еду - выгружает её
if is-nest = 1 and my-food = 1 [
set my-food 0
set my-energy my-energy + 100 ; награда за доставленную еду
set total-food-count total-food-count + 1 ; увеличиваем счётчик
update-color-by-memory ; обновляем цвет в зависимости от памяти
rt 180 ; разворачиваемся
]

; ===== ВОЗВРАЩЕНИЕ С ЕДОЙ =====
; Если муравей несёт еду - идёт прямо в гнездо
if my-food = 1 [
set color violet ; ФИОЛЕТОВЫЙ - несёт еду
set chemical chemical + 60 ; оставляет феромон
facexy 0 0 ; поворачивается к центру (гнезду)
wiggle
fd 1
stop
]

; ===== ПОИСК ЕДЫ =====
; Если муравей не несёт еду - ищет её
look-for-food

wiggle
fd 1
]

; ===== ОБРАБОТКА ФЕРОМОНА =====
; Диффузия: феромон распространяется на соседние патчи
diffuse chemical (diffusion-rate / 100)

ask patches [
; Испарение: феромон постепенно исчезает
set chemical chemical * (100 - evaporation-rate) / 100
if chemical < 0.01 [ set chemical 0 ]

; Визуализация феромона (чем больше феромона, тем ярче зелёный)
if food-here = 0 and is-nest = 0 [
set pcolor scale-color green chemical 0 5
]
]

tick
end

;;;;;;;;;;;;;;;;;;;;;
;;; ПОИСК ЕДЫ С ПАМЯТЬЮ
;;;;;;;;;;;;;;;;;;;;;

to look-for-food
; ===== ПОДБОР ЕДЫ =====
; Если на текущем патче есть еда - подбираем её
if food-here > 0 [
set my-food 1
set food-here food-here - 1 ; еда исчезает с патча

; ЗАПОМИНАЕМ МЕСТО
if use-memory? [
set my-memory lput patch-here my-memory ; добавляем патч в список
if length my-memory > 15 [ set my-memory but-last my-memory ] ; ограничиваем размер
]

rt 180 ; разворачиваемся к гнезду
stop
]

; ===== ИСПОЛЬЗОВАНИЕ ПАМЯТИ =====
; Если память включена, энергии мало и есть запомненные места
if use-memory? and my-energy < memory-threshold and length my-memory > 0 [
let target nobody
let best-dist 999999

; Находим ближайшее запомненное место
foreach my-memory [ mem-patch ->
let d distance mem-patch
if d < best-dist [
set best-dist d
set target mem-patch
]
]

if target != nobody [
; ПРОВЕРЯЕМ, ЕСТЬ ЛИ ЕЩЁ ЕДА НА ЗАПОМНЕННОМ МЕСТЕ
ifelse [food-here] of target > 0 [
set color blue ; СИНИЙ - идёт по памяти к еде
face target
stop
] [
; ЕСЛИ ЕДЫ НЕТ - ИЩЕМ В РАДИУСЕ 8 ПАТЧЕЙ ВОКРУГ
let nearby-food patches with [food-here > 0 and distance target <= 8]
ifelse any? nearby-food [
; нашли еду рядом - идём к ближайшей
let closest-nearby min-one-of nearby-food [distance myself]
; добавляем новое место в память
set my-memory lput closest-nearby my-memory
if length my-memory > 15 [ set my-memory but-last my-memory ]
set color blue ; СИНИЙ - идёт по памяти к еде
face closest-nearby
stop
] [
; НЕТ ЕДЫ В РАДИУСЕ - УДАЛЯЕМ ЭТО МЕСТО ИЗ ПАМЯТИ
set my-memory remove target my-memory
]
]
]
]

; ===== ОБНОВЛЕНИЕ ЦВЕТА =====
update-color-by-memory

; ===== ДВИЖЕНИЕ ПО ФЕРОМОНУ =====
; Если есть феромон - идём по нему
if (chemical >= 0.05) and (chemical < 2) [
uphill-chemical
]
end

;;;;;;;;;;;;;;;;;;;;;
;;; ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ
;;;;;;;;;;;;;;;;;;;;;

to update-color-by-memory
; Обновляет цвет муравья в зависимости от размера его памяти
; (только если муравей не несёт еду и не в режиме синего)
if my-food = 0 and color != blue [
let mem-count length my-memory
if mem-count = 0 [ set color green ] ; ЗЕЛЁНЫЙ - память пуста
if mem-count = 1 [ set color yellow ] ; ЖЁЛТЫЙ - 1 место
if mem-count >= 2 [ set color red ] ; КРАСНЫЙ - 2+ мест
]
end

to uphill-chemical
; Движение вверх по градиенту феромона
; Сравнивает концентрацию феромона спереди, справа и слева
let scent-ahead chemical-scent 0
let scent-right chemical-scent 45
let scent-left chemical-scent -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead) [
ifelse scent-right > scent-left [ rt 45 ] [ lt 45 ]
]
end

to wiggle
; Лёгкое случайное покачивание, чтобы муравьи не застревали
rt random 30
lt random 30
if not can-move? 1 [ rt 180 ]
end

to-report chemical-scent [angle]
; Возвращает количество феромона на патче под указанным углом
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [chemical] of p
end

; Copyright 1997 Uri Wilensky.
</syntaxhighlight>

=== Скачать модель (.nlogox) ===
'''GitHub:''' [https://github.com/cristycrastys-source/Labs_my_beloved/tree/main/Econometrics]

== Ссылки ==
* [[Практикум по эконометрике (syllabus)]]
* An Introduction to Agent-Based Modeling with NetLogo — Wilensky, Rand
* Introduction to Econometrics with R — онлайн-учебник
* Causal Inference: The Mixtape — Cunningham
* Дружелюбная эконометрика — учебник
* NetLogo: [https://netlogo.org netlogo.org]
* R: [https://r-project.org r-project.org]
''(Всё что использовали и что помогло при изучении - сюда)''

----
[[Категория:Работы по эконометрике]]

Stygmergia v obrazovanii

2026-05-22T14:29:22Z

CristCas: 1 часть ссылок

= [[Стигмергия]] в образовании =

{{#ask: [[Стигмергия]] | ?Description }}

== Аннотация ==

== Рабочие гипотезы ==

== Инструменты ==
* '''Моделирование:''' [[NetLogo]] (модели [[Termites]], Ants, MutualisticNetwork)
''(Оставить 1 модееееель)''
* '''Анализ данных и программирование:''' R (tidyverse, ggplot2, lmtest)
* '''Среда реализации:''' Поле цифровой дидактики (SMW)

== Участники ==
* [[Участник:Софронова_Кира|Кира Софронова]]
* [[Участник:Маргарита_Еськова|Маргарита Еськова]]
* [[Участник:CristCas|Анастасия Юдаева]]

== Распределение работы ==
* [[Участник:Софронова_Кира|Кира Софронова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:Маргарита_Еськова|Маргарита Еськова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:CristCas|Анастасия Юдаева]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞

== План работы ==
# Настройка экспериментов в BehaviorSpace.
# Генерация и выгрузка данных.
# Регрессионный анализ и проверка гипотез в R.
# Оформление выводов и визуализация (RAWGraphs).

== Результаты ==
''(Графики, таблицы и т.д.)''

=== Модель ===

{{#widget:Iframe
|url=https://raw.githubusercontent.com/cristycrastys-source/Labs_my_beloved/refs/heads/main/Econometrics/Memory_Ants.nlogox
|width=800
|height=600
|border=0
}}

=== Просмотр кода с пояснениями(.nlogo) ===
<syntaxhighlight lang="netlogo" line>
Модель реализована в NetLogo. Ниже представлен полный код с подробными комментариями, объясняющими логику памяти муравьёв и визуализацию их состояний.

=== Параметры среды ===

* '''Размер мира:''' от -40 до 40 (80×80)
* '''Еда:''' на радиусе 30 от центра (3 или 6 кучек)
* '''Феромон:''' диффузия и испарение управляются ползунками `diffusion-rate` и `evaporation-rate`

=== Цветовая индикация муравьёв ===

{| class="wikitable"
! Цвет !! Состояние
|-
| '''Зелёный''' || Ищет еду, память пуста
|-
| '''Синий''' || Идёт по памяти к запомненной еде
|-
| '''Фиолетовый''' || Несёт еду в гнездо
|-
| '''Жёлтый''' || Имеет 1 место в памяти (но не использует его в данный момент)
|-
| '''Красный''' || Имеет 2 и более мест в памяти
|}

=== Полный код ===

<syntaxhighlight lang="netlogo" line>
;; ANTS WITH MEMORY - ФИНАЛ
;; ============================================
;; РАЗМЕР МИРА: от -40 до 40 (80×80)
;; ЕДА: на радиусе 30 от центра
;; ============================================
;; ЦВЕТА МУРАВЬЁВ:
;; ЗЕЛЁНЫЙ - ищет еду (память пуста)
;; СИНИЙ - идёт по памяти к еде
;; ФИОЛЕТОВЫЙ - несёт еду в гнездо
;; ЖЁЛТЫЙ - 1 место в памяти (не использует)
;; КРАСНЫЙ - 2+ места в памяти (не использует)
;; ============================================

globals [
total-food-count ; общее количество еды, доставленной в гнездо
]

patches-own [
chemical ; феромон на патче (коллективный след)
food-here ; наличие еды на патче (0 или 1)
is-nest ; является ли патч гнездом (1 да, 0 нет)
]

turtles-own [
my-food ; есть ли у муравья еда (0 или 1)
my-energy ; текущий запас энергии муравья
my-memory ; список запомненных патчей (места, где была еда)
]

;;;;;;;;;;;;;;;;;;;;;;;;
;;; НАСТРОЙКА МИРА
;;;;;;;;;;;;;;;;;;;;;;;;

to setup
clear-all
set-default-shape turtles "bug"

; ===== СОЗДАЁМ ГНЕЗДО =====
; Все патчи в радиусе 5 от центра становятся гнездом
ask patches [
ifelse (distancexy 0 0) < 5 [
set is-nest 1
set pcolor violet
] [
set is-nest 0
set food-here 0
set chemical 0
]
]

; ===== СОЗДАЁМ ИСТОЧНИКИ ЕДЫ =====
let radius 30 ; расстояние от центра до еды
let sources 3 ; базовое количество источников
if more-food? = true [ set sources 6 ] ; если включён переключатель

; Равномерно распределяем источники по кругу
let angles [] ; список углов
let step 360 / sources ; шаг между источниками
let current 0
repeat sources [
set angles lput current angles
set current current + step
]

; Для каждого угла создаём пятно еды радиусом 5
foreach angles [ angle ->
let xc radius * cos angle
let yc radius * sin angle
ask patches with [ distancexy xc yc < 5 ] [
set food-here 1
; Разные цвета для разных источников
if angle = 0 [ set pcolor cyan ]
if angle = 60 [ set pcolor sky ]
if angle = 120 [ set pcolor blue ]
if angle = 180 [ set pcolor cyan ]
if angle = 240 [ set pcolor sky ]
if angle = 300 [ set pcolor blue ]
]
]

; ===== СОЗДАЁМ МУРАВЬЁВ =====
create-turtles population [
setxy 0 0 ; все муравьи начинают из гнезда
set size 2
set color green ; ЗЕЛЁНЫЙ - ищет еду, память пуста
set my-food 0
set my-energy 200
set my-memory [] ; память пуста
]

set total-food-count 0
reset-ticks
end

;;;;;;;;;;;;;;;;;;;;;
;;; ОСНОВНОЙ ЦИКЛ
;;;;;;;;;;;;;;;;;;;;;

to go
ask turtles [
if who >= ticks [ stop ]

; ===== ТРАТИМ ЭНЕРГИЮ =====
; Каждый шаг отнимает 1 единицу энергии
set my-energy my-energy - 1
if my-energy <= 0 [ die ] ; энергия кончилась - муравей умирает

; ===== СБРОС ЕДЫ В ГНЕЗДЕ =====
; Если муравей в гнезде и несёт еду - выгружает её
if is-nest = 1 and my-food = 1 [
set my-food 0
set my-energy my-energy + 100 ; награда за доставленную еду
set total-food-count total-food-count + 1 ; увеличиваем счётчик
update-color-by-memory ; обновляем цвет в зависимости от памяти
rt 180 ; разворачиваемся
]

; ===== ВОЗВРАЩЕНИЕ С ЕДОЙ =====
; Если муравей несёт еду - идёт прямо в гнездо
if my-food = 1 [
set color violet ; ФИОЛЕТОВЫЙ - несёт еду
set chemical chemical + 60 ; оставляет феромон
facexy 0 0 ; поворачивается к центру (гнезду)
wiggle
fd 1
stop
]

; ===== ПОИСК ЕДЫ =====
; Если муравей не несёт еду - ищет её
look-for-food

wiggle
fd 1
]

; ===== ОБРАБОТКА ФЕРОМОНА =====
; Диффузия: феромон распространяется на соседние патчи
diffuse chemical (diffusion-rate / 100)

ask patches [
; Испарение: феромон постепенно исчезает
set chemical chemical * (100 - evaporation-rate) / 100
if chemical < 0.01 [ set chemical 0 ]

; Визуализация феромона (чем больше феромона, тем ярче зелёный)
if food-here = 0 and is-nest = 0 [
set pcolor scale-color green chemical 0 5
]
]

tick
end

;;;;;;;;;;;;;;;;;;;;;
;;; ПОИСК ЕДЫ С ПАМЯТЬЮ
;;;;;;;;;;;;;;;;;;;;;

to look-for-food
; ===== ПОДБОР ЕДЫ =====
; Если на текущем патче есть еда - подбираем её
if food-here > 0 [
set my-food 1
set food-here food-here - 1 ; еда исчезает с патча

; ЗАПОМИНАЕМ МЕСТО
if use-memory? [
set my-memory lput patch-here my-memory ; добавляем патч в список
if length my-memory > 15 [ set my-memory but-last my-memory ] ; ограничиваем размер
]

rt 180 ; разворачиваемся к гнезду
stop
]

; ===== ИСПОЛЬЗОВАНИЕ ПАМЯТИ =====
; Если память включена, энергии мало и есть запомненные места
if use-memory? and my-energy < memory-threshold and length my-memory > 0 [
let target nobody
let best-dist 999999

; Находим ближайшее запомненное место
foreach my-memory [ mem-patch ->
let d distance mem-patch
if d < best-dist [
set best-dist d
set target mem-patch
]
]

if target != nobody [
; ПРОВЕРЯЕМ, ЕСТЬ ЛИ ЕЩЁ ЕДА НА ЗАПОМНЕННОМ МЕСТЕ
ifelse [food-here] of target > 0 [
set color blue ; СИНИЙ - идёт по памяти к еде
face target
stop
] [
; ЕСЛИ ЕДЫ НЕТ - ИЩЕМ В РАДИУСЕ 8 ПАТЧЕЙ ВОКРУГ
let nearby-food patches with [food-here > 0 and distance target <= 8]
ifelse any? nearby-food [
; нашли еду рядом - идём к ближайшей
let closest-nearby min-one-of nearby-food [distance myself]
; добавляем новое место в память
set my-memory lput closest-nearby my-memory
if length my-memory > 15 [ set my-memory but-last my-memory ]
set color blue ; СИНИЙ - идёт по памяти к еде
face closest-nearby
stop
] [
; НЕТ ЕДЫ В РАДИУСЕ - УДАЛЯЕМ ЭТО МЕСТО ИЗ ПАМЯТИ
set my-memory remove target my-memory
]
]
]
]

; ===== ОБНОВЛЕНИЕ ЦВЕТА =====
update-color-by-memory

; ===== ДВИЖЕНИЕ ПО ФЕРОМОНУ =====
; Если есть феромон - идём по нему
if (chemical >= 0.05) and (chemical < 2) [
uphill-chemical
]
end

;;;;;;;;;;;;;;;;;;;;;
;;; ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ
;;;;;;;;;;;;;;;;;;;;;

to update-color-by-memory
; Обновляет цвет муравья в зависимости от размера его памяти
; (только если муравей не несёт еду и не в режиме синего)
if my-food = 0 and color != blue [
let mem-count length my-memory
if mem-count = 0 [ set color green ] ; ЗЕЛЁНЫЙ - память пуста
if mem-count = 1 [ set color yellow ] ; ЖЁЛТЫЙ - 1 место
if mem-count >= 2 [ set color red ] ; КРАСНЫЙ - 2+ мест
]
end

to uphill-chemical
; Движение вверх по градиенту феромона
; Сравнивает концентрацию феромона спереди, справа и слева
let scent-ahead chemical-scent 0
let scent-right chemical-scent 45
let scent-left chemical-scent -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead) [
ifelse scent-right > scent-left [ rt 45 ] [ lt 45 ]
]
end

to wiggle
; Лёгкое случайное покачивание, чтобы муравьи не застревали
rt random 30
lt random 30
if not can-move? 1 [ rt 180 ]
end

to-report chemical-scent [angle]
; Возвращает количество феромона на патче под указанным углом
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [chemical] of p
end

; Copyright 1997 Uri Wilensky.
</syntaxhighlight>

=== Элементы управления на Interface ===

Для работы модели добавьте на вкладку '''Interface''' следующие элементы:

{| class="wikitable"
! Элемент !! Переменная !! Диапазон / Значения !! Описание
|-
| '''Button''' || `setup` || — || Инициализация модели
|-
| '''Button''' || `go` || флаг "Forever" || Запуск симуляции
|-
| '''Slider''' || `population` || 0–100 || Количество муравьёв
|-
| '''Slider''' || `diffusion-rate` || 0–50 || Скорость распространения феромона
|-
| '''Slider''' || `evaporation-rate` || 0–20 || Скорость исчезновения феромона
|-
| '''Switch''' || `use-memory?` || On/Off || Включение/выключение памяти
|-
| '''Switch''' || `more-food?` || On/Off || Включение/выключение дополнительных источников еды
|-
| '''Slider''' || `memory-threshold` || 50–200 || Порог энергии для использования памяти
|}

=== Как это работает ===

# Муравьи начинают с пустой памятью ('''зелёные''')
# Найдя еду, запоминают координаты патча и становятся '''фиолетовыми''' (несут еду)
# После доставки еды в гнездо цвет меняется в зависимости от количества запомненных мест ('''жёлтый''' = 1 место, '''красный''' = 2+)
# Когда энергия падает ниже порога (`memory-threshold`), муравей с памятью становится '''синим''' и идёт к ближайшему запомненному месту
# Если запомненное место опустело, муравей ищет еду в радиусе 8 патчей вокруг; если не находит — забывает это место

=== Скачать модель с репозитория(.nlogox) ===
'''GitHub:''' [https://github.com/cristycrastys-source/Labs_my_beloved/tree/main/Econometrics]

== Ссылки ==
* [[Практикум по эконометрике (syllabus)]]
* An Introduction to Agent-Based Modeling with NetLogo — Wilensky, Rand
* Introduction to Econometrics with R — онлайн-учебник
* Causal Inference: The Mixtape — Cunningham
* Дружелюбная эконометрика — учебник
* NetLogo: [https://netlogo.org netlogo.org]
* R: [https://r-project.org r-project.org]
''(Всё что использовали и что помогло при изучении - сюда)''

----
[[Категория:Работы по эконометрике]]

Stygmergia v obrazovanii

2026-05-22T14:04:01Z

CristCas: /* Как это работает */

= [[Стигмергия]] в образовании =

{{#ask: [[Стигмергия]] | ?Description }}

== Аннотация ==

== Рабочие гипотезы ==

== Инструменты ==
* '''Моделирование:''' [[NetLogo]] (модели [[Termites]], Ants, MutualisticNetwork)
''(Оставить 1 модееееель)''
* '''Анализ данных и программирование:''' R (tidyverse, ggplot2, lmtest)
* '''Среда реализации:''' Поле цифровой дидактики (SMW)

== Участники ==
* [[Участник:Софронова_Кира|Кира Софронова]]
* [[Участник:Маргарита_Еськова|Маргарита Еськова]]
* [[Участник:CristCas|Анастасия Юдаева]]

== Распределение работы ==
* [[Участник:Софронова_Кира|Кира Софронова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:Маргарита_Еськова|Маргарита Еськова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:CristCas|Анастасия Юдаева]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞

== План работы ==
# Настройка экспериментов в BehaviorSpace.
# Генерация и выгрузка данных.
# Регрессионный анализ и проверка гипотез в R.
# Оформление выводов и визуализация (RAWGraphs).

== Результаты ==
''(Графики, таблицы и т.д.)''

== Ссылки ==
* [[Практикум по эконометрике (syllabus)]]
''(Всё что использовали и что помогло при изучении - сюда)''

=== Модель ===

{{#widget:Iframe
|url=https://raw.githubusercontent.com/cristycrastys-source/Labs_my_beloved/refs/heads/main/Econometrics/Memory_Ants.nlogox
|width=800
|height=600
|border=0
}}

=== Просмотр кода с пояснениями(.nlogo) ===
<syntaxhighlight lang="netlogo" line>
Модель реализована в NetLogo. Ниже представлен полный код с подробными комментариями, объясняющими логику памяти муравьёв и визуализацию их состояний.

=== Параметры среды ===

* '''Размер мира:''' от -40 до 40 (80×80)
* '''Еда:''' на радиусе 30 от центра (3 или 6 кучек)
* '''Феромон:''' диффузия и испарение управляются ползунками `diffusion-rate` и `evaporation-rate`

=== Цветовая индикация муравьёв ===

{| class="wikitable"
! Цвет !! Состояние
|-
| '''Зелёный''' || Ищет еду, память пуста
|-
| '''Синий''' || Идёт по памяти к запомненной еде
|-
| '''Фиолетовый''' || Несёт еду в гнездо
|-
| '''Жёлтый''' || Имеет 1 место в памяти (но не использует его в данный момент)
|-
| '''Красный''' || Имеет 2 и более мест в памяти
|}

=== Полный код ===

<syntaxhighlight lang="netlogo" line>
;; ANTS WITH MEMORY - ФИНАЛ
;; ============================================
;; РАЗМЕР МИРА: от -40 до 40 (80×80)
;; ЕДА: на радиусе 30 от центра
;; ============================================
;; ЦВЕТА МУРАВЬЁВ:
;; ЗЕЛЁНЫЙ - ищет еду (память пуста)
;; СИНИЙ - идёт по памяти к еде
;; ФИОЛЕТОВЫЙ - несёт еду в гнездо
;; ЖЁЛТЫЙ - 1 место в памяти (не использует)
;; КРАСНЫЙ - 2+ места в памяти (не использует)
;; ============================================

globals [
total-food-count ; общее количество еды, доставленной в гнездо
]

patches-own [
chemical ; феромон на патче (коллективный след)
food-here ; наличие еды на патче (0 или 1)
is-nest ; является ли патч гнездом (1 да, 0 нет)
]

turtles-own [
my-food ; есть ли у муравья еда (0 или 1)
my-energy ; текущий запас энергии муравья
my-memory ; список запомненных патчей (места, где была еда)
]

;;;;;;;;;;;;;;;;;;;;;;;;
;;; НАСТРОЙКА МИРА
;;;;;;;;;;;;;;;;;;;;;;;;

to setup
clear-all
set-default-shape turtles "bug"

; ===== СОЗДАЁМ ГНЕЗДО =====
; Все патчи в радиусе 5 от центра становятся гнездом
ask patches [
ifelse (distancexy 0 0) < 5 [
set is-nest 1
set pcolor violet
] [
set is-nest 0
set food-here 0
set chemical 0
]
]

; ===== СОЗДАЁМ ИСТОЧНИКИ ЕДЫ =====
let radius 30 ; расстояние от центра до еды
let sources 3 ; базовое количество источников
if more-food? = true [ set sources 6 ] ; если включён переключатель

; Равномерно распределяем источники по кругу
let angles [] ; список углов
let step 360 / sources ; шаг между источниками
let current 0
repeat sources [
set angles lput current angles
set current current + step
]

; Для каждого угла создаём пятно еды радиусом 5
foreach angles [ angle ->
let xc radius * cos angle
let yc radius * sin angle
ask patches with [ distancexy xc yc < 5 ] [
set food-here 1
; Разные цвета для разных источников
if angle = 0 [ set pcolor cyan ]
if angle = 60 [ set pcolor sky ]
if angle = 120 [ set pcolor blue ]
if angle = 180 [ set pcolor cyan ]
if angle = 240 [ set pcolor sky ]
if angle = 300 [ set pcolor blue ]
]
]

; ===== СОЗДАЁМ МУРАВЬЁВ =====
create-turtles population [
setxy 0 0 ; все муравьи начинают из гнезда
set size 2
set color green ; ЗЕЛЁНЫЙ - ищет еду, память пуста
set my-food 0
set my-energy 200
set my-memory [] ; память пуста
]

set total-food-count 0
reset-ticks
end

;;;;;;;;;;;;;;;;;;;;;
;;; ОСНОВНОЙ ЦИКЛ
;;;;;;;;;;;;;;;;;;;;;

to go
ask turtles [
if who >= ticks [ stop ]

; ===== ТРАТИМ ЭНЕРГИЮ =====
; Каждый шаг отнимает 1 единицу энергии
set my-energy my-energy - 1
if my-energy <= 0 [ die ] ; энергия кончилась - муравей умирает

; ===== СБРОС ЕДЫ В ГНЕЗДЕ =====
; Если муравей в гнезде и несёт еду - выгружает её
if is-nest = 1 and my-food = 1 [
set my-food 0
set my-energy my-energy + 100 ; награда за доставленную еду
set total-food-count total-food-count + 1 ; увеличиваем счётчик
update-color-by-memory ; обновляем цвет в зависимости от памяти
rt 180 ; разворачиваемся
]

; ===== ВОЗВРАЩЕНИЕ С ЕДОЙ =====
; Если муравей несёт еду - идёт прямо в гнездо
if my-food = 1 [
set color violet ; ФИОЛЕТОВЫЙ - несёт еду
set chemical chemical + 60 ; оставляет феромон
facexy 0 0 ; поворачивается к центру (гнезду)
wiggle
fd 1
stop
]

; ===== ПОИСК ЕДЫ =====
; Если муравей не несёт еду - ищет её
look-for-food

wiggle
fd 1
]

; ===== ОБРАБОТКА ФЕРОМОНА =====
; Диффузия: феромон распространяется на соседние патчи
diffuse chemical (diffusion-rate / 100)

ask patches [
; Испарение: феромон постепенно исчезает
set chemical chemical * (100 - evaporation-rate) / 100
if chemical < 0.01 [ set chemical 0 ]

; Визуализация феромона (чем больше феромона, тем ярче зелёный)
if food-here = 0 and is-nest = 0 [
set pcolor scale-color green chemical 0 5
]
]

tick
end

;;;;;;;;;;;;;;;;;;;;;
;;; ПОИСК ЕДЫ С ПАМЯТЬЮ
;;;;;;;;;;;;;;;;;;;;;

to look-for-food
; ===== ПОДБОР ЕДЫ =====
; Если на текущем патче есть еда - подбираем её
if food-here > 0 [
set my-food 1
set food-here food-here - 1 ; еда исчезает с патча

; ЗАПОМИНАЕМ МЕСТО
if use-memory? [
set my-memory lput patch-here my-memory ; добавляем патч в список
if length my-memory > 15 [ set my-memory but-last my-memory ] ; ограничиваем размер
]

rt 180 ; разворачиваемся к гнезду
stop
]

; ===== ИСПОЛЬЗОВАНИЕ ПАМЯТИ =====
; Если память включена, энергии мало и есть запомненные места
if use-memory? and my-energy < memory-threshold and length my-memory > 0 [
let target nobody
let best-dist 999999

; Находим ближайшее запомненное место
foreach my-memory [ mem-patch ->
let d distance mem-patch
if d < best-dist [
set best-dist d
set target mem-patch
]
]

if target != nobody [
; ПРОВЕРЯЕМ, ЕСТЬ ЛИ ЕЩЁ ЕДА НА ЗАПОМНЕННОМ МЕСТЕ
ifelse [food-here] of target > 0 [
set color blue ; СИНИЙ - идёт по памяти к еде
face target
stop
] [
; ЕСЛИ ЕДЫ НЕТ - ИЩЕМ В РАДИУСЕ 8 ПАТЧЕЙ ВОКРУГ
let nearby-food patches with [food-here > 0 and distance target <= 8]
ifelse any? nearby-food [
; нашли еду рядом - идём к ближайшей
let closest-nearby min-one-of nearby-food [distance myself]
; добавляем новое место в память
set my-memory lput closest-nearby my-memory
if length my-memory > 15 [ set my-memory but-last my-memory ]
set color blue ; СИНИЙ - идёт по памяти к еде
face closest-nearby
stop
] [
; НЕТ ЕДЫ В РАДИУСЕ - УДАЛЯЕМ ЭТО МЕСТО ИЗ ПАМЯТИ
set my-memory remove target my-memory
]
]
]
]

; ===== ОБНОВЛЕНИЕ ЦВЕТА =====
update-color-by-memory

; ===== ДВИЖЕНИЕ ПО ФЕРОМОНУ =====
; Если есть феромон - идём по нему
if (chemical >= 0.05) and (chemical < 2) [
uphill-chemical
]
end

;;;;;;;;;;;;;;;;;;;;;
;;; ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ
;;;;;;;;;;;;;;;;;;;;;

to update-color-by-memory
; Обновляет цвет муравья в зависимости от размера его памяти
; (только если муравей не несёт еду и не в режиме синего)
if my-food = 0 and color != blue [
let mem-count length my-memory
if mem-count = 0 [ set color green ] ; ЗЕЛЁНЫЙ - память пуста
if mem-count = 1 [ set color yellow ] ; ЖЁЛТЫЙ - 1 место
if mem-count >= 2 [ set color red ] ; КРАСНЫЙ - 2+ мест
]
end

to uphill-chemical
; Движение вверх по градиенту феромона
; Сравнивает концентрацию феромона спереди, справа и слева
let scent-ahead chemical-scent 0
let scent-right chemical-scent 45
let scent-left chemical-scent -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead) [
ifelse scent-right > scent-left [ rt 45 ] [ lt 45 ]
]
end

to wiggle
; Лёгкое случайное покачивание, чтобы муравьи не застревали
rt random 30
lt random 30
if not can-move? 1 [ rt 180 ]
end

to-report chemical-scent [angle]
; Возвращает количество феромона на патче под указанным углом
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [chemical] of p
end

; Copyright 1997 Uri Wilensky.
</syntaxhighlight>

=== Элементы управления на Interface ===

Для работы модели добавьте на вкладку '''Interface''' следующие элементы:

{| class="wikitable"
! Элемент !! Переменная !! Диапазон / Значения !! Описание
|-
| '''Button''' || `setup` || — || Инициализация модели
|-
| '''Button''' || `go` || флаг "Forever" || Запуск симуляции
|-
| '''Slider''' || `population` || 0–100 || Количество муравьёв
|-
| '''Slider''' || `diffusion-rate` || 0–50 || Скорость распространения феромона
|-
| '''Slider''' || `evaporation-rate` || 0–20 || Скорость исчезновения феромона
|-
| '''Switch''' || `use-memory?` || On/Off || Включение/выключение памяти
|-
| '''Switch''' || `more-food?` || On/Off || Включение/выключение дополнительных источников еды
|-
| '''Slider''' || `memory-threshold` || 50–200 || Порог энергии для использования памяти
|}

=== Как это работает ===

# Муравьи начинают с пустой памятью ('''зелёные''')
# Найдя еду, запоминают координаты патча и становятся '''фиолетовыми''' (несут еду)
# После доставки еды в гнездо цвет меняется в зависимости от количества запомненных мест ('''жёлтый''' = 1 место, '''красный''' = 2+)
# Когда энергия падает ниже порога (`memory-threshold`), муравей с памятью становится '''синим''' и идёт к ближайшему запомненному месту
# Если запомненное место опустело, муравей ищет еду в радиусе 8 патчей вокруг; если не находит — забывает это место

=== Скачать модель с репозитория(.nlogox) ===
'''GitHub:''' [https://github.com/cristycrastys-source/Labs_my_beloved/tree/main/Econometrics]

----
[[Категория:Работы по эконометрике]]

Stygmergia v obrazovanii

2026-05-22T14:03:33Z

CristCas: Открытый код

= [[Стигмергия]] в образовании =

{{#ask: [[Стигмергия]] | ?Description }}

== Аннотация ==

== Рабочие гипотезы ==

== Инструменты ==
* '''Моделирование:''' [[NetLogo]] (модели [[Termites]], Ants, MutualisticNetwork)
''(Оставить 1 модееееель)''
* '''Анализ данных и программирование:''' R (tidyverse, ggplot2, lmtest)
* '''Среда реализации:''' Поле цифровой дидактики (SMW)

== Участники ==
* [[Участник:Софронова_Кира|Кира Софронова]]
* [[Участник:Маргарита_Еськова|Маргарита Еськова]]
* [[Участник:CristCas|Анастасия Юдаева]]

== Распределение работы ==
* [[Участник:Софронова_Кира|Кира Софронова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:Маргарита_Еськова|Маргарита Еськова]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞
* [[Участник:CristCas|Анастасия Юдаева]] - сделать З̸̧͖̫̫҇̀̇̑а҈̧̞̟̽͡д҉̨̜̒̽̕а̷͚̲̗҇̎̅̓͢ч̷̡̲̂̑͠а҈̨̱͎́̂͞

== План работы ==
# Настройка экспериментов в BehaviorSpace.
# Генерация и выгрузка данных.
# Регрессионный анализ и проверка гипотез в R.
# Оформление выводов и визуализация (RAWGraphs).

== Результаты ==
''(Графики, таблицы и т.д.)''

== Ссылки ==
* [[Практикум по эконометрике (syllabus)]]
''(Всё что использовали и что помогло при изучении - сюда)''

=== Модель ===

{{#widget:Iframe
|url=https://raw.githubusercontent.com/cristycrastys-source/Labs_my_beloved/refs/heads/main/Econometrics/Memory_Ants.nlogox
|width=800
|height=600
|border=0
}}

=== Просмотр кода с пояснениями(.nlogo) ===
<syntaxhighlight lang="netlogo" line>
Модель реализована в NetLogo. Ниже представлен полный код с подробными комментариями, объясняющими логику памяти муравьёв и визуализацию их состояний.

=== Параметры среды ===

* '''Размер мира:''' от -40 до 40 (80×80)
* '''Еда:''' на радиусе 30 от центра (3 или 6 кучек)
* '''Феромон:''' диффузия и испарение управляются ползунками `diffusion-rate` и `evaporation-rate`

=== Цветовая индикация муравьёв ===

{| class="wikitable"
! Цвет !! Состояние
|-
| '''Зелёный''' || Ищет еду, память пуста
|-
| '''Синий''' || Идёт по памяти к запомненной еде
|-
| '''Фиолетовый''' || Несёт еду в гнездо
|-
| '''Жёлтый''' || Имеет 1 место в памяти (но не использует его в данный момент)
|-
| '''Красный''' || Имеет 2 и более мест в памяти
|}

=== Полный код ===

<syntaxhighlight lang="netlogo" line>
;; ANTS WITH MEMORY - ФИНАЛ
;; ============================================
;; РАЗМЕР МИРА: от -40 до 40 (80×80)
;; ЕДА: на радиусе 30 от центра
;; ============================================
;; ЦВЕТА МУРАВЬЁВ:
;; ЗЕЛЁНЫЙ - ищет еду (память пуста)
;; СИНИЙ - идёт по памяти к еде
;; ФИОЛЕТОВЫЙ - несёт еду в гнездо
;; ЖЁЛТЫЙ - 1 место в памяти (не использует)
;; КРАСНЫЙ - 2+ места в памяти (не использует)
;; ============================================

globals [
total-food-count ; общее количество еды, доставленной в гнездо
]

patches-own [
chemical ; феромон на патче (коллективный след)
food-here ; наличие еды на патче (0 или 1)
is-nest ; является ли патч гнездом (1 да, 0 нет)
]

turtles-own [
my-food ; есть ли у муравья еда (0 или 1)
my-energy ; текущий запас энергии муравья
my-memory ; список запомненных патчей (места, где была еда)
]

;;;;;;;;;;;;;;;;;;;;;;;;
;;; НАСТРОЙКА МИРА
;;;;;;;;;;;;;;;;;;;;;;;;

to setup
clear-all
set-default-shape turtles "bug"

; ===== СОЗДАЁМ ГНЕЗДО =====
; Все патчи в радиусе 5 от центра становятся гнездом
ask patches [
ifelse (distancexy 0 0) < 5 [
set is-nest 1
set pcolor violet
] [
set is-nest 0
set food-here 0
set chemical 0
]
]

; ===== СОЗДАЁМ ИСТОЧНИКИ ЕДЫ =====
let radius 30 ; расстояние от центра до еды
let sources 3 ; базовое количество источников
if more-food? = true [ set sources 6 ] ; если включён переключатель

; Равномерно распределяем источники по кругу
let angles [] ; список углов
let step 360 / sources ; шаг между источниками
let current 0
repeat sources [
set angles lput current angles
set current current + step
]

; Для каждого угла создаём пятно еды радиусом 5
foreach angles [ angle ->
let xc radius * cos angle
let yc radius * sin angle
ask patches with [ distancexy xc yc < 5 ] [
set food-here 1
; Разные цвета для разных источников
if angle = 0 [ set pcolor cyan ]
if angle = 60 [ set pcolor sky ]
if angle = 120 [ set pcolor blue ]
if angle = 180 [ set pcolor cyan ]
if angle = 240 [ set pcolor sky ]
if angle = 300 [ set pcolor blue ]
]
]

; ===== СОЗДАЁМ МУРАВЬЁВ =====
create-turtles population [
setxy 0 0 ; все муравьи начинают из гнезда
set size 2
set color green ; ЗЕЛЁНЫЙ - ищет еду, память пуста
set my-food 0
set my-energy 200
set my-memory [] ; память пуста
]

set total-food-count 0
reset-ticks
end

;;;;;;;;;;;;;;;;;;;;;
;;; ОСНОВНОЙ ЦИКЛ
;;;;;;;;;;;;;;;;;;;;;

to go
ask turtles [
if who >= ticks [ stop ]

; ===== ТРАТИМ ЭНЕРГИЮ =====
; Каждый шаг отнимает 1 единицу энергии
set my-energy my-energy - 1
if my-energy <= 0 [ die ] ; энергия кончилась - муравей умирает

; ===== СБРОС ЕДЫ В ГНЕЗДЕ =====
; Если муравей в гнезде и несёт еду - выгружает её
if is-nest = 1 and my-food = 1 [
set my-food 0
set my-energy my-energy + 100 ; награда за доставленную еду
set total-food-count total-food-count + 1 ; увеличиваем счётчик
update-color-by-memory ; обновляем цвет в зависимости от памяти
rt 180 ; разворачиваемся
]

; ===== ВОЗВРАЩЕНИЕ С ЕДОЙ =====
; Если муравей несёт еду - идёт прямо в гнездо
if my-food = 1 [
set color violet ; ФИОЛЕТОВЫЙ - несёт еду
set chemical chemical + 60 ; оставляет феромон
facexy 0 0 ; поворачивается к центру (гнезду)
wiggle
fd 1
stop
]

; ===== ПОИСК ЕДЫ =====
; Если муравей не несёт еду - ищет её
look-for-food

wiggle
fd 1
]

; ===== ОБРАБОТКА ФЕРОМОНА =====
; Диффузия: феромон распространяется на соседние патчи
diffuse chemical (diffusion-rate / 100)

ask patches [
; Испарение: феромон постепенно исчезает
set chemical chemical * (100 - evaporation-rate) / 100
if chemical < 0.01 [ set chemical 0 ]

; Визуализация феромона (чем больше феромона, тем ярче зелёный)
if food-here = 0 and is-nest = 0 [
set pcolor scale-color green chemical 0 5
]
]

tick
end

;;;;;;;;;;;;;;;;;;;;;
;;; ПОИСК ЕДЫ С ПАМЯТЬЮ
;;;;;;;;;;;;;;;;;;;;;

to look-for-food
; ===== ПОДБОР ЕДЫ =====
; Если на текущем патче есть еда - подбираем её
if food-here > 0 [
set my-food 1
set food-here food-here - 1 ; еда исчезает с патча

; ЗАПОМИНАЕМ МЕСТО
if use-memory? [
set my-memory lput patch-here my-memory ; добавляем патч в список
if length my-memory > 15 [ set my-memory but-last my-memory ] ; ограничиваем размер
]

rt 180 ; разворачиваемся к гнезду
stop
]

; ===== ИСПОЛЬЗОВАНИЕ ПАМЯТИ =====
; Если память включена, энергии мало и есть запомненные места
if use-memory? and my-energy < memory-threshold and length my-memory > 0 [
let target nobody
let best-dist 999999

; Находим ближайшее запомненное место
foreach my-memory [ mem-patch ->
let d distance mem-patch
if d < best-dist [
set best-dist d
set target mem-patch
]
]

if target != nobody [
; ПРОВЕРЯЕМ, ЕСТЬ ЛИ ЕЩЁ ЕДА НА ЗАПОМНЕННОМ МЕСТЕ
ifelse [food-here] of target > 0 [
set color blue ; СИНИЙ - идёт по памяти к еде
face target
stop
] [
; ЕСЛИ ЕДЫ НЕТ - ИЩЕМ В РАДИУСЕ 8 ПАТЧЕЙ ВОКРУГ
let nearby-food patches with [food-here > 0 and distance target <= 8]
ifelse any? nearby-food [
; нашли еду рядом - идём к ближайшей
let closest-nearby min-one-of nearby-food [distance myself]
; добавляем новое место в память
set my-memory lput closest-nearby my-memory
if length my-memory > 15 [ set my-memory but-last my-memory ]
set color blue ; СИНИЙ - идёт по памяти к еде
face closest-nearby
stop
] [
; НЕТ ЕДЫ В РАДИУСЕ - УДАЛЯЕМ ЭТО МЕСТО ИЗ ПАМЯТИ
set my-memory remove target my-memory
]
]
]
]

; ===== ОБНОВЛЕНИЕ ЦВЕТА =====
update-color-by-memory

; ===== ДВИЖЕНИЕ ПО ФЕРОМОНУ =====
; Если есть феромон - идём по нему
if (chemical >= 0.05) and (chemical < 2) [
uphill-chemical
]
end

;;;;;;;;;;;;;;;;;;;;;
;;; ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ
;;;;;;;;;;;;;;;;;;;;;

to update-color-by-memory
; Обновляет цвет муравья в зависимости от размера его памяти
; (только если муравей не несёт еду и не в режиме синего)
if my-food = 0 and color != blue [
let mem-count length my-memory
if mem-count = 0 [ set color green ] ; ЗЕЛЁНЫЙ - память пуста
if mem-count = 1 [ set color yellow ] ; ЖЁЛТЫЙ - 1 место
if mem-count >= 2 [ set color red ] ; КРАСНЫЙ - 2+ мест
]
end

to uphill-chemical
; Движение вверх по градиенту феромона
; Сравнивает концентрацию феромона спереди, справа и слева
let scent-ahead chemical-scent 0
let scent-right chemical-scent 45
let scent-left chemical-scent -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead) [
ifelse scent-right > scent-left [ rt 45 ] [ lt 45 ]
]
end

to wiggle
; Лёгкое случайное покачивание, чтобы муравьи не застревали
rt random 30
lt random 30
if not can-move? 1 [ rt 180 ]
end

to-report chemical-scent [angle]
; Возвращает количество феромона на патче под указанным углом
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [chemical] of p
end

; Copyright 1997 Uri Wilensky.
</syntaxhighlight>

=== Элементы управления на Interface ===

Для работы модели добавьте на вкладку '''Interface''' следующие элементы:

{| class="wikitable"
! Элемент !! Переменная !! Диапазон / Значения !! Описание
|-
| '''Button''' || `setup` || — || Инициализация модели
|-
| '''Button''' || `go` || флаг "Forever" || Запуск симуляции
|-
| '''Slider''' || `population` || 0–100 || Количество муравьёв
|-
| '''Slider''' || `diffusion-rate` || 0–50 || Скорость распространения феромона
|-
| '''Slider''' || `evaporation-rate` || 0–20 || Скорость исчезновения феромона
|-
| '''Switch''' || `use-memory?` || On/Off || Включение/выключение памяти
|-
| '''Switch''' || `more-food?` || On/Off || Включение/выключение дополнительных источников еды
|-
| '''Slider''' || `memory-threshold` || 50–200 || Порог энергии для использования памяти
|}

=== Как это работает ===

# Муравьи начинают с пустой памятью ('''зелёные''')
# Найдя еду, запоминают координаты патча и становятся '''фиолетовыми''' (несут еду)
# После доставки еды в гнездо цвет меняется в зависимости от количества запомненных мест ('''жёлтый''' = 1 место, '''красный''' = 2+)
# Когда энергия падает ниже порога (`memory-threshold`), муравей с памятью становится '''синим''' и идёт к ближайшему запомненному месту
# Если запомненное место опустело, муравей ищет еду в радиусе 8 патчей вокруг; если не находит — забывает это место
</syntaxhighlight>

=== Скачать модель с репозитория(.nlogox) ===
'''GitHub:''' [https://github.com/cristycrastys-source/Labs_my_beloved/tree/main/Econometrics]

----
[[Категория:Работы по эконометрике]]

Stygmergia v obrazovanii

2026-05-22T13:36:33Z

CristCas: Просмотр кода, проверка оформления

Обсуждение участника:Patarakin

2026-05-22T13:26:16Z

CristCas: /* Стигмергия в образовании */

; Тест
* {{#invoke:RandomPageFromCategory|main|category=Book}}
* [[{{#invoke:RandomPageFromCategory|main|category=Person}}]]
* [[{{#invoke:RandomPageFromCategory|main|category=Book}}]]

== teachers_flow_web ==
https://digida.mgpu.ru/index.php/Обсуждение:Заглавная_страница#Как_я_взаимодействию_с_ассистентом_искусственного_интеллекта_Перплексити

==Тезаурус 4==

Да, хорошо. Положите пожалуйста. Потому что моя основная проблема, что у меня VOSviewer не работает же и я не могла эти данные получить в таком виде, как вы их прислали.
Но у меня почти получилось что-то похожее! Обходными путями странными)

==Тезаурус 3==

Хорошо, я остановлюсь, во избежание апокалипсиса)
Но мне казалось, что все не так плохо, за исключением того, что в ручную просматривать фамилии в текстовом файле сложно. Попробовала поговорить с ЖПТ, он написал код для R. Но дальше уже я не сильна, какая-то каша началась.

Я научилась в Экселе сделать функцию "Найти" и он выдает все ячейки с таким ФИО, там есть кнопка "Заменить". С ней еще не поняла как работать. И есть ли смысл вообще так делать.

== Тезаурус 2==
Я сохранила из экселя только столбец с авторами, он нормально открылся на маке потом, с этим разобралась. Сейчас основная проблема это понять какой логикой заменять?
Потому что я вижу автора одного, например. Он есть как самостоятельный автор, есть в соавторстве. И непонятно как с этим соавторством быть. Объединять ли или нет, потому что с одним автором есть 2-3 статьи в соавторстве с разными людьми.
Это еще полпроблемы. Проблема если в одном соавторстве на русском, а в другом на английском?
На 59 строк обработала, приступаю на 270.
Но 900 не факт, что осилю физически и эмоционально.

Я сейчас делаю текстовый документ по каждому универу, в котором отдельных "Нормальных" авторов удаляю, а повторки оставляю и группирую, чтобы вам завтра показать.

== Тезаурус==

Здравствуйте, Евгений Дмитриевич!

Начала разбираться с тезаурусом, возник ряд проблем:
Если в датасете есть один автор с точками, другой без точек - мы их меняем.
1. А если есть один автор, но он без точек в разных местах по одному - как быть?
2. Если автор в соавторстве пишет, и в одном месте он с точками, а в другом - без точек. Что делаем в этом случае?

Помогите пожалуйста) Айжан --[[Участник:Айжан Ужинкина]] ([[Обсуждение участника:Айжан Ужинкина|обсуждение]])

== Просьба от Антюховой Эльзы ==

Евгений Дмитриевич, посмотрите, пожалуйста, почему я не могу добавить приложения, разработанные на языке программирования Snap?

== Если нужно задать ==

Примерный вопрос ... --[[Участник:Patarakin|Patarakin]] ([[Обсуждение участника:Patarakin|обсуждение]]) 17:16, 25 ноября 2025 (MSK)

Получилось добавить Dataset Lens как таблицу, сделала заголовки. Посмотрите, пожалуйста, и отметите в ЛМС это задание, если всё нормально. (Татьяна Астафьева) --[[Участник:Татьяна Астафьева|Татьяна Астафьева]] ([[Обсуждение участника:Татьяна Астафьева|обсуждение]]) 20:30, 25 ноября 2025 (MSK)

Добрый вечер, Евгений Дмитриевич, посмотрите, пожалуйста, страничку и отметьте в LMS сделанные мной задания --[[Участник:Дементьева Мария Владимировна|Дементьева Мария]] ([[Обсуждение участника:Дементьева Мария Владимировна|обсуждение]]) 16:08, 5 декабря 2025 (MSK)

Евгений Дмитриевич, проверьте, пожалуйста, выполненные задания на моей странице и проставьте баллы в LMS --[[Участник:Ширкина Д|Ширкина Д]] ([[Обсуждение участника:Ширкина Д|обсуждение]]) 10:57, 6 декабря 2025 (MSK)

Здравствуйте, Евгений Дмитриевич, посмотрите, пожалуйста, задания и отметьте, если все хорошо, в LMS, прошу прощения за скриншоты с телефона, не могу зайти на сайты через браузер ПК [[Участник: Tatiana Khaidarova]] ([[Обсуждение участника: Tatiana Khaidarova|обсуждение]]) 23:43, 6 декабря 2025 (MSK)

Добрый вечер, посмотрите, пожалуйста, страницу и отметьте в LMS (Тюрикова Арина), если всё хорошо --[[Участник:Tyurikovaaa155|Tyurikovaaa155]] ([[Обсуждение участника:Tyurikovaaa155|обсуждение]])

Здравствуйте, Евгений Дмитриевич! Посмотрите, пожалуйста, страницу (Семина Мария)
[[Участник:Мария Семина|Мария Семина]] ([[Участник:Мария Семина|обсуждение]])

Здравствуйте, Евгений Дмитриевич, ссылки в LMS проставила, посмотрите, пожалуйста [[Участник: Tatiana Khaidarova]] ([[Обсуждение участника: Tatiana Khaidarova|обсуждение]]) 15:39, 10 декабря 2025 (MSK)

Добрый вечер, Евгений Дмитриевич, посмотрите, пожалуйста, страничку и отметьте в LMS сделанные мной задания (Волынчикова Анна)

Добрый вечер, посмотрите, пожалуйста, страницу и отметьте в LMS (Дмитренко Надежда), если всё хорошо и нужно ли что-то подправить --[[Участник:DmitrenkoNP|DmitrenkoNP]] ([[Обсуждение участника:DmitrenkoNP|обсуждение]])

Добрый вечер. Выполнил задания. Просьба проверить и отметить в LMS. [[Участник:InasovAA]] (Инасов Артем)

Добрый вечер. Выполнила задания Евгений Дмитриевич. посмотрите, пожалуйста, страничку, проверить и отметить в LMS. [[Участник:Карина]] (Мергалиева Карина)

Сделал NetsBlox. [[Участник:Вольдемар]] (Шкабара Владимир)

Здравствуйте, Евгений Дмитриевич. Сделал NetsBlox, прошу проверить. [[Участник:DzhamalkhanovRV]]

Здравствуйте, Евгений Дмитриевич, посмотрите, пожалуйста, страничку и отметьте в LMS сделанные мной задания. (Беляева Мария) [[Участник:БеляеваМД]]

== Основы моделирования - результаты к зачету ==

И здесь - пришел, указал, что сделал, оставил подпись --[[Участник:Patarakin|Patarakin]] ([[Обсуждение участника:Patarakin|обсуждение]]) 09:20, 26 декабря 2025 (MSK)

== Проверка работ в LMS ==

Здравствуйте, Евгений Дмитриевич!
Добавил ссылки на выполненные работы в LMS.
Просьба проверить. и проставить оценку.

== Информация от Антюховой Эльзы ==

Здравствуйте, Евгений Дмитриевич!
Хочу сообщить о том, что я внесла необходимые правки в свою выпускную квалификационную работу. Буду очень признательна, если Вы сможете уделить время и посмотреть ее. Заранее спасибо!

== Проверка статьи "Репрезентация мотивов самостоятельной учебной работы в личностных нарративах студентов" ==

Евгений Дмитриевич, добрый день! Могли бы Вы проверить мою работу? Что нужно скорректировать/добавить?

== Репрезентация мотивов самостоятельной учебной работы в личностных нарративах студентов ==

Евгений Дмитриевич, я добавила категорию [[:Категория:Психо-лингвистическое исследование]] в конце текста статьи, но на странице моя работа не появилась
Подскажите, что нужно поправить сейчас?

== Исправление АДЭУ-221 ==

Арлинская поправила [[Аналитика_профиля_ВК#🗂_Структура_проекта|Работа_Арлинская]]
Муханова Анна (добавила интерактивную карту на страничку) [[Карта друзей|Муханова_карта_друзей]]
Сабитова Алина (поменяла оформление кодов) [[Анализ целевой аудитории сообщества VK|Сабитова_проект]]
Бойко (поправил диаграмму, код, ссылки) [[Аналитический_инструмент_ScratchAPI#🗂_Структура_проекта|Работа_Бойко]]

== Стигмергия в образовании ==

[[Stygmergia v obrazovanii]]

До этого пытались залить на GitHub и через ссылку на raw файл (но как видно на статье сейчас как раз, оно не открывается

На GitHub в репозитории есть залитый файл в формате .nlogox

https://github.com/cristycrastys-source/Labs_my_beloved/tree/main/Econometrics

Html к сожалению не даёт прикрепить как файл, так что на всякий залила на GitHub и продублировала на гугл диск на всякий случай

https://drive.google.com/drive/folders/17bbGxT_Nz9q77nXFdA4kdBMyWYVgonNg?usp=sharing

Файлы проверила, в приложении всё открывается и работает, заранее спасибо!

Обсуждение участника:Patarakin

2026-05-22T13:21:39Z

CristCas: /* Стигмергия в образовании */ новая тема

; Тест
* {{#invoke:RandomPageFromCategory|main|category=Book}}
* [[{{#invoke:RandomPageFromCategory|main|category=Person}}]]
* [[{{#invoke:RandomPageFromCategory|main|category=Book}}]]

== teachers_flow_web ==
https://digida.mgpu.ru/index.php/Обсуждение:Заглавная_страница#Как_я_взаимодействию_с_ассистентом_искусственного_интеллекта_Перплексити

==Тезаурус 4==

Да, хорошо. Положите пожалуйста. Потому что моя основная проблема, что у меня VOSviewer не работает же и я не могла эти данные получить в таком виде, как вы их прислали.
Но у меня почти получилось что-то похожее! Обходными путями странными)

==Тезаурус 3==

Хорошо, я остановлюсь, во избежание апокалипсиса)
Но мне казалось, что все не так плохо, за исключением того, что в ручную просматривать фамилии в текстовом файле сложно. Попробовала поговорить с ЖПТ, он написал код для R. Но дальше уже я не сильна, какая-то каша началась.

Я научилась в Экселе сделать функцию "Найти" и он выдает все ячейки с таким ФИО, там есть кнопка "Заменить". С ней еще не поняла как работать. И есть ли смысл вообще так делать.

== Тезаурус 2==
Я сохранила из экселя только столбец с авторами, он нормально открылся на маке потом, с этим разобралась. Сейчас основная проблема это понять какой логикой заменять?
Потому что я вижу автора одного, например. Он есть как самостоятельный автор, есть в соавторстве. И непонятно как с этим соавторством быть. Объединять ли или нет, потому что с одним автором есть 2-3 статьи в соавторстве с разными людьми.
Это еще полпроблемы. Проблема если в одном соавторстве на русском, а в другом на английском?
На 59 строк обработала, приступаю на 270.
Но 900 не факт, что осилю физически и эмоционально.

Я сейчас делаю текстовый документ по каждому универу, в котором отдельных "Нормальных" авторов удаляю, а повторки оставляю и группирую, чтобы вам завтра показать.

== Тезаурус==

Здравствуйте, Евгений Дмитриевич!

Начала разбираться с тезаурусом, возник ряд проблем:
Если в датасете есть один автор с точками, другой без точек - мы их меняем.
1. А если есть один автор, но он без точек в разных местах по одному - как быть?
2. Если автор в соавторстве пишет, и в одном месте он с точками, а в другом - без точек. Что делаем в этом случае?

Помогите пожалуйста) Айжан --[[Участник:Айжан Ужинкина]] ([[Обсуждение участника:Айжан Ужинкина|обсуждение]])

== Просьба от Антюховой Эльзы ==

Евгений Дмитриевич, посмотрите, пожалуйста, почему я не могу добавить приложения, разработанные на языке программирования Snap?

== Если нужно задать ==

Примерный вопрос ... --[[Участник:Patarakin|Patarakin]] ([[Обсуждение участника:Patarakin|обсуждение]]) 17:16, 25 ноября 2025 (MSK)

Получилось добавить Dataset Lens как таблицу, сделала заголовки. Посмотрите, пожалуйста, и отметите в ЛМС это задание, если всё нормально. (Татьяна Астафьева) --[[Участник:Татьяна Астафьева|Татьяна Астафьева]] ([[Обсуждение участника:Татьяна Астафьева|обсуждение]]) 20:30, 25 ноября 2025 (MSK)

Добрый вечер, Евгений Дмитриевич, посмотрите, пожалуйста, страничку и отметьте в LMS сделанные мной задания --[[Участник:Дементьева Мария Владимировна|Дементьева Мария]] ([[Обсуждение участника:Дементьева Мария Владимировна|обсуждение]]) 16:08, 5 декабря 2025 (MSK)

Евгений Дмитриевич, проверьте, пожалуйста, выполненные задания на моей странице и проставьте баллы в LMS --[[Участник:Ширкина Д|Ширкина Д]] ([[Обсуждение участника:Ширкина Д|обсуждение]]) 10:57, 6 декабря 2025 (MSK)

Здравствуйте, Евгений Дмитриевич, посмотрите, пожалуйста, задания и отметьте, если все хорошо, в LMS, прошу прощения за скриншоты с телефона, не могу зайти на сайты через браузер ПК [[Участник: Tatiana Khaidarova]] ([[Обсуждение участника: Tatiana Khaidarova|обсуждение]]) 23:43, 6 декабря 2025 (MSK)

Добрый вечер, посмотрите, пожалуйста, страницу и отметьте в LMS (Тюрикова Арина), если всё хорошо --[[Участник:Tyurikovaaa155|Tyurikovaaa155]] ([[Обсуждение участника:Tyurikovaaa155|обсуждение]])

Здравствуйте, Евгений Дмитриевич! Посмотрите, пожалуйста, страницу (Семина Мария)
[[Участник:Мария Семина|Мария Семина]] ([[Участник:Мария Семина|обсуждение]])

Здравствуйте, Евгений Дмитриевич, ссылки в LMS проставила, посмотрите, пожалуйста [[Участник: Tatiana Khaidarova]] ([[Обсуждение участника: Tatiana Khaidarova|обсуждение]]) 15:39, 10 декабря 2025 (MSK)

Добрый вечер, Евгений Дмитриевич, посмотрите, пожалуйста, страничку и отметьте в LMS сделанные мной задания (Волынчикова Анна)

Добрый вечер, посмотрите, пожалуйста, страницу и отметьте в LMS (Дмитренко Надежда), если всё хорошо и нужно ли что-то подправить --[[Участник:DmitrenkoNP|DmitrenkoNP]] ([[Обсуждение участника:DmitrenkoNP|обсуждение]])

Добрый вечер. Выполнил задания. Просьба проверить и отметить в LMS. [[Участник:InasovAA]] (Инасов Артем)

Добрый вечер. Выполнила задания Евгений Дмитриевич. посмотрите, пожалуйста, страничку, проверить и отметить в LMS. [[Участник:Карина]] (Мергалиева Карина)

Сделал NetsBlox. [[Участник:Вольдемар]] (Шкабара Владимир)

Здравствуйте, Евгений Дмитриевич. Сделал NetsBlox, прошу проверить. [[Участник:DzhamalkhanovRV]]

Здравствуйте, Евгений Дмитриевич, посмотрите, пожалуйста, страничку и отметьте в LMS сделанные мной задания. (Беляева Мария) [[Участник:БеляеваМД]]

== Основы моделирования - результаты к зачету ==

И здесь - пришел, указал, что сделал, оставил подпись --[[Участник:Patarakin|Patarakin]] ([[Обсуждение участника:Patarakin|обсуждение]]) 09:20, 26 декабря 2025 (MSK)

== Проверка работ в LMS ==

Здравствуйте, Евгений Дмитриевич!
Добавил ссылки на выполненные работы в LMS.
Просьба проверить. и проставить оценку.

== Информация от Антюховой Эльзы ==

Здравствуйте, Евгений Дмитриевич!
Хочу сообщить о том, что я внесла необходимые правки в свою выпускную квалификационную работу. Буду очень признательна, если Вы сможете уделить время и посмотреть ее. Заранее спасибо!

== Проверка статьи "Репрезентация мотивов самостоятельной учебной работы в личностных нарративах студентов" ==

Евгений Дмитриевич, добрый день! Могли бы Вы проверить мою работу? Что нужно скорректировать/добавить?

== Репрезентация мотивов самостоятельной учебной работы в личностных нарративах студентов ==

Евгений Дмитриевич, я добавила категорию [[:Категория:Психо-лингвистическое исследование]] в конце текста статьи, но на странице моя работа не появилась
Подскажите, что нужно поправить сейчас?

== Исправление АДЭУ-221 ==

Арлинская поправила [[Аналитика_профиля_ВК#🗂_Структура_проекта|Работа_Арлинская]]
Муханова Анна (добавила интерактивную карту на страничку) [[Карта друзей|Муханова_карта_друзей]]
Сабитова Алина (поменяла оформление кодов) [[Анализ целевой аудитории сообщества VK|Сабитова_проект]]
Бойко (поправил диаграмму, код, ссылки) [[Аналитический_инструмент_ScratchAPI#🗂_Структура_проекта|Работа_Бойко]]

== Стигмергия в образовании ==

До этого пытались залить на GitHub и через ссылку на raw файл (но как видно на статье сейчас как раз, оно не открывается

На GitHub в репозитории есть залитый файл в формате .nlogox

https://github.com/cristycrastys-source/Labs_my_beloved/tree/main/Econometrics

Html к сожалению не даёт прикрепить как файл, так что на всякий залила на GitHub и продублировала на гугл диск на всякий случай

https://drive.google.com/drive/folders/17bbGxT_Nz9q77nXFdA4kdBMyWYVgonNg?usp=sharing

Файлы проверила, в приложении всё открывается и работает, заранее спасибо!

Обсуждение:Stygmergia v obrazovanii

2026-05-22T11:06:09Z

CristCas:

== ScratchWikis2026 ==

* [[ScratchWikis2026]] --[[Участник:Patarakin|Patarakin]] ([[Обсуждение участника:Patarakin|обсуждение]]) 11:33, 30 апреля 2026 (MSK)

== Посмотрите на реальные данные ==

* [[История Летописи.ру 2006 - 2025 на основе цифровых следов]]
* [[Лаборатории изучения командного творчества подростков в цифровых средах]]

== Модели для анализа ==

{{#ask: [[Ants]] | ?Description }}

<netlogo model="Ants" />

== Graph ==

<graphviz>
digraph studio_31010147_author_author {
overlap=false;
splines=true;
outputorder=edgesfirst;
bgcolor="transparent";
pad=0.2;
graph [layout=fdp fontname="Helvetica" label="Author-author comment graph" labelloc=t fontsize=16 fontcolor="#333333"];
node [fontname="Helvetica"];
edge [color="#7A7A7A", penwidth=0.5];
A69509486 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A69928872 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A70765928 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A74510061 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A77081300 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A82035760 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A84393306 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A84611612 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A85737518 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A88972362 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A89463232 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A69509486 -> A70765928 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A69509486 -> A77081300 [color="#D4AC0D", penwidth=0.78, arrowhead=normal];
A69509486 -> A82035760 [color="#D4AC0D", penwidth=1.26, arrowhead=normal];
A69509486 -> A88972362 [color="#D4AC0D", penwidth=0.66, arrowhead=normal];
A69928872 -> A69509486 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A77081300 -> A69509486 [color="#D4AC0D", penwidth=0.78, arrowhead=normal];
A77081300 -> A82035760 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A84393306 -> A82035760 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A84611612 -> A69509486 [color="#D4AC0D", penwidth=0.66, arrowhead=normal];
A85737518 -> A74510061 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A88972362 -> A88972362 [color="#C0392B", penwidth=0.66, arrowhead=normal];
A89463232 -> A77081300 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A89463232 -> A88972362 [color="#D4AC0D", penwidth=0.90, arrowhead=normal];
A89463232 -> A89463232 [color="#C0392B", penwidth=0.54, arrowhead=normal];
}

</graphviz>

== Загрузка готовой модели на статью ==

[[Участник:Patarakin|Евгений Дмитриевич]]

Здравствуйте, Евгений Дмитриевич, у нас готова финальная версия кода для муравьев, пофиксили некоторые моменты с цветами, памятью, даже с добавлением новых кучек памяти. Мы загрузили файл в репозиторий на гитхабе

https://github.com/cristycrastys-source/Labs_my_beloved/blob/main/Econometrics/Memory_Ants.nlogox

Но совсем забыли как можно измененную модель загрузить на нашу статью, чтобы можно было взаимодействовать с ней прямо там. И можно ли вообще так делать или только прикрепить ссылку на возможное скачивание кода + скриншоты рабочей модели или gif.
Помогите, пожалуйста Т-Т

Обсуждение:Stygmergia v obrazovanii

2026-05-22T11:02:56Z

CristCas: /* Загрузка готовой модели на статью */ новая тема

== ScratchWikis2026 ==

* [[ScratchWikis2026]] --[[Участник:Patarakin|Patarakin]] ([[Обсуждение участника:Patarakin|обсуждение]]) 11:33, 30 апреля 2026 (MSK)

== Посмотрите на реальные данные ==

* [[История Летописи.ру 2006 - 2025 на основе цифровых следов]]
* [[Лаборатории изучения командного творчества подростков в цифровых средах]]

== Модели для анализа ==

{{#ask: [[Ants]] | ?Description }}

<netlogo model="Ants" />

== Graph ==

<graphviz>
digraph studio_31010147_author_author {
overlap=false;
splines=true;
outputorder=edgesfirst;
bgcolor="transparent";
pad=0.2;
graph [layout=fdp fontname="Helvetica" label="Author-author comment graph" labelloc=t fontsize=16 fontcolor="#333333"];
node [fontname="Helvetica"];
edge [color="#7A7A7A", penwidth=0.5];
A69509486 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A69928872 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A70765928 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A74510061 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A77081300 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A82035760 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A84393306 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A84611612 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A85737518 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A88972362 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A89463232 [shape=circle, style=filled, fixedsize=true, width=0.34, height=0.34, fillcolor="#FAD7A0", color="#CA6F1E", fontcolor="#784212", fontsize=12, label="👤"];
A69509486 -> A70765928 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A69509486 -> A77081300 [color="#D4AC0D", penwidth=0.78, arrowhead=normal];
A69509486 -> A82035760 [color="#D4AC0D", penwidth=1.26, arrowhead=normal];
A69509486 -> A88972362 [color="#D4AC0D", penwidth=0.66, arrowhead=normal];
A69928872 -> A69509486 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A77081300 -> A69509486 [color="#D4AC0D", penwidth=0.78, arrowhead=normal];
A77081300 -> A82035760 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A84393306 -> A82035760 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A84611612 -> A69509486 [color="#D4AC0D", penwidth=0.66, arrowhead=normal];
A85737518 -> A74510061 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A88972362 -> A88972362 [color="#C0392B", penwidth=0.66, arrowhead=normal];
A89463232 -> A77081300 [color="#D4AC0D", penwidth=0.54, arrowhead=normal];
A89463232 -> A88972362 [color="#D4AC0D", penwidth=0.90, arrowhead=normal];
A89463232 -> A89463232 [color="#C0392B", penwidth=0.54, arrowhead=normal];
}

</graphviz>

== Загрузка готовой модели на статью ==

Здравствуйте, Евгений Дмитриевич, у нас готова финальная версия кода для муравьев, пофиксили некоторые моменты с цветами, памятью, даже с добавлением новых кучек памяти. Мы загрузили файл в репозиторий на гитхабе

https://github.com/cristycrastys-source/Labs_my_beloved/blob/main/Econometrics/Memory_Ants.nlogox

Но совсем забыли как можно измененную модель загрузить на нашу статью, чтобы можно было взаимодействовать с ней прямо там. И можно ли вообще так делать или только прикрепить ссылку на возможное скачивание кода + скриншоты рабочей модели или gif.
Помогите, пожалуйста Т-Т

Stygmergia v obrazovanii

2026-05-22T10:42:47Z

CristCas: Добавление модели

Ants/Clone01

2026-05-14T10:06:23Z

CristCas:

Ants/Clone01

2026-05-14T10:03:57Z

CristCas:

* [[Ants]]
<netlogo model="Ants" />

== Код ==

=== Пример 1 ===

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

== ВАРИАНТ 1!! ==

=== Память муравьев по координатам ===

<syntaxhighlight lang="lisp">

globals [
food-source-number
food-in-nest
food-in-nest-history
chemical-history
]

patches-own [
chemical
food
food-source-number
nest?
]

turtles-own [
chemical
food
memory ; список запомненных патчей (мест с едой)
]

;; ============================================
;; ИНИЦИАЛИЗАЦИЯ
;; ============================================

to setup
ca
set-default-shape turtles "bug"
ask patch 0 0 [ set nest? true set pcolor violet ]
create-food-sources
create-ants
set food-in-nest 0
set food-in-nest-history []
set chemical-history []
reset-ticks
end

to create-food-sources
let number-of-food-sources 4
set food-source-number number-of-food-sources
let angle 0
let radius (max-pxcor - 5)
let angle-step 360 / number-of-food-sources
repeat number-of-food-sources [
let xcor radius * cos angle
let ycor radius * sin angle
ask patch xcor ycor [
set food 1
set pcolor green
set food-source-number angle
]
set angle angle + angle-step
]
end

to create-ants
create-turtles 50 [
setxy 0 0
set color red
set chemical 0
set food 0
set memory []
set label ""
]
end

;; ============================================
;; ОСНОВНОЙ ЦИКЛ
;; ============================================

to go
if all? turtles [food = 1] [ stop ]
ask turtles [
if nest? and food = 1 [ drop-food ]
if not nest? [ move ]
if food-here > 0 and food = 0 [ pick-up-food ]
if not nest? [ lay-chemical ]
]
diffuse chemical 0.5
ask patches [
set chemical chemical * 0.95
if chemical < 0.01 [ set chemical 0 ]
if not nest? [
set pcolor scale-color gray chemical 0 10
]
]
forget-stale-memory
update-plots
tick
end

;; ============================================
;; ПАМЯТЬ (ОСНОВНАЯ ЛОГИКА)
;; ============================================

to pick-up-food
set food 1
set color orange
set label "F"
set food-here 0
ask patch-here [ set food 0 set pcolor gray ]
end

to drop-food
set food 0
set color red
set label ""
set food-in-nest food-in-nest + 1
end

to lay-chemical
ask patch-here [ set chemical chemical + 60 ]
end

to move
; используем память, если энергии мало и есть воспоминания
if energy < 100 and length memory > 0 [
let closest-patch min-one-of memory [distance myself]
if closest-patch != nobody [
face closest-patch
fd 1
stop
]
]
; иначе обычное движение по феромону
if chemical > 0.5 [
uphill-chemical
]
fd 1
end

to uphill-chemical
let best-patch patch-here
let best-value chemical
ask neighbors [
if chemical > best-value [
set best-value chemical
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to forget-stale-memory
if length memory > 0 [
let to-remove []
foreach memory [ mem-patch ->
if [food] of mem-patch = 0 [
set to-remove lput mem-patch to-remove
]
]
foreach to-remove [ rm-patch ->
set memory remove rm-patch memory
]
]
end

to update-plots
; заглушка для графиков
end
</syntaxhighlight>

ВАРИАНТ 2!!
=== Память как второй тип феромона ===

<syntaxhighlight lang="lisp">
globals [
food-source-number
food-in-nest
food-in-nest-history
chemical-history
]

patches-own [
chemical ; коллективный феромон
memory-pheromone ; индивидуальный феромон (память)
food
food-source-number
nest?
]

turtles-own [
chemical
food
has-memory? ; флаг: есть ли у муравья активная память
]

;; ============================================
;; ИНИЦИАЛИЗАЦИЯ
;; ============================================

to setup
ca
set-default-shape turtles "bug"
ask patch 0 0 [ set nest? true set pcolor violet ]
create-food-sources
create-ants
set food-in-nest 0
set food-in-nest-history []
set chemical-history []
reset-ticks
end

to create-food-sources
let number-of-food-sources 4
set food-source-number number-of-food-sources
let angle 0
let radius (max-pxcor - 5)
let angle-step 360 / number-of-food-sources
repeat number-of-food-sources [
let xcor radius * cos angle
let ycor radius * sin angle
ask patch xcor ycor [
set food 1
set pcolor green
set food-source-number angle
]
set angle angle + angle-step
]
end

to create-ants
create-turtles 50 [
setxy 0 0
set color red
set chemical 0
set food 0
set has-memory? false
set label ""
]
end

;; ============================================
;; ОСНОВНОЙ ЦИКЛ
;; ============================================

to go
if all? turtles [food = 1] [ stop ]
ask turtles [
if nest? and food = 1 [ drop-food ]
if not nest? [ move ]
if food-here > 0 and food = 0 [ pick-up-food ]
if not nest? [ lay-chemicals ]
]

;; Обычный феромон
diffuse chemical 0.5
ask patches [
set chemical chemical * 0.95
if chemical < 0.01 [ set chemical 0 ]
]

;; Память-феромон (испаряется и диффундирует)
if use-memory? [
diffuse memory-pheromone 0.5
ask patches [
set memory-pheromone memory-pheromone * (100 - memory-evaporation) / 100
if memory-pheromone < 0.05 [ set memory-pheromone 0 ]
]
]

;; Визуализация
ask patches [
if not nest? [
ifelse memory-pheromone > 0.1
[ set pcolor scale-color blue memory-pheromone 0 5 ]
[ set pcolor scale-color gray chemical 0 10 ]
]
]

update-plots
tick
end

;; ============================================
;; ПАМЯТЬ (ЛОГИКА)
;; ============================================

to pick-up-food
set food 1
set color orange
set label "F"
set food-here 0
ask patch-here [ set food 0 ]
set has-memory? true
end

to drop-food
set food 0
set color red
set label ""
set food-in-nest food-in-nest + 1
end

to lay-chemicals
ask patch-here [ set chemical chemical + 60 ]
if use-memory? and has-memory? [
ask patch-here [
set memory-pheromone memory-pheromone + memory-deposit
if memory-pheromone > 200 [ set memory-pheromone 200 ]
]
]
end

to move
if use-memory? and has-memory? [
let mem-here memory-pheromone
if mem-here > 0.5 [
uphill-memory-pheromone
fd 1
stop
]
]
if chemical > 0.5 [
uphill-chemical
fd 1
stop
]
fd 1
end

to uphill-chemical
let best-patch patch-here
let best-value chemical
ask neighbors [
if chemical > best-value [
set best-value chemical
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to uphill-memory-pheromone
let best-patch patch-here
let best-value memory-pheromone
ask neighbors [
if memory-pheromone > best-value [
set best-value memory-pheromone
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to update-plots
; заглушка для графиков
end
</syntaxhighlight>

<syntaxhighlight lang="lisp">
;; ANTS WITH MEMORY - ИСПРАВЛЕННАЯ ВЕРСИЯ
;; Нет повторяющихся имён переменных

globals [
total-food-count
food-history-list
chemical-history-list
]

patches-own [
chemical-amount
food-amount
is-nest?
nest-scent-value
food-source-id
]

turtles-own [
chemical-carrying
food-carrying
energy-level
memory-list
]

to setup
clear-all
set-default-shape turtles "bug"
create-turtles population
[ set size 2
set color red
set chemical-carrying 0
set food-carrying 0
set energy-level 200
set memory-list [] ]
setup-patches
set total-food-count 0
set food-history-list []
set chemical-history-list []
reset-ticks
end

to setup-patches
ask patches
[ setup-nest
setup-food
recolor-patch ]
end

to setup-nest
set is-nest? (distancexy 0 0) < 5
set nest-scent-value 200 - distancexy 0 0
end

to setup-food
if (distancexy (0.6 * max-pxcor) 0) < 5
[ set food-source-id 1 ]
if (distancexy (-0.6 * max-pxcor) (-0.6 * max-pycor)) < 5
[ set food-source-id 2 ]
if (distancexy (-0.8 * max-pxcor) (0.8 * max-pycor)) < 5
[ set food-source-id 3 ]
if food-source-id > 0
[ set food-amount one-of [1 2] ]
end

to recolor-patch
ifelse is-nest?
[ set pcolor violet ]
[ ifelse food-amount > 0
[ if food-source-id = 1 [ set pcolor cyan ]
if food-source-id = 2 [ set pcolor sky ]
if food-source-id = 3 [ set pcolor blue ] ]
[ set pcolor scale-color green chemical-amount 0.1 5 ] ]
end

to go
ask turtles
[ if who >= ticks [ stop ]
set energy-level energy-level - 1
if energy-level <= 0 [ die ]
ifelse color = red
[ look-for-food ]
[ return-to-nest ]
wiggle
fd 1 ]
diffuse chemical-amount (diffusion-rate / 100)
ask patches
[ set chemical-amount chemical-amount * (100 - evaporation-rate) / 100
recolor-patch ]
forget-stale-memory
tick
end

to return-to-nest
ifelse is-nest?
[ set color red
set food-carrying 0
set energy-level energy-level + 100
set total-food-count total-food-count + 1
rt 180 ]
[ set chemical-carrying chemical-carrying + 60
set chemical-amount chemical-amount + 60
uphill-nest-scent ]
end

to look-for-food
if food-amount > 0
[ set food-carrying 1
set color orange + 1
set food-amount food-amount - 1
rt 180
if use-memory? [
set memory-list lput patch-here memory-list
if length memory-list > 15 [ set memory-list but-last memory-list ]
]
stop ]
if use-memory? and energy-level < memory-threshold and length memory-list > 0 [
let memory-agentset patch-set memory-list
let closest-patch min-one-of memory-agentset [distance myself]
if closest-patch != nobody [
face closest-patch
stop
]
]
if (chemical-amount >= 0.05) and (chemical-amount < 2)
[ uphill-chemical ]
end

to uphill-chemical
let scent-ahead chemical-scent-at-angle 0
let scent-right chemical-scent-at-angle 45
let scent-left chemical-scent-at-angle -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead)
[ ifelse scent-right > scent-left
[ rt 45 ]
[ lt 45 ] ]
end

to uphill-nest-scent
let scent-ahead nest-scent-at-angle 0
let scent-right nest-scent-at-angle 45
let scent-left nest-scent-at-angle -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead)
[ ifelse scent-right > scent-left
[ rt 45 ]
[ lt 45 ] ]
end

to wiggle
rt random 40
lt random 40
if not can-move? 1 [ rt 180 ]
end

to-report nest-scent-at-angle [angle]
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [nest-scent-value] of p
end

to-report chemical-scent-at-angle [angle]
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [chemical-amount] of p
end

to forget-stale-memory
ask turtles [
if length memory-list > 0 [
let to-forget []
foreach memory-list [ mem-patch ->
if [food-amount] of mem-patch = 0 [
set to-forget lput mem-patch to-forget
]
]
foreach to-forget [ forget-patch ->
set memory-list remove forget-patch memory-list
]
]
]
end

; Copyright 1997 Uri Wilensky.
; See Info tab for full copyright and license.
</syntaxhighlight>

Ants/Clone01

2026-05-14T10:03:16Z

CristCas:

* [[Ants]]
<netlogo model="Ants" />

== Код ==

=== Пример 1 ===

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

== ВАРИАНТ 1!! ==

=== Память муравьев по координатам ===

<syntaxhighlight lang="lisp">

globals [
food-source-number
food-in-nest
food-in-nest-history
chemical-history
]

patches-own [
chemical
food
food-source-number
nest?
]

turtles-own [
chemical
food
memory ; список запомненных патчей (мест с едой)
]

;; ============================================
;; ИНИЦИАЛИЗАЦИЯ
;; ============================================

to setup
ca
set-default-shape turtles "bug"
ask patch 0 0 [ set nest? true set pcolor violet ]
create-food-sources
create-ants
set food-in-nest 0
set food-in-nest-history []
set chemical-history []
reset-ticks
end

to create-food-sources
let number-of-food-sources 4
set food-source-number number-of-food-sources
let angle 0
let radius (max-pxcor - 5)
let angle-step 360 / number-of-food-sources
repeat number-of-food-sources [
let xcor radius * cos angle
let ycor radius * sin angle
ask patch xcor ycor [
set food 1
set pcolor green
set food-source-number angle
]
set angle angle + angle-step
]
end

to create-ants
create-turtles 50 [
setxy 0 0
set color red
set chemical 0
set food 0
set memory []
set label ""
]
end

;; ============================================
;; ОСНОВНОЙ ЦИКЛ
;; ============================================

to go
if all? turtles [food = 1] [ stop ]
ask turtles [
if nest? and food = 1 [ drop-food ]
if not nest? [ move ]
if food-here > 0 and food = 0 [ pick-up-food ]
if not nest? [ lay-chemical ]
]
diffuse chemical 0.5
ask patches [
set chemical chemical * 0.95
if chemical < 0.01 [ set chemical 0 ]
if not nest? [
set pcolor scale-color gray chemical 0 10
]
]
forget-stale-memory
update-plots
tick
end

;; ============================================
;; ПАМЯТЬ (ОСНОВНАЯ ЛОГИКА)
;; ============================================

to pick-up-food
set food 1
set color orange
set label "F"
set food-here 0
ask patch-here [ set food 0 set pcolor gray ]
end

to drop-food
set food 0
set color red
set label ""
set food-in-nest food-in-nest + 1
end

to lay-chemical
ask patch-here [ set chemical chemical + 60 ]
end

to move
; используем память, если энергии мало и есть воспоминания
if energy < 100 and length memory > 0 [
let closest-patch min-one-of memory [distance myself]
if closest-patch != nobody [
face closest-patch
fd 1
stop
]
]
; иначе обычное движение по феромону
if chemical > 0.5 [
uphill-chemical
]
fd 1
end

to uphill-chemical
let best-patch patch-here
let best-value chemical
ask neighbors [
if chemical > best-value [
set best-value chemical
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to forget-stale-memory
if length memory > 0 [
let to-remove []
foreach memory [ mem-patch ->
if [food] of mem-patch = 0 [
set to-remove lput mem-patch to-remove
]
]
foreach to-remove [ rm-patch ->
set memory remove rm-patch memory
]
]
end

to update-plots
; заглушка для графиков
end
</syntaxhighlight>

ВАРИАНТ 2!!
=== Память как второй тип феромона ===

<syntaxhighlight lang="lisp">
;; ============================================
;; ANTS WITH MEMORY (Вариант 2)
;; Память как второй тип феромона (индивидуальный след)
;; ============================================

globals [
food-source-number
food-in-nest
food-in-nest-history
chemical-history
]

patches-own [
chemical ; коллективный феромон
memory-pheromone ; индивидуальный феромон (память)
food
food-source-number
nest?
]

turtles-own [
chemical
food
has-memory? ; флаг: есть ли у муравья активная память
]

;; ============================================
;; ИНИЦИАЛИЗАЦИЯ
;; ============================================

to setup
ca
set-default-shape turtles "bug"
ask patch 0 0 [ set nest? true set pcolor violet ]
create-food-sources
create-ants
set food-in-nest 0
set food-in-nest-history []
set chemical-history []
reset-ticks
end

to create-food-sources
let number-of-food-sources 4
set food-source-number number-of-food-sources
let angle 0
let radius (max-pxcor - 5)
let angle-step 360 / number-of-food-sources
repeat number-of-food-sources [
let xcor radius * cos angle
let ycor radius * sin angle
ask patch xcor ycor [
set food 1
set pcolor green
set food-source-number angle
]
set angle angle + angle-step
]
end

to create-ants
create-turtles 50 [
setxy 0 0
set color red
set chemical 0
set food 0
set has-memory? false
set label ""
]
end

;; ============================================
;; ОСНОВНОЙ ЦИКЛ
;; ============================================

to go
if all? turtles [food = 1] [ stop ]
ask turtles [
if nest? and food = 1 [ drop-food ]
if not nest? [ move ]
if food-here > 0 and food = 0 [ pick-up-food ]
if not nest? [ lay-chemicals ]
]

;; Обычный феромон
diffuse chemical 0.5
ask patches [
set chemical chemical * 0.95
if chemical < 0.01 [ set chemical 0 ]
]

;; Память-феромон (испаряется и диффундирует)
if use-memory? [
diffuse memory-pheromone 0.5
ask patches [
set memory-pheromone memory-pheromone * (100 - memory-evaporation) / 100
if memory-pheromone < 0.05 [ set memory-pheromone 0 ]
]
]

;; Визуализация
ask patches [
if not nest? [
ifelse memory-pheromone > 0.1
[ set pcolor scale-color blue memory-pheromone 0 5 ]
[ set pcolor scale-color gray chemical 0 10 ]
]
]

update-plots
tick
end

;; ============================================
;; ПАМЯТЬ (ЛОГИКА)
;; ============================================

to pick-up-food
set food 1
set color orange
set label "F"
set food-here 0
ask patch-here [ set food 0 ]
set has-memory? true
end

to drop-food
set food 0
set color red
set label ""
set food-in-nest food-in-nest + 1
end

to lay-chemicals
ask patch-here [ set chemical chemical + 60 ]
if use-memory? and has-memory? [
ask patch-here [
set memory-pheromone memory-pheromone + memory-deposit
if memory-pheromone > 200 [ set memory-pheromone 200 ]
]
]
end

to move
if use-memory? and has-memory? [
let mem-here memory-pheromone
if mem-here > 0.5 [
uphill-memory-pheromone
fd 1
stop
]
]
if chemical > 0.5 [
uphill-chemical
fd 1
stop
]
fd 1
end

to uphill-chemical
let best-patch patch-here
let best-value chemical
ask neighbors [
if chemical > best-value [
set best-value chemical
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to uphill-memory-pheromone
let best-patch patch-here
let best-value memory-pheromone
ask neighbors [
if memory-pheromone > best-value [
set best-value memory-pheromone
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to update-plots
; заглушка для графиков
end
</syntaxhighlight>

<syntaxhighlight lang="lisp">
;; ANTS WITH MEMORY - ИСПРАВЛЕННАЯ ВЕРСИЯ
;; Нет повторяющихся имён переменных

globals [
total-food-count
food-history-list
chemical-history-list
]

patches-own [
chemical-amount
food-amount
is-nest?
nest-scent-value
food-source-id
]

turtles-own [
chemical-carrying
food-carrying
energy-level
memory-list
]

to setup
clear-all
set-default-shape turtles "bug"
create-turtles population
[ set size 2
set color red
set chemical-carrying 0
set food-carrying 0
set energy-level 200
set memory-list [] ]
setup-patches
set total-food-count 0
set food-history-list []
set chemical-history-list []
reset-ticks
end

to setup-patches
ask patches
[ setup-nest
setup-food
recolor-patch ]
end

to setup-nest
set is-nest? (distancexy 0 0) < 5
set nest-scent-value 200 - distancexy 0 0
end

to setup-food
if (distancexy (0.6 * max-pxcor) 0) < 5
[ set food-source-id 1 ]
if (distancexy (-0.6 * max-pxcor) (-0.6 * max-pycor)) < 5
[ set food-source-id 2 ]
if (distancexy (-0.8 * max-pxcor) (0.8 * max-pycor)) < 5
[ set food-source-id 3 ]
if food-source-id > 0
[ set food-amount one-of [1 2] ]
end

to recolor-patch
ifelse is-nest?
[ set pcolor violet ]
[ ifelse food-amount > 0
[ if food-source-id = 1 [ set pcolor cyan ]
if food-source-id = 2 [ set pcolor sky ]
if food-source-id = 3 [ set pcolor blue ] ]
[ set pcolor scale-color green chemical-amount 0.1 5 ] ]
end

to go
ask turtles
[ if who >= ticks [ stop ]
set energy-level energy-level - 1
if energy-level <= 0 [ die ]
ifelse color = red
[ look-for-food ]
[ return-to-nest ]
wiggle
fd 1 ]
diffuse chemical-amount (diffusion-rate / 100)
ask patches
[ set chemical-amount chemical-amount * (100 - evaporation-rate) / 100
recolor-patch ]
forget-stale-memory
tick
end

to return-to-nest
ifelse is-nest?
[ set color red
set food-carrying 0
set energy-level energy-level + 100
set total-food-count total-food-count + 1
rt 180 ]
[ set chemical-carrying chemical-carrying + 60
set chemical-amount chemical-amount + 60
uphill-nest-scent ]
end

to look-for-food
if food-amount > 0
[ set food-carrying 1
set color orange + 1
set food-amount food-amount - 1
rt 180
if use-memory? [
set memory-list lput patch-here memory-list
if length memory-list > 15 [ set memory-list but-last memory-list ]
]
stop ]
if use-memory? and energy-level < memory-threshold and length memory-list > 0 [
let memory-agentset patch-set memory-list
let closest-patch min-one-of memory-agentset [distance myself]
if closest-patch != nobody [
face closest-patch
stop
]
]
if (chemical-amount >= 0.05) and (chemical-amount < 2)
[ uphill-chemical ]
end

to uphill-chemical
let scent-ahead chemical-scent-at-angle 0
let scent-right chemical-scent-at-angle 45
let scent-left chemical-scent-at-angle -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead)
[ ifelse scent-right > scent-left
[ rt 45 ]
[ lt 45 ] ]
end

to uphill-nest-scent
let scent-ahead nest-scent-at-angle 0
let scent-right nest-scent-at-angle 45
let scent-left nest-scent-at-angle -45
if (scent-right > scent-ahead) or (scent-left > scent-ahead)
[ ifelse scent-right > scent-left
[ rt 45 ]
[ lt 45 ] ]
end

to wiggle
rt random 40
lt random 40
if not can-move? 1 [ rt 180 ]
end

to-report nest-scent-at-angle [angle]
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [nest-scent-value] of p
end

to-report chemical-scent-at-angle [angle]
let p patch-right-and-ahead angle 1
if p = nobody [ report 0 ]
report [chemical-amount] of p
end

to forget-stale-memory
ask turtles [
if length memory-list > 0 [
let to-forget []
foreach memory-list [ mem-patch ->
if [food-amount] of mem-patch = 0 [
set to-forget lput mem-patch to-forget
]
]
foreach to-forget [ forget-patch ->
set memory-list remove forget-patch memory-list
]
]
]
end

; Copyright 1997 Uri Wilensky.
; See Info tab for full copyright and license.
</syntaxhighlight>

Ants/Clone01

2026-05-14T09:40:33Z

CristCas: Полностью удалено содержимое страницы

Ants/Clone01

2026-05-14T09:39:20Z

CristCas: /* Память муравьев по координатам */

turtles-own [
has-food ; 0 = нет еды, 1 = несёт еду
memory ; список запомненных патчей (где была еда)
energy ; энергия муравья
]

globals [
total-food ; сколько еды доставлено в гнездо
]

;;;;;;;;;;;;;;;;;;;;;
;; НАСТРОЙКА МИРА ;;
;;;;;;;;;;;;;;;;;;;;;

to setup
clear-all
set-default-shape turtles "bug"

; гнездо в центре (0,0)
ask patch 0 0 [ set pcolor violet ]

; 8 источников еды по кругу (для мира от -16 до 16)
ask patch 16 0 [ set pcolor green set plabel "E" ] ; право
ask patch -16 0 [ set pcolor green set plabel "E" ] ; лево
ask patch 0 16 [ set pcolor green set plabel "E" ] ; верх
ask patch 0 -16 [ set pcolor green set plabel "E" ] ; низ
ask patch 16 16 [ set pcolor green set plabel "E" ] ; верх-право
ask patch -16 16 [ set pcolor green set plabel "E" ] ; верх-лево
ask patch 16 -16 [ set pcolor green set plabel "E" ] ; низ-право
ask patch -16 -16 [ set pcolor green set plabel "E" ] ; низ-лево

; создаём муравьёв (40 штук)
create-turtles 40 [
setxy 0 0
set color red
set has-food 0
set memory []
set energy 200
]

set total-food 0
reset-ticks
end

;;;;;;;;;;;;;;;;;;;
;; ОСНОВНОЙ ЦИКЛ ;;
;;;;;;;;;;;;;;;;;;;

to go
ask turtles [
; тратим энергию
set energy energy - 1
if energy <= 0 [ die ]

; поведение в зависимости от того, несёт ли еду
ifelse color = red
[ look-for-food ]
[ return-to-nest ]

; движение
fd 1
right random 30
left random 30
]
tick
end

;;;;;;;;;;;;;;;;;;;
;; ПОВЕДЕНИЕ ;;
;;;;;;;;;;;;;;;;;;;

to look-for-food
; если на патче есть еда (зелёный цвет)
if pcolor = green [
set has-food 1
set color orange
set pcolor black ; еда исчезает
set plabel "" ; убираем метку

; ЗАПОМИНАЕМ МЕСТО (если память включена)
if use-memory? [
set memory lput patch-here memory
; ограничиваем память 15 местами
if length memory > 15 [ set memory but-last memory ]
]

right 180 ; разворачиваемся к гнезду
stop
]

; ЕСЛИ ЭНЕРГИЯ МАЛА И ЕСТЬ ПАМЯТЬ — ИДЁМ К ЗАПОМНЕННОМУ МЕСТУ
if use-memory? and energy < memory-threshold and length memory > 0 [
let target-patch min-one-of memory [distance myself]
if target-patch != nobody [
face target-patch
stop
]
]
end

to return-to-nest
; если в гнезде (фиолетовый патч)
if pcolor = violet [
set has-food 0
set color red
set energy energy + 100 ; награда за еду
set total-food total-food + 1
right 180
stop
]
end

;; ============================================
;; ЗАБЫВАНИЕ УСТАРЕВШЕЙ ПАМЯТИ
;; ============================================

to forget-stale-memory
if length memory > 0 [
let to-forget []
foreach memory [ mem-patch ->
; если на запомненном патче больше нет еды (не зелёный)
if [pcolor] of mem-patch != green [
set to-forget lput mem-patch to-forget
]
]
foreach to-forget [ forget-patch ->
set memory remove forget-patch memory
]
]
end

Ants/Clone01

2026-05-14T09:05:49Z

CristCas: /* Код */

* [[Ants]]
<netlogo model="Ants" />

== Код ==

== Код ==

=== Пример 1 ===

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

ВАРИАНТ 1!!
=== Память муравьев по координатам ===

<syntaxhighlight lang="netlogo">

globals [
food-source-number
food-in-nest
food-in-nest-history
chemical-history
]

patches-own [
chemical
food
food-source-number
nest?
]

turtles-own [
chemical
food
memory ; список запомненных патчей (мест с едой)
]

;; ============================================
;; ИНИЦИАЛИЗАЦИЯ
;; ============================================

to setup
ca
set-default-shape turtles "bug"
ask patch 0 0 [ set nest? true set pcolor violet ]
create-food-sources
create-ants
set food-in-nest 0
set food-in-nest-history []
set chemical-history []
reset-ticks
end

to create-food-sources
let number-of-food-sources 4
set food-source-number number-of-food-sources
let angle 0
let radius (max-pxcor - 5)
let angle-step 360 / number-of-food-sources
repeat number-of-food-sources [
let xcor radius * cos angle
let ycor radius * sin angle
ask patch xcor ycor [
set food 1
set pcolor green
set food-source-number angle
]
set angle angle + angle-step
]
end

to create-ants
create-turtles 50 [
setxy 0 0
set color red
set chemical 0
set food 0
set memory []
set label ""
]
end

;; ============================================
;; ОСНОВНОЙ ЦИКЛ
;; ============================================

to go
if all? turtles [food = 1] [ stop ]
ask turtles [
if nest? and food = 1 [ drop-food ]
if not nest? [ move ]
if food-here > 0 and food = 0 [ pick-up-food ]
if not nest? [ lay-chemical ]
]
diffuse chemical 0.5
ask patches [
set chemical chemical * 0.95
if chemical < 0.01 [ set chemical 0 ]
if not nest? [
set pcolor scale-color gray chemical 0 10
]
]
forget-stale-memory
update-plots
tick
end

;; ============================================
;; ПАМЯТЬ (ОСНОВНАЯ ЛОГИКА)
;; ============================================

to pick-up-food
set food 1
set color orange
set label "F"
set food-here 0
ask patch-here [ set food 0 set pcolor gray ]
end

to drop-food
set food 0
set color red
set label ""
set food-in-nest food-in-nest + 1
end

to lay-chemical
ask patch-here [ set chemical chemical + 60 ]
end

to move
; используем память, если энергии мало и есть воспоминания
if energy < 100 and length memory > 0 [
let closest-patch min-one-of memory [distance myself]
if closest-patch != nobody [
face closest-patch
fd 1
stop
]
]
; иначе обычное движение по феромону
if chemical > 0.5 [
uphill-chemical
]
fd 1
end

to uphill-chemical
let best-patch patch-here
let best-value chemical
ask neighbors [
if chemical > best-value [
set best-value chemical
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to forget-stale-memory
if length memory > 0 [
let to-remove []
foreach memory [ mem-patch ->
if [food] of mem-patch = 0 [
set to-remove lput mem-patch to-remove
]
]
foreach to-remove [ rm-patch ->
set memory remove rm-patch memory
]
]
end

to update-plots
; заглушка для графиков
end
</syntaxhighlight>

ВАРИАНТ 2!!
=== Память как второй тип феромона ===

<syntaxhighlight lang="netlogo">
;; ============================================
;; ANTS WITH MEMORY (Вариант 2)
;; Память как второй тип феромона (индивидуальный след)
;; ============================================

globals [
food-source-number
food-in-nest
food-in-nest-history
chemical-history
]

patches-own [
chemical ; коллективный феромон
memory-pheromone ; индивидуальный феромон (память)
food
food-source-number
nest?
]

turtles-own [
chemical
food
has-memory? ; флаг: есть ли у муравья активная память
]

;; ============================================
;; ИНИЦИАЛИЗАЦИЯ
;; ============================================

to setup
ca
set-default-shape turtles "bug"
ask patch 0 0 [ set nest? true set pcolor violet ]
create-food-sources
create-ants
set food-in-nest 0
set food-in-nest-history []
set chemical-history []
reset-ticks
end

to create-food-sources
let number-of-food-sources 4
set food-source-number number-of-food-sources
let angle 0
let radius (max-pxcor - 5)
let angle-step 360 / number-of-food-sources
repeat number-of-food-sources [
let xcor radius * cos angle
let ycor radius * sin angle
ask patch xcor ycor [
set food 1
set pcolor green
set food-source-number angle
]
set angle angle + angle-step
]
end

to create-ants
create-turtles 50 [
setxy 0 0
set color red
set chemical 0
set food 0
set has-memory? false
set label ""
]
end

;; ============================================
;; ОСНОВНОЙ ЦИКЛ
;; ============================================

to go
if all? turtles [food = 1] [ stop ]
ask turtles [
if nest? and food = 1 [ drop-food ]
if not nest? [ move ]
if food-here > 0 and food = 0 [ pick-up-food ]
if not nest? [ lay-chemicals ]
]

;; Обычный феромон
diffuse chemical 0.5
ask patches [
set chemical chemical * 0.95
if chemical < 0.01 [ set chemical 0 ]
]

;; Память-феромон (испаряется и диффундирует)
if use-memory? [
diffuse memory-pheromone 0.5
ask patches [
set memory-pheromone memory-pheromone * (100 - memory-evaporation) / 100
if memory-pheromone < 0.05 [ set memory-pheromone 0 ]
]
]

;; Визуализация
ask patches [
if not nest? [
ifelse memory-pheromone > 0.1
[ set pcolor scale-color blue memory-pheromone 0 5 ]
[ set pcolor scale-color gray chemical 0 10 ]
]
]

update-plots
tick
end

;; ============================================
;; ПАМЯТЬ (ЛОГИКА)
;; ============================================

to pick-up-food
set food 1
set color orange
set label "F"
set food-here 0
ask patch-here [ set food 0 ]
set has-memory? true
end

to drop-food
set food 0
set color red
set label ""
set food-in-nest food-in-nest + 1
end

to lay-chemicals
ask patch-here [ set chemical chemical + 60 ]
if use-memory? and has-memory? [
ask patch-here [
set memory-pheromone memory-pheromone + memory-deposit
if memory-pheromone > 200 [ set memory-pheromone 200 ]
]
]
end

to move
if use-memory? and has-memory? [
let mem-here memory-pheromone
if mem-here > 0.5 [
uphill-memory-pheromone
fd 1
stop
]
]
if chemical > 0.5 [
uphill-chemical
fd 1
stop
]
fd 1
end

to uphill-chemical
let best-patch patch-here
let best-value chemical
ask neighbors [
if chemical > best-value [
set best-value chemical
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to uphill-memory-pheromone
let best-patch patch-here
let best-value memory-pheromone
ask neighbors [
if memory-pheromone > best-value [
set best-value memory-pheromone
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to update-plots
; заглушка для графиков
end
</syntaxhighlight>

Ants/Clone01

2026-05-14T09:03:30Z

CristCas: /* Код */

* [[Ants]]
<netlogo model="Ants" />

== Код ==

== Код ==

=== Пример 1 ===

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

;; ВАРИАНТ 1!!
=== Память муравьев по координатам ===

<syntaxhighlight lang="netlogo">

globals [
food-source-number
food-in-nest
food-in-nest-history
chemical-history
]

patches-own [
chemical
food
food-source-number
nest?
]

turtles-own [
chemical
food
memory ; список запомненных патчей (мест с едой)
]

;; ============================================
;; ИНИЦИАЛИЗАЦИЯ
;; ============================================

to setup
ca
set-default-shape turtles "bug"
ask patch 0 0 [ set nest? true set pcolor violet ]
create-food-sources
create-ants
set food-in-nest 0
set food-in-nest-history []
set chemical-history []
reset-ticks
end

to create-food-sources
let number-of-food-sources 4
set food-source-number number-of-food-sources
let angle 0
let radius (max-pxcor - 5)
let angle-step 360 / number-of-food-sources
repeat number-of-food-sources [
let xcor radius * cos angle
let ycor radius * sin angle
ask patch xcor ycor [
set food 1
set pcolor green
set food-source-number angle
]
set angle angle + angle-step
]
end

to create-ants
create-turtles 50 [
setxy 0 0
set color red
set chemical 0
set food 0
set memory []
set label ""
]
end

;; ============================================
;; ОСНОВНОЙ ЦИКЛ
;; ============================================

to go
if all? turtles [food = 1] [ stop ]
ask turtles [
if nest? and food = 1 [ drop-food ]
if not nest? [ move ]
if food-here > 0 and food = 0 [ pick-up-food ]
if not nest? [ lay-chemical ]
]
diffuse chemical 0.5
ask patches [
set chemical chemical * 0.95
if chemical < 0.01 [ set chemical 0 ]
if not nest? [
set pcolor scale-color gray chemical 0 10
]
]
forget-stale-memory
update-plots
tick
end

;; ============================================
;; ПАМЯТЬ (ОСНОВНАЯ ЛОГИКА)
;; ============================================

to pick-up-food
set food 1
set color orange
set label "F"
set food-here 0
ask patch-here [ set food 0 set pcolor gray ]
end

to drop-food
set food 0
set color red
set label ""
set food-in-nest food-in-nest + 1
end

to lay-chemical
ask patch-here [ set chemical chemical + 60 ]
end

to move
; используем память, если энергии мало и есть воспоминания
if energy < 100 and length memory > 0 [
let closest-patch min-one-of memory [distance myself]
if closest-patch != nobody [
face closest-patch
fd 1
stop
]
]
; иначе обычное движение по феромону
if chemical > 0.5 [
uphill-chemical
]
fd 1
end

to uphill-chemical
let best-patch patch-here
let best-value chemical
ask neighbors [
if chemical > best-value [
set best-value chemical
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to forget-stale-memory
if length memory > 0 [
let to-remove []
foreach memory [ mem-patch ->
if [food] of mem-patch = 0 [
set to-remove lput mem-patch to-remove
]
]
foreach to-remove [ rm-patch ->
set memory remove rm-patch memory
]
]
end

to update-plots
; заглушка для графиков
end
</syntaxhighlight>

;; ВАРИАНТ 2!!
;; ============================================
;; Память как второй тип феромона (индивидуальный след)
;; ============================================

globals [
food-source-number
food-in-nest
food-in-nest-history
chemical-history
]

patches-own [
chemical ; коллективный феромон
memory-pheromone ; индивидуальный феромон (память)
food
food-source-number
nest?
]

turtles-own [
chemical
food
has-memory? ; флаг: есть ли у муравья активная память
]

;; ============================================
;; ИНИЦИАЛИЗАЦИЯ
;; ============================================

to setup
ca
set-default-shape turtles "bug"
ask patch 0 0 [ set nest? true set pcolor violet ]
create-food-sources
create-ants
set food-in-nest 0
set food-in-nest-history []
set chemical-history []
reset-ticks
end

to create-food-sources
let number-of-food-sources 4
set food-source-number number-of-food-sources
let angle 0
let radius (max-pxcor - 5)
let angle-step 360 / number-of-food-sources
repeat number-of-food-sources [
let xcor radius * cos angle
let ycor radius * sin angle
ask patch xcor ycor [
set food 1
set pcolor green
set food-source-number angle
]
set angle angle + angle-step
]
end

to create-ants
create-turtles 50 [
setxy 0 0
set color red
set chemical 0
set food 0
set has-memory? false ; изначально память не активна
set label ""
]
end

;; ============================================
;; ОСНОВНОЙ ЦИКЛ
;; ============================================

to go
if all? turtles [food = 1] [ stop ]
ask turtles [
if nest? and food = 1 [ drop-food ]
if not nest? [ move ]
if food-here > 0 and food = 0 [ pick-up-food ]
if not nest? [ lay-chemicals ]
]

;; Обычный феромон
diffuse chemical 0.5
ask patches [
set chemical chemical * 0.95
if chemical < 0.01 [ set chemical 0 ]
]

;; Память-феромон (испаряется и диффундирует)
if use-memory? [
diffuse memory-pheromone 0.5
ask patches [
set memory-pheromone memory-pheromone * (100 - memory-evaporation) / 100
if memory-pheromone < 0.05 [ set memory-pheromone 0 ]
]
]

;; Визуализация
ask patches [
if not nest? [
ifelse memory-pheromone > 0.1
[ set pcolor scale-color blue memory-pheromone 0 5 ] ; синий = память
[ set pcolor scale-color gray chemical 0 10 ] ; серый = феромон
]
]

update-plots
tick
end

;; ============================================
;; ПАМЯТЬ (ЛОГИКА)
;; ============================================

to pick-up-food
set food 1
set color orange
set label "F"
set food-here 0
ask patch-here [ set food 0 ]
;; муравей, нашёдший еду, активирует память
set has-memory? true
end

to drop-food
set food 0
set color red
set label ""
set food-in-nest food-in-nest + 1
end

to lay-chemicals
;; Оставляем обычный феромон
ask patch-here [ set chemical chemical + 60 ]

;; Оставляем феромон-память, если память активна
if use-memory? and has-memory? [
ask patch-here [
set memory-pheromone memory-pheromone + memory-deposit
if memory-pheromone > 200 [ set memory-pheromone 200 ]
]
]
end

to move
;; Сначала пробуем идти по памяти (индивидуальный след)
if use-memory? and has-memory? [
let mem-here memory-pheromone
if mem-here > 0.5 [
uphill-memory-pheromone
fd 1
stop
]
]

;; Если памяти нет — обычный феромон
if chemical > 0.5 [
uphill-chemical
fd 1
stop
]

;; Иначе случайное движение
fd 1
end

to uphill-chemical
let best-patch patch-here
let best-value chemical
ask neighbors [
if chemical > best-value [
set best-value chemical
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to uphill-memory-pheromone
let best-patch patch-here
let best-value memory-pheromone
ask neighbors [
if memory-pheromone > best-value [
set best-value memory-pheromone
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to update-plots
; заглушка для графиков
end

Ants/Clone01

2026-05-14T09:00:48Z

CristCas: /* Пример 1 */

* [[Ants]]
<netlogo model="Ants" />

== Код ==

== Код ==

=== Пример 1 ===

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

=== Память ===

<syntaxhighlight lang="netlogo">

globals [
food-source-number
food-in-nest
food-in-nest-history
chemical-history
]

patches-own [
chemical
food
food-source-number
nest?
]

turtles-own [
chemical
food
memory ; список запомненных патчей (мест с едой)
]

;; ============================================
;; ИНИЦИАЛИЗАЦИЯ
;; ============================================

to setup
ca
set-default-shape turtles "bug"
ask patch 0 0 [ set nest? true set pcolor violet ]
create-food-sources
create-ants
set food-in-nest 0
set food-in-nest-history []
set chemical-history []
reset-ticks
end

to create-food-sources
let number-of-food-sources 4
set food-source-number number-of-food-sources
let angle 0
let radius (max-pxcor - 5)
let angle-step 360 / number-of-food-sources
repeat number-of-food-sources [
let xcor radius * cos angle
let ycor radius * sin angle
ask patch xcor ycor [
set food 1
set pcolor green
set food-source-number angle
]
set angle angle + angle-step
]
end

to create-ants
create-turtles 50 [
setxy 0 0
set color red
set chemical 0
set food 0
set memory []
set label ""
]
end

;; ============================================
;; ОСНОВНОЙ ЦИКЛ
;; ============================================

to go
if all? turtles [food = 1] [ stop ]
ask turtles [
if nest? and food = 1 [ drop-food ]
if not nest? [ move ]
if food-here > 0 and food = 0 [ pick-up-food ]
if not nest? [ lay-chemical ]
]
diffuse chemical 0.5
ask patches [
set chemical chemical * 0.95
if chemical < 0.01 [ set chemical 0 ]
if not nest? [
set pcolor scale-color gray chemical 0 10
]
]
forget-stale-memory
update-plots
tick
end

;; ============================================
;; ПАМЯТЬ (ОСНОВНАЯ ЛОГИКА)
;; ============================================

to pick-up-food
set food 1
set color orange
set label "F"
set food-here 0
ask patch-here [ set food 0 set pcolor gray ]
end

to drop-food
set food 0
set color red
set label ""
set food-in-nest food-in-nest + 1
end

to lay-chemical
ask patch-here [ set chemical chemical + 60 ]
end

to move
; используем память, если энергии мало и есть воспоминания
if energy < 100 and length memory > 0 [
let closest-patch min-one-of memory [distance myself]
if closest-patch != nobody [
face closest-patch
fd 1
stop
]
]
; иначе обычное движение по феромону
if chemical > 0.5 [
uphill-chemical
]
fd 1
end

to uphill-chemical
let best-patch patch-here
let best-value chemical
ask neighbors [
if chemical > best-value [
set best-value chemical
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to forget-stale-memory
if length memory > 0 [
let to-remove []
foreach memory [ mem-patch ->
if [food] of mem-patch = 0 [
set to-remove lput mem-patch to-remove
]
]
foreach to-remove [ rm-patch ->
set memory remove rm-patch memory
]
]
end

to update-plots
; заглушка для графиков
end
</syntaxhighlight>

Ants/Clone01

2026-05-14T08:59:05Z

CristCas: /* Пример 1 */

* [[Ants]]
<netlogo model="Ants" />

== Код ==

=== Пример 1 ===
<syntaxhighlight lang="Lisp" line>

to circle
layout-circle turtles max-pxcor - 2
end

</syntaxhighlight>

globals [
food-source-number
food-in-nest
food-in-nest-history
chemical-history
]

patches-own [
chemical
food
food-source-number
nest?
]

turtles-own [
chemical
food
memory ; список запомненных патчей (мест с едой)
]

;; ============================================
;; ИНИЦИАЛИЗАЦИЯ
;; ============================================

to setup
ca
set-default-shape turtles "bug"
ask patch 0 0 [ set nest? true set pcolor violet ]
create-food-sources
create-ants
set food-in-nest 0
set food-in-nest-history []
set chemical-history []
reset-ticks
end

to create-food-sources
let number-of-food-sources 4
set food-source-number number-of-food-sources
let angle 0
let radius (max-pxcor - 5)
let angle-step 360 / number-of-food-sources
repeat number-of-food-sources [
let xcor radius * cos angle
let ycor radius * sin angle
ask patch xcor ycor [
set food 1
set pcolor green
set food-source-number angle
]
set angle angle + angle-step
]
end

to create-ants
create-turtles 50 [
setxy 0 0
set color red
set chemical 0
set food 0
set memory []
set label ""
]
end

;; ============================================
;; ОСНОВНОЙ ЦИКЛ
;; ============================================

to go
if all? turtles [food = 1] [ stop ]
ask turtles [
if nest? and food = 1 [ drop-food ]
if not nest? [ move ]
if food-here > 0 and food = 0 [ pick-up-food ]
if not nest? [ lay-chemical ]
]
diffuse chemical 0.5
ask patches [
set chemical chemical * 0.95
if chemical < 0.01 [ set chemical 0 ]
if not nest? [
set pcolor scale-color gray chemical 0 10
]
]
forget-stale-memory
update-plots
tick
end

;; ============================================
;; ПАМЯТЬ (ОСНОВНАЯ ЛОГИКА)
;; ============================================

to pick-up-food
set food 1
set color orange
set label "F"
set food-here 0
ask patch-here [ set food 0 set pcolor gray ]
end

to drop-food
set food 0
set color red
set label ""
set food-in-nest food-in-nest + 1
end

to lay-chemical
ask patch-here [ set chemical chemical + 60 ]
end

to move
; используем память, если энергии мало и есть воспоминания
if energy < 100 and length memory > 0 [
let closest-patch min-one-of memory [distance myself]
if closest-patch != nobody [
face closest-patch
fd 1
stop
]
]
; иначе обычное движение по феромону
if chemical > 0.5 [
uphill-chemical
]
fd 1
end

to uphill-chemical
let best-patch patch-here
let best-value chemical
ask neighbors [
if chemical > best-value [
set best-value chemical
set best-patch self
]
]
if best-patch != patch-here [
face best-patch
]
end

to forget-stale-memory
if length memory > 0 [
let to-remove []
foreach memory [ mem-patch ->
if [food] of mem-patch = 0 [
set to-remove lput mem-patch to-remove
]
]
foreach to-remove [ rm-patch ->
set memory remove rm-patch memory
]
]
end

to update-plots
; заглушка для графиков
end

Stygmergia v obrazovanii

2026-04-30T09:15:59Z

CristCas:

Stygmergia v obrazovanii

2026-04-30T09:13:16Z

CristCas:

Участник:CristCas

2026-04-30T08:51:56Z

CristCas:

{{UserMGPU
|Field_of_knowledge=Математика, Информатика, Психология, Социология, Экономика, Лингвистика, Искусственный интеллект, Управление, Обществознание, Game design, Большие данные, Статистика, Алгебра, Иностранный язык, Технология
|Position=Бакалавриат
|Profile=Математика, Информатика, Английский язык, Обществознание, Право, Экономика, Моделирование
|PedDirection=Нет
|Working_On=Stygmergia v obrazovanii (Stygmergia_v_obrazovanii)
}}
[[Категория:UserMGPU]]
[[Категория:ЦИБ-241]]

Stygmergia v obrazovanii

2026-04-30T08:49:54Z

CristCas:

Участник:CristCas

2026-04-30T08:37:13Z

CristCas:

{{UserMGPU
|Field_of_knowledge=Математика, Информатика, Социология, Экономика, Лингвистика, Искусственный интеллект, Управление, Game design, Большие данные, Статистика, Алгебра, Иностранный язык
|Position=Бакалавриат
|Profile=Математика, Информатика, Английский язык, Обществознание, Право, Моделирование
|PedDirection=Нет
|Working_On=Изучение Lens Psych Collab, Stygmergia_v_obrazovanii
}}
[[Категория:UserMGPU]]
[[Категория:ЦИБ-241]]

Участник:CristCas

2026-04-30T08:36:56Z

CristCas:

{{UserMGPU
|Field_of_knowledge=Математика, Информатика, Социология, Экономика, Лингвистика, Искусственный интеллект, Управление, Game design, Большие данные, Статистика, Алгебра, Иностранный язык
|Position=Бакалавриат
|Profile=Математика, Информатика, Английский язык, Обществознание, Право, Моделирование
|PedDirection=Нет
|Working_On=Изучение Lens Psych Collab, https://digida.mgpu.ru/index.php/Stygmergia_v_obrazovanii
}}
[[Категория:UserMGPU]]
[[Категория:ЦИБ-241]]

Stygmergia v obrazovanii

2026-04-30T08:22:48Z

CristCas:

= Стигмергия в образовании =

== Аннотация ==

== Рабочие гипотезы ==

== Инструменты ==
* '''Моделирование:''' NetLogo (модели Termites, Ants, MutualisticNetwork)
* '''Анализ данных и программирование:''' R (tidyverse, ggplot2, lmtest)
* '''Среда реализации:''' Поле цифровой дидактики (SMW)

== Участники ==
* [[Участник:Софронова_Кира|Кира]] - Termites
* [[Участник:Рита|Рита]] - Ants
* [[Участник:CristCas|Настя]] - MutualisticNetwork

== План работы ==
# Настройка экспериментов в BehaviorSpace.
# Генерация и выгрузка данных.
# Регрессионный анализ и проверка гипотез в R.
# Оформление выводов и визуализация (RAWGraphs).

== Результаты ==
''(Здесь позже появятся графики, таблицы и ваши выводы)''

== Ссылки ==
* [[Практикум по эконометрике (syllabus)]]

Stygmergia v obrazovanii

2026-04-30T08:20:48Z

CristCas:

Stygmergia v obrazovanii

2026-04-30T08:18:27Z

CristCas: Новая страница: «= Стигмергия в образовании = == Аннотация == == Рабочие гипотезы == == Инструменты == * '''Моделирование:''' NetLogo (модели Termites, Ants, MutualisticNetwork) * '''Анализ данных и программирование:''' R (tidyverse, ggplot2, lmtest) * '''Среда реализации:''' Поле цифровой дидактики (SMW) == Участники == *...»

Участник:CristCas

2026-02-19T06:49:44Z

CristCas:

{{UserMGPU
|Field_of_knowledge=Математика, Информатика, Социология, Экономика, Лингвистика, Искусственный интеллект, Управление, Game design, Большие данные, Статистика, Алгебра, Иностранный язык
|Position=Бакалавриат
|Profile=Математика, Информатика, Английский язык, Обществознание, Право, Моделирование
|PedDirection=Нет
}}
[[Категория:UserMGPU]]
[[Категория:ЦИБ-241]]

Участник:CristCas

2026-02-19T06:49:03Z

CristCas:

{{UserMGPU
|Field_of_knowledge=Математика, Информатика, Социология, Экономика, Лингвистика, Искусственный интеллект, Управление, Game design, Большие данные, Статистика, Иностранный язык
|Position=Бакалавриат
|Profile=Математика, Информатика, Английский язык
|PedDirection=Нет
}}
[[Категория:UserMGPU]]
[[Категория:ЦИБ-241]]

Участник:CristCas

2026-02-19T06:45:58Z

CristCas:

[[Категория:UserMGPU]]
[[Категория:ЦИБ-241]]