Reseach based on Special:Log/NetLogo/TermitesLog
Материал из Letopisi.Ru — «Время вернуться домой»
(Различия между версиями)
| Строка 34: | Строка 34: | ||
[[Файл:TermitesLogs Ar interface2.png]] | [[Файл:TermitesLogs Ar interface2.png]] | ||
| + | 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 | ||
Связать с дальнейшим - вернуться на доску образования опять - посмотрели к чему приводит появление журнала. До этого были палочки, как субстрат для деятельности. А теперь появился журнал, как материал для исследования. | Связать с дальнейшим - вернуться на доску образования опять - посмотрели к чему приводит появление журнала. До этого были палочки, как субстрат для деятельности. А теперь появился журнал, как материал для исследования. | ||
Версия 12:17, 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
Связать с дальнейшим - вернуться на доску образования опять - посмотрели к чему приводит появление журнала. До этого были палочки, как субстрат для деятельности. А теперь появился журнал, как материал для исследования.
