init_bs

 generates base-stations' positions

  INPUT
   par          general parameter

  OUTPUT
   xy_bs        BS position in complex format


 $Id: init_bs.m,v 1.7 2004/07/19 06:51:35 dalai Exp $

0001 % generates base-stations' positions
0002 %
0003 %  INPUT
0004 %   par          general parameter
0005 %
0006 %  OUTPUT
0007 %   xy_bs        BS position in complex format
0008 %
0009 %
0010 % $Id: init_bs.m,v 1.7 2004/07/19 06:51:35 dalai Exp $
0011 
0012 function bs = init_bs(par)
0013 
0014 switch (par.model)
0015 
0016 case 1
0017     dbs = 2*par.r/par.bs;
0018     for idx = 1:par.bs
0019         bs(idx).xy = dbs*(idx-(par.bs+1)/2) + i;
0020     end
0021 
0022 otherwise
0023     rand('state',sum(100*clock));
0024     active=randperm(length(par.sites));
0025     for idx=1:par.bs
0026         bs(idx).xy = par.sites(active(idx));
0027     end
0028 
0029 end