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