Innovation diffusion

turtles-own [speed
infected?]
globals [costs
price
time
age]

to setup
  ca ;;
  ask patches [set pcolor black]  ;

 reset-ticks
  crt number-red [set color red set shape "person" set size 2 set speed base-speed  set age ticks ]
  crt number-green [set color green set shape "person" set size 2 set speed base-speed  set age ticks]
 crt number-yellow [set color yellow set shape "person" set size 2 set speed base-speed  set age ticks]

  ask turtles [                     ;;
    setxy random-xcor random-ycor   ;;
    ]
set costs quality * q + branches * b + Advertisement_on_Social_Network * aosn + Sincerity * s + Customer_based_differentiation * cbd + Advertisement * a + Online_services * os + Offers_for_old_customers * ofoc

  set price  0 + costs
end 

to grow
  ask turtles [set age ticks]
end 

to go
  ifelse time?
      [  if ticks = time_ [stop] ]
      [  if not any? turtles with [color = green ] [ stop ]]
  ask turtles [set speed base-speed
    forward speed]
  ask turtles with [color = red]
    [ ask other turtles-here with [color = green]
        [ if random-float 75 < quality * 0.13543  + Advertisement_on_Social_Network * 0.04034 + Branches * 0.00552 + Sincerity * 0.14953 + Customer_based_differentiation * 0.08427 + Advertisement * 0.02165 + Online_services * 0.07736 + Offers_for_old_customers * 0.04126 - price * 0.12995

            [ set color red ] ] ]
  plot count turtles with [color = red]
 set costs quality * q + branches * b + Advertisement_on_Social_Network * aosn + Sincerity * s + Customer_based_differentiation * cbd + Advertisement * a + Online_services * os + Offers_for_old_customers * ofoc
  set price  0 + costs
if quality * q + branches * b + Advertisement_on_Social_Network * aosn + Sincerity * s + Customer_based_differentiation * cbd + Advertisement * a + Online_services * os + Offers_for_old_customers * ofoc > maximum_price_accepted [stop]
  ask turtles [ if ticks - age = 40
    [if random-float 1 < 0.25
      [ hatch 1 [setxy random-xcor random-ycor set age ticks]]]]
  ask turtles [ if ticks - age > 100 [die]]
  tick
end 


;; set quality quality + increase_price * q
  ;;set branches ( branches + increase_price * b)
  ;;set Advertisement_on_Social_Network ( Advertisement_on_Social_Network + increase_price * aosn )
  ;;set Sincerity ( Sincerity + increase_price * s)
  ;;set Customer_based_differentiation (Customer_based_differentiation  + increase_price * cbd)
  ;;set advertisment ( advertisment + increase_price * a)
  ;;set online_services ( online_services + increase_price * os)