Ant Pheremone investigation
Model was written in NetLogo 5.1.0
•
Viewed 439 times
•
Downloaded 55 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
patches-own [sugarpad-number sugarpad?] turtles-own [pheremone leader] to setup clear-all setup-patches set-default-shape turtles "bug" setup-turtles reset-ticks end to setup-patches ask patches [ set pcolor white setup-sugarpad ] end to setup-sugarpad if sugarpad? and (distancexy (0.5 * max-pxcor) 0) < 5 [set sugarpad-number 1] if sugarpad-number > 0 [ set pcolor brown ] end to setup-turtles crt 5 [ set size 2 set color red ] end ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; to count-ant1 show [list xcor ycor] of turtle 0 end to count-ant2 show [list xcor ycor] of turtle 1 end to count-ant3 show [list xcor ycor] of turtle 2 end to count-ant4 show [list xcor ycor] of turtle 3 end to count-ant5 show [list xcor ycor] of turtle 4 end ;;;;;;;;;;;;;;;;;;;;;;; to go if ticks >= 18000 [ stop ] move-turtles leave-pheremone pheremone-wear-off tick end to move-turtles ask turtles [ if pcolor != brown and pcolor != yellow and pcolor != 42 [right random 360 forward 3]] ask turtles [if pcolor = yellow [right random 360 forward 5]] leave-strong-pheremone-trail follow-strong-pheremone-trail measure-dispersion-of-turtles finish-programme end to leave-pheremone ;;may need to change value ask turtles [if pcolor = white and pcolor != 42 [set pcolor 46]] end to leave-strong-pheremone-trail ask turtles [if pcolor = brown and color = blue [repeat 1000000 [downhill sugarpad-number]]] ask turtles [if pcolor = brown and color != blue [set color blue set heading one-of [0 90 180 270] pd repeat 100 [forward 1 if pcolor != brown [set pcolor 42]]]] end to follow-strong-pheremone-trail ask turtles [if pcolor = 42 and patch-ahead 1 = white or patch-ahead 1 = yellow [set heading heading + 90 ] if patch-ahead 1 = 42 [forward 1]] ask turtles [if pcolor = 42 and patch-ahead 1 = brown [forward 1]] ask turtles [if pcolor = 42 and patch-ahead 2 = brown [forward 2]] ask turtles [if pcolor = 42 and patch-ahead 3 = brown [forward 3]] ask turtles [if pcolor = 42 and patch-ahead 4 = brown [forward 4]] ask turtles [if pcolor = 42 and patch-ahead 5 = brown [forward 5]] ask turtles [if pcolor = 42 and patch-ahead 6 = brown [forward 6]] ask turtles [if pcolor = 42 and patch-ahead 7 = brown [forward 7]] ask turtles [if pcolor = 42 and patch-ahead 8 = brown [forward 8]] ask turtles [if pcolor = 42 and patch-ahead 9 = brown [forward 9]] ask turtles [if pcolor = 42 and patch-ahead 10 = brown [forward 10]] ask turtles [if pcolor = 42 and patch-ahead 11 = brown [forward 11]] ask turtles [if pcolor = 42 and patch-ahead 12 = brown [forward 12]] ask turtles [if pcolor = 42 and patch-ahead 13 = brown [forward 13]] ask turtles [if pcolor = 42 and patch-ahead 14 = brown [forward 14]] ask turtles [if pcolor = 42 and patch-ahead 15 = brown [forward 15]] ask turtles [if pcolor = 42 and patch-ahead 16 = brown [forward 16]] ask turtles [if pcolor = 42 and patch-ahead 17 = brown [forward 17]] ask turtles [if pcolor = 42 and patch-ahead 18 = brown [forward 18]] ask turtles [if pcolor = 42 and patch-ahead 19 = brown [forward 19]] ask turtles [if pcolor = 42 and patch-ahead 20 = brown [forward 20]] ask turtles [if pcolor = 42 and patch-ahead 21 = brown [forward 21]] ask turtles [if pcolor = 42 and patch-ahead 22 = brown [forward 22]] ask turtles [if pcolor = 42 and patch-ahead 23 = brown [forward 23]] ask turtles [if pcolor = 42 and patch-ahead 24 = brown [forward 24]] ask turtles [if pcolor = 42 and patch-ahead 25 = brown [forward 25]] ask turtles [if pcolor = 42 and patch-ahead 26 = brown [forward 26]] ask turtles [if pcolor = 42 and patch-ahead 27 = brown [forward 27]] ask turtles [if pcolor = 42 and patch-ahead 28 = brown [forward 28]] ask turtles [if pcolor = 42 and patch-ahead 29 = brown [forward 29]] ask turtles [if pcolor = 42 and patch-ahead 30 = brown [forward 30]] ask turtles [if pcolor = 42 and patch-ahead 31 = brown [forward 31]] ask turtles [if pcolor = 42 and patch-ahead 32 = brown [forward 32]] ask turtles [if pcolor = 42 and patch-ahead 33 = brown [forward 33]] ask turtles [if pcolor = 42 and patch-ahead 34 = brown [forward 34]] ask turtles [if pcolor = 42 and patch-ahead 35 = brown [forward 35]] ask turtles [if pcolor = 42 and patch-ahead 36 = brown [forward 36]] ask turtles [if pcolor = 42 and patch-ahead 37 = brown [forward 37]] ask turtles [if pcolor = 42 and patch-ahead 38 = brown [forward 38]] ask turtles [if pcolor = 42 and patch-ahead 39 = brown [forward 39]] ask turtles [if pcolor = 42 and patch-ahead 40 = brown [forward 40]] ask turtles [if pcolor = 42 and patch-ahead 41 = brown [forward 41]] ask turtles [if pcolor = 42 and patch-ahead 42 = brown [forward 42]] ask turtles [if pcolor = 42 and patch-ahead 43 = brown [forward 43]] ask turtles [if pcolor = 42 and patch-ahead 44 = brown [forward 44]] ask turtles [if pcolor = 42 and patch-ahead 45 = brown [forward 45]] ask turtles [if pcolor = 42 and patch-ahead 46 = brown [forward 46]] ask turtles [if pcolor = 42 and patch-ahead 47 = brown [forward 47]] ask turtles [if pcolor = 42 and patch-ahead 48 = brown [forward 48]] ask turtles [if pcolor = 42 and patch-ahead 49 = brown [forward 49]] ask turtles [if pcolor = 42 and patch-ahead 50 = brown [forward 50]] ask turtles [if pcolor = 42 and patch-ahead 51 = brown [forward 51]] ask turtles [if pcolor = 42 and patch-ahead 52 = brown [forward 52]] ask turtles [if pcolor = 42 and patch-ahead 53 = brown [forward 53]] ask turtles [if pcolor = 42 and patch-ahead 54 = brown [forward 54]] ask turtles [if pcolor = 42 and patch-ahead 55 = brown [forward 55]] ask turtles [if pcolor = 42 and patch-ahead 56 = brown [forward 56]] ask turtles [if pcolor = 42 and patch-ahead 57 = brown [forward 57]] ask turtles [if pcolor = 42 and patch-ahead 58 = brown [forward 58]] ask turtles [if pcolor = 42 and patch-ahead 59 = brown [forward 59]] ask turtles [if pcolor = 42 and patch-ahead 60 = brown [forward 60]] ask turtles [if pcolor = 42 and patch-ahead 61 = brown [forward 61]] ask turtles [if pcolor = 42 and patch-ahead 62 = brown [forward 62]] ask turtles [if pcolor = 42 and patch-ahead 63 = brown [forward 63]] end to pheremone-wear-off ask patches [if pcolor != white and pcolor != brown and pcolor != 42 and random 1000 < 1 [set pcolor 47 ] ] end to finish-programme if all? turtles [pcolor = brown or pcolor = 42] [stop] end to measure-dispersion-of-turtles ;entropy ask turtle 0 [show distance turtle 1] ask turtle 0 [show distance turtle 2] ask turtle 0 [show distance turtle 3] ask turtle 0 [show distance turtle 4] ask turtle 1 [show distance turtle 2] ask turtle 1 [show distance turtle 3] ask turtle 1 [show distance turtle 4] ask turtle 2 [show distance turtle 3] ask turtle 2 [show distance turtle 4] ask turtle 3 [show distance turtle 4] end ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;By Nye Rhys Potter
There are 7 versions of this model.
Attached files
File | Type | Description | Last updated | |
---|---|---|---|---|
Ant Pheremone investigation.png | preview | Preview for 'Ant Pheremone investigation' | about 10 years ago, by Nye Rhys Potter | Download |
This model does not have any ancestors.
This model does not have any descendants.