logistic growth

globals [open_space]
patches-own [binding_0 binding_1 aff_0 aff_1 open? ideal_type]
turtles-own [cell_type my_affinity]

to Setup
  clear-all
  crt 1 [set cell_type 1 set shape "circle"]
  ask patches [update-patches]
  set open_space 1
  reset-ticks
end 

to Go
  reproduce
  ask patches [update-patches]
  set open_space 1 - (count turtles / (K * count patches))
  tick
end 

to reproduce
  ask turtles [if random-float 1 < r [if any? patches with [open? = 1] [hatch 1 [migrate]]]]
end 

to migrate
  ;carefully [move-to one-of patches with [open? = 1] update-patches] [die]
  move-to one-of patches ifelse open? = 1 [update-patches] [die]
end 

to update-patches  ;; Patch context only
  ifelse count turtles-here > K [set open? 0 set pcolor 0 ask one-of turtles-here [die]] [set open? 1 set pcolor 9.9]
end 

;to update-cells?
;;  ask turtles [ifelse cell_type = 0 [set color red set color lput (opacity * 250) extract-rgb color]
;    [set color blue set color lput (opacity * 250) extract-rgb color]]
;  ask turtles [set size cell_size]
;end