优化代码function X=Narrowbandsignal(N,f0,deltf,fs,M) N1=N-M; xt=random('norm',0,1,[1,N1]); fl=f0*2/fs; dfl=deltf/fs; ht = fir1(M,[fl-dfl fl+dfl]); X=conv(xt,ht); return function [At,Ph,A2]=EnvelopPhase(X,f0,fs) HX=imag(hilbert(X)); [M,N]=size(X); t=0:1/fs:((N-1)/fs); Ac=X.cos(2*pi*f0*t)+HX.sin(2*pi*f0*t); As=HX.cos(2*pi*f0*t)-X.sin(2*pi*f0*t); Ph=atan(As./Ac); A2=Ac.*Ac+As.*As; At=sqrt(A2); N=20000;f0=10000; deltf=500; fs=22000; M=50; X=Narrowbandsignal(N,f0,deltf,fs, M) ; X=X/sqrt(var(X) ) ; [At,Ph ,A2]=EnvelopPhase(X, f0, fs) ; LA=0:0.05:4.5; hist(At, LA) ; title('包络A(t)样本值的分布直方图'); LP=-pi/2:0.05:pi/2; figure; hist(Ph, LP) ; title('相位Φ(t)样本值的分布直方图'); LA2=0:0.2:16; figure; hist(A2, LA2) ; title('包络平方A2(t)样本值的分布直方图');

这段代码可以进行一些优化，例如：

1. 函数 Narrowbandsignal 中可以直接使用 randn 代替 random('norm',0,1)，使得代码更加简洁。

2. 函数 EnvelopPhase 中可以使用 abs 函数代替 sqrt(Ac.^2 + As.^2)，使得代码更加简洁。

3. 函数 EnvelopPhase 中可以使用 linspace 代替手动计算 t，使得代码更加简洁。

4. 可以添加注释来解释代码的功能和变量的含义，使得代码更加易读易懂。

经过优化后的代码如下：

% 生成窄带信号并计算包络、相位和包络平方的样本值分布直方图

function [At,Ph,A2] = EnvelopPhaseDemo(N,f0,deltf,fs,M)

% 生成窄带信号
N1 = N - M;
xt = randn(1,N1);
fl = f0*2/fs;
dfl = deltf/fs;
ht = fir1(M,[fl-dfl fl+dfl]);
X = conv(xt,ht);

% 归一化
X = X/sqrt(var(X));

% 计算包络和相位
HX = imag(hilbert(X));
t = linspace(0,(N-1)/fs,N);
Ac = X.*cos(2*pi*f0*t) + HX.*sin(2*pi*f0*t);
As = HX.*cos(2*pi*f0*t) - X.*sin(2*pi*f0*t);
Ph = atan2(As, Ac);
At = abs(Ac + 1i*As);

% 计算包络平方
A2 = Ac.^2 + As.^2;

% 绘制样本值分布直方图
figure;
LA = 0:0.05:4.5;
histogram(At, LA);
title('包络A(t)样本值的分布直方图');

figure;
LP = -pi/2:0.05:pi/2;
histogram(Ph, LP);
title('相位Φ(t)样本值的分布直方图');

figure;
LA2 = 0:0.2:16;
histogram(A2, LA2);
title('包络平方A2(t)样本值的分布直方图');

end

这样优化后的代码更加简洁易读，同时也有更好的可读性和可维护性。