BEES SOURCE CODE

Back to Bees


Turtle Procedures Observer Procedures
patches-own [chemical] 

to setup 
setxy 0 0 
fd random 10 
setc orange 
end 

to go 
rt int 4 * chemical 
fd 1 + chemical * chemical / 60 
set chemical chemical + 2 
end

to setup 
ca 
crt number 
ask-turtles [setup] 
set chemical 0 
end 

to go 
ask-turtles [go] 
ask-patches 
   [set chemical chemical * 
   0.99] 
diffuse chemical .01 
ask-patches [scale-pc yellow chemical 4 15]
end