cp0802_pdp.m

来自「IEEEuwb仿真UWB信道冲击相应；rmsds仿真UWB信道的均方根时延扩展；」· M 代码 · 共 27 行

%
% FUNCTION 8.10 : "cp0802_PDP"
%
% Evaluates the power delay profile 'PDP' of a channel impulse 
% response 'h' sampled at frequency 'fc'
%
function [PDP]=cp0802_PDP(h,fc)
%=============================================================
% Step One - Evaluation of PDP
%=============================================================
dt=1/fc;
PDP=(abs(h).^2)./dt;           % PDP
%=============================================================
% Step Two - Graphical output
%=============================================================
Tmax=dt*length(h);
time=(0:dt:Tmax-dt);

S1=plot(time,PDP);
AX=gca;
set(AX,'FontSize',14);
T=title('Power Delay Profile');
set(T,'FontSize',14);
x=xlabel('Time [s]');
set(x,'FontSize',14);
y=ylabel('Power [V^2]');
set(y,'FontSize',14);