taller

1 collaborator

john moreno (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

turtles-own[resistencia ]

to inicio

  clear-all
  reset-ticks

  create-turtles tortugasf[
  setxy random-xcor random-ycor
    set resistencia 10
  ]
  ask patches [set pcolor green]
end 

to runn
  forward 1
  let contador 1
  set heading 160
END

to movertortugas
  ask turtles [
  forward 1
  set resistencia resistencia - 1
  set heading random 360

  if (pcolor = green) [
    set pcolor blue
    set resistencia resistencia + 1
  ]
    if (resistencia = 0) [
    die
    ]
  ]
end 

to comer-parcelas
  ask turtles [
    if pcolor = green [
      set pcolor black
           ;; the value of energy-from-grass slider is added to energy
      set resistencia (resistencia + tortugasf)
    ]
  ifelse show-energy?
    [ set label resistencia ] ;; the label is set to be the value of the energy
    [ set label "" ]     ;; the label is set to an empty text value
  ]
end 

to reproduce
  ask turtles [
    if resistencia > birth-energy [
    set resistencia resistencia - birth-energy  ;; take away birth-energy to give birth
    hatch 1 [ set resistencia birth-energy ] ;; give this birth-energy to the offspring
    ]
  ]
end 

to verificar-muertes
  ask turtles [
    if resistencia <= 43 [ die ] ;; removes the turtle if it has no energy left
  ]
end 

to regrow-grass
  ask patches [ ;; 3 out of 100 times, the patch color is set to green
    if random 100 < 3 [ set pcolor green ]
  ]
end 

to do-plots
  set-current-plot "Totals" ;; which plot we want to use next
  set-current-plot-pen "turtles" ;; which pen we want to use next
  plot count turtles ;; what will be plotted by the current pen
  set-current-plot-pen "grass" ;; which pen we want to use next
  plot count patches with [pcolor = green] ;; what will be plotted by the current pen
end

There is only one version of this model, created almost 8 years ago by john moreno.

Attached files

File	Type	Description	Last updated
taller.png	preview	Preview for 'taller'	almost 8 years ago, by john moreno	Download

This model does not have any ancestors.

This model does not have any descendants.

NetLogo