A prototype "quick sketch" model of CaudellAgents inspired by Tom Caudell's Flatland model

questions? stephen.guerin@sfcomplex.org

powered by NetLogo

view/download model file: CaudellAgents.nlogo

PROCEDURES

breed [bots bot]
breed [rays ray]
breed [foods food]

bots-own [myRays]

to setup
  reset-ticks
  clear-turtles
  create-bots 50 [
    set shape "bot"
    set color gray
    hatch 1 [set breed rays
      fd vision-distance
      ht
      create-link-with myself [tie]
    ]
    hatch 1 [set breed rays
      rt 20
      fd vision-distance
      ht
      create-link-with myself [tie]
    ]
    hatch 1 [set breed rays
      rt -20
      fd vision-distance
      ht
      create-link-with myself [tie]
    ]
  ]
  ask links [set color [255 255 255 50]]
  create-foods 30 [set size .5 set shape "square"  setxy random-xcor random-ycor   set color one-of [red blue green]]
end

to go
  ask bots [
    ask my-links [set color [255 255 255 50]]
    if any? foods-here [ask one-of foods-here [die]]
    let myFood look-for-food
    ifelse any? myFood 
       [let myTarget  min-one-of myFood [distance myself]  
         face myTarget 
         ask my-links [set color [color] of myTarget]
         fd .1]
       [rt random 100 - 50  fd .1]
      
    ]
  ;ask foods [set pcolor color]
 ; repeat 3 [diffuse pcolor .5]
  tick
  if ticks mod food-growth-time = 1 [
     create-foods 1 [set size .5 set shape "square"  setxy random-xcor random-ycor   set color one-of [red blue green]]
  ]
end
  
to-report look-for-food
  report foods in-cone vision-distance 40 
end