Bounce Lottery

No preview image

1 collaborator

Dsc_0179_-_version_2 Jacob Wilkes (Author)

Tags

(This model has yet to be categorized with any tags)
Child of model Bounce Lottery preview imageBounce Lottery
Model group LS426_2013 | Visible to everyone | Changeable by everyone
Model was written in NetLogo 5.0.3 • Viewed 237 times • Downloaded 25 times • Run 0 times
Download the 'Bounce Lottery' modelDownload this modelEmbed this model

Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)


Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

extensions[gogo]

globals [
turtlecolor
]

to setup
  clear-all
  set-default-shape turtles "circle"
  draw-walls
  crt 5                                 ;; create some turtles
    [ randomize ]                       ;; place them randomly
  reset-ticks
end 

; draws the boundaries (walls) of the "billiard table"

to draw-walls
  ; draw left and right walls
  ask patches with [abs pxcor = max-pxcor]
    [ set pcolor blue ]
  ; draw top and bottom walls
  ask patches with [abs pycor = max-pycor]
    [ set pcolor blue ]
end 

; set random location

to randomize
  setxy random-xcor random-ycor
  if pcolor = blue       ; if it's on the wall...
    [ randomize ]        ; ...try again
end 

to go
  ask turtles [
    ifelse leave-trace?             ;; the turtle puts its pen up or down depending on the
      [ pd ]                        ;; value of the LEAVE-TRACE? switch
      [ pu ]
    bounce
    fd 0.1
  ]
  tick
end 

;; this procedure checks the coordinates and makes the turtles
;; reflect according to the law that the angle of reflection is
;; equal to the angle of incidence

to bounce  ;; turtle procedure
  ; check: hitting left or right wall?
  if abs [pxcor] of patch-ahead 0.1 = max-pxcor
    ; if so, reflect heading around x axis
    [ set heading (- heading) ]
  ; check: hitting top or bottom wall?
  if abs [pycor] of patch-ahead 0.1 = max-pycor
    ; if so, reflect heading around y axis
    [ set heading (180 - heading) ]
end 

to lights2
  let counter 0
  while [ gogo:sensor 1 < 50] [ 
    talk-to counter
    gogo:output-port-off
    set counter counter + 1 
    talk-to counter
    gogo:output-port-on
    gogo:beep
    repeat 5 [wait .005 go]
  ]
end 

to talk-to [counter]
  if counter mod 3 = 0
  [ gogo:talk-to-output-ports["a"] ask turtles [set color blue]
]
  if counter mod 3 = 1
  [ gogo:talk-to-output-ports["b"] ask turtles [set color green]
]
  if counter mod 3 = 2
  [ gogo:talk-to-output-ports["c"] ask turtles [set color red]
]
end 

to setupturtle
gogo:open "/dev/tty.usbmodem1421"
end 

to turnoff
gogo:talk-to-output-ports [ "a" "b" "c" ]
gogo:output-port-off
end 


  ;ask turtles set color red

; Public Domain:
; To the extent possible under law, Uri Wilensky has waived all
; copyright and related or neighboring rights to this model.

There is only one version of this model, created almost 12 years ago by Jacob Wilkes.

Attached files

No files

Parent: Bounce Lottery

This model does not have any descendants.

Graph of models related to 'Bounce Lottery'