Wolfram 언어™

AM 라디오

유한 대역 신호에서 시작합니다.

In[1]:=

a = BandpassFilter[ AudioNormalize@ AudioResample[Import["ExampleData/rule30.wav"], 96000], {Quantity[ 10, "Hertz"], Quantity[5000, "Hertz"]}, 201]

Out[1]=

In[2]:=

Periodogram[a, 2000, ImageSize -> Small, PlotRange -> {{0, 10000}, All}]

Out[2]=

22050 Hz의 사인 곡선 진폭을 조정하여 스펙트럼의 상한 콘텐츠를 이동합니다. 결과는 대부분의 사람들은 이미 들을 수 없습니다.

In[3]:=

amsignal = ((.5 + a) AudioGenerator[{"Sin", Quantity[22050, "Hertz"]}, Duration@a])/2

Out[3]=

In[4]:=

Periodogram[amsignal, 2200, ImageSize -> Small]

Out[4]=

결과에 동일한 위상의 22050 Hz의 다른 사인 곡선을 곱하여 AM 신호를 복조합니다.

In[5]:=

result = BandpassFilter[ amsignal*AudioGenerator[{"Sin", Quantity[22050, "Hertz"]}, Duration@amsignal], {Quantity[100, "Hertz"], Quantity[5000, "Hertz"]}, 201]

Out[5]=

비선형 필터를 사용하여 AM 신호를 복조합니다.

In[6]:=

BandpassFilter[# - Mean@# &@ MaxFilter[amsignal, 4], {Quantity[100, "Hertz"], Quantity[5000, "Hertz"]}, 201]

Out[6]=