Hallo, ichn Soziologiestudentin und möchte mit Netlogo Schulwahlverhalten darstellten. Dabei wird die Wahl beeinflusst von Bildung und Einkommen. Ich sitze schon seit Tagen am Programm aber es läuft nicht...
vllt kann ja jemand helfen
globals [
attendance ;; the current attendance at the privatschool
history ;; list of past values of attendance
privatschool-patches
publicschool-patches
Bildung
Einkommen
]
breed [parents parent]
parents-own[
strategy]
to setup
clear-all
set-default-shape parents "person"
create-parents 1 [ ;Turtles werden ertellt mit spez. Eigenschaften, es werden 10 unterschiedliche Peronen erstellt
set size 1
setxy -2 -2
set Bildung 1
set Einkommen 2
]
create-parents 2 [
set size 1
setxy -2 0
set Bildung 2
set Einkommen 6
]
create-parents 3 [
set size 1
setxy -1 -1
set Bildung 5
set Einkommen 12
]
create-parents 4 [
set size 1
setxy 0 -2
set Bildung 7
set Einkommen 16
]
create-parents 5 [
set size 1
setxy 1 -2
set Bildung 3
set Einkommen 2
]
create-parents 6 [
set size 1
setxy 1 0
set Bildung 5
set Einkommen 10
]
create-parents 7 [
set size 1
setxy 2 -1
set Bildung 7
set Einkommen 12
]
create-parents 8 [
set size 1
setxy -2 2
set Bildung 9
set Einkommen 13
]
create-parents 9 [
set size 1
setxy -1 2
set Bildung 6
set Einkommen 15
]
create-parents 10 [
set size 1
setxy 0 1
set Bildung 10
set Einkommen 20
]
;; create the 'privatschool'
set privatschool-patches patches with [pxcor = -10 and pycor = 5]
ask privatschool-patches [ set pcolor blue ]
;; create the 'publicschool'
set publicschool-patches patches with [pxcor = 10 and pycor = 5]
ask publicschool-patches [ set pcolor red ]
reset-ticks
end
to go
decide-school
Strategie1
Strategie2
update-patches
update-patches2
set Einkommen Einkommen * 0.01
set Bildung Bildung * 0.01
end
to decide-school
ask parents [
if Bildung >= 10 [Strategie1]
if Einkommen >= 20 [Strategie1]
]
end
to Strategie1
ask parents [
if strategy = "Strategie1"
[move-to privatschool-patches
set pcolor blue ]
]
end
to Strategie2
ask parents [
if strategy = "Strategie2"
[move-to publicschool-patches
set pcolor red ]
]
end
to update-patches
ask publicschool-patches
[if any? neighbors with [pcolor = blue]
[ask patch-here [set pcolor blue]]
]
end
to update-patches2
ask privatschool-patches
[if any? neighbors with [pcolor = red]
[ask patch-here [set pcolor red]]
]
end
rebekkas (1) |