csss-beedza/Source/bmodel.nls

26 lines
888 B
Text
Raw Normal View History

2013-07-17 20:23:15 +02:00
spots-own [ flower-type pollinisation-score amount-of-wild-hives ]
2013-07-17 19:10:41 +02:00
2013-07-17 20:23:15 +02:00
to setup-wild-bees
ask spots
2013-07-17 21:12:45 +02:00
[ set amount-of-wild-hives random max-wild-hives ]
2013-07-17 19:10:41 +02:00
end
2013-07-17 23:58:24 +02:00
to go-pollinate
2013-07-17 21:12:45 +02:00
if flower-season [
2013-07-17 23:58:24 +02:00
ask spots with [any? beekeepers-here]
[ set pollinisation-score amount-of-wild-hives + item 0 [amount-of-hives] of beekeepers-here
;show pollinisation-score
if pollinisation-score > 0 [ set size 5 ]] ]
if pollinisation-map-on
[ clear-drawing
ask turtles [ hide-turtle ]
let max-pollinisation-score max [ pollinisation-score ] of spots
ask patches with [ any? spots-here ]
[ let local-pollinisation-score (item 0 [ pollinisation-score ] of spots-here)
set pcolor scale-color RED local-pollinisation-score 0 50
;set pcolor WHITE
;if local-pollinisation-score > 0 [ show local-pollinisation-score ]
] ]
diffuse pcolor 0.2
2013-07-17 19:10:41 +02:00
end