Some slight changes

This commit is contained in:
EEva 2013-07-17 01:07:58 +02:00
parent 0486cb9934
commit 422f1d5bb5
2 changed files with 36 additions and 40 deletions

View File

@ -20,20 +20,21 @@ to setup
ask county-labels [ die ]
foreach gis:feature-list-of romanian-county-borders-dataset
[ ;gis:set-drawing-color item random 14 base-colors
;gis:fill ? 0
let county-color item random 14 base-colors
[ gis:set-drawing-color item random 14 base-colors
gis:fill ? 0
;let county-color item random 14 base-colors
ask patches gis:intersecting ?
[ set county-name gis:property-value ? "NAME_1"
set pcolor county-color ] ]
;set pcolor county-color ] ]
end
@#$#@#$#@
GRAPHICS-WINDOW
463
5
708
223
877
440
-1
-1
4.0

View File

@ -1,4 +1,5 @@
globals [
globals
[
nx ny
nb-beekeepers
max-distance-of-moving
@ -8,7 +9,6 @@ globals [
sunflower-price
hivesProd
fuelPriceByKm ;;; euros by km
]
breed [ beekeepers beekeeper ]
@ -189,19 +189,14 @@ to follow-strategy
set current-spot best-spot
move-to best-spot
ask best-spot [ set availability 1]
ask best-spot [ set availability 1] ]
[;;;; there arent available spots
follow-strategy
]
] ] ]
]
]
]
if strategy-of-turtle = 2 [ ;;;; choose the nearest county
]
@ -272,8 +267,8 @@ GRAPHICS-WINDOW
1
1
0
0
0
1
1
1
-23
23