init_env

 $Id: init_env.m,v 1.4 2004/07/15 11:26:24 dalai Exp $

0001 % $Id: init_env.m,v 1.4 2004/07/15 11:26:24 dalai Exp $
0002 
0003 function par = init_env(par)
0004 
0005 switch (par.model)
0006 
0007 case 1
0008     par.bs = ceil(par.coverage*20/100);
0009 
0010 case 2
0011     par.bs = ceil(par.coverage);
0012     lbs = 10;
0013     par.build_width=200;
0014     for idx=1:lbs
0015         for jdx=1:lbs
0016         par.sites((idx-1)*lbs+jdx) = par.build_width*((idx-(lbs+1)/2)+i*(jdx-(lbs+1)/2));
0017         end
0018     end
0019 
0020 case 3
0021     par.bs = ceil(par.coverage*(par.km^2+par.lm^2+par.km*par.lm)/100);
0022     par.sites = mk_hex_sites(par.km,par.lm,par.dist_bs);
0023     par.vertices = border(par.dist_bs,par.km,par.lm,par.sites);
0024 
0025 end
0026