Reseach based on Special:Log/NetLogo/TermitesLog
Материал из Letopisi.Ru — «Время вернуться домой»
(Различия между версиями)
(→Цикл действий термитов с журналом) |
|||
Строка 36: | Строка 36: | ||
patches-own [pagenum] | patches-own [pagenum] | ||
turtles-own [t-pagenum] | turtles-own [t-pagenum] | ||
+ | undirected-link-breed [friendbonds friendbond] ; | ||
globals [ | globals [ | ||
Строка 72: | Строка 73: | ||
− | to search-for-chip ;; turtle procedure -- "picks up chip" by turning orange | + | to search-for-chip ;; turtle procedure -- "picks up chip" by turning orange |
ifelse pcolor = yellow [ | ifelse pcolor = yellow [ | ||
Строка 95: | Строка 96: | ||
− | to put-down-chip ;; turtle procedure -- finds empty spot & drops chip | + | to put-down-chip ;; turtle procedure -- finds empty spot & drops chip |
ifelse pcolor = black | ifelse pcolor = black | ||
Строка 108: | Строка 109: | ||
fd 1 | fd 1 | ||
put-down-chip ] | put-down-chip ] | ||
− | + | end | |
− | + | ||
+ | to logs_to_sociogram | ||
+ | ask patches [set pcolor 0] | ||
+ | foreach edits [ | ||
+ | let friend1 item 0 ? | ||
+ | let p1 item 1 ? | ||
+ | let friend2 first first filter [(p1 = item 1 ?) and ("create" = item 2 ?)] wikilog | ||
+ | if friend1 != friend2 [ | ||
+ | ask turtle friend1 [ create-friendbond-with turtle friend2 ] | ||
+ | ] | ||
+ | ] | ||
+ | repeat 8 [layout-spring turtles links 1 5 7 ] | ||
+ | |||
+ | end | ||
+ | |||
+ | to AroundKeyPlayer | ||
+ | let KeyPlayer max-one-of turtles [nw:betweenness-centrality] | ||
+ | layout-radial turtles links KeyPlayer | ||
+ | ask KeyPlayer [set label who] | ||
+ | end | ||
Связать с дальнейшим - вернуться на доску образования опять - посмотрели к чему приводит появление журнала. До этого были палочки, как субстрат для деятельности. А теперь появился журнал, как материал для исследования. | Связать с дальнейшим - вернуться на доску образования опять - посмотрели к чему приводит появление журнала. До этого были палочки, как субстрат для деятельности. А теперь появился журнал, как материал для исследования. |
Текущая версия на 12:47, 26 июля 2016
Тут сама программа NetLogo
[править] Цикл действий термитов с журналом
patches-own [pagenum] turtles-own [t-pagenum] undirected-link-breed [friendbonds friendbond] ; 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 to logs_to_sociogram ask patches [set pcolor 0] foreach edits [ let friend1 item 0 ? let p1 item 1 ? let friend2 first first filter [(p1 = item 1 ?) and ("create" = item 2 ?)] wikilog if friend1 != friend2 [ ask turtle friend1 [ create-friendbond-with turtle friend2 ] ] ] repeat 8 [layout-spring turtles links 1 5 7 ] end
to AroundKeyPlayer let KeyPlayer max-one-of turtles [nw:betweenness-centrality] layout-radial turtles links KeyPlayer ask KeyPlayer [set label who] end
Связать с дальнейшим - вернуться на доску образования опять - посмотрели к чему приводит появление журнала. До этого были палочки, как субстрат для деятельности. А теперь появился журнал, как материал для исследования.