turtles-own [dist age]
globals [mindist smoothed save-file condition answer-list]


to setup
 set condition "antsfood"
 ca
 crt number-of-ants
 randomize
end

to randomize
 ask turtles [set shape "ant 2"
             set size 3
             set color red
             setxy (random-int-or-float screen-size-x) (random-int-or-float screen-size-y)]
 set smoothed screen-edge-x
 set mindist 50
 clear-plot
end


to draw
ask patches
 [if mouse-down?
   [if (distancexy-nowrap mouse-xcor mouse-ycor) < size-of-pen-for-drawing-food
     [set pcolor green]]]
end

to erase
ask patches
 [if mouse-down?
   [if (distancexy-nowrap mouse-xcor mouse-ycor) < size-of-pen-for-drawing-food
     [set pcolor black]]]
end


to cover
  locals [found patchx patchy smoothness other]
  set found 0
  set smoothness 0.9
  ifelse select-food-manually
    [ask patch-at mouse-xcor mouse-ycor [if mouse-down? and pcolor-of self = green
      [set patchx pxcor set patchy pycor set pcolor yellow set found 1]]]
    [set other random-one-of patches with [pcolor = green ]
    if other != nobody 
      [ask other
        [if (pcolor-of self = green)   ;; if the patch's own color is green
          [set pcolor yellow
          set patchx pxcor
          set patchy pycor
          set found 1]]]]
  if found = 1
      [ask turtles
        [set dist (distancexy-nowrap patchx patchy)
         set heading (towardsxy-nowrap patchx patchy)
         set age age + 1
         if age > (number-of-ants * 4) [set color blue]   ;if an ant hasn't turned on in a while, turn it blue because it's sad
         fd Other-ants'-movement-speed]
        ask min-one-of turtles [dist]
           [fd Closest-ants'-movement-speed - Other-ants'-movement-speed   ;we have to subtract out loser's movement speed because the winner has already moved this amount too
           set age 1
           set color red
           set mindist dist]
        wait (1 - overall-speed)
        ask patch-at patchx patchy [set pcolor green]
        if plot-results
          [set smoothed smoothness * smoothed + (1 - smoothness) * mindist
          set-current-plot-pen "raw"
          plot mindist
          set-current-plot-pen "smoothed"
          plot smoothed]]
end

to move-ant
   if mouse-down?
    [ask min-one-of turtles [distancexy-nowrap mouse-xcor mouse-ycor]
       [set xcor mouse-xcor
       set ycor mouse-ycor]]
end
 
to quiz
  locals [ option datebit q1 q2 q3 q4 q5 q6 q7 ssn]
  set answer-list []
  set condition "antsfood"

  ;1
  set q1 "To make the ants as a population spread out evenly over the food, which strategy is best: \n\n\n" 
  set q1 word q1 "a.	Have all the ants move as quickly as possible.\n\n"
  set q1 word q1  "b.	Make the ant that is closest to a piece of food move \nmore quickly than all the other ants.\n\n"
  set q1 word q1  "c.	Make the ant that is closest to a piece of food move \nmore slowly than all the other ants.\n\n"
  set q1 word q1  "d.	Early on, make the closest ant move more quickly than \nthe others, but later on, make the closest ant move more slowly.\n\n" 
  set answer-list lput (user-choice q1 [ "a" "b" "c" "d" ] )  answer-list   

  ;2   
  set q2 "Why donŐt the ants cover the food well if only the closest ant to a piece of food moves? \n\n\n" 
  set q2 word q2  "a.	If only the closest ant moves, then this ant may try \nto cover many pieces of food and the other ants may not cover any food.\n\n"
  set q2 word q2  "b.	If only the closest ant moves, then it may eventually \nget tired of moving.\n\n"
  set q2 word q2  "c.	The ant closest to a piece of food shouldnŐt move much \nbecause it is already covering some food and the other ants will slowly realize they should cover the remaining food.\n\n"
  set q2 word q2  "d.	If only one ant moves, then the food are being covered \nefficiently because that ant can keep track of food that it has already covered.\n\n" 
  set answer-list lput (user-choice q2 [ "a" "b" "c" "d" ] )  answer-list  

  ;3
  set q3 "Why donŐt the ants cover the food well if the closest ant and all of the other ants all move with the same speed?\n\n\n" 
  set q3 word q3  "a.	The closest ant will quickly cover food but the other \nants will have to quickly find other food that need covering.\n\n"
  set q3 word q3 "b.	If other ants move as fast as the closest ant, then \nwhen a piece of food is selected, all of the ants, close and far, will move towards it.  The ants will all be covering the same piece of food.\n\n"
  set q3 word q3 "c.	If all the ants move with the same speed, then they \nwill all get an equal opportunity to cover food but there is a limited supply of food for everyone.\n\n"
  set q3 word q3 "d.	If the closest ant moves as fast as the other ants, \nthen it will get to the food first, and will prevent the other ants from covering it.  The other ants will only cover food after the closest ones have finished.\n\n"
  set answer-list lput (user-choice q3 [ "a" "b" "c" "d" ] )  answer-list  
 
  ;4
  set q4 "To have the ants cover the food well, it is necessary to have the ants become specialized for particular food patches.  Which action most directly allows for this specialization?\n\n\n" 
  set q4 word q4 "a.	Make sure that there are not very many ants on the \nfield.  That way, no matter what speed they are moving at each ant can be far away from other ants. \n\n"
  set q4 word q4 "b.	Make sure that there are many ants on the field.  \nThat way, no matter what speed they are moving at each ant become specialized for a tiny patch.\n\n"
  set q4 word q4 "c.	Make the ant that is closest to the chosen piece of \nfood move quickly to the food, but other ants should only move slowly towards it.\n\n"
  set q4 word q4 "d.	Make the ant that is closest to a chosen piece of \nfood move slowly to the food, but other ants should move more quickly towards it.\n\n"
  set answer-list lput (user-choice q4 [ "a" "b" "c" "d" ] )  answer-list  
  
  ;5
  set q5 "If one food patch is 4 times bigger than another, if all goes well, the ants will arrange themselves so that the bigger patch has 4 times as many ants as the smaller patch.  How does this occur?\n\n\n" 
  set q5 word q5 "a.	Food from the smaller patch will rapidly become \nconsumed.  The larger patch will be able to support ants for a longer period of time.  \n\n"
  set q5 word q5 "b.	Once one ant finds the largest food patch, it \nwill tell other ants about its location.\n\n"
  set q5 word q5 "c.	Pieces of the food from the bigger food patch \nwill tend to be selected 4 times more frequently, and so ants will move towards this patch more often.\n\n"
  set q5 word q5 "d.	The ants can tell that one patch is larger, and \nwill usually tend to move toward the larger patch.\n\n"
  set answer-list lput (user-choice q5 [ "a" "b" "c" "d" ] )  answer-list  
  
  ;6
  set q6 "If there are two equally sized patches of food and only one ant, what usually happens after a long time?\n\n\n" 
  set q6 word q6 "a.	The ant will alternate between the patches, but \nonly if it moves very slowly.\n\n"
  set q6 word q6 "b.	Pieces from both food patches will be randomly \nselected so ant will end up halfway between the two patches.\n\n"
  set q6 word q6 "c.	Pieces from both food patches will be randomly \nselected so the ant will have to choose one of the patches and stay there.\n\n"
  set q6 word q6 "d.	The ant will not move toward either of the patches \nunless it is very close to them in the first place.\n\n"
  set answer-list lput (user-choice q6 [ "a" "b" "c" "d" ] )  answer-list  

  ;7
  set q7 "Imagine there is a food patch with one ant on it and one ant far away.  If both ants move, but the closest ant moves more quickly, what will happen over time?\n\n\n" 
  set q7 word q7 "a.	The ant that is already on the patch will always \ncover the entire patch and the other ant will never move toward the patch.  It will have to wait until another patch is drawn.\n\n"
  set q7 word q7 "b.	From the start, each of the ants will become \nresponsible for one half of the food patch, and will continue to cover it.\n\n"
  set q7 word q7 "c.	The closest ant will cover the entire patch at \nfirst, but when the other ant moves close, they will constantly fight over who gets to cover the patch.  Eventually both will occupy the exact middle of the patch.\n\n"
  set q7 word q7 "d.	The closest ant will try to cover the entire patch \nat first, but when the other ant eventually gets close enough, they will each take over one side of the patch.\n\n"
  set answer-list lput (user-choice q7 [ "a" "b" "c" "d" ] )  answer-list  
  


  set ssn user-input "Type in the last 4 digits of your social security number"
  set datebit date-and-time
  set datebit substring datebit 16 23
  set datebit word condition datebit 
  set datebit word datebit ssn
  set save-file datebit


  save-prompt
  save-data
end

to save-prompt
  locals [option new-file]
  ifelse is-string? save-file
  [ 
    set option "OK"
  ]
  [ 
    set option "NO"
  ]
  if option = "OK"
  [ 
    if save-file = ""
    [ 
      set option "NO"
    ]
  ]
  if option = "NO"
  [ 
    set new-file user-choose-new-file
    ifelse is-string? new-file
    [ 
      set save-file new-file 
      set new-file "nofilename"
      set save-file word new-file ""
    ]
    [ 
      set option "CANCEL"
    ]
  ]
  if option = "CANCEL"
  [ 
    user-message "Change save file cancelled"
  ]
end

to save-data
  ifelse is-string? save-file
  [
    write-data save-file
  ]
  [
  ]
end

to write-data [file?]
  if file-exists? file?
  [ 
    file-delete file?
  ]  

  file-open file?
  file-write condition
  file-write answer-list
  file-close  
end
@#$#@#$#@
GRAPHICS-WINDOW
444
17
1022
616
35
35
8.0
1
10
1
1
1
0
1
1
1

CC-WINDOW
5
630
1031
725
Command Center
0

BUTTON
27
63
108
96
NIL
draw
T
1
T
OBSERVER
T
NIL

BUTTON
27
101
108
134
NIL
erase
T
1
T
OBSERVER
T
NIL

BUTTON
27
25
108
58
set up
setup
NIL
1
T
OBSERVER
T
NIL

SLIDER
28
221
256
254
size-of-pen-for-drawing-food
size-of-pen-for-drawing-food
0
8
5
1
1
NIL

SLIDER
70
281
395
314
number-of-ants
number-of-ants
0
40
4
1
1
NIL

SLIDER
69
360
394
393
other-ants'-movement-speed
other-ants'-movement-speed
0
3
2.0
0.01
1
NIL

BUTTON
246
18
432
67
cover
cover
T
1
T
OBSERVER
T
NIL

BUTTON
245
72
432
105
randomize  ants
randomize
NIL
1
T
OBSERVER
T
NIL

SLIDER
71
319
396
352
closest-ants'-movement-speed
closest-ants'-movement-speed
0
3
2.0
0.01
1
NIL

BUTTON
244
110
432
143
move ant
move-ant
T
1
T
OBSERVER
T
NIL

PLOT
71
409
392
563
Distance from selected food to closest ant
Time
Distance
0.0
10.0
0.0
10.0
true
false
PENS
"raw" 1.0 0 -11221820 false
"smoothed" 1.0 0 -16777216 false

SLIDER
28
183
200
216
overall-speed
overall-speed
0
1
1.0
0.01
1
NIL

SWITCH
244
148
432
181
select-food-manually
select-food-manually
1
1
-1000

SWITCH
27
146
160
179
plot-results
plot-results
0
1
-1000

BUTTON
140
577
340
610
I'm READY to take the quiz!!
quiz
NIL
1
T
OBSERVER
T
NIL

@#$#@#$#@
(Written by Dr. Robert Goldstone, Department of Psychology, 
Indiana University.  http://cognitrn.psych.indiana.edu/.  Email: rgoldsto@indiana.edu)



HOW TO USE IT
-------------



THINGS TO NOTICE
----------------


EXPLORATIONS
------------
@#$#@#$#@
default
true
0
Polygon -7500403 true true 150 5 40 250 150 205 260 250

ant
true
0
Polygon -7500403 true true 136 61 129 46 144 30 119 45 124 60 114 82 97 37 132 10 93 36 111 84 127 105 172 105 189 84 208 35 171 11 202 35 204 37 186 82 177 60 180 44 159 32 170 44 165 60
Polygon -7500403 true true 150 95 135 103 139 117 125 149 137 180 135 196 150 204 166 195 161 180 174 150 158 116 164 102
Polygon -7500403 true true 149 186 128 197 114 232 134 270 149 282 166 270 185 232 171 195 149 186
Polygon -7500403 true true 225 66 230 107 159 122 161 127 234 111 236 106
Polygon -7500403 true true 78 58 99 116 139 123 137 128 95 119
Polygon -7500403 true true 48 103 90 147 129 147 130 151 86 151
Polygon -7500403 true true 65 224 92 171 134 160 135 164 95 175
Polygon -7500403 true true 235 222 210 170 163 162 161 166 208 174
Polygon -7500403 true true 249 107 211 147 168 147 168 150 213 150

ant 2
true
0
Polygon -7500403 true true 150 19 120 30 120 45 130 66 144 81 127 96 129 113 144 134 136 185 121 195 114 217 120 255 135 270 165 270 180 255 188 218 181 195 165 184 157 134 170 115 173 95 156 81 171 66 181 42 180 30
Polygon -7500403 true true 150 167 159 185 190 182 225 212 255 257 240 212 200 170 154 172
Polygon -7500403 true true 161 167 201 150 237 149 281 182 245 140 202 137 158 154
Polygon -7500403 true true 155 135 185 120 230 105 275 75 233 115 201 124 155 150
Line -7500403 true 120 36 75 45
Line -7500403 true 75 45 90 15
Line -7500403 true 180 35 225 45
Line -7500403 true 225 45 210 15
Polygon -7500403 true true 145 135 115 120 70 105 25 75 67 115 99 124 145 150
Polygon -7500403 true true 139 167 99 150 63 149 19 182 55 140 98 137 142 154
Polygon -7500403 true true 150 167 141 185 110 182 75 212 45 257 60 212 100 170 146 172

arrow
true
0
Polygon -7500403 true true 150 0 0 150 105 150 105 293 195 293 195 150 300 150

bee
true
0
Polygon -1184463 true false 151 152 137 77 105 67 89 67 66 74 48 85 36 100 24 116 14 134 0 151 15 167 22 182 40 206 58 220 82 226 105 226 134 222
Polygon -16777216 true false 151 150 149 128 149 114 155 98 178 80 197 80 217 81 233 95 242 117 246 141 247 151 245 177 234 195 218 207 206 211 184 211 161 204 151 189 148 171
Polygon -7500403 true true 246 151 241 119 240 96 250 81 261 78 275 87 282 103 277 115 287 121 299 150 286 180 277 189 283 197 281 210 270 222 256 222 243 212 242 192
Polygon -16777216 true false 115 70 129 74 128 223 114 224
Polygon -16777216 true false 89 67 74 71 74 224 89 225 89 67
Polygon -16777216 true false 43 91 31 106 31 195 45 211
Line -1 false 200 144 213 70
Line -1 false 213 70 213 45
Line -1 false 214 45 203 26
Line -1 false 204 26 185 22
Line -1 false 185 22 170 25
Line -1 false 169 26 159 37
Line -1 false 159 37 156 55
Line -1 false 157 55 199 143
Line -1 false 200 141 162 227
Line -1 false 162 227 163 241
Line -1 false 163 241 171 249
Line -1 false 171 249 190 254
Line -1 false 192 253 203 248
Line -1 false 205 249 218 235
Line -1 false 218 235 200 144

bird1
false
0
Polygon -7500403 true true 2 6 2 39 270 298 297 298 299 271 187 160 279 75 276 22 100 67 31 0

bird2
false
0
Polygon -7500403 true true 2 4 33 4 298 270 298 298 272 298 155 184 117 289 61 295 61 105 0 43

boat1
false
0
Polygon -1 true false 63 162 90 207 223 207 290 162
Rectangle -6459832 true false 150 32 157 162
Polygon -13345367 true false 150 34 131 49 145 47 147 48 149 49
Polygon -7500403 true true 158 33 230 157 182 150 169 151 157 156
Polygon -7500403 true true 149 55 88 143 103 139 111 136 117 139 126 145 130 147 139 147 146 146 149 55

boat2
false
0
Polygon -1 true false 63 162 90 207 223 207 290 162
Rectangle -6459832 true false 150 32 157 162
Polygon -13345367 true false 150 34 131 49 145 47 147 48 149 49
Polygon -7500403 true true 157 54 175 79 174 96 185 102 178 112 194 124 196 131 190 139 192 146 211 151 216 154 157 154
Polygon -7500403 true true 150 74 146 91 139 99 143 114 141 123 137 126 131 129 132 139 142 136 126 142 119 147 148 147

boat3
false
0
Polygon -1 true false 63 162 90 207 223 207 290 162
Rectangle -6459832 true false 150 32 157 162
Polygon -13345367 true false 150 34 131 49 145 47 147 48 149 49
Polygon -7500403 true true 158 37 172 45 188 59 202 79 217 109 220 130 218 147 204 156 158 156 161 142 170 123 170 102 169 88 165 62
Polygon -7500403 true true 149 66 142 78 139 96 141 111 146 139 148 147 110 147 113 131 118 106 126 71

box
true
0
Polygon -7500403 true true 45 255 255 255 255 45 45 45

butterfly1
true
0
Polygon -16777216 true false 151 76 138 91 138 284 150 296 162 286 162 91
Polygon -7500403 true true 164 106 184 79 205 61 236 48 259 53 279 86 287 119 289 158 278 177 256 182 164 181
Polygon -7500403 true true 136 110 119 82 110 71 85 61 59 48 36 56 17 88 6 115 2 147 15 178 134 178
Polygon -7500403 true true 46 181 28 227 50 255 77 273 112 283 135 274 135 180
Polygon -7500403 true true 165 185 254 184 272 224 255 251 236 267 191 283 164 276
Line -7500403 true 167 47 159 82
Line -7500403 true 136 47 145 81
Circle -7500403 true true 165 45 8
Circle -7500403 true true 134 45 6
Circle -7500403 true true 133 44 7
Circle -7500403 true true 133 43 8

circle
false
0
Circle -7500403 true true 35 35 230

person
false
0
Circle -7500403 true true 155 20 63
Rectangle -7500403 true true 158 79 217 164
Polygon -7500403 true true 158 81 110 129 131 143 158 109 165 110
Polygon -7500403 true true 216 83 267 123 248 143 215 107
Polygon -7500403 true true 167 163 145 234 183 234 183 163
Polygon -7500403 true true 195 163 195 233 227 233 206 159

spacecraft
true
0
Polygon -7500403 true true 150 0 180 135 255 255 225 240 150 180 75 240 45 255 120 135

thin-arrow
true
0
Polygon -7500403 true true 150 0 0 150 120 150 120 293 180 293 180 150 300 150

truck-down
false
0
Polygon -7500403 true true 225 30 225 270 120 270 105 210 60 180 45 30 105 60 105 30
Polygon -8630108 true false 195 75 195 120 240 120 240 75
Polygon -8630108 true false 195 225 195 180 240 180 240 225

truck-left
false
0
Polygon -7500403 true true 120 135 225 135 225 210 75 210 75 165 105 165
Polygon -8630108 true false 90 210 105 225 120 210
Polygon -8630108 true false 180 210 195 225 210 210

truck-right
false
0
Polygon -7500403 true true 180 135 75 135 75 210 225 210 225 165 195 165
Polygon -8630108 true false 210 210 195 225 180 210
Polygon -8630108 true false 120 210 105 225 90 210

turtle
true
0
Polygon -7500403 true true 138 75 162 75 165 105 225 105 225 142 195 135 195 187 225 195 225 225 195 217 195 202 105 202 105 217 75 225 75 195 105 187 105 135 75 142 75 105 135 105

wolf-left
false
3
Polygon -6459832 true true 117 97 91 74 66 74 60 85 36 85 38 92 44 97 62 97 81 117 84 134 92 147 109 152 136 144 174 144 174 103 143 103 134 97
Polygon -6459832 true true 87 80 79 55 76 79
Polygon -6459832 true true 81 75 70 58 73 82
Polygon -6459832 true true 99 131 76 152 76 163 96 182 104 182 109 173 102 167 99 173 87 159 104 140
Polygon -6459832 true true 107 138 107 186 98 190 99 196 112 196 115 190
Polygon -6459832 true true 116 140 114 189 105 137
Rectangle -6459832 true true 109 150 114 192
Rectangle -6459832 true true 111 143 116 191
Polygon -6459832 true true 168 106 184 98 205 98 218 115 218 137 186 164 196 176 195 194 178 195 178 183 188 183 169 164 173 144
Polygon -6459832 true true 207 140 200 163 206 175 207 192 193 189 192 177 198 176 185 150
Polygon -6459832 true true 214 134 203 168 192 148
Polygon -6459832 true true 204 151 203 176 193 148
Polygon -6459832 true true 207 103 221 98 236 101 243 115 243 128 256 142 239 143 233 133 225 115 214 114

wolf-right
false
3
Polygon -6459832 true true 170 127 200 93 231 93 237 103 262 103 261 113 253 119 231 119 215 143 213 160 208 173 189 187 169 190 154 190 126 180 106 171 72 171 73 126 122 126 144 123 159 123
Polygon -6459832 true true 201 99 214 69 215 99
Polygon -6459832 true true 207 98 223 71 220 101
Polygon -6459832 true true 184 172 189 234 203 238 203 246 187 247 180 239 171 180
Polygon -6459832 true true 197 174 204 220 218 224 219 234 201 232 195 225 179 179
Polygon -6459832 true true 78 167 95 187 95 208 79 220 92 234 98 235 100 249 81 246 76 241 61 212 65 195 52 170 45 150 44 128 55 121 69 121 81 135
Polygon -6459832 true true 48 143 58 141
Polygon -6459832 true true 46 136 68 137
Polygon -6459832 true true 45 129 35 142 37 159 53 192 47 210 62 238 80 237
Line -16777216 false 74 237 59 213
Line -16777216 false 59 213 59 212
Line -16777216 false 58 211 67 192
Polygon -6459832 true true 38 138 66 149
Polygon -6459832 true true 46 128 33 120 21 118 11 123 3 138 5 160 13 178 9 192 0 199 20 196 25 179 24 161 25 148 45 140
Polygon -6459832 true true 67 122 96 126 63 144

@#$#@#$#@
NetLogo 3.0.2
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@