bpsk 调制解调的误码率MATLAB仿真程序

% ***********SIMULATION OF COEFFICIENTS OF RAYLEIGH FADING

CHANNEL************

%

% VEHICULAR SPEED, DOPPLER SHIFT

% FADING COEFFICIENTS

%***********************************************************************

*******

v=vehicle_speed*5/18; % Receiver speed[m/hrs]接收速度

c=300*10^3; % Speed of light光速

wm=wc*(v/c); % Maximum shift最大矩

fm=wm/(2*pi); % Doppler shift

% SIMULATING ENSEMBLES OF SINUSOIDS

for i=1:Num_path

A(i)=(2*pi/Num_path)*i; %Azimuthal angles

wn(i)=wm*cos(A(i));

phi(i)=(pi*i)/(Num_path+1);

MdB=20*log10(M);

TdB=floor(20*log10(abs(T))); % Field [dB]

% PLOTTING THE HISTOGRAM

z1=hist(abs(T));

z=hist(TdB,9);

n=0;

for k=1:9

n=n+z(k);

end

F(10-x)=f(x);

end

plot(z1); % Distribution chart

title('Rayleigh distribution');

semilogy(t,abs(T)/max(abs(T)),'r') % Fading graphic

title('Received field');

ylabel('Received field intensity');

xlabel('time');

grid on;