BMODEL + 1

Source/bmodel.nls

@@ -2,9 +2,11 @@ spots-own [ flower-type pollinisation-score amount-of-wild-hives ]
 
 to setup-wild-bees
   ask spots
-  [ set amount-of-wild-hives random max-wild-hive ]
+  [ set amount-of-wild-hives random max-wild-hives ]
 end
 
-to polinate
-
+to pollinate
+  if flower-season [
+    ask spots
+    [ set pollinisation-score amount-of-wild-hives + [amount-of-hives] of beekeepers-here ] ]
 end

Source/helper-functions.nls

@@ -3,8 +3,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;
 
 ; 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)
+to-report beekeep-utility [hi ah d]
+  report (honey-quant hi ah) * ((honey-price hi) - prod-cost) - (travel-cost * d)
 end
 
 to-report honey-price [ hi ]
@@ -21,8 +21,8 @@ to-report prod-cost
 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
+to-report honey-quant [ hi amount-h ]
+  report (bees-quant - 10000) * (harv-index hi) * amount-h * uncertainty
 end
 
 to-report harv-index [ hi ]
@@ -65,10 +65,10 @@ 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 ]
+to-report bees-quant
+  ifelse ticks <= 21
+    [ report 2000 * ticks + 27000 ]
+    [ report 500 * ticks + 65000 ]
 end
 
 

Source/main.nlogo

@@ -110,7 +110,7 @@ harvesting-uncertainty
 harvesting-uncertainty
 0
 10
-3.3
+0
 0.1
 1
 NIL
@@ -124,8 +124,8 @@ SLIDER
 travel-cost
 travel-cost
 0
-1
-0.4
+5
+5
 0.1
 1
 NIL
@@ -242,7 +242,7 @@ season-uncertainty
 season-uncertainty
 0
 20
-4
+10
 0.1
 1
 NIL
@@ -257,7 +257,7 @@ d-max
 d-max
 0
 30
-10
+8
 1
 1
 NIL
@@ -278,11 +278,11 @@ SLIDER
 51
 246
 244
-max-wild-hive
-max-wild-hive
+max-wild-hives
+max-wild-hives
 0
 100
-50
+90
 1
 1
 NIL

Source/vmodel.nls

@@ -28,7 +28,7 @@ to setup-beekeepers
       set size 1
       move-to one-of centroids-on patches with [ county-name = location-bk ]
     if trace-on [ set color temp pd ] 
-    set amount-of-hives random-normal 45 2.0 ]
+    set amount-of-hives random-normal 45 15 ]
     set temp temp + 3
   ]
   file-close