Patarakin: Новая страница: «=== Листинг модели === extensions [resource csv] breed [users user] ; breed [pages page] ; directed-link-breed [bonds bond] ; users-own [agentname] ; pages-own [ pagename ] ; bonds-own [edits] ; globals [ backgroud data current-wiki ;; "DE" "/ FR / RU / EN ] to startup clear-all ; reset-ticks set-default-shape users "person" ; set-default-shape pages "square" ; set current-wiki wik...»

2026-02-27T08:06:45Z

Новая страница: «=== Листинг модели === <syntaxhighlight lang="lisp" line> extensions [resource csv] breed [users user] ; breed [pages page] ; directed-link-breed [bonds bond] ; users-own [agentname] ; pages-own [ pagename ] ; bonds-own [edits] ; globals [ backgroud data current-wiki ;; "DE" "/ FR / RU / EN ] to startup clear-all ; reset-ticks set-default-shape users "person" ; set-default-shape pages "square" ; set current-wiki wik...»

Новая страница

=== Листинг модели ===

<syntaxhighlight lang="lisp" line>
extensions [resource csv]

breed [users user] ;
breed [pages page] ;
directed-link-breed [bonds bond] ;
users-own [agentname] ;
pages-own [
pagename
] ;
bonds-own [edits] ;

globals [
backgroud
data
current-wiki ;; "DE" "/ FR / RU / EN
]

to startup
clear-all ;
reset-ticks
set-default-shape users "person" ;
set-default-shape pages "square" ;

set current-wiki wiki_lng_chooser
output-print "" ;
set data [] ;

output-print "╔════════════════════════════════════════════════════════════╗"
output-print "║Scratch Wikis Collaboration Simulation ║"
output-print "╚════════════════════════════════════════════════════════════╝"
output-print ""
output-print (word "Выберите источник данных (Wiki_Chooser): " current-wiki)
output-print "После выбора нажмите кнопку 'Сеть авторов'."
end

to load-data-for-current-wiki
if current-wiki = "EN" [
load-csv-resource "e_contrib_en.csv"
]
if current-wiki = "FR" [
load-csv-resource "contrib_fr.csv"
]
if current-wiki = "DE" [
load-csv-resource "contrib_de.csv"
]
if current-wiki = "RU" [
load-csv-resource "contrib_ru.csv"
]
end

to load-csv-resource [filename]
set data []

output-print ""
output-print (word "Загрузка файла: " filename)

carefully [
let csv-content resource:get filename
set data csv:from-string csv-content
output-print (word "Загружен: " length data " строк (с заголовком)")
] [
output-print (word "ОШИБКА при загрузке " filename ": " error-message)
stop
]

if length data > 0 [
set data but-first data
]

output-print (word "Обработано " length data " публикаций из " filename)
end

to load_data
clear-turtles
clear-output ;
clear-all-plots ;

output-print "История совместного редактирования статей" ;
output-print "Scratch Wikis" ;
load-data-for-current-wiki
;; set data csv:from-string csv-content
foreach data [ ?1 -> visual ?1 ]
end

to visual [flist]
;; output-print flist ;

let agent_id item 0 flist ;; это мы просто считали имена агентов и страниц
let page_id item 2 flist

let agent_name item 1 flist ;; это мы просто считали имена агентов и страниц

let page_name item 3 flist

ifelse (not any? users with [agentname = agent_name]) and (not any? pages with [pagename = page_name])
[
create-ordered-users 1 [
set size 1
set color red
set agentname agent_name ;
set label-color white
set label agentname ;
output-print agentname
hatch-pages 1 [
set pagename page_name
set color green
set label-color white
set label pagename create-bond-from myself ;
ask bond [who] of myself [who] of self
;;
[
set edits 1
set label-color white
; set label edits
]
output-print ( word "Создал " pagename )
output-print "" ;
] ; ;
]
]

[ ifelse (not any? users with [agentname = agent_name]) and (any? pages with [pagename = page_name])
[
let myfirstpage [who] of one-of pages with [pagename = page_name] ;
ask page myfirstpage [
hatch-users 1

[
set color red set agentname agent_name
set label-color white
output-print agentname
set label agentname create-bond-to myself ;
output-print (word "отредактировал " page_name )
output-print "" ;
ask bond [who] of self myfirstpage
[
;;set edits 1
;; set label-color white
;; set label edits
]
]
]
]
;; у нас есть юзер, но нет страницы
[ ifelse (any? users with [agentname = agent_name]) and (not any? pages with [pagename = page_name])
[
let author [who] of one-of users with [agentname = agent_name] ;
output-print agent_name ;

ask user author [hatch-pages 1
[ set color green set pagename page_name
set label-color white set label pagename
create-bond-from myself
output-print ( word "Создал " pagename )
output-print "" ;
] ;; ask bond [who] of myself myfirstpage [set edits 1]
;
]
]
;; Ситуация, когда есть и пользователь и страница - и там варианты с тем, что есть связь или нет связи
[
let author [who] of one-of users with [agentname = agent_name] ;
let mypage [who] of one-of pages with [pagename = page_name] ;
ifelse is-link? bond author mypage [ask bond author mypage
[set edits edits + 1 set label edits
]

]
[
ask user author [
create-bond-to page mypage
]
ask bond author mypage [
;; set edits 1 set label edits
]
]
; ask bond author mypage [set edits edits + 1 set label edits] ;

];; Если есть и страница и агент, то надо просто увеличить значение связи
]] ;

layout
update-plots

end

to layout
layout-spring turtles links 0.2 0.04 0.7
display

end
</syntaxhighlight>

Обсуждение:ScratchWikis2026 - История изменений