% plot_PDP - plot example power delay profile and channel impulse response

%% parameters
Ts = 0.1e-6;
tt = 0:Ts:6e-6;

Th = 1e-6;

%% power delay profile and example impulse response
PDP = exp(-tt/Th);
hh = sqrt(PDP/2) .* (randn( size(PDP) ) + j * randn( size(PDP) ) );

subplot(1,2,1)
plot(tt/1e-6,PDP)
xlabel('Delay \tau (\mus)' )
ylabel('Power Delay Profile')
grid

subplot(2,2,2)
stem(tt/1e-6,abs(hh).^2)
xlabel('Delay \tau (\mus)' )
ylabel('|h(\tau)|^2')
grid

subplot(2,2,4)
stem(tt/1e-6,angle(hh)/pi)
xlabel('Delay \tau (\mus)' )
ylabel('Phase of h(\tau)')
grid

%% Store name of script for automated figure generation
ScriptName = mfilename;

