84 lines
2.1 KiB
Plaintext
84 lines
2.1 KiB
Plaintext
;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Helper functions ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
; beekeep-utility = honey-quant * (honey-price - prod-cost) - (travel-cost * distance * vehicles) - moving-cost
|
|
to-report beekeep-utility [ha hi d]
|
|
report (honey-quant ha hi) * ((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 ]
|
|
report ((bees-quant ha) - 10000) * (harv-index hi) * 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
|