simulhope_cmd

 $Id: simulhope_cmd.m,v 1.2 2004/07/16 19:25:22 dalai Exp $

0001 % $Id: simulhope_cmd.m,v 1.2 2004/07/16 19:25:22 dalai Exp $
0002 
0003 function [par,bs,mob,msg_mcn,msg_std,stats] = simulhope_cmd(ui,model,coverage,nb_mob,nb_pedestrian,pspeed,nb_vehicular,vspeed,lambda,tmax)
0004 
0005 par = parameters_set(ui,model,coverage,nb_mob,nb_pedestrian,pspeed,nb_vehicular,vspeed,lambda,tmax);
0006 error = parameters_chk(par);
0007 
0008 if (error == 0)
0009     [par,bs,mob,msg_mcn,msg_std] = simulhope_run(par);
0010     stats = simulhope_stats(par,bs,mob,msg_mcn,msg_std);
0011     disp(dispconsole('|','=','|'));
0012     disp(dispconsole('|','Simulation',':','finished','|'));
0013     disp(dispconsole('|','=','|'));
0014 else
0015     warndlg(sprintf('you have %d error(s) in your parameters \n check the list of parameters to correct the wrong parameter', error ),'ERROR');
0016 end