first exercise_missing model happiness

globals[freedom]

turtles-own[happiness]

to setup
  clear-all reset-ticks   ;;; this is  the first raw
  create-turtles n-turtles
  [set shape "person" set size 1
    setxy random-xcor random-ycor
    set color one-of [red blue]
    set happiness 1]
end 

to go
  ask turtles [fd 1 rt 10 set heading random man-heading
    let m count turtles-here
    if m > 2 and m < 4
     [set happiness (happiness + 1) / m ]
  ]
  tick
end 

to-report averge-happiness
report  mean [happiness] of turtles
end