Bing_Social Network Simulator

turtles-own
[
  source
]

breed [news a-news]
breed [people node]

to setup
  clear-all
  setup-nodes
  setup-network  
  reset-ticks
end 

to setup-nodes
  set-default-shape turtles "circle"
  create-people number-of-nodes
  [
    setxy (random-xcor * 0.95) (random-ycor * 0.95)
    set color green
    
  ]
  
  ask one-of turtles[set color pink]
  create-news 1 [setxy random-xcor random-ycor set color yellow set shape "square"]
end 

to setup-network
  let num-links (ave-node-degree * number-of-nodes) / 2
  while [count links < num-links]
  [
    ask one-of people
    [
      let choice (min-one-of (other people with [not link-neighbor? myself]) [distance myself])
      if choice != nobody [create-link-with choice]
    ]
    
  ]
   ; make the network look a little prettier
  repeat 15
  [
    layout-spring turtles links 0.3 (world-width / (sqrt number-of-nodes)) 1
  ]
end 

to go
  ask turtles with [color = pink]
  [let spread one-of link-neighbors with [color = green]
    if spread != nobody [if random-float 100 < news-is-interesting [ask spread [set color pink]]] 
    ]

  tick
end