!!!---tileworldzavala.nlogo

来自「NETLOGO」· NLOGO 代码 · 共 660 行 · 第 1/2 页

      set y ycor
      set distance-robot-tile (distancexy (xcor-of closest-tile) ycor) + (distancexy xcor (ycor-of closest-tile))  
      setxy xcor-of closest-tile ycor-of closest-tile
      set distance-tile-hole (distancexy (xcor-of closest-hole) ycor) + (distancexy ycor (ycor-of closest-hole)) 
      setxy x y
      if ((distance-robot-tile + distance-tile-hole) > time-to-live-of closest-tile)
        [ 
        ifelse(random 1.0 < .5)
        [      
            set aux closest-tile
            set closest-tile min-one-of (tiles with [who != who-of aux]) [distance myself]
            ifelse (closest-tile = nobody)
                [set closest-hole min-one-of holes [distance myself] 
                stop]
            [set closest-hole min-one-of holes [distance aux]    
            if (closest-hole != nobody and closest-tile != nobody) 
            [
            
              set x xcor
              set y ycor
              set distance-robot-tile (distancexy (xcor-of closest-tile) ycor) + (distancexy xcor (ycor-of closest-tile))  
              setxy xcor-of closest-tile ycor-of closest-tile
              set distance-tile-hole (distancexy (xcor-of closest-hole) ycor) + (distancexy ycor (ycor-of closest-hole)) 
              setxy x y
              if ((distance-robot-tile + distance-tile-hole) > time-to-live-of closest-tile)
               [
               set closest-tile nobody]
            ]
            ]
            stop
        ]
        [set closest-tile nobody
        stop]
        ]
        if ((distance-robot-tile + distance-tile-hole) > time-to-live-of closest-hole)
        [
            set aux closest-hole
            set aux2 closest-tile
            set closest-hole min-one-of (holes with [who != who-of aux]) [distance aux2]
            if (closest-hole != nobody)
              [
                  set x xcor
                  set y ycor
                  set distance-robot-tile (distancexy (xcor-of closest-tile) ycor) + (distancexy xcor (ycor-of closest-tile))
                  setxy xcor-of closest-tile ycor-of closest-tile
                  set distance-tile-hole (distancexy (xcor-of closest-hole) ycor) + (distancexy ycor (ycor-of closest-hole)) 
                  setxy x y
                  if ((distance-robot-tile + distance-tile-hole) > time-to-live-of closest-hole)
                  [
                      ;set closest-hole min-one-of holes [distance myself] 
                      set closest-tile nobody
                  ]
              ]            
        ]
     ]
end

;moves the agent one step with in the absolute heading h. 
;It makes sure that any tile or robot that was in the destination location also moves, and so on recursively.
;If a tile moves into a hole, both die.
to move-one [h]
  locals [pushed-agents oldh]
  set oldh heading
  set heading h
  set pushed-agents (turtles-at dx dy) with [(breed = robots) or (breed = tiles)]
  if (any pushed-agents) [
    ask pushed-agents [move-one h]]
  if (breed = tiles and (any holes-at dx dy))[
    set holes-filled holes-filled + 1
    ask holes-at dx dy [die]
    die]
  fd 1
  set heading oldh
end
  
@#$#@#$#@
GRAPHICS-WINDOW
293
13
608
328
17
17
9.0
1
10
0
0

CC-WINDOW
295
502
706
622
Command Center

BUTTON
214
87
295
120
NIL
setup
NIL
1
T
OBSERVER

BUTTON
214
121
295
154
NIL
update
NIL
1
T
OBSERVER

BUTTON
214
155
295
188
NIL
update
T
1
T
OBSERVER

SLIDER
4
10
176
43
num-robots
num-robots
1
100
20
1
1
NIL

SLIDER
4
43
176
76
tile-birth-prob
tile-birth-prob
0
1
0.5
0.01
1
NIL

SLIDER
4
109
176
142
hole-birth-prob
hole-birth-prob
0
1
0.5
0.01
1
NIL

SLIDER
4
76
176
109
tile-lifetime
tile-lifetime
1
100
50
1
1
NIL

SLIDER
4
142
176
175
hole-lifetime
hole-lifetime
0
100
50
1
1
NIL

MONITOR
10
286
72
335
Score
score
2
1

PLOT
10
334
287
623
NIL
Iteration
Score
0.0
100.0
0.0
100.0
true
false
PENS
"score" 1.0 0 -16777216 true

SLIDER
4
175
176
208
delay
delay
0
5
0.0
0.1
1
NIL

MONITOR
186
286
287
335
NIL
highest-score
3
1

SWITCH
205
13
295
46
watch
watch
1
1
-1000

BUTTON
190
52
295
85
def-params
defaults
NIL
1
T
OBSERVER

TEXTBOX
297
335
941
501
The "def-params" button sets the parameters to the default values .\nWhen "watch" switch is on, you can see how robots move individually but they are not executed concurrently. However the score is similar.\nThe parameter "delay" is the number of seconds that the program waits before each iteration if "watch" is off. It is the number of seconds that the program waits before each robot movement if "watch" is on.\nIf the "group-size" parameter is set to a value bigger than or equal to num-robots, no grouping technique is used. If it's set to a value smaller than num-robots, group-technique heuristic is used.  (See Information for more details on the heuristic)

SLIDER
4
208
176
241
group-size
group-size
1
100
4
1
1
NIL

@#$#@#$#@
Name: Rosa L. Zavala-Gutierrez
email: [e-mail]
ID: 5555

I understand that it is the responsibility of every member of the
Carolina community to uphold an maintain the academic standards and
integrity of the University of South Carolina. Any member of the
University community, who has reasonable grounds to believe that an
infraction of the Code of Student Academic Responsibility has
occurred, has an obligation to report the alleged violation.

I certify that I have neither given nor received unauthorized aid on this problem set.
----------------------------------------------------------


The strategy consist in some modifications to the greedy strategy:

The agents still look for the closest tile but sometimes (according to some rules and heuristics) 
the robot decides  not to go for the tile. This strategy improves the greedy by avoiding to end up
with all of the robots getting in each others' way. 

The modifications are:

1. Choosing the closest-hole.
	In the original program a robot look for the closest-tile and when it is found, the robot look for the closest-hole to him and then try to put  the tile in it. In some cases the closest-tile has a hole nearer to him than the robot抯 closest-hole and the robot loses time trying to put the tile in the wrong hole. For example, when the turtles are in the following position:

H   
T
R
H

The robot 慠