%%建立VISSIM的COM介面 vissim =actxserver('VISSIM.vissim.430'); %% 載入交通網路 current_path = pwd; vissim.LoadNet([current_path '\vissim.inp']); vissim.LoadLayout([current_path '\vissim.ini']);   %%設定模擬引數 sim = vissim.Simulation; new_period_time =101; sim.set('Period',new_period_time); new_Resolution =1;  sim.set('Resolution',new_Resolution); new_Speed=1; sim.set('Speed',new_Speed); new_Random_Seed=50; %sim.set('RandomSeed',new_Random_Seed);

step=0;

while step<new_period_time*new_Resolution

    sim.RunSingleStep;     step=step+1;

   DOEVENT();

sim.Stop;