Turtles, termites, and traffic jams: explorations in massively parallel microworld

Материал из Поле цифровой дидактики



Описание книги Книга "Черепахи, термиты и дорожные пробки: исследования в микромире массово-параллельных вычислений"

Децентрализованный подход к феноменам окружающего мира - на основе использования микромира с тысячами черепашек

Область знаний NetSci, Математика, География, История, Урбанистика
Год издания 1997
Веб-сайт где можно прочитать книгу или статью https://mitpress.mit.edu/9780262680936/turtles-termites-and-traffic-jams/
Видео запись
Авторы Resnick
Среды и средства, на которые повлияла книга StarLogo, NetLogo, Scratch, StarLogo Nova

41ff940CX1L._SX360_BO1,204,203,200_.jpg

Термиты

Описание модели Модель термитника (муравейника), когда тупые, слабые и слабовидящие агенты перемещаются по полю и собирают на нём палочки. Есть версия "Термиты с журналом", когда все действия термитов над палочками записываются в лог-файл и потом можно построить графы команд, где в команду объединены термиты, носившие одни и те же палочки.
Область знаний Биология
Веб-страница - ссылка на модель https://netlogoweb.org/launch#https://netlogoweb.org/assets/modelslib/Sample%20Models/Biology/Termites.nlogo
Видео запись
Разработчики Резник
Среды и средства, в которых реализована модель NetLogo, StarLogo Nova
Диаграмма модели
Описание полей данных, которые модель порождает
ODD protocol DREAM О чём эта модель? Как устроена модель (правила внутри) Как пользоваться моделью На что следует обратить внимание Что стоит попробовать Расширение возможностей модели Функции среды программирования, которые использованы в этой модели Похожие модели


StarLogo Nova

to setup
  clear-all
  set-default-shape turtles "bug"
  ;; randomly distribute wood chips
  ask patches
  [ if random-float 100 < density
    [ set pcolor yellow ] ]
  ;; randomly distribute termites
  create-turtles number [
    set color white
    setxy random-xcor random-ycor
    set size 5  ;; easier to see
  ]
end

to go  ;; turtle procedure
  search-for-chip
  find-new-pile
  put-down-chip
end

to search-for-chip  ;; turtle procedure -- "picks up chip" by turning orange
  ifelse pcolor = yellow
  [ set pcolor black
    set color orange
    fd 20 ]
  [ wiggle
    search-for-chip ]
end

to find-new-pile  ;; turtle procedure -- look for yellow patches
  if pcolor != yellow
  [ wiggle
    find-new-pile ]
end

to put-down-chip  ;; 
  ifelse pcolor = black
  [ set pcolor yellow
    set color white
    get-away ]
  [ rt random 360
    fd 1
    put-down-chip ]
end

to get-away  ;; turtle procedure -- escape from yellow piles
  rt random 360
  fd 20
  if pcolor != black
    [ get-away ]
end

to wiggle ; turtle procedure
  fd 1
  rt random 50
  lt random 50
end