Reseach based on Special:Log/NetLogo/TermitesLog

Материал из Letopisi.Ru — «Время вернуться домой»
Перейти к: навигация, поиск

Тут сама программа NetLogo

Цикл действий термитов с журналом

TermitesLogs Ar interface2.png

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

Связать с дальнейшим - вернуться на доску образования опять - посмотрели к чему приводит появление журнала. До этого были палочки, как субстрат для деятельности. А теперь появился журнал, как материал для исследования.

Персональные инструменты
Инструменты