Intraspecific Competition Model-CNDD

globals [J N2 empty-patch-random K1 K2 K3]
breed [species1 a-species1]
breed [species2 a-species2]
turtles-own [species]
patches-own [random-number]

to setup
  clear-all
  set J (w1 + 1) * (w1 + 1)
  resize-world 0 w1 0 w1
  set N2 J - N1
  set K1 N1
  set K2 J - N1
  while [K1 > 0] [
    set empty-patch-random one-of patches with [count turtles-here = 0]
    create-species1 1 [
      setxy [pxcor] of empty-patch-random [pycor] of empty-patch-random
      set species 1
      set size 1
      set shape "circle"
      set color orange
    ]
    set K1 K1 - 1
  ]
  while [K2 > 0] [
    set empty-patch-random one-of patches with [count turtles-here = 0]
    create-species2 1 [
      setxy [pxcor] of empty-patch-random [pycor] of empty-patch-random
      set species 2
      set size 1
      set shape "circle"
      set color blue
    ]
    set K2 K2 - 1
  ]
  reset-ticks
end 

to go
  species1-die
  species2-die
  ask turtles [species-birth]
  stochastic-death
  update-plots
  tick
end 

to species1-die
  ask species1 [
    let count-neighbor-species1 count species1-on neighbors
    if (count-neighbor-species1 > CND-sp1) [
      die
    ]
  ]
end 

to species2-die
  ask species2 [
    let count-neighbor-species2 count species2-on neighbors
    if (count-neighbor-species2 > CND-sp2) [
      die
    ]
  ]
end 

to species-birth
  let empty-patches count patches with [count turtles-here = 0]
  if (empty-patches > 0) [
    set empty-patch-random one-of patches with [count turtles-here = 0]
    ask empty-patch-random [
      let species1-count count species1-on neighbors
      let species2-count count species2-on neighbors
      if (species1-count < CND-sp1) [
        ask one-of species1 [
          hatch 1
          setxy [pxcor] of empty-patch-random [pycor] of empty-patch-random
        ]
      ]
      if (species2-count < CND-sp2) [
        ask one-of species2 [
          hatch 1
          setxy [pxcor] of empty-patch-random [pycor] of empty-patch-random
        ]
      ]
    ]
  ]
end 

to stochastic-death
  if-else (non-overlapping-genrations? = true) [
    set K J
    setup
  ]
  [
    set K3 K
    while [K3 > 0][
      ask one-of turtles [
        die
      ]
      set K3 K3 - 1
    ]
  ]
end 


; Copyright 2023 Sareena, B. & Ruwan Punchi-Manage.
; * Corresponding Email: spunchi@sci.pdn.ac.lk
; See Info tab for full copyright and license.