Wolf Sheep Predation with Plasticity of Temporal Niche

Wolf Sheep Predation with Plasticity of Temporal Niche preview image

1 collaborator

Default-person Vishwanath Varma (Author)

Tags

(This model has yet to be categorized with any tags)
Visible to everyone | Changeable by everyone
Model was written in NetLogo 6.1.0 • Viewed 112 times • Downloaded 9 times • Run 0 times
Download the 'Wolf Sheep Predation with Plasticity of Temporal Niche' modelDownload this modelEmbed this model

Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)


Info tab cannot be displayed because of an encoding error

Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

globals [ max-sheep
          day
]  ; don't let the sheep population grow too large

; Sheep and wolves are both breeds of turtles
breed [ sheep a-sheep ]  ; sheep is its own plural, so we use "a-sheep" as the singular
breed [ ssheep a-ssheep ]
breed [ wolves wolf ]

turtles-own [ energy
              nearest-wolf
              nearby-patches-with-grass
              plasticity
              plasticity-yday
              countdown-sheep
]       ; both wolves and sheep have energy

patches-own [ countdown ]    ; this is for the sheep-wolves-grass model version

to setup
  clear-all
  ifelse netlogo-web? [ set max-sheep 10000 ] [ set max-sheep 30000 ]

  ; Check model-version switch
  ; if we're not modeling grass, then the sheep don't need to eat to survive
  ; otherwise each grass' state of growth and growing logic need to be set up
  set day 1
  ifelse model-version = "sheep-wolves-grass" [
    ask patches [
      set pcolor one-of [ green brown ]
      ifelse pcolor = green
        [ set countdown grass-regrowth-time ]
      [ set countdown random grass-regrowth-time ] ; initialize grass regrowth clocks randomly for brown patches
    ]
  ]
  [
    ask patches [ set pcolor green ]
  ]

  create-sheep initial-number-sheep / 2 ; create the sheep, then initialize their variables
  [
    set shape  "sheep"
    set color white
    set size 1.5  ; easier to see
    set label-color blue - 2
    set energy random (2 * sheep-gain-from-food)
    setxy random-xcor random-ycor
  ]

  create-ssheep initial-number-sheep / 2 ; create the sheep, then initialize their variables
  [
    set shape  "sheep"
    set plasticity 1
    set plasticity-yday 1
    set countdown-sheep 250
    set color red
    set size 1.5  ; easier to see
    set label-color blue - 2
    set energy random (2 * sheep-gain-from-food)
    setxy random-xcor random-ycor
  ]

  create-wolves initial-number-wolves  ; create the wolves, then initialize their variables
  [
    set shape "wolf"
    set color black
    set size 2  ; easier to see
    set energy random (2 * wolf-gain-from-food)
    setxy random-xcor random-ycor
  ]
  display-labels

  reset-ticks
end 

to go


  if ticks > day * 300 [ set day day + 1 ]
  ; stop the model if there are no wolves and no sheep
  if not any? turtles [ stop ]
  ; stop the model if there are no wolves and the number of sheep gets very large
  if not any? wolves and count sheep > max-sheep [ user-message "The sheep have inherited the earth" stop ]
  ask sheep [
    ifelse ticks > (day * 300) - 150 and ticks < (day)  * 300  [
      set heading towards patch 50000 50000
      fd 1 ]
    [ move

    ; in this version, sheep eat grass, grass grows, and it costs sheep energy to move
      if model-version = "sheep-wolves-grass" [
        set energy energy - 1  ; deduct energy for sheep only if running sheep-wolves-grass model version
        eat-grass  ; sheep eat grass only if running the sheep-wolves-grass model version
        death ; sheep die from starvation only if running the sheep-wolves-grass model version
        reproduce-sheep  ; sheep reproduce at a random rate governed by a slider
  ] ] ]

  ask ssheep [
      ifelse ticks > (day * 300) - 150 - (50 * plasticity) and ticks < ((day)  * 300) - (50 * plasticity) [
      set heading towards patch -50000 50000
      fd 1 ]
    [ move
      find-nearest-wolf
      if not any? wolves [ stop ]
      if distance nearest-wolf < 20 [
        adjust-timing ]
      ifelse ticks < day * 300 [
        set plasticity-yday plasticity-yday ]
      [ set plasticity-yday plasticity ]
    ; in this version, sheep eat grass, grass grows, and it costs sheep energy to move
      if model-version = "sheep-wolves-grass" [
        set energy energy - 1  ; deduct energy for sheep only if running sheep-wolves-grass model version
        eat-grass  ; sheep eat grass only if running the sheep-wolves-grass model version
        death ; sheep die from starvation only if running the sheep-wolves-grass model version
        reproduce-sheep  ; sheep reproduce at a random rate governed by a slider
  ] ] ]

  ask wolves [
    ifelse ticks > (day * 300) - 150 and ticks < day * 300 [
      set heading towards patch 0 -50000
      fd 1 ]

    [
    move
    set energy energy - 1  ; wolves lose energy as they move
    avoid-refuge
    eat-sheep  ; wolves eat a sheep on their patch
    eat-ssheep
    death ; wolves die if they run out of energy
    reproduce-wolves ; wolves reproduce at a random rate governed by a slider
  ] ]

  if model-version = "sheep-wolves-grass" [ ask patches [ grow-grass ] ]

  tick
  display-labels
end 

to move  ; turtle procedure
  rt random 50
  lt random 50
  fd 1
end 

to avoid-refuge
  if distance patch -50000 50000 < 5
  [ set heading heading + 60
    fd 1 ]
end 

to adjust-timing

  if countdown-sheep = 300
  [ set plasticity plasticity + 1 ]
  set countdown-sheep countdown-sheep - 1
  if countdown-sheep < 1
  [ set countdown-sheep 300 ]
end 

to find-nearest-wolf ;; sheep procedure
  set nearest-wolf min-one-of wolves [distance myself]
end 

;;; Avoid-Wolf

to avoid-wolf  ;; sheep procedure
  if not any? wolves [
    stop
  ]
  if distance nearest-wolf < 10 [
  set heading ([heading] of nearest-wolf) + 90
  ]
end 

to eat-grass  ; sheep procedure
  ; sheep eat grass and turn the patch brown
  if pcolor = green [
    set pcolor brown
    set energy energy + sheep-gain-from-food  ; sheep gain energy by eating
  ]
end 

to reproduce-sheep  ; sheep procedure
  if random-float 100 < sheep-reproduce [  ; throw "dice" to see if you will reproduce
    set energy (energy / 2)                ; divide energy between parent and offspring
    hatch 1 [ rt random-float 360 fd 1 ]   ; hatch an offspring and move it forward 1 step
  ]
end 

to reproduce-wolves  ; wolf procedure
  if random-float 100 < wolf-reproduce [  ; throw "dice" to see if you will reproduce
    set energy (energy / 2)               ; divide energy between parent and offspring
    hatch 1 [ rt random-float 360 fd 1 ]  ; hatch an offspring and move it forward 1 step
  ]
end 

to eat-sheep  ; wolf procedure
  let prey one-of sheep-here                    ; grab a random sheep
    if prey != nobody  [                          ; did we get one? if so,
      ask prey [ die ]                            ; kill it, and...
      set energy energy + wolf-gain-from-food     ; get energy from eating

  ]
end 

to eat-ssheep  ; wolf procedure
  let prey one-of ssheep-here                    ; grab a random sheep
    if prey != nobody  [                          ; did we get one? if so,
      ask prey [ die ]                            ; kill it, and...
      set energy energy + wolf-gain-from-food     ; get energy from eating
  ]
end 

to death  ; turtle procedure (i.e. both wolf and sheep procedure)
  ; when energy dips below zero, die
  if energy < 0 [ die ]
end 

to grow-grass  ; patch procedure
  ; countdown on brown patches: if you reach 0, grow some grass
  ifelse ticks < (day * 300) - 150 and ticks > (day - 1)  * 300
    [ if pcolor = brown [
      ifelse countdown <= 0
        [ set pcolor green
          set countdown grass-regrowth-time ]
        [ set countdown countdown - 1 ] ] ]
    [ if pcolor = brown [
      ifelse countdown <= 0
        [ set pcolor green
          set countdown grass-regrowth-time + resource-limitation-day ]
        [ set countdown countdown - 1 ] ]
  ]
end 

to-report grass
  ifelse model-version = "sheep-wolves-grass" [
    report patches with [pcolor = green]
  ]
  [ report 0 ]
end 

to display-labels
  ask turtles [ set label "" ]
  if show-energy? [
    ask wolves [ set label round energy ]
    if model-version = "sheep-wolves-grass" [ ask sheep [ set label round energy ] ]
  ]
end 

to-report sheep-on-grass
  report (count sheep with [ pcolor = green ]) / count sheep
end 

to-report ssheep-on-grass
  report (count ssheep with [ pcolor = green ]) / count ssheep
end 

to-report nearby-grass-for-sheep
  ask sheep [
  set nearby-patches-with-grass count neighbors with [ pcolor = green ]
  ]
  report mean [ nearby-patches-with-grass ] of sheep
end 

to-report nearby-grass-for-ssheep
  ask ssheep [
  set nearby-patches-with-grass count neighbors with [ pcolor = green ]
  ]
  report mean [ nearby-patches-with-grass ] of ssheep
end 


; Copyright 1997 Uri Wilensky.
; See Info tab for full copyright and license.

There is only one version of this model, created over 4 years ago by Vishwanath Varma.

Attached files

File Type Description Last updated
Wolf Sheep Predation with Plasticity of Temporal Niche.png preview Preview for 'Wolf Sheep Predation with Plasticity of Temporal Niche' over 4 years ago, by Vishwanath Varma Download

This model does not have any ancestors.

This model does not have any descendants.