logistic growth

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

to Setup
  clear-all
  crt N0 [set color green set shape "tree" move-to one-of patches]
  ask patches [update-patches]
  set open_space 1 set Nt-1 N0 set Nt N0
  reset-ticks
end 

to Go
  reproduce
  ask patches [update-patches]
  set open_space 1 - (count turtles / (K * count patches))
  set Nt-1 Nt
  set Nt (count turtles)
  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] face one-of neighbors fd random-float 0.5 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 0]
  ifelse count turtles-here < K [ask turtles-here [set color green]] [ask turtles-here [set color brown]]
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