Bug Hunt Speeds and Light

extensions [gogo]

to setup-gogo
  gogo:open "COM12"
end 


breed [predators predator]
breed [bugs bug]
bugs-own [
  speed    ;; either 1, 2, 3, 4, 5, or 6
]

globals [
  total-speed-1-caught      ;; keeps track of the number of bugs caught with speed of 1
  total-speed-2-caught      ;; keeps track of the number of bugs caught with speed of 2
  total-speed-3-caught      ;; keeps track of the number of bugs caught with speed of 3
  total-speed-4-caught      ;; keeps track of the number of bugs caught with speed of 4
  total-speed-5-caught      ;; keeps track of the number of bugs caught with speed of 5
  total-speed-6-caught      ;; keeps track of the number of bugs caught with speed of 6
]

to setup
  clear-all
  setup-gogo
  set-default-shape bugs "bug"
  set-default-shape predators "bird"
  set-environment
  ask patches [ set pcolor white ]   ;; white background
  foreach [1 2 3 4 5 6] [
    create-bugs initial-bugs-each-speed [ set speed ? ]
  ]
  ask bugs [
    setxy random-xcor random-ycor
    set-color
  ]
  ;; the predator breed contains one turtle that is used to represent
  ;; a predator of the bugs (a bird)
  create-predators 1 [
    set shape "bird"
    set color black
    set size 1.5
    set heading 315
    hide-turtle
  ]
  ;; plot the initial state of the system
  update-plots
end 

to go
  ;; use EVERY to limit the overall speed of the model
  every 0.03 [
    set-environment
    check-caught
    move-predator
    ask bugs [ fd speed * 0.08 ]
    ;; recolor the bugs in case the user changed SPEED-COLOR-MAP
    ask bugs [ set-color ]
    ;; advance the clock
    tick
    ;; plotting takes time, so only plot every 10 ticks
    if ticks mod 10 = 0 [ update-plots ]
  ]
end 

;;;;;;;;;;;;;;;;;;;;;
;; Runtime Procedures
;;;;;;;;;;;;;;;;;;;;;

to move-predator
  ask predators [
    setxy mouse-xcor mouse-ycor
    ;; only show the predator if the mouse pointer is
    ;; actually inside the view
    set hidden? not mouse-inside?
  ]
end 

to check-caught
  if not mouse-down? or not mouse-inside? [ stop ]
  let prey [bugs in-radius (size / 2)] of one-of predators
  ;; no prey here? oh well
  if not any? prey [ stop ]
  ;; eat only one of the bugs at the mouse location
  ask one-of prey [
    if speed = 1 [ set total-speed-6-caught total-speed-6-caught + 1 ]
    if speed = 2 [ set total-speed-5-caught total-speed-5-caught + 1 ]
    if speed = 3 [ set total-speed-4-caught total-speed-4-caught + 1 ]
    if speed = 4 [ set total-speed-3-caught total-speed-3-caught + 1 ]
    if speed = 5 [ set total-speed-2-caught total-speed-2-caught + 1 ]
    if speed = 6 [ set total-speed-1-caught total-speed-1-caught + 1 ]
    die
  ]
  ;; replace the eaten bug with a random offspring from the remaining population
  ask one-of bugs [ hatch 1 [ rt random 360 ] ]
end 

to set-color  ;; turtle procedure
  if speed-color-map = "all green"
    [ set color green ]
  if speed-color-map = "violet shades"
    [ set color violet - 4 + speed ]
  if speed-color-map = "rainbow"
    [ set color item (speed - 1) [violet blue green brown orange red] ]
end 

;;;;;;;;;;;;;;;;;;;;;;
;; Plotting Procedures
;;;;;;;;;;;;;;;;;;;;;;

;; To avoid having to write out all of the plotting code
;; six times, we use FOREACH to loop over the six possible
;; speeds.

to update-plots
  set-current-plot "Avg. Bug Speed vs. Time"
  plot mean [speed] of bugs

  set-current-plot "Bugs Caught vs. Time"
  foreach [1 2 3 4 5 6] [
    set-current-plot-pen word "speed=" ?
    ;; use RUNRESULT to get the value of the variable with
    ;; the given name
    plotxy ticks runresult (word "total-speed-" ? "-caught")
  ]

  ;; the HISTOGRAM primitive can't make a multi-colored histogram,
  ;; so instead we plot each bar individually
  set-current-plot "Frequency of Bugs"
  clear-plot
  foreach [1 2 3 4 5 6] [
    set-current-plot-pen word "pen" ?
    plotxy ? count bugs with [speed = ?]
  ]

  set-current-plot "Number of Bugs vs. Time"
  foreach [1 2 3 4 5 6] [
    set-current-plot-pen word "speed=" ?
    plot count bugs with [speed = ?]
  ]
end 

to set-environment
  ;; ask patches [set pcolor violet - 4 + environment-color]
  ;; the range of the light sensor is 1-140, I think
  ask patches [set pcolor violet - 4 + ((gogo:sensor 1) * 6 / 140 + 1 ) ]
end 

; *** NetLogo 4.0.3 Model Copyright Notice ***
;
; Copyright 2005 by Uri Wilensky.  All rights reserved.
;
; Permission to use, modify or redistribute this model is hereby granted,
; provided that both of the following requirements are followed:
; a) this copyright notice is included.
; b) this model will not be redistributed for profit without permission
;    from Uri Wilensky.
; Contact Uri Wilensky for appropriate licenses for redistribution for
; profit.
;
; To refer to this model in academic publications, please use:
; Novak, M. and Wilensky, U. (2005). NetLogo Bug Hunt Speeds model.
; http://ccl.northwestern.edu/netlogo/models/BugHuntSpeeds.
; Center for Connected Learning and Computer-Based Modeling,
; Northwestern University, Evanston, IL.
;
; In other publications, please use:
; Copyright 2005 Uri Wilensky.  All rights reserved.
; See http://ccl.northwestern.edu/netlogo/models/BugHuntSpeeds
; for terms of use.
;
; *** End of NetLogo 4.0.3 Model Copyright Notice ***