Overfishing
No preview image
Model was written in NetLogo 6.1.1
•
Viewed 218 times
•
Downloaded 35 times
•
Run 0 times
Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)
Comments and Questions
Please start the discussion about this model!
(You'll first need to log in.)
Click to Run Model
turtles-own [ energy ] breed [fishes fish] breed [fishermen boat3] breed [drones drone] to go reset-ticks tick ask fishes [ if pcolor = green [ set pcolor blue set energy energy + 5 ] ifelse show-energy? [ set label energy ] [ set label "" ] ] ask fishes [ right random 360 forward 1 set energy energy - 1 ] ask fishermen [ right random 360 forward 1 set energy energy - 1 ] ask drones [ right random 360 forward 1 ] end to setup clear-all create-fishes 10 [set color white] create-fishermen 20 [ set shape "fishermen" set color 0 set size 2; easier to see set energy 10 ] reset-ticks ask patches [set pcolor blue] create-drones 50 [set color grey set shape "drone"] end to reproduce ask fishes [ if energy > 100 [ set energy energy - 100 hatch 1 [set energy 100] ] ] ask fishermen [ if energy > 1 [ set energy energy - 100 hatch 10 [set energy 100] ] ] end to death if energy < 0 [die] end to regrow-kelp ask patches [ if random 100 < 50 [set pcolor green] ] end to eat-fishes ; fishermen procedure let prey one-of fishes-here ;grab a random fishes end
There are 4 versions of this model.
Attached files
No files
This model does not have any ancestors.
This model does not have any descendants.