stat_plot

 $Id: stat_plot.m,v 1.6 2004/08/03 14:19:40 dalai Exp $

0001 % $Id: stat_plot.m,v 1.6 2004/08/03 14:19:40 dalai Exp $
0002 
0003 function stat_plot(model,nb_mob,threshold,export,format)
0004 
0005 [cdf_delay_mcn,prctile_mcn]=stat_plot_delay(model,nb_mob,threshold,export,format);
0006 hop_dist=stat_plot_hop_distribution(model,nb_mob,export,format);
0007 stat_plot_buffer(model,nb_mob,export,format);
0008 
0009 res.models = { 'street' 'city' 'hexagonal' };
0010 res.model = char(res.models(model));
0011 
0012 if export == 1
0013     unix('mkdir plot');
0014     unix(['mkdir plot/' res.model]);
0015     unix(['mkdir plot/' res.model '/' num2str(nb_mob) 'usr']);
0016     unix(['mv *.' format ' plot/' res.model '/' num2str(nb_mob) 'usr']);
0017 end