adaptations

No preview image

1 collaborator

Default-person Pratim Sengupta (Author)

Tags

(This model has yet to be categorized with any tags)
Model group sced2690 | Visible to everyone | Changeable by everyone
Model was written in NetLogo 5.0beta4 • Viewed 506 times • Downloaded 34 times • Run 3 times
Download the 'adaptations' modelDownload this modelEmbed this model

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 [height energy lifespan]
patches-own [countdown]

to setup
  ca
ask patches with [ pxcor <= (max-pxcor) and pxcor >= (min-pxcor) and pycor <= (max-pycor) and pycor >= (min-pycor + height-of-tree)]
[set pcolor green]
create-turtles 10
ask turtles [set color white]
ask n-of 2 turtles with [color = white] [ set color red]
ask n-of 2 turtles with [color = white] [ set color green - 3]
ask n-of 2 turtles with [color = white] [ set color orange]
ask n-of 2 turtles with [color = white] [ set color blue]
ask n-of 2 turtles with [color = white] [ set color yellow]
ask turtles with [color = red] [set height red-height]
ask turtles with [color = green - 3] [set height green-height]
ask turtles with [color = yellow] [set height yellow-height]
ask turtles with [color = blue ] [ set height blue-height]
ask turtles with [color = orange ] [ set height orange-height]
ask turtles [setxy random-xcor -16 
  set heading 0
  set energy 10
  set size 1.5
  set shape "bug"
  set lifespan 0]
reset-ticks
end 

to display-lifespan
  ask turtles [ set label "" ]
  if life-span?[
    ask turtles [ set label round lifespan ]]
end 

to go
tick
  move
  if ticks mod 10 = 0 [update-plots]
  kick-the-bucket
  regrow-trees
  reproduce
  if life-span?
  [ask turtles [if lifespan > 40 [die]]]
  display-lifespan  
end 

to reproduce
  ask turtles [
    if random-float 100 < 25 [
      set energy (energy / 2) 
      hatch 1 [setxy random-xcor -16
        set heading 0 
 
  if mutations = 0 [
  ifelse random 2 > 1
  [set height height + 0]
  [set height height - 0]]
   if mutations = 1 [
        ifelse random 10 > 5
        [set height height + .05]
        [set height height - .05]]
   if mutations = 2 [
        ifelse random 10 > 5
        [set height height + .1]
        [set height height - .1]]
    if mutations = 3 [
        ifelse random 10 > 5
        [set height height + .2]
        [set height height - .2]]
    if mutations = 4 [
        ifelse random 10 > 5
        [set height height + .5 ]
        [set height height - .5]]
    if mutations = 5 [
        ifelse random 10 > 5
        [set height height + .7]
        [set height height - .7]]
      set lifespan 0]]]
end   

to regrow-trees
  ask patches [if pcolor = brown [
    ifelse countdown <= 0
    [set pcolor green
      set countdown 10]
      [set countdown (countdown - 1 )]]
  ]
end 

to eat-trees
    if pcolor = green [
    set pcolor brown
    set energy (energy + 5)
  ]
end 

to move
  ask-concurrent turtles [
    fd height 
    rt 180
    eat-trees
    fd height
    rt 180
    set energy energy - 1
    rt 90 
    fd random (10)
    left 90
    set lifespan lifespan + 1]
end 

to kick-the-bucket
    ask turtles [if energy <= 0 [die]]
end 
  

There is only one version of this model, created almost 13 years ago by Pratim Sengupta.

Attached files

No files

This model does not have any ancestors.

This model does not have any descendants.