Malls versus online shopping

globals
  ;;variables in the model
[
  retailing-patches
  residential-patches
  house-patches
  average-exp-bricks
  average-exp-online
  number-customers-bricks
  number-customers-online


]


breed [customers customer]
customers-own
[
  house-xcor
  house-ycor
  pref-distance
  gossip-weight
  exp-online
  exp-bricks
  new-exp-online
  new-exp-bricks
  shopping
  prob-choice-bricks
]

breed [houses house]
breed [retailer retailers]

patches-own
[
]

to setup
  clear-all
  setup-patches
  setup-agents
  setup-networks
  reset-ticks
end 

to setup-patches

  ;; create the 'house patches'
  set residential-patches patches with [(pycor >= 0) and (pycor <= 31)]
  ask residential-patches [ set pcolor green ]


  ;; create the 'retailing patches'
  set retailing-patches patches with [(pycor >= 32) and (pycor <= 47)]
  ask retailing-patches [  set pcolor brown]

  set house-patches patches with [(pxcor mod 6 = 3) and (pycor mod 6 = 3) and (pycor < 31)]
end 

to setup-agents
  set-default-shape customers "person"
  create-customers (initial-number-customers)
  [
    set exp-online random-float 1
    set exp-bricks random-float 1
    set color 4 + ((exp-bricks - exp-online) * 10)
    set gossip-weight initial-gossip-weight
    move-to one-of residential-patches
    set house-xcor xcor
    set house-ycor ycor
  ]

  set-default-shape houses "house"
  create-houses (40)
  [
    set color brown
    move-to one-of house-patches with [count houses-here = 0]
  ]

  set-default-shape retailer "building store"
  create-retailer (3)
  [
    set color red
    set size 10
    setxy 24 40
  ]
end 

to setup-networks
  ask customers
  [
   if ((random-float 1) < prob-links)
    [
      create-link-with one-of customers with [distance myself > 0]
    ]

  ]
  ask links [set color blue]
end 

to layout
  wait 0.05
  layout-spring customers links 0.2 5 1
  ask customers with [[pcolor] of patch-here != green]
  [
    move-to one-of patches with [(distance myself < 3) and (pcolor = green)]
    set house-xcor xcor
    set house-ycor ycor
  ]
end 

to move-customers
  ask customers
  [
    set prob-choice-bricks (exp (beta * (exp-bricks - exp-online))) / (1 + (exp (beta * (exp-bricks - exp-online)))) ;; Equation 1 Pr (i chooses BMR)
    ifelse (random-float 1 < prob-choice-bricks)[move-to one-of retailing-patches][setxy house-xcor house-ycor]

  ]
end 

to update-experience
  set number-customers-bricks count customers with [[pcolor] of patch-here = brown]
  set number-customers-online count customers with [[pcolor] of patch-here = green]
  ask customers
  [
    if ([pcolor] of patch-here = green)
    [
      set exp-online  (value - random-float online_risk) / 100 ;; Equation 1 online experience
      set shopping "online"
    ]
    if ([pcolor] of patch-here = brown)
    [
      set exp-bricks  ((value +  random-float immediacy-importance + random-float post-sales-importance + random-float Mall_entertain - (Breakeven_custom) / number-customers-bricks)) / 400 ;; Equation 3 BMR experience
      set shopping "bricks"
    ]
    set new-exp-online exp-online
    set new-exp-bricks exp-bricks
  ]


    ask customers with [count link-neighbors > 0]
    [

      ask link-neighbors
       [
        set new-exp-online (1 - [gossip-weight] of myself) * exp-online + (([gossip-weight] of myself) * ([exp-online] of myself))    ;; agents shares gossip with linked agents
        set new-exp-bricks (1 - [gossip-weight] of myself) * exp-bricks + (([gossip-weight] of myself) * ([exp-bricks] of myself))    ;; agents shares gossip with linked agents
       ]

      set color 4 + (exp-bricks - exp-online) / 10

    ]

    ask customers  with [count link-neighbors > 0]
    [
      set exp-bricks new-exp-bricks
      set exp-online new-exp-online
    ]
end 

to mouse-move
  ;When enable by actived the button allows individual agents to be moved.
  if mouse-down? [
    let candidate min-one-of customers [distancexy mouse-xcor mouse-ycor]
    if [distancexy mouse-xcor mouse-ycor] of candidate < 1 [
      while [mouse-down?] [
        ask candidate [ setxy mouse-xcor mouse-ycor ]
      ]
    ]
  ]
end 

to return-customers-to-houses
  ask customers
  [
  set xcor house-xcor
  set ycor house-ycor
  ]
end 



;;main routine

to go
  move-customers
  update-experience
  set average-exp-online mean [exp-online] of customers * 100 ;;average satisfaction experience of online expressed as a percentage
  set average-exp-bricks mean [exp-bricks] of customers * 100;; average satisfaction experience with brick and mortar retailing expressed as percentage
  if number-customers-bricks = 0 [stop]
  if number-customers-online = 0 [stop]

  tick
end