Bounce Lottery
No preview image
Model was written in NetLogo 5.0.3
•
Viewed 237 times
•
Downloaded 25 times
•
Run 0 times
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.