Дарья: Новая страница: «netlogo globals [ max-height ;; максимальная высота на карте summit-count ;; сколько бабочек достигло вершины blue-summit-count ;; сколько синих бабочек достигло вершины ] turtles-own [ butterfly-type ;; "normal" или "blue" steps-taken ;; сколько шагов сделала бабочка reached-summit? ;; достигла ли...»

2026-05-21T06:21:57Z

Новая страница: «netlogo globals [ max-height ;; максимальная высота на карте summit-count ;; сколько бабочек достигло вершины blue-summit-count ;; сколько синих бабочек достигло вершины ] turtles-own [ butterfly-type ;; "normal" или "blue" steps-taken ;; сколько шагов сделала бабочка reached-summit? ;; достигла ли...»

Новая страница

netlogo
globals [
max-height ;; максимальная высота на карте
summit-count ;; сколько бабочек достигло вершины
blue-summit-count ;; сколько синих бабочек достигло вершины
]

turtles-own [
butterfly-type ;; "normal" или "blue"
steps-taken ;; сколько шагов сделала бабочка
reached-summit? ;; достигла ли вершины
]

patches-own [
elevation ;; высота пятна (0-100)
visit-count ;; сколько бабочек прошло через это пятно
]

;;;;;;;;;;;;;;;;;;;;;;;;
;;; Setup Procedures ;;;
;;;;;;;;;;;;;;;;;;;;;;;;

to setup
clear-all
setup-landscape
create-butterflies
reset-ticks
update-viz
end

to setup-landscape
ask patches [
;; Создаём несколько горных пиков
let peak1-distance distancexy (max-pxcor * 0.3) (max-pycor * 0.7)
let peak2-distance distancexy (max-pxcor * 0.7) (max-pycor * 0.3)
let peak3-distance distancexy (max-pxcor * 0.5) (max-pycor * 0.9)

set elevation 0

;; Пик 1 (высокий)
if peak1-distance < 30 [
set elevation elevation + (30 - peak1-distance) * 3
]

;; Пик 2 (средний)
if peak2-distance < 25 [
set elevation elevation + (25 - peak2-distance) * 2.5
]

;; Пик 3 (низкий)
if peak3-distance < 20 [
set elevation elevation + (20 - peak3-distance) * 2
]

;; Добавляем случайный шум для реализма
set elevation elevation + random 5

;; Ограничиваем высоту
if elevation > 100 [ set elevation 100 ]
if elevation < 0 [ set elevation 0 ]

set visit-count 0
]

set max-height max [elevation] of patches
end

to create-butterflies
set summit-count 0
set blue-summit-count 0

;; Создаём 80 обычных бабочек (серых)
create-turtles 80 [
set butterfly-type "normal"
set color gray
set size 2
setxy random-xcor random-ycor
set steps-taken 0
set reached-summit? false
]

;; Создаём 20 синих бабочек (редкий вид, более умные)
create-turtles 20 [
set butterfly-type "blue"
set color blue
set size 2.5
setxy random-xcor random-ycor
set steps-taken 0
set reached-summit? false
]

ask turtles [
;; Убеждаемся, что не на вершине в начале
if elevation-of-self >= max-height * 0.95 [
setxy random-xcor random-ycor
]
]
end

to update-viz
ask patches [
;; Цвет показывает активность коридора
let intensity (visit-count / 50)
if intensity > 1 [ set intensity 1 ]

ifelse visit-count = 0 [
set pcolor scale-color green elevation 0 100
] [
set pcolor scale-color red intensity 0 1
]
]

;; Особый цвет для вершины
ask patches with [elevation = max-height] [
set pcolor white
]
end

;;;;;;;;;;;;;;;;;;;;;;;;
;;; Go Procedures ;;;
;;;;;;;;;;;;;;;;;;;;;;;;

to go
if count turtles = 0 [ stop ]

ask turtles [
if not reached-summit? [
move-butterfly
check-summit
]
]

tick
update-viz
update-plots
end

to move-butterfly
let move-up-probability

;; Разные типы бабочек ведут себя по-разному
ifelse butterfly-type = "normal" [
set move-up-probability 0.7 ;; 70% идёт вверх
] [
set move-up-probability 0.9 ;; 90% идёт вверх (умнее)
]

if random-float 1 < move-up-probability [
move-to-highest-neighbor
] [
move-randomly
]

set steps-taken steps-taken + 1
end

to move-to-highest-neighbor
let highest-patch patch-here
let highest-elevation elevation-of-self

ask neighbors [
if ([elevation] of self) > highest-elevation [
set highest-elevation [elevation] of self
set highest-patch self
]
]

;; Запоминаем, что прошли через это пятно
ask patch-here [
set visit-count visit-count + 1
]

move-to highest-patch
end

to move-randomly
;; Запоминаем проход
ask patch-here [
set visit-count visit-count + 1
]

rt random 360
fd 1

;; Не выходим за границы
if not can-move? 1 [
set heading heading + 180
]
end

to check-summit
if elevation-of-self >= max-height * 0.95 [
set reached-summit? true
set summit-count summit-count + 1

if butterfly-type = "blue" [
set blue-summit-count blue-summit-count + 1
]

;; Визуальный эффект при достижении вершины
set color yellow

;; Бабочка улетает через 5 шагов (имитация размножения)
if steps-taken > 5 [
die
]
]
end

to-report elevation-of-self
report [elevation] of patch-here
end

to update-plots
set-current-plot "Butterfly Progress"
clear-plot

;; График 1: количество достигших вершины
set-current-plot-pen "summit"
plot summit-count

;; График 2: средняя высота бабочек
set-current-plot-pen "avg-height"
if count turtles > 0 [
let total-height sum [elevation-of-self] of turtles
plot total-height / count turtles
]

set-current-plot "Traffic Intensity"
clear-plot
let max-visits max [visit-count] of patches
if max-visits > 0 [
histogram [visit-count] of patches
]
end

;;;;;;;;;;;;;;;;;;;;;;;;
;;; Buttons & Sliders ;;;
;;;;;;;;;;;;;;;;;;;;;;;;

;; Создайте в интерфейсе:
;; - Slider: q (0-1) для вероятности движения вверх
;; - Button: Setup
;; - Button: Go (forever)
;; - Monitor: summit-count (достигшие вершины)
;; - Monitor: blue-summit-count (синие бабочки)
;; - Monitor: count turtles (оставшиеся бабочки)
;; - Plot: "Butterfly Progress" с двумя линиями
;; - Plot: "Traffic Intensity" гистограмма

to-report butterfly-efficiency
;; Эффективность: сколько бабочек достигло вершины за минимальное время
if summit-count = 0 [ report 0 ]
report (summit-count / count turtles) * 100
end

Butterfly model/Sirenko - История изменений