;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
;; initialization
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

globals
[
  tsub ;; total number of subscriptions in our network
  avgsub ;; average number of subscriptions per turtle
  avgpq ;; average post-quotient of our turtles, should be approaching => 1/t-postinterval
  avgp ;; average total-postings per turtle
  avgld ;; average link death rate
  avgldc ;; number of times link death rate is calculated
  max-subscriptions ;; maximum number of subscriptions a person can maintain
  indegrees ;;
  outdegrees ;;
]

directed-link-breed [ subscriptions subscription ]
directed-link-breed [ readings reading ]

readings-own
[
  
]

subscriptions-own
[
  number-of-messages ;; how many messages have passed down this link
  last-message-tick ;; the ticknumber of the last message
  link-strength ;; a positive integer indicating the link-strength
]

turtles-own
[
  total-subscriptions ;; how many nodes this node is subscribed to (REDUNDANT)
  total-subscribers ;; how many nodes are subscribed to this node
  total-postings ;; how many postings have been created
  posting-dates ;; list of dates of when postings were made
  post-quotient ;; how many posts per tick this node makes
  read-quotient ;; how many posts per tick this node reads
  post-queue ;; how many posts this node should make at any given tick
]


to setup
  clear-all

  set-default-shape turtles "circle"
  crt peers [
    set color blue
    set size 0.3
  ]
  random-seed 137
  let post-mean 1 / t-postinterval

  set max-subscriptions 30 ;; sociologist say that a person can keep 150 connections active at max

  ask turtles [ 
     setxy random-xcor random-ycor
     set total-subscriptions 0
     set total-postings 0
     set posting-dates [ ]
     set post-queue 0
     set post-quotient random-exponential post-mean
     set read-quotient random-exponential n-readings
  ]
  
  ask turtles [
     set avgpq avgpq + post-quotient
  ]
  set avgpq avgpq / count turtles
  
end

;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
;; main routine
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

to go
  if not any? turtles [ stop ]
  if (stop-365 and ticks = 365) [ stop ]

  if (courses) [
  
    let week floor ( ticks / 7 ) + 1
    ifelse ( week mod 12 = 0 ) [
       ;;seven days of high reciprocity
       set p-reciprocity 0.3
       if (ticks mod 7 = 0) [
         let n 0
         while [n < n-facilitators] [
            random-structure
            set n n + 1
         ]
       ] ;; only first day injects structure
    ] [ 
       set p-reciprocity 0.01
    ] ;; if week 12
    
  ] ;; if courses = ON 

  ;; posts created and expired:
  create-q-posting ;; create postings
  delete-posting ;; remove older postings

  ;; new subscriptions:
  random-read ;; read random posts
  random-subscription ;; subscribe randomly
  authority-subscription ;; subscribe to people with high indegree
  
  if feedback [
    reciprocal-subscription ;; subscribe to my subscribers
  ]
  
  ;; where do we model the offers?
  
  age-subscriptions ;; drop out weak subscriptions & weaken inactive links
  die-subscriptions-random ;; random chance that a subscription is deemed uninteresting

  layout-spring turtles subscriptions 0.18 0.01 1.2 ;;(world-width / 2 - 2)

  ask subscriptions [
     if thickness < 0.3 [
        set thickness (link-strength / (36.5 * 20))
        if thickness > 0.3 [
          set thickness 0.3
        ]
     ]
  ]
  
  ;; adjust the size of nodes based on how many in-links they have
  ask turtles [
     let n-subscribers count in-subscription-neighbors
     ifelse (n-subscribers > 0) [ set label n-subscribers ] [ set label "" ]
     if n-subscribers < 1 [ set n-subscribers 2 ] ;; hack to have the smallest nodes 0.25 in size
     set size n-subscribers / 8
  ]

  plot-indegrees ;; plot indegree distribution
  plot-total-subs ;; update total subs diagramme
  avg-posts ;; update average post-no per turtle
  avg-subs ;; update average subs diagramme

  highlight-bidi-subscriptions ;; visualise bidirectional links in red

  tick
end



;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
;; Diagrammes
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

to plot-total-subs
   set-current-plot "total # of subscriptions"
   set-plot-pen-color black
   set tsub 0
   ask turtles [
      set tsub tsub + total-subscriptions
   ]
   plotxy ticks tsub
   ;;set-plot-pen-color green
   ;;plotxy ticks avgsub
end

to plot-indegrees

   set-current-plot "indegree distribution"
   clear-plot ;; we don't want to miggle with the last tick
      
   ;; calc indegree distribution
   set indegrees n-values peers [0]
   ;;set outdegrees n-values peers [0]
   ask turtles [
     let myindeg count my-in-subscriptions
     ;;if (myindeg > 30) [ set myindeg 30 ]
     set indegrees (replace-item myindeg indegrees ((item myindeg indegrees) + 1))
     ;;let myoutdeg count my-out-subscriptions
     ;;set outdegrees (replace-item myoutdeg outdegrees ((item myoutdeg outdegrees) + 1))
   ]
  
   ;; display indegree distribution
   let n 0
   while [n < floor peers / 2] [
     set-plot-pen-color black
     plotxy n item n indegrees
     ;;set-plot-pen-color green
     ;;plotxy n item n outdegrees
     set n n + 1
   ]
   
end

to avg-subs
   ;;set-current-plot "avg # of subscriptions"
   set avgsub 0
   ask turtles [
      set avgsub avgsub + total-subscriptions
   ]
   set avgsub avgsub / count turtles
   ;;plotxy ticks avgsub
end

to avg-posts
  ask turtles
  [
    set avgp avgp + total-postings
  ]
  set avgp avgp / count turtles ;; / (ticks + 1)
end

;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
;; SUBSCRIPTIONS
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

to random-subscription
  ;; Have all nodes possibly subscribe to a random turtle
  ask turtles [
     let r random 100
     if ( total-subscriptions > max-subscriptions ) [ print (word self " reached max subs")]
     if r / 100 < p-subscription and total-subscriptions < max-subscriptions [
        let targ one-of other turtles with [ total-postings > 0 and not in-subscription-neighbor? myself ] 
        create-subscription-to targ
        ask subscriptions with [ end1 = myself and end2 = targ ] [
          set link-strength 1
          set last-message-tick ticks ;; tick because it is the day of transferring the message, not the day of writing the posting
        ]
        set total-subscriptions total-subscriptions + 1
        ;;print (word "---> random-sub T: " self " OL: " count my-out-links " TS: " total-subscriptions)
     ] ;; we make a new outgoing link
     
     ;; add else: delete older weak sub with probability threshold !!
     
  ] ;; create random new outgoing links

end

to authority-subscription ;; subscribe to those with high indegrees

   ;; calc indegree distribution
   let tin sort-by [[count my-in-subscriptions] of ?1 > [count my-in-subscriptions] of ?2] turtles with [total-postings > 0]
   
   ask turtles [
   
     let i floor ( abs( 1 - random-poisson 100 / 100 ) * 100 )
     ;; show (word "AUTHSUB: " i)
     let r random-exponential 100

     if ( total-subscriptions > max-subscriptions ) [ print (word self " reached max subs with auth-sub")]
     if r / 100 < p-subscription and total-subscriptions < max-subscriptions [

        let tin2 sort-by [[count my-in-subscriptions] of ?1 > [count my-in-subscriptions] of ?2] (turtle-set tin) with [not in-subscription-neighbor? myself and self != myself]

        let targ item i tin2
        ;; show (word "---> " targ)
        ;; if with [ total-postings > 0 and not in-subscription-neighbor? myself ] 
        create-subscription-to targ
        ask subscriptions with [ end1 = myself and end2 = targ ] [
          set link-strength 1
          set last-message-tick ticks ;; tick because it is the day of transferring the message, not the day of writing the posting
        ]
        set total-subscriptions total-subscriptions + 1

     ] ;; outgoing link to authority
      
   ] ;; turtles

end

to neighborhood-subscription ;; subscribe to one of your neighbor's neighbors

end

to reciprocal-subscription
  ;; Have all nodes possibly subscribe to one of their subscribers
  ask turtles [
     let r random-exponential 100
     if ( total-subscriptions > max-subscriptions ) [ print (word self " reached max subs via reciprocity")]
     if (r / 100 < p-reciprocity) and (total-subscriptions < max-subscriptions) and (count in-subscription-neighbors > 0) [
        ;;print (word self " should make a reciprocal link.... " count in-subscription-neighbors)
        let targ one-of in-subscription-neighbors with [ total-postings > 0 and not in-subscription-neighbor? myself ]
        if (targ != nobody) [
           create-subscription-to targ
           ;;print (word "----> done " targ)
           ask subscriptions with [ end1 = myself and end2 = targ ] [
             set link-strength 1
             set last-message-tick ticks
           ]
           set total-subscriptions total-subscriptions + 1
           ;;print (word "---> reciprocal-sub T: " self " OL: " count my-out-subscriptions " TS: " total-subscriptions)
        ] ;; if there was an incoming link
     ] ;; if it was probable to set the corresponding outgoing link
     
     ;; add else for dropping out old weak subs
     
  ] ;; turn incoming into outgoing links  
end

to age-subscriptions
  ask subscriptions
  [
    let r (random-exponential 100) / 100
    set r r * t-linkdeath
    set avgld avgld + r
    set avgldc avgldc + 1
    if ( ticks - last-message-tick ) > r [
      set link-strength link-strength - 1
    ]
    if link-strength < 1 [
      ask end1 [ 
         set total-subscriptions total-subscriptions - 1
         ;; print (word "<--- age-sub T: " self " OL: " ((count my-out-subscriptions) - 1) " TS: " total-subscriptions)
      ]
      ;; print (word end1 "->" end2 " dying")
      die
    ]
  ]
end

to die-subscriptions-random
  ask turtles
  [
    ;; print (count my-out-subscriptions)
    if (count my-out-subscriptions != total-subscriptions) [ print (word "T:" self " OL: " count my-out-subscriptions " IL: " count my-in-subscriptions " different than total subs" total-subscriptions) ]
    if (count my-out-subscriptions > 0) ;; if (total-subscriptions > 0)
    [
      let r random 100 / 100
      if ( r < p-subscriptiondeath )
      [
        ask one-of subscriptions with [ end1 = myself ] [
          die
        ]
        set total-subscriptions total-subscriptions - 1
        ;; print (word "<--- die-random T: " self " OL: " count my-out-subscriptions " TS: " total-subscriptions)
      ]
    ]
  ]
end

to die-subscriptions-zombie
end

to die-subscriptions-spamming
end


to highlight-bidi-subscriptions
  ask subscriptions [
     if (colors) [ set color gray ]
  ]
  ask turtles
  [
    let caller self
    ask my-out-subscriptions [
      ask end2 [ 
        if (out-subscription-neighbor? caller) [ 
          ask subscriptions with [ end2 = caller ] [ 
            if (colors) [ set color red ]
            ;;print (word end1 end2 " turned red")
          ]
        ] ;; ifelse bi-directional 
      ] 
    ] ;; all my-outlinks
  ] ;; all turtles
end


;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;; READING
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

to random-read ;; ask all turtles and read

  ask turtles [ 

    let rq read-quotient
    let posts-to-read 0
    ifelse ((random 100) / 100 > (1 - (rq - floor rq)))
    [
      set posts-to-read (floor rq + 1)
    ]
    [ 
      set posts-to-read (floor rq)
    ]

  ] ;; turtles
  
end


;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
;; POSTINGS
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

;; - - - - - - - - - - - - - - - - - - 
;; create posting (based on post-quotient)

to create-q-posting
  ask turtles [ 
    let pq post-quotient
    let posts-to-post 0
    ifelse ((random 100) / 100 > (1 - (pq - floor pq)))
    [
      set posts-to-post (floor pq + 1)
    ]
    [ 
      set posts-to-post (floor pq)
    ]
    set total-postings total-postings + posts-to-post
    
    ;; change color based on posting status
    ifelse posts-to-post > 0
    [ set color green ]
    [ set color blue ]
    
    ;; show information on postings
    ;; print (word "turtle ID " self " postings " posts-to-post)
    
    while [ posts-to-post > 0 ] [
      set posting-dates lput ticks posting-dates
      ;; print (word "--- turtle ID " self " posting-dates " posting-dates)
      ;;show posting-dates
      set posts-to-post posts-to-post - 1
      ;; syndication to subscribers
      ask subscriptions with [ end2 = myself ] [
        set number-of-messages number-of-messages + 1
        set last-message-tick ticks
        set link-strength link-strength + 1
      ]
    ]
  ]
end

;; - - - - - - - - - - - - - - - - - - 
;; delete posting (generic)

to delete-posting
   ask turtles [
      if length posting-dates > 0 [
         while [ (length posting-dates > 0) and (first posting-dates < (ticks - t-postingdeath)) ] [
            set total-postings total-postings - 1
            set posting-dates but-first posting-dates
         ] ;; age
      ] ;; is there any?
   ]
end

;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
;; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

to random-structure
  ask one-of turtles 
  [
    ;;print (word "facilitator: " self)
    let n 0
    let course (list)
    while [ n < 16 ] [
      let targ one-of other turtles with [not out-link-neighbor? myself]
      create-subscription-from targ [ 
         set last-message-tick ticks
         set color yellow
      ]
      ask targ [ set total-subscriptions total-subscriptions + 1 ]
      set course lput targ course
      set n n + 1
    ]
    
    set n 0
    let c 5
    while [ n < 4 ] [

       let group sublist course (n * 4) ((n + 1) * 4)
       set c c + 100
       let i 0
       while [ i < 4 ] [
         let l 0
         while [ l < 4 ] [
           if (i != l) [
              ask (item i group) [
                if (not out-subscription-neighbor? (item l group)) [
                   create-subscription-to (item l group) [ 
                     set last-message-tick ticks 
                     set link-strength link-strength + 2
                     set color c
                   ]
                   ask (item i group) [ set total-subscriptions total-subscriptions + 1]
                ] ;; if not connected yet
              ] ;; 
           ] ;; if not self
         set l l + 1
         ]
         set i i + 1
       ] ;; within each group link everyone with everyone
       set n n + 1
    ] ;; groups

  ] ;; ask turtles
end
@#$#@#$#@
GRAPHICS-WINDOW
234
10
689
486
16
16
13.5
1
10
1
1
1
0
1
1
1
-16
16
-16
16
1
1
1
ticks

CC-WINDOW
5
500
1000
595
Command Center
0

BUTTON
10
12
73
45
NIL
setup
NIL
1
T
OBSERVER
NIL
NIL
NIL
NIL

BUTTON
89
13
152
46
NIL
go
T
1
T
OBSERVER
NIL
NIL
NIL
NIL

SLIDER
10
52
182
85
peers
peers
0
300
300
1
1
NIL
HORIZONTAL

SLIDER
11
104
44
258
p-subscription
p-subscription
0
0.2
0.012
0.001
1
NIL
VERTICAL

SLIDER
13
284
46
438
p-reciprocity
p-reciprocity
0
1
0.01
0.01
1
NIL
VERTICAL

SLIDER
82
104
115
258
t-linkdeath
t-linkdeath
0
365
30
1
1
NIL
VERTICAL

PLOT
692
47
991
210
indegree distribution
indegree
# of turtles
0.0
30.0
0.0
100.0
true
false
PENS
"total-subs" 1.0 0 -7500403 true

SLIDER
117
104
150
258
t-postingdeath
t-postingdeath
0
365
105
1
1
NIL
VERTICAL

SLIDER
46
104
79
258
t-postinterval
t-postinterval
0
10
5
0.1
1
NIL
VERTICAL

PLOT
692
214
990
399
total # of subscriptions
ticks
subs
0.0
365.0
0.0
1000.0
true
false
PENS
"default" 1.0 0 -16777216 true

SWITCH
692
11
818
44
feedback
feedback
1
1
-1000

SLIDER
152
104
185
258
n-readings
n-readings
0
30
10
1
1
NIL
VERTICAL

MONITOR
162
332
219
377
avgposts
avgp
3
1
11

TEXTBOX
12
268
162
286
feedback properties
13
0.0
1

TEXTBOX
12
86
162
104
generic properties
13
0.0
1

SLIDER
187
105
220
258
p-subscriptiondeath
p-subscriptiondeath
0
1
0.024
0.005
1
NIL
VERTICAL

MONITOR
162
284
219
329
avgsub
avgsub
2
1
11

SWITCH
821
11
924
44
colors
colors
0
1
-1000

SLIDER
49
284
82
438
n-facilitators
n-facilitators
0
10
3
1
1
NIL
VERTICAL

SWITCH
88
405
178
438
courses
courses
0
1
-1000

SWITCH
706
452
811
485
stop-365
stop-365
0
1
-1000

@#$#@#$#@
WHAT IS IT?
-----------
This section could give a general understanding of what the model is trying to show or explain.


HOW IT WORKS
------------
This section could explain what rules the agents use to create the overall behavior of the model.


HOW TO USE IT
-------------
This section could explain how to use the model, including a description of each of the items in the interface tab.


THINGS TO NOTICE
----------------
This section could give some ideas of things for the user to notice while running the model.


THINGS TO TRY
-------------
This section could give some ideas of things for the user to try to do (move sliders, switches, etc.) with the model.


EXTENDING THE MODEL
-------------------
This section could give some ideas of things to add or change in the procedures tab to make the model more complicated, detailed, accurate, etc.


NETLOGO FEATURES
----------------
This section could point out any especially interesting or unusual features of NetLogo that the model makes use of, particularly in the Procedures tab.  It might also point out places where workarounds were needed because of missing features.


RELATED MODELS
--------------
This section could give the names of models in the NetLogo Models Library or elsewhere which are of related interest.


CREDITS AND REFERENCES
----------------------
This section could contain a reference to the model's URL on the web if it has one, as well as any other necessary credits or references.
@#$#@#$#@
default
true
0
Polygon -7500403 true true 150 5 40 250 150 205 260 250

airplane
true
0
Polygon -7500403 true true 150 0 135 15 120 60 120 105 15 165 15 195 120 180 135 240 105 270 120 285 150 270 180 285 210 270 165 240 180 180 285 195 285 165 180 105 180 60 165 15

arrow
true
0
Polygon -7500403 true true 150 0 0 150 105 150 105 293 195 293 195 150 300 150

box
false
0
Polygon -7500403 true true 150 285 285 225 285 75 150 135
Polygon -7500403 true true 150 135 15 75 150 15 285 75
Polygon -7500403 true true 15 75 15 225 150 285 150 135
Line -16777216 false 150 285 150 135
Line -16777216 false 150 135 15 75
Line -16777216 false 150 135 285 75

bug
true
0
Circle -7500403 true true 96 182 108
Circle -7500403 true true 110 127 80
Circle -7500403 true true 110 75 80
Line -7500403 true 150 100 80 30
Line -7500403 true 150 100 220 30

butterfly
true
0
Polygon -7500403 true true 150 165 209 199 225 225 225 255 195 270 165 255 150 240
Polygon -7500403 true true 150 165 89 198 75 225 75 255 105 270 135 255 150 240
Polygon -7500403 true true 139 148 100 105 55 90 25 90 10 105 10 135 25 180 40 195 85 194 139 163
Polygon -7500403 true true 162 150 200 105 245 90 275 90 290 105 290 135 275 180 260 195 215 195 162 165
Polygon -16777216 true false 150 255 135 225 120 150 135 120 150 105 165 120 180 150 165 225
Circle -16777216 true false 135 90 30
Line -16777216 false 150 105 195 60
Line -16777216 false 150 105 105 60

car
false
0
Polygon -7500403 true true 300 180 279 164 261 144 240 135 226 132 213 106 203 84 185 63 159 50 135 50 75 60 0 150 0 165 0 225 300 225 300 180
Circle -16777216 true false 180 180 90
Circle -16777216 true false 30 180 90
Polygon -16777216 true false 162 80 132 78 134 135 209 135 194 105 189 96 180 89
Circle -7500403 true true 47 195 58
Circle -7500403 true true 195 195 58

circle
false
0
Circle -7500403 true true 0 0 300

circle 2
false
0
Circle -7500403 true true 0 0 300
Circle -16777216 true false 30 30 240

cow
false
0
Polygon -7500403 true true 200 193 197 249 179 249 177 196 166 187 140 189 93 191 78 179 72 211 49 209 48 181 37 149 25 120 25 89 45 72 103 84 179 75 198 76 252 64 272 81 293 103 285 121 255 121 242 118 224 167
Polygon -7500403 true true 73 210 86 251 62 249 48 208
Polygon -7500403 true true 25 114 16 195 9 204 23 213 25 200 39 123

cylinder
false
0
Circle -7500403 true true 0 0 300

dot
false
0
Circle -7500403 true true 90 90 120

face happy
false
0
Circle -7500403 true true 8 8 285
Circle -16777216 true false 60 75 60
Circle -16777216 true false 180 75 60
Polygon -16777216 true false 150 255 90 239 62 213 47 191 67 179 90 203 109 218 150 225 192 218 210 203 227 181 251 194 236 217 212 240

face neutral
false
0
Circle -7500403 true true 8 7 285
Circle -16777216 true false 60 75 60
Circle -16777216 true false 180 75 60
Rectangle -16777216 true false 60 195 240 225

face sad
false
0
Circle -7500403 true true 8 8 285
Circle -16777216 true false 60 75 60
Circle -16777216 true false 180 75 60
Polygon -16777216 true false 150 168 90 184 62 210 47 232 67 244 90 220 109 205 150 198 192 205 210 220 227 242 251 229 236 206 212 183

fish
false
0
Polygon -1 true false 44 131 21 87 15 86 0 120 15 150 0 180 13 214 20 212 45 166
Polygon -1 true false 135 195 119 235 95 218 76 210 46 204 60 165
Polygon -1 true false 75 45 83 77 71 103 86 114 166 78 135 60
Polygon -7500403 true true 30 136 151 77 226 81 280 119 292 146 292 160 287 170 270 195 195 210 151 212 30 166
Circle -16777216 true false 215 106 30

flag
false
0
Rectangle -7500403 true true 60 15 75 300
Polygon -7500403 true true 90 150 270 90 90 30
Line -7500403 true 75 135 90 135
Line -7500403 true 75 45 90 45

flower
false
0
Polygon -10899396 true false 135 120 165 165 180 210 180 240 150 300 165 300 195 240 195 195 165 135
Circle -7500403 true true 85 132 38
Circle -7500403 true true 130 147 38
Circle -7500403 true true 192 85 38
Circle -7500403 true true 85 40 38
Circle -7500403 true true 177 40 38
Circle -7500403 true true 177 132 38
Circle -7500403 true true 70 85 38
Circle -7500403 true true 130 25 38
Circle -7500403 true true 96 51 108
Circle -16777216 true false 113 68 74
Polygon -10899396 true false 189 233 219 188 249 173 279 188 234 218
Polygon -10899396 true false 180 255 150 210 105 210 75 240 135 240

house
false
0
Rectangle -7500403 true true 45 120 255 285
Rectangle -16777216 true false 120 210 180 285
Polygon -7500403 true true 15 120 150 15 285 120
Line -16777216 false 30 120 270 120

leaf
false
0
Polygon -7500403 true true 150 210 135 195 120 210 60 210 30 195 60 180 60 165 15 135 30 120 15 105 40 104 45 90 60 90 90 105 105 120 120 120 105 60 120 60 135 30 150 15 165 30 180 60 195 60 180 120 195 120 210 105 240 90 255 90 263 104 285 105 270 120 285 135 240 165 240 180 270 195 240 210 180 210 165 195
Polygon -7500403 true true 135 195 135 240 120 255 105 255 105 285 135 285 165 240 165 195

line
true
0
Line -7500403 true 150 0 150 300

line half
true
0
Line -7500403 true 150 0 150 150

pentagon
false
0
Polygon -7500403 true true 150 15 15 120 60 285 240 285 285 120

person
false
0
Circle -7500403 true true 110 5 80
Polygon -7500403 true true 105 90 120 195 90 285 105 300 135 300 150 225 165 300 195 300 210 285 180 195 195 90
Rectangle -7500403 true true 127 79 172 94
Polygon -7500403 true true 195 90 240 150 225 180 165 105
Polygon -7500403 true true 105 90 60 150 75 180 135 105

plant
false
0
Rectangle -7500403 true true 135 90 165 300
Polygon -7500403 true true 135 255 90 210 45 195 75 255 135 285
Polygon -7500403 true true 165 255 210 210 255 195 225 255 165 285
Polygon -7500403 true true 135 180 90 135 45 120 75 180 135 210
Polygon -7500403 true true 165 180 165 210 225 180 255 120 210 135
Polygon -7500403 true true 135 105 90 60 45 45 75 105 135 135
Polygon -7500403 true true 165 105 165 135 225 105 255 45 210 60
Polygon -7500403 true true 135 90 120 45 150 15 180 45 165 90

square
false
0
Rectangle -7500403 true true 30 30 270 270

square 2
false
0
Rectangle -7500403 true true 30 30 270 270
Rectangle -16777216 true false 60 60 240 240

star
false
0
Polygon -7500403 true true 151 1 185 108 298 108 207 175 242 282 151 216 59 282 94 175 3 108 116 108

target
false
0
Circle -7500403 true true 0 0 300
Circle -16777216 true false 30 30 240
Circle -7500403 true true 60 60 180
Circle -16777216 true false 90 90 120
Circle -7500403 true true 120 120 60

tree
false
0
Circle -7500403 true true 118 3 94
Rectangle -6459832 true false 120 195 180 300
Circle -7500403 true true 65 21 108
Circle -7500403 true true 116 41 127
Circle -7500403 true true 45 90 120
Circle -7500403 true true 104 74 152

triangle
false
0
Polygon -7500403 true true 150 30 15 255 285 255

triangle 2
false
0
Polygon -7500403 true true 150 30 15 255 285 255
Polygon -16777216 true false 151 99 225 223 75 224

truck
false
0
Rectangle -7500403 true true 4 45 195 187
Polygon -7500403 true true 296 193 296 150 259 134 244 104 208 104 207 194
Rectangle -1 true false 195 60 195 105
Polygon -16777216 true false 238 112 252 141 219 141 218 112
Circle -16777216 true false 234 174 42
Rectangle -7500403 true true 181 185 214 194
Circle -16777216 true false 144 174 42
Circle -16777216 true false 24 174 42
Circle -7500403 false true 24 174 42
Circle -7500403 false true 144 174 42
Circle -7500403 false true 234 174 42

turtle
true
0
Polygon -10899396 true false 215 204 240 233 246 254 228 266 215 252 193 210
Polygon -10899396 true false 195 90 225 75 245 75 260 89 269 108 261 124 240 105 225 105 210 105
Polygon -10899396 true false 105 90 75 75 55 75 40 89 31 108 39 124 60 105 75 105 90 105
Polygon -10899396 true false 132 85 134 64 107 51 108 17 150 2 192 18 192 52 169 65 172 87
Polygon -10899396 true false 85 204 60 233 54 254 72 266 85 252 107 210
Polygon -7500403 true true 119 75 179 75 209 101 224 135 220 225 175 261 128 261 81 224 74 135 88 99

wheel
false
0
Circle -7500403 true true 3 3 294
Circle -16777216 true false 30 30 240
Line -7500403 true 150 285 150 15
Line -7500403 true 15 150 285 150
Circle -7500403 true true 120 120 60
Line -7500403 true 216 40 79 269
Line -7500403 true 40 84 269 221
Line -7500403 true 40 216 269 79
Line -7500403 true 84 40 221 269

x
false
0
Polygon -7500403 true true 270 75 225 30 30 225 75 270
Polygon -7500403 true true 30 75 75 30 270 225 225 270

@#$#@#$#@
NetLogo 4.0.3
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
default
0.0
-0.2 0 0.0 1.0
0.0 1 1.0 0.0
0.2 0 0.0 1.0
link direction
true
0
Line -7500403 true 150 150 90 180
Line -7500403 true 150 150 210 180

@#$#@#$#@