Minority belief spread

extensions [nw]
turtles-own [ belief ]  ; can take three value 0, 1 or 2
Breed [constants constant]
Breed [opens open]

to setup

  ; the setup precedure will create a social network

  clear-all

  set-default-shape turtles "person"

  if network_type = "Random"  [ nw:generate-random turtles links Number_turtles  connection-probability ]
  if network_type = "Preferential-attachment" [nw:generate-preferential-attachment turtles links Number_turtles ]
  if network_type = "Small-world" [nw:generate-small-world turtles links world-width / 2 world-height / 2 2.0 false]
  if network_type = "Watts-strogatz" [nw:generate-watts-strogatz turtles links Number_turtles 2 0.1 [ fd 10 ]]

  ask turtles [
    setxy random-xcor random-ycor
    set color cyan
    set belief random 2
    if belief = 1 [set color yellow]
  ]

  ask n-of  ( Percentage_of_belivers * Number_turtles ) turtles [ set breed constants set color magenta  set shape "target"
                                                                  set belief 2]
  ask turtles with [breed != constants ] [set breed opens]
  repeat 30 [ layout-spring turtles links 0.2 5 1 ] ;; lays the nodes in a triangle
  reset-ticks
end 

to go

  ; the GO procedure will ask every turtle to SPEAK and LISTEN to its neighbors in random order

  ask turtles [

    ifelse random 2 = 1
   [
      speak
      listen
   ]
    [
      listen
      speak
    ]
  ]


  repeat 30 [ layout-spring turtles links 0.2 0.4 1 ] ;; lays the nodes in a triangle

  if ( count turtles with [color = magenta ] / count turtles ) = 1 [ stop ]   ; if the opinion spread to the total population then stop
  tick
end 

to speak

  ; for every neighbor who isn't a "CONSTANT" - the turtle will try to spread its opinion and for this it will change
  ; the "BELIEF" property of the neighbor to " 0, 1 or 2 " ( 0 means the turtle is adopting the ordinary belief, 1 means the turtle
  ; is holding both opinions and 2 means that the turtle holds the new belief

  if breed = constants [
  ask  in-link-neighbors with [ breed = opens]
     [
        if belief != 2 and random-float 1.0 < 0.1
          [
           set belief belief + 1
           if belief = 2 [ set color magenta ]
           if belief = 1 [ set color yellow]
          ]
     ]
  ]


  if breed  = opens [

    if belief = 2  and random-float 1.0 < 0.04
    [
      ask in-link-neighbors with [belief = 1 and belief = 0 ]
      [
        set belief belief + 1
        if belief = 1 [ set color yellow ]
        if belief = 2 [ set color magenta ]
      ]
    ]


    if belief = 0  and random-float 1.0 < 0.04
    [
       ask in-link-neighbors with [belief = 1 and belief = 2 ]
      [
        set belief belief - 1
        if belief = 1 [ set color yellow ]
        if belief = 0 [ set color white ]
      ]
    ]
  ]
end 

to listen

  let belief_list (list 3)     ; create and initialize a local list

  if breed = opens and random-float 1.0 < 0.04  [

      ask in-link-neighbors [
                              set belief_list fput belief belief_list      ; fullfil the "list" with the "belief" values of neighbors
                            ]

    ; the foreach instruction will read the belief values in "list" and impact the opinion of the current agent who's listening /
    ; here "belief" is the belief variable of the current agent and x the belief of the neighbor stored in the list
     foreach belief_list  [
      x ->  if ( x = 0  and belief != 0 ) [set  belief belief - 1  if belief = 0 [set color white] if belief = 1 [set color yellow] ]
            if ( x = 2 and belief != 2 ) [set belief belief + 1  if belief = 2 [set color magenta  ] if belief = 1 [set color yellow ]  ]
                          ]

                  ]
end 

to layout_r

   layout-radial turtles links (turtle 0)
end