clc
clear                           % σβήσε όλα τα προηγούμενα!
global CARS GTIMER GREEN LIGHTS RED RTIMER T
CARS = 0;                       % αριθμός αυτοκινήτων στην ουρά
GTIMER = 0;                     % μετρητής για πράσινα φώτα
GREEN = 2;                      % περίοδος των φώτων όταν είναι πράσινα
LIGHTS = 'R';                   % χρώμα των φώτων
n = 48;                         % αριθμός περιόδων των 10-sec
p = 0.3;                        % πιθανότητα να φτάνει ένα αυτοκίνητο
RED = 4;                        % περίοδος φώτων όταν είναι κόκκινα
RTIMER = 0;                     % μετρητής κόκκινων φώτων
for T = 1:n                     % για κάθε περίοδο των 10-sec
    r = rand(1,10);             % 10 seconds means 10 random numbers
    CARS = CARS + sum(r < p);   % αυτοκίνητα που φτάνουν σε 10 sec
if LIGHTS == 'G'
    go                          % συνάρτηση για τα πράσινα φώτα
else
    stop                        % συνάρτηση για τα κόκκινα φώτα
end;

end;