包络方法实现am调制

在matlab中实现的am调制 包络检波方法实现am调制

echo on
t0=.15;
ts=0.001;
fc=250;
snr=10;
a=0.85;
fs=1/ts;
df=0.25;
t=[0:ts:t0];
m=[ones（1t0/（3*ts））-2*ones（1t0/（3*ts））zeros（1t0/（3*ts）+1）];
c=cos（2*pi*fc.*t）;
m_n=m/max（abs（m））;
[Mmdf1]=fftseq（mtsdf）;
M=M/fs;
f=[0:df1:df1*（length（m）-1）]-fs/2;
u=（1+a*m_n）.*c;
[Uudf1]=fftseq（ utsdf ）;
U=U/fs;
env=env_phas（u）;
dem1=2*（env-1）/a;
signal_power=power1（u （1:length（t）））;
noise_power=signal_power/100;
noise_std=sqrt（noise_power）;
noise=noise_std*randn（1length（u））;
r=u+noise;
[Rrdf1]=fftseq（rtsdf）;
env_r=env_phas（r）;
dem2=2*（env_r-1）/a;
pause
subplot（211）
plot（tm（1:length（t）））
axis（[0 0.15 -2.1 2.1]）
xlabel（‘Time‘）
title（‘The message signal‘）
subplot（212）
plot（tu（1:length（t）））
axis（[0 0.15 -2.1 2.1]）
xlabel （‘Time‘）
title（‘The modulated  Signal‘）
pause 
clf
subplot（211）
plot（tu（1:length（t）））
axis（[0 0.15 -2.1 2.1]）
xlabel （‘Time‘）
title（‘The modulated  Signal‘）
subplot（212）
plot（tenv（1:length（t）））
xlabel （‘Time‘）
title（‘Envelope of the modulated signal‘）
pause
clf
subplot（211）
plot（tm（1:length（t）））
axis（[0 0.15 -2.1 2.1]）
xlabel （‘Time‘）
title（‘The message signal‘）
subplot（212）
plot（tdem1（1:length（t）））
xlabel （‘Time‘）
title（‘the demodulated signal‘）
pause
clf
subplot（211）
plot（tm（1:length（t）））
axis（[0 0.15 -2.1 2.1]）
xlabel （‘Time‘）
title（‘The Message Signal‘）
subplot（212）
plot（tdem2（1:length（t）））
xlabel （‘Time‘）
title（‘The demodulated signalin the presence of noise‘）

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1493  2008-11-25 22:22  包络实现am调制\baoluo decode am.m

     文件        359  2008-11-25 20:33  包络实现am调制\env_phas.m

     文件        620  2008-11-25 20:32  包络实现am调制\fftseq.m

     文件        248  2008-11-25 20:34  包络实现am调制\loweq.m

     文件        255  2008-11-25 21:19  包络实现am调制\power1.m

     目录          0  2008-12-16 10:04  包络实现am调制

----------- ---------  ---------- -----  ----

                 2975                    6