Wolfram Language™

AM-Signale

Beginnen Sie mit einem bandbegrenzten Signal.

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]=

Modulieren Sie die Amplitude mit einem Sinusoid der Frequenz 22050 Hz, um den Inhalt an das obere Spektrumsende zu verschieben. Das Resultat sollte für die meisten Menschen bereits nicht mehr hörbar sein.

In[3]:=

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

Out[3]=

In[4]:=

Periodogram[amsignal, 2200, ImageSize -> Small]

Out[4]=

Demodulieren Sie das AM-Signal, indem Sie das Ergebnis mit einem weiteren Sinusiod mit Frequenz 22050 Hz und derselben Phase multiplizieren.

In[5]:=

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

Out[5]=

Verwenden Sie nun einen nichtlinearen Filter, um ein AM-Signal zu demodulieren.

In[6]:=

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

Out[6]=