VISSIM 5.30-05 User Manual

3 Program Handling
def ControlBarriers() :
#through all barriers for i in NAREAS :
if BarrierOpening[i] : #opening barrier
if Barriers[i].AttValue('STATE') < Barriers[i].AttValue('NSTATES') - 2 :
Barriers[i].SetAttValue('STATE', Barriers[i].AttValue('STATE') + 1) #opening
if Barriers[i].AttValue('STATE') == Barriers[i].AttValue('NSTATES') - 2 : # opened
BarrierOpening[i] = False
SgGrps[i].SetAttValue('TYPE', GREEN) #allow vehicle to enter
if BarrierClosing[i] : #closing barrier
if Barriers[i].AttValue('STATE') > 0 :
Barriers[i].SetAttValue('STATE',
Barriers[i].AttValue('STATE') - 1) #closing
if Barriers[i].AttValue('STATE') == 0 : #barrier closed
BarrierClosing[i] = False
VehEntering[i] = False
#=======================================================
#update occupied places counters
#=======================================================
def CountOccupiedSpaces() :
...
...
#=======================================================
#update digit counters
#=======================================================
def UpdateCounters() :
...
...
#=======================================================
#start simulating
for SimStep in range(1, Sim.Period * Sim.Resolution) :
Sim.RunSingleStep()
ControlEntrances()
ControlBarriers()
CountOccupiedSpaces()
#update counters every second
if (SimStep % Sim.Resolution) == 0:
UpdateCounters()
VISSIM.DoEvents() #allow VISSIM to handle its events
#=======================================================
60 VISSIM 5.30-05 © PTV AG 2011