jisuan.m

来自「利用CC1000通信的仿真程序.这是适用于无线传感器网络Mica2平台的程序.」· M 代码 · 共 33 行

Pt=0.03;
%Ptdb = 0.00;
Gt = 1;
Gr = 1;
freq = 9.14e+8;
L= 1.0;  
noisedb = -115;
noise = power(10.0,-115/10.0);
%Noise = noise./1000;
Noise = noise
d0 = 0.3; 
std_var = 1;
pathlossExp = 4.0; 
speed_of_light = 3.0e+8;
lambda = speed_of_light./freq;
f = 50;

d = 0.4:0.1:100;
Xv = normrnd(0,4,size(d));
Pr0 = (Pt*Gt*Gr*(lambda.^2))./(L.*(4*pi.*d0).^2);
exp1 = -10*pathlossExp.*log10(d/d0)+Xv;
Pr = Pr0.* power(10,exp1/10.0);
Prdb = 10*log10(Pr);
SNR_p = Pr/noise;
SNR = 10*log10(Pr/Noise);
Exp_ =exp(-SNR_p/1.28);
Prr = power((1-0.5*Exp_),400);

%plot(d,Prdb,'o');
plot(d,Prr,'o');

%axis([0 40 0 1]);
grid;