---final.nlogo

NETLOGO

breeds [tt]

tt-own [
  trustworth
  intrest
  heard
]

patches-own [
  neighbors-nowrap  ;; agentset of patches that are neighbors without wrapping around
                    ;; the edge of the world
]

globals [korn
several
several2
several3
  number
  naiv
  temp
 temp1
 temp2
 crap
 randommode
xstart
ystart
         i
         j
         k
         l
         m
         n
         o
         p
         q
         r
         temp-list1]

to setup-one

ca
set randommode 0
set several 0
set several2 0
set several3 0
 set number 35
ifelse number < 19
[set xstart -15
set ystart -15]
[set xstart 0
set ystart 0]
  set-default-shape tt "person"
  calc
  ask patches
    [ set pcolor grey - 3 
      set korn placett
    ifelse eight-mode? 
          [set neighbors-nowrap neighbors with [abs (pxcor - pxcor-of myself) <= 1 and
                                         abs (pycor - pycor-of myself) <= 1]]
          [set neighbors-nowrap neighbors4 with [abs (pxcor - pxcor-of myself) <= 1 and
                                         abs (pycor - pycor-of myself) <= 1]]
    ]   
  if Rumor
  [ask tt-at xstart ystart [ set color white]]
  do-plots
end

to setup-random
  ca
  set randommode 1
  set several 0
  set several2 0
  set several3 0
 set number 35
ifelse number < 19
[set xstart -15
set ystart -15]
[set xstart 0
set ystart 0]
  set-default-shape tt "person"
  calc
  ask patches
    [ set pcolor grey - 3 
      set korn placett
      ifelse eight-mode? 
          [set neighbors-nowrap neighbors with [abs (pxcor - pxcor-of myself) <= 1 and
                                         abs (pycor - pycor-of myself) <= 1]]
          [set neighbors-nowrap neighbors4 with [abs (pxcor - pxcor-of myself) <= 1 and
                                         abs (pycor - pycor-of myself) <= 1]]
    ]   
  if Rumor
  [set temp 0
  while [temp < 5]
   [ask tt-at random  35 random  35 [ set color white]
    set temp temp + 1]]
    do-plots
end

to go

 ifelse Rumor
   [ifelse randommode = 0
     [
       ask tt-at xstart ystart
     [ set trustworth Rumor-trustworthy
      set intrest Rumor-intesting 
     ifelse random 30 < (naiv + trustworth + intrest ) or
                      (naiv + trustworth + intrest ) > 30
       [set color magenta + 2
         ifelse random 20 < (naiv - intrest)
          [if intrest < 10 and trustworth < 10
            [set temp1 intrest + random 2
             set temp2 trustworth + random 2]]
            [set temp1 intrest
             set temp2 trustworth]
        ask tt-on random-n-of round((naiv + intrest)/ 6 ) neighbors-nowrap
        [if color = (violet + 1 )
          [set color white
          set intrest temp1
           set trustworth temp2
           set heard 1 ]]]
       [set color turquoise + 2]]
       while [any? (turtles with [color = white])]
       [ ask (turtles with [color = white])
         [wait 0.2
         spread]]]
    [while [any? (turtles with [color = white])]
       [ ask (turtles with [color = white])
         [set trustworth Rumor-trustworthy
          set intrest Rumor-intesting
          set heard 1
         wait 0.2
         spread]]]]
  [ask tt [set shape "person graduate"]]
  do-plots
end

to spread
  ifelse random 50 < (naiv + trustworth + intrest + ( heard * (naiv / 3))) or                   
                      (naiv + trustworth + intrest + ( heard * (naiv / 3))) > 50
       [set color magenta + 2
       ifelse random 20 < (naiv - intrest)
          [if intrest < 10 and trustworth < 10
            [set temp1 intrest + random 2
             set temp2 trustworth + random 2]]
            [set temp1 intrest
             set temp2 trustworth]  

        set crap 0
        set crap ceiling ((naiv * intrest) / 40 )
        
        ifelse eight-mode?
        [ifelse crap > 8
          [set crap 0
          set crap random 9]
          [ifelse count neighbors-nowrap = 5
            [set crap 0
            set crap random 6]
            [if count neighbors-nowrap = 3
              [set crap 0
              set crap random 4]]]]
        [ifelse crap > 4
          [set crap 0
          set crap random 5]
          [ifelse count neighbors-nowrap = 3
            [set crap 0
            set crap random 4]
            [if count neighbors-nowrap = 2
              [set crap 0
              set crap random 3]]]]
        ask tt-on random-n-of crap neighbors-nowrap 
        [if color = (violet + 1 )
          [set color white
          set intrest temp1
           set trustworth temp2]
         if color = (turquoise + 2 )
           [set heard (heard + 1)
           if heard = 2
             [set several several + 1]
         if heard = 3
             [set several2 several2 + 1]
         if heard = 4
             [set several3 several3 + 1]
           set color white]]]
       [set color turquoise + 2]
       do-plots
end

to calc
 
    set temp-list1 []
 
    set j floor (35 / number)
    set m -17 
    
    set temp-list1 lput m temp-list1
    set m m + j 
    
    while [m < 18]
    [ 
      set temp-list1 lput m temp-list1
      set m m + j    
    ] 
  
end


to-report placett
  set i 0
  set k 0
  set l 0
  set o 0
  set n 0
  set p 0
  set q 0
  set r 0
  
  set i pxcor
  set k pycor
  
  set naiv 0
 
  while [l < number]
  [
    set n item l temp-list1  
    
    ifelse i = n ;and k = n
    [
      while [p < number]
      [
        set q item p temp-list1
        
        ifelse k = q
        [set p number
         set o 1]
        [set p p + 1]
      ]
    
      set l number    
    ]   
    [set l l + 1]
  ]
  
  ifelse o = 1
    [set korn 1]
    [set korn 0]
  
  if korn = 1
  [;ask patches  ;[korn = 1] ;[pxcor mod number = 0 and
                              ; pycor mod number = 0]
     sprout-tt 1
        [ 
          set color violet + 1
          set size (35 / number) - .1
          set naiv random 20  
          set heard 0
         ] 
          
    
  ] 
  report korn 
 end
 
 to do-plots
  set-current-plot "Rumor Spread"
  plot ((count turtles with [color = magenta + 2] + count turtles with [color = turquoise + 2])/ (35 * 35)) * 100
  set-current-plot "Proportions"
  set-current-plot-pen "Believers"
  plot (count turtles with [color = magenta + 2] / (35 * 35)) * 100
  set-current-plot-pen "Non-believers"
  plot (count turtles with [color = turquoise + 2] / (35 * 35)) * 100
  set-current-plot-pen "Havn't-heard"
  plot ((count turtles with [color = violet + 1])/ (35 * 35)) * 100
 
end
@#$#@#$#@
GRAPHICS-WINDOW
230
25
660
476
17
17
12.0
1
10
1
1
1
0
1
1
1

CC-WINDOW
5
704
680
799
Command Center
0

BUTTON
38
52
126
85
setup-one
setup-one
NIL
1
T
OBSERVER
T
NIL

SLIDER
33
407
205
440
Rumor-intesting
Rumor-intesting
0
10
10
1
1
NIL

SLIDER
33
372
205
405
Rumor-trustworthy
Rumor-trustworthy
0
10
10
1
1
NIL

SWITCH
33
337
136
370
Rumor
Rumor
0
1
-1000

BUTTON
58
220
162
306
NIL
go
NIL
1
T
OBSERVER
T
NIL

SWITCH
36
137
160
170
eight-mode?
eight-mode?
0
1
-1000

BUTTON
38
95
147
128
setup-random
setup-random
NIL
1
T
OBSERVER
T
NIL

PLOT
32
490
256
639
Rumor spread
no of persons
%
0.0
100.0
0.0
100.0
true
false
PENS
"default" 1.0 0 -13791810 true

PLOT
259
490
578
639
Proportions
no of persons
%
0.0
500.0
0.0
100.0
true
true
PENS
"Believers" 1.0 0 -5825686 true
"Non-believers" 1.0 0 -14835848 true
"Havn't-heard" 1.0 0 -8630108 true

MONITOR
581
490