%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%??????????????????????????????????PDP
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
clc;
clear?all;
close?all;
warning?off;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%??????????????????????????????simulation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Step?=?0.01;
Delay_Spread?=?0.1;%?0.98?2.53?6.88
%?RA
delay?=?[0:Step:0.7];
C?=?exp（-9.2*delay）;
C?=?C./C（1）;
C?=?10*log10（C）;
figure（1）;
plot（delayC‘k-‘‘linewidth‘2）;
axis（[0?20?-25?0]）;
grid?on;
xlabel（‘\tau?（us）‘）;
ylabel（‘dB‘）;
legend（‘遠郊地區‘）;
%?TU
Delay_Spread?=?0.98;
delay?=?[0:Step:7];
C?=?exp（-1*delay）;
C?=?C./C（1）;
C?=?10*log10（C）;
figure（2）;
plot（delayC‘k-‘‘linewidth‘2）;
axis（[0?20?-25?0]）;
grid?on;
xlabel（‘\tau?（us）‘）;
ylabel（‘dB‘）;
legend（‘典型城區‘）;
%?BU
Delay_Spread?=?2.53;
delay?=?[0:Step:5-Step];
C1?=?exp（-1*delay）;
C1?=?C1./C1（1）;

delay?=?[5:Step:10];
C2?=?0.5*exp（（5-delay））;
C2?=?C2./C1（1）;

C?=?[C1?C2];
C?=?10*log10（C）;

figure（3）;
plot（[0:Step:10]C‘k-‘‘linewidth‘2）;
axis（[0?20?-25?0]）;
grid?on;
xlabel（‘\tau?（us）‘）;
ylabel（‘dB‘）;
legend（‘惡劣城區‘）;

%?HT
Delay_Spread?=?6.88;
delay?=?[0:Step:2-Step];
C1?=?exp（-3.5*delay）;
C1?=?C1./C1（1）;
figure（4）;
plot（delay10*log10（C1）‘k-‘‘linewidth‘2）;hold?on;

delay?=?[15:Step:20];
C2?=?0.1*exp（（15-delay））;
C2?=?C2