Grouse Populations

1 collaborator

Hayley Ehrenfeld (Author)

WHAT IS IT?

(a general understanding of what the model is trying to show or explain)

HOW IT WORKS

(what rules the agents use to create the overall behavior of the model)

HOW TO USE IT

(how to use the model, including a description of each of the items in the Interface tab)

THINGS TO NOTICE

(suggested things for the user to notice while running the model)

THINGS TO TRY

(suggested things for the user to try to do (move sliders, switches, etc.) with the model)

EXTENDING THE MODEL

(suggested things to add or change in the Code tab to make the model more complicated, detailed, accurate, etc.)

NETLOGO FEATURES

(interesting or unusual features of NetLogo that the model uses, particularly in the Code tab; or where workarounds were needed for missing features)

RELATED MODELS

(models in the NetLogo Models Library and elsewhere which are of related interest)

CREDITS AND REFERENCES

(a reference to the model's URL on the web if it has one, as well as any other necessary credits, citations, and links)

Comments and Questions

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

Click to Run Model

breed [grouse a-grouse]
breed [foxes fox]
breed [hunters hunter]
breed [dgrouse a-dgrouse]
grouse-own [energy]
foxes-own [energy]
dgrouse-own [ghost]

to setup
  clear-all
  setup-patches
  reset-ticks
  setup-turtles

  set-default-shape grouse "grouse"

  set-default-shape dgrouse "dgrouse"

  set-default-shape foxes "fox"

  set-default-shape hunters "person farmer"
end 

to go


ask grouse [
   move-grouse

   eat-grass

   check-death-grouse
   reproduce-grouse
   ]

 ask foxes [
  move-foxes
  set energy energy + random-float fox-energy
   check-death-foxes
   catch-grouse-fox
   reproduce-foxes
   ]



ask hunters [
  move-hunters
  catch-grouse-hunter
  catch-foxes
  ]

ask dgrouse
[set ghost ghost + 1
  check-moveon]

  regrow-grass


  tick
end 

to move-grouse
  ask grouse [
    right random 360
    forward 1
    set energy energy - 1
  ]
end 

to move-foxes
  ask foxes [
    right random 360
    forward 1
    set energy energy - 1
  ]
end 

to move-hunters
  ask hunters [
    right random 360
    forward 1 ]
end 

to setup-patches
  ask patches [ set pcolor violet]
end 

to setup-turtles
  create-grouse number-grouse
  create-foxes number-foxes
  create-hunters number-hunters
  ask grouse [ setxy random-xcor random-ycor set energy energy + random-float 100]
  ask foxes [ setxy random-xcor random-ycor set energy energy + random-float 100]
  ask hunters [ setxy random-xcor random-ycor]
end 

to eat-grass
  ask grouse [
  if pcolor = violet [
    set pcolor black
    set energy energy + Heather-nutrients]
  ]
end 

to reproduce-grouse
  ask grouse

 [ if energy > 50 [
     set energy energy - 50
     hatch 1 [set energy 50]
 ]
 ]
end 

to reproduce-foxes
   ask foxes
   [ if energy > 50 [
       set energy energy - 50
       hatch 1 [ set energy 50]
   ]
   ]
end 

to catch-grouse-fox
   let prey one-of grouse-here
   if prey != nobody
    [ask prey [ die]]
    set energy energy + grouse-nutrients
end 

to catch-grouse-hunter
   let prey one-of grouse-here
   if prey != nobody
    [ask prey [set breed dgrouse]]
end 

to catch-foxes
   let prey one-of grouse-here
   if prey != nobody
    [ask prey [ die]]
end 

to check-death-grouse

   ask grouse [
     if energy <= 0 [die]]
end 

to check-death-foxes

   ask foxes [  if energy <= 0 [ die ]]
end 

to regrow-grass
   ask patches [
     if random 100 < grass-rate [ set pcolor violet]
   ]
end 

to check-moveon
   ask dgrouse [ if ghost = 2 [die]]
end 



;try to have moniter count grouse die by hunter
; set fox energy random
; remove energy from hunters

There is only one version of this model, created over 9 years ago by Hayley Ehrenfeld.

Attached files

File	Type	Description	Last updated
Grouse Populations.png	preview	Preview for 'Grouse Populations'	over 9 years ago, by Hayley Ehrenfeld	Download

This model does not have any ancestors.

This model does not have any descendants.

NetLogo