Competing Technologies (iPhone vs Blackberry)

breed [customers customer]
turtles-own [group-pref tech-pref fickleness]
globals [marketing-iphone-global marketing-blackberry-global]

to setup
  clear-all
  
  set marketing-iphone-global 0
  set marketing-blackberry-global 0
  
  set-default-shape customers "circle"
  create-customers initial-customers [
    ifelse random 100 < initial-iphone-percent [
      set color white
    ][
      set color turquoise
    ]
    create-helper
  ]
  ask turtles [
    if random 100 < isolation [
      create-links
    ]
  ]
  reset-ticks
end 

to create-helper
  setxy random-xcor random-ycor
  set size .3
  set group-pref random 20
  set tech-pref random 20
  set fickleness random 20
end 

to go
  if marketing-iphone-global != marketing-iphone [updating-marketing]
  if marketing-blackberry-global != marketing-blackberry [updating-marketing]
  
  create-customers 1 [
    create-helper
    create-links
    set-phone-choice
  ]
  tick
end 

to set-phone-choice 
  set-according-to-neighbors
  set-according-to-tech
  set-according-to-marketing
end 

to set-according-to-neighbors
  let blackberry-neighbors 0
  let iphone-neighbors 0
  if any? link-neighbors [
    ask link-neighbors [
      if color = turquoise [
        set blackberry-neighbors blackberry-neighbors + 1
      ]
      if color = white [
        set iphone-neighbors iphone-neighbors + 1
      ]
    ]
  ]
  let sum-of-preferences (count link-neighbors) * group-pref
  ifelse random sum-of-preferences < blackberry-neighbors * group-pref [
    set color turquoise
  ][
    set color white
  ]
end 

to set-according-to-tech
  let sum-of-tech tech-pref * (tech-iphone + tech-blackberry)
  
  ifelse random sum-of-tech < tech-pref * tech-blackberry [
    set color turquoise
  ][
    set color white
  ]
end 

to set-according-to-marketing
  ifelse pcolor = black [
    if random 20 < fickleness [
      set color white
    ]
  ][
    if random 20 < fickleness [
      set color turquoise
    ]
  ]
end 

to updating-marketing
  ask patches [
    ifelse random (marketing-iphone + marketing-blackberry) < marketing-iphone [
      set pcolor black
    ][
      set pcolor blue
    ]
  ]
  set marketing-iphone-global marketing-iphone
  set marketing-blackberry-global marketing-blackberry
end 

to create-links 
  if random 100 < isolation [
    repeat random network-density [create-link-with one-of other turtles] 
  ]
end