Evolution and forest resource use

Evolution and forest resource use preview image

This model is seeking new collaborators — would you please help?

1 collaborator

Default-person Susan Hanisch (Author)

Tags

evolution 

Tagged by Susan Hanisch almost 3 years ago

sustainability 

Tagged by Susan Hanisch almost 3 years ago

Visible to everyone | Changeable by everyone
Model was written in NetLogo 6.1.1 • Viewed 216 times • Downloaded 17 times • Run 0 times
Download the 'Evolution and forest resource use' modelDownload this modelEmbed this model

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


Model Information and Materials

Model Google Drive Link: https://drive.google.com/open?id=1S7Z_EGwPMY03kAzYcbs9VaaUjXA4Z34Z

Model GUI overview: https://drive.google.com/open?id=1itUv2XPcWANk7zGKwagNl8gtdmXR0m6v

Discussion guide and lesson plan: https://docs.google.com/document/d/1HXx9hVN55LUiHbBpFhVE--oqERHCfY_5rRgSeCEA-jg/edit?usp=sharing

References and Citation

For this model:

For the NetLogo-Software:

Licence

CC BY-NC-SA 3.0

This work is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International License. http://creativecommons.org/licenses/by-nc-sa/4.0/

Comments and Questions

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

Click to Run Model

breed [trees tree]
breed [farmers farmer]

farmers-own [
  harvest-type
  amount
  harvest
  wealth
]

trees-own [height]


;;;;;;;;;;;;;;;;;;;;;;
;;;Setup Procedures;;;
;;;;;;;;;;;;;;;;;;;;;;

to setup
  clear-all

  setup-pastures
  setup-trees
  setup-farmers

  reset-ticks
end 

to setup-pastures
  ask patches [set pcolor brown + 2]
end 

to setup-trees
  ask patches [
    sprout-trees 1 [
    set shape "tree"
    set color green - 2
    set height Max-Treeheight
    set size ( height / 100 )
  ]]
end 

to setup-farmers
  ask n-of Initial-Number-Agents patches
    [sprout-farmers  1 [
      set shape "person logger"

      set size 0.9 ] ]

  ask n-of Number-Modest farmers [ set harvest-type "sustainable"]

  update-color
end 


;;;;;;;;;;;;;;;;;;;;;;;;
;;;Runtime Procedures;;;
;;;;;;;;;;;;;;;;;;;;;;;;

to go

  ask farmers with [harvest-type = "sustainable"] [set amount Percent-cut-modest]
  ask farmers with [harvest-type = "greedy"] [set amount Percent-cut-greedy]

  cut-trees

  livingcosts

  if Reproduction?
  [reproduce]
  death

  ask trees [ regrow]

  tick
end 

to cut-trees

  harvest-commons

  ask farmers [set wealth wealth + harvest]
end 

to harvest-commons
  ask farmers [
     let harvest-tree max-one-of (trees in-radius 1) [height]
   ;; let neighborhood (patch-set neighbors with [not any? farmers-on self ])
  ;;  ifelse (any? neighborhood)
 ;;   [
     ;; let harvest-tree max-one-of (trees-on neighborhood) [height]
       move-to harvest-tree
        set harvest (  [height] of harvest-tree  * ( amount / 100))
        ask  harvest-tree [set height (height - (height * [amount ] of myself / 100))]
    ]
   ;; [set harvest 0]
  ;;]
end 

to livingcosts
  ask farmers [set wealth wealth - Living-costs]
end 

to reproduce

 ask farmers
  [ let neighborhood  (patch-set neighbors with [not any? farmers-on self ])
      if (any? neighborhood)  and random-float 1 < ( 0.0005 * wealth );;/ 100)
        [hatch 1 [
             mutate
         set wealth ([wealth] of myself / 2)
         move-to one-of neighborhood
          ]
        set wealth (wealth / 2)
        ]
     ]
end 

to mutate  ;; turtle procedure
    if random-float 100 < Mutation-rate
    [ifelse harvest-type = "sustainable"
      [set harvest-type "greedy"]
      [set harvest-type "sustainable"]
    ]
   update-color
end 

to death
  ask farmers
  [if wealth <= 0 [die]]
end 

to update-color
   ask farmers [
    ifelse harvest-type = "sustainable"
      [set color green ]
      [set harvest-type "greedy"
       set color red]
  ]
end 

to regrow ;; tree
  ifelse height > 0
   [ set height  (height + ((Growth-rate * height) * (1 - (height / ( Max-Treeheight)  ))))
   ]
   [set height 0.01]
  set size height / 100
end 

;;;;;;;;;;;;;;
;;;;;;;;;;;;;

;;; Farmers1 variables

to-report average-wealth-greedys
  report sum [wealth] of farmers with [harvest-type = "greedy"] / count farmers with [harvest-type = "greedy"]
end 

to-report average-wealth-sustainables
  report sum [wealth] of farmers with [harvest-type = "sustainable"] / count farmers with [harvest-type = "sustainable"]
end 

There are 2 versions of this model.

Uploaded by When Description Download
Susan Hanisch almost 3 years ago new Info added (link to lesson plan) Download this version
Susan Hanisch almost 3 years ago Initial upload Download this version

Attached files

File Type Description Last updated
Evolution and forest resource use.png preview Preview for 'Evolution and forest resource use' almost 3 years ago, by Susan Hanisch Download

This model does not have any ancestors.

This model does not have any descendants.