cost231.m

无线传感器节点定位技术的程序

function X = Cost231(fre_car, hgt_rx, hgt_tx, dis, zone)
%------------本程序实现COST231模型--------------
% hgt_rx      接收天线的高度[1, 10]             单位：米
% hgt_tx      发射天线的高度[30, 200]           单位：米
% fre_car     载波频率[1500, 2000]             单位：兆赫兹
% dis         接收天线与发射天线的距离[1, 20]   单位：千米
% zone        接收天线所处的环境

%------------参数检查--------------
if  nargout>1,
    error('Too many output arguments.');
end
if nargin <5,
   error('Wrong number of input arguments.');
end

if zone == 1,
    dBzone = 0;
else
    dBzone = 3;
end
    
Lf = abs(4*randn(1));
%Lf = 0;
L  = 46.30 + 33.90*log10(fre_car) - 13.82*log10(hgt_tx) + (44.90 - 6.55*log10(hgt_tx))*log10(dis) + dBzone + Lf;

switch zone
    case 1
        alfa = (1.10*log10(fre_car) - 0.70)*hgt_rx - (1.56*log10(fre_car) - 0.80);
        Ls   = L - alfa;
    case 2
        alfa = 8.29*(log10(1.54*hgt_rx))^2 - 1.10;
        Ls   = L - alfa;
    case 3
        alfa = 3.20*(log10(11.75*hgt_rx))^2 - 4.97;
        Ls   = L - alfa;
end

%----输出----- 
if nargout == 1,
    X = Ls;
else
    disp(Ls);
end