csss-beedza/Source/helper-functions.nls

;;;;;;;;;;;;;;;;;;;;;;
;; Helper functions ;;
;;;;;;;;;;;;;;;;;;;;;;

; beekeep-utility = honey-quant * (honey-price - prod-cost) - (travel-cost * distance * vehicles) - moving-cost
to-report beekeep-utility [ha hi ah d]
  report (honey-quant ha hi ah) * ((honey-price hi) - prod-cost) - (travel-cost * d)
end

to-report honey-price [ hi ]
  if hi = "PF" [ report 3.48 ] ; Polyflower
  if hi = "AC" [ report 4.65 ] ; Accacia
  if hi = "LM" [ report 4.65 ] ; Lime
  if hi = "SF" [ report 2.32 ] ; Sunflower
  ; the following shouldn't happen
  error 1
end

to-report prod-cost
  report 100 / 25000 ; 1 hive = 25000 bees
end

; honey-quant = (bees-quant - 10000) * harv-index * uncertainty
to-report honey-quant [ ha hi amount-h ]
  report ((bees-quant ha) - 10000) * (harv-index hi) * amount-h * uncertainty
end

to-report harv-index [ hi ]
  ifelse flower-season
  [ if hi = "AC" and acacia-season [ report 0.0000135 ] ; Acacia
    if hi = "LM" and lime-season [ report 0.000018 ]  ; Lime
    if hi = "SF" and sunflower-season [ report 0.000006 ]  ; Sunflower
    report 0.000004  ; Polyflower 
  ]
  [ report 0.0 ]
  ; the following shouldn't happen
  error 1
end

to-report acacia-season
  if yearly-ticks > 119 + abegin-uncertainty and yearly-ticks < 150 + aend-uncertainty
  [ report true ]
  report false
end

to-report lime-season
  if yearly-ticks > 150 + lbegin-uncertainty and yearly-ticks < 180 + lend-uncertainty 
  [ report true ]
  report false
end

to-report sunflower-season
  if yearly-ticks > 180 + sbegin-uncertainty and yearly-ticks < 211 + send-uncertainty
  [ report true ]
  report false
end

to-report flower-season
  if yearly-ticks > 89 and yearly-ticks < 241
  [ report true ]
  report false
end

to-report uncertainty
  report random-normal 1.0 harvesting-uncertainty
end

to-report bees-quant [ hive-age ]
  ifelse hive-age <= 21
    [ report 2000 * hive-age + 27000 ]
    [ report 500 * hive-age + 65000 ]
end



to-report color-flower [ hi ]
  if hi = "PF" [ report VIOLET ]  ; Polyflower
  if hi = "AC" [ report RED ] ; Accacia
  if hi = "LM" [ report LIME ]  ; Lime
  if hi = "SF" [ report YELLOW ]  ; Sunflower
  ; the following shouldn't happen
  error 1
end