gusucode.com > matlab通信工程仿真源码（张德丰等编著）程序书籍 > matlab_code/matlab通信工程仿真源码（张德丰等编著）/第8章/ampower.m

    function p=ampower(x)
%此函数用作计算信号功率
p=(norm(x)^2)/length(x);   %计算出信号能量
t0=0.15;
tz=0.001;
m=zeros(1,501);
for i=1:1:125         %计算第1段信号值的功率
    m(i)=i;        
end
for i=1:126:1:375     %计算第2段信号值的功率
    m(i)=m(125)-i+125;
end
for i=376:1:501      %计算第3段信号值的功率
    m(i)=m(375)+i-375;
end
m=m/1000;               %功率归一化
n_hat=imag(hilbert(m));