Annenberg Rover

No preview image

1 collaborator

zeina atrash (Author)

WHAT IS IT?

This section could give a general understanding of what the model is trying to show or explain.

HOW IT WORKS

This section could explain what rules the agents use to create the overall behavior of the model.

HOW TO USE IT

This section could explain how to use the model, including a description of each of the items in the interface tab.

THINGS TO NOTICE

This section could give some ideas of things for the user to notice while running the model.

THINGS TO TRY

This section could give some ideas of things for the user to try to do (move sliders, switches, etc.) with the model.

EXTENDING THE MODEL

This section could give some ideas of things to add or change in the procedures tab to make the model more complicated, detailed, accurate, etc.

NETLOGO FEATURES

This section could point out any especially interesting or unusual features of NetLogo that the model makes use of, particularly in the Procedures tab. It might also point out places where workarounds were needed because of missing features.

RELATED MODELS

This section could give the names of models in the NetLogo Models Library or elsewhere which are of related interest.

CREDITS AND REFERENCES

This section could contain a reference to the model's URL on the web if it has one, as well as any other necessary credits or references.

Comments and Questions

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

Click to Run Model

extensions [gogo]
globals
 [serial-port  ;;serial port
  alienLaserOn  ;;alien laser is on? 
 ]
 
 
 
 ;;sensors and outputs
 
 ;; 1 - sound
 ;; 2 - light
 ;; 3 - tempertaure
 ;; 4 - bend (wall detector)
 ;; 5 - infrared
 
 ;;OUPUTS
 ;; a - motor
 ;; b - motor
 ;; c - laser
 ;; d - steering

to setup
  if gogo:open? = false
    [ set serial-port user-one-of "Select a port:" gogo:ports
      gogo:open serial-port
      repeat 5
      [ if not gogo:ping
      [ user-message "The GoGo Board is not responding." ] ]
      gogo:talk-to-output-ports [ "a" "b" "c" "d" ] ]
      
  gogo:talk-to-output-ports [ "c" ]
  gogo:output-port-off
  set alienLaserOn false
  
  ;;turn down the power cause the car goes fast
  gogo:talk-to-output-ports["a" "b"]
  gogo:set-output-port-power 7  
end 

to go
 checkForWall
end 

to recordData
;; output-print gogo:sensor 1 ;;temperature
 output-type "Light: " output-print gogo:sensor 2 ;;light meter
 output-type "Temperature: " output-print gogo:sensor 3 ;;thermometer
 output-type "IR Light: " output-print gogo:sensor 5 ;;infrared sensor
 output-print " ---------------" 
end 

to checkForWall
 if (gogo:sensor 4 > 310)
  [turnStraight
   reverseCar
   wait 5
   turn
   reverseCar]
end 

to moveforward
  gogo:talk-to-output-ports [ "a" ]
  gogo:output-port-on
  gogo:talk-to-output-ports [ "b" ]
  gogo:output-port-on  
end 

to reverseCar  ;; set output d -motor - to reverse
  gogo:talk-to-output-ports [ "a" ]
  gogo:output-port-reverse
  gogo:talk-to-output-ports [ "b" ]
  gogo:output-port-reverse
end 

to stopcar
  turnStraight
  gogo:talk-to-output-ports [ "a" ]
  gogo:output-port-off
  gogo:talk-to-output-ports [ "b" ]
  gogo:output-port-off
end 

to turnStraight ;; turning the steering off and on makes the wheels straight
 gogo:talk-to-output-ports [ "d" ]
 gogo:output-port-off
 gogo:talk-to-output-ports [ "d" ]
 gogo:output-port-on
end 

to turn
  gogo:talk-to-output-ports [ "d" ]
  gogo:output-port-reverse
end 

to killAliens
 gogo:talk-to-output-ports ["c"]
 ifelse alienLaserOn = false
   [gogo:output-port-on
    set alienLaserOn true]
   [gogo:output-port-off
   set alienLaserOn false]
end

There is only one version of this model, created almost 14 years ago by zeina atrash.

Attached files

No files

This model does not have any ancestors.

This model does not have any descendants.

NetLogo