function X = NetworkTop(BSN)
%  本程序生成網絡拓撲，假設網絡半徑為1
%  NetworkTop
%    參數說明：
%        BSN:   蜂窩網絡中基站數目 3<=BSN<=7
%  Also see: NetworkTop.

%  Designed by 李金倫, SWJTU, 2005.10.4

%  參數檢測:
if nargout>1,
    error('Too many output arguments!');
end 
if nargin ~= 1
    error('input arguments error!');
end
if BSN > 7 | BSN < 3,
    error('Overflow!');
end

% 7小區網絡拓撲：
BS = [0, sqrt(3), 0.5*sqrt(3), -0.5*sqrt(3), -sqrt(3), -0.5*sqrt(3), 0.5*sqrt(3);
      0,        0,         1.5,          1.5,        0,         -1.5,        -1.5];

% BSN個小區網絡拓撲：
for i = 1 : BSN,
    X(1,i) = BS(1,i);
    X(2,i) = BS(2,i);
end

% 結果輸出：
if nargout == 1,
    X;
else
    disp(X);
end