Reseach based on Special:Log/NetLogo/TermitesLog
Материал из Letopisi.Ru — «Время вернуться домой»
(Различия между версиями)
(→Цикл действий термитов с журналом) |
|||
Строка 70: | Строка 70: | ||
put-down-chip | put-down-chip | ||
end | end | ||
+ | |||
+ | |||
+ | to search-for-chip ;; turtle procedure -- "picks up chip" by turning orange | ||
+ | ifelse pcolor = yellow [ | ||
+ | |||
+ | ifelse 0 = [pagenum] of patch-here [ | ||
+ | let newpage 1 + length pages set pages lput newpage pages | ||
+ | set t-pagenum newpage ;; это номер палочки, которую создал | ||
+ | set wikilog lput (se [who] of self newpage "create" ) wikilog | ||
+ | ;; If nobody takes this chip before you, then you need to write to Log that you create this chip | ||
+ | ;; Если это палочка, которую не брали, то надо записать в журнал, что я создал эту новую палочку | ||
+ | ] | ||
+ | [set t-pagenum [pagenum] of patch-here | ||
+ | ;; If it is used chip, then I need to memorize chip-number | ||
+ | ;; а если палочка, которую уже кто-то создал, то я записал себе номер этой палочки | ||
+ | ] | ||
+ | set pcolor black set color orange fd 20 ] | ||
+ | [ wiggle search-for-chip ] | ||
+ | end | ||
+ | |||
+ | to find-new-pile | ||
+ | if pcolor != yellow [ wiggle find-new-pile ] | ||
+ | end | ||
+ | |||
+ | |||
+ | to put-down-chip ;; turtle procedure -- finds empty spot & drops chip | ||
+ | |||
+ | ifelse pcolor = black | ||
+ | [ | ||
+ | ask patch-here [set pagenum [t-pagenum] of myself] ;; Send chip-number to the patch | ||
+ | set wikilog lput (se [who] of self [t-pagenum] of self "edit" ) wikilog ;; Write to Log that you edit this chip | ||
+ | set pcolor yellow | ||
+ | set color white | ||
+ | set t-pagenum 0 | ||
+ | get-away ] | ||
+ | [ rt random 360 | ||
+ | fd 1 | ||
+ | put-down-chip ] | ||
+ | end | ||
+ | |||
+ | |||
Связать с дальнейшим - вернуться на доску образования опять - посмотрели к чему приводит появление журнала. До этого были палочки, как субстрат для деятельности. А теперь появился журнал, как материал для исследования. | Связать с дальнейшим - вернуться на доску образования опять - посмотрели к чему приводит появление журнала. До этого были палочки, как субстрат для деятельности. А теперь появился журнал, как материал для исследования. |
Версия 12:34, 26 июля 2016
Тут сама программа NetLogo
Цикл действий термитов с журналом
patches-own [pagenum] turtles-own [t-pagenum] globals [ wikilog ; log - list of actions pages ;; list of created pages ]
to setup
clear-all set wikilog [] set pages [] set-default-shape turtles "bug" ask patches [ set pagenum 0 ;; message for all patches that there is no chip - это метка для пятна, что здесь нет палочки if random-float 100 < density [ set pcolor yellow ] ] create-turtles number [ set color white setxy random-xcor random-ycor set size 3 ;; easier to see ] end
to go ;; turtle procedure ;;; if length wikilog > number_of_turns [stop] ;; ограничитель числа ходов 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 [
ifelse 0 = [pagenum] of patch-here [ let newpage 1 + length pages set pages lput newpage pages set t-pagenum newpage ;; это номер палочки, которую создал set wikilog lput (se [who] of self newpage "create" ) wikilog ;; If nobody takes this chip before you, then you need to write to Log that you create this chip ;; Если это палочка, которую не брали, то надо записать в журнал, что я создал эту новую палочку ] [set t-pagenum [pagenum] of patch-here ;; If it is used chip, then I need to memorize chip-number ;; а если палочка, которую уже кто-то создал, то я записал себе номер этой палочки ] set pcolor black set color orange fd 20 ] [ wiggle search-for-chip ] end to find-new-pile if pcolor != yellow [ wiggle find-new-pile ] end
to put-down-chip ;; turtle procedure -- finds empty spot & drops chip
ifelse pcolor = black [ ask patch-here [set pagenum [t-pagenum] of myself] ;; Send chip-number to the patch set wikilog lput (se [who] of self [t-pagenum] of self "edit" ) wikilog ;; Write to Log that you edit this chip set pcolor yellow set color white set t-pagenum 0 get-away ] [ rt random 360 fd 1 put-down-chip ]
end
Связать с дальнейшим - вернуться на доску образования опять - посмотрели к чему приводит появление журнала. До этого были палочки, как субстрат для деятельности. А теперь появился журнал, как материал для исследования.