AudioFrequencyShift
AudioFrequencyShift
AudioFrequencyShift[audio,freq]
audio のスペクトルを freq シフトさせた音声を与える．
AudioFrequencyShift[audio,freq,mix]
mix を使ってもとの音声とシフトされた音声の割合を制御する．
AudioFrequencyShift[video,…]
video の最初の音声トラックのスペクトルをシフトさせる．
詳細とオプション
- AudioFrequencyShiftは，入力信号中のすべての周波数 f を周波数
にシフトさせる． - 振幅 freq は，スカラー，周波数量，Audioオブジェクト，純関数，あるいはTimeSeriesでよい．
- 混合パラメータ mix は，0から1までの任意の実数でよい．デフォルト値は1である．
- mix=0のときはもとの信号だけが返される．mix=1は遅延信号だけが返される．
- AudioFrequencyShiftにはMethodオプションを使うことができる．次は可能な設定である．
-
"UpperSideband" スペクトルを freq 分シフトする 
"LowerSideband" スペクトルを反転し，次に freq 分シフトする 
"AmplitudeModulation" 両方の効果が同時に出現する - シフトの絶対量はナイキスト(Nyquist)周波数の半分未満でなければならない．
例題
すべて開く すべて閉じる例 (2)
a = \!\(\*AudioBox[""]\);res = AudioFrequencyShift[a, Quantity[1000, "Hertz"]]もとの信号とシフトされた信号のパワースペクトルをプロットする：
Periodogram[{a, res}, PlotRange -> {{0, 4000}, All}, ScalingFunctions -> "Absolute"]a = \!\(\*AudioBox[""]\);
AudioFrequencyShift[a, Quantity[1000, "Hertz"], .5]Periodogram[%, PlotRange -> {{0, 4000}, All}, ScalingFunctions -> "Absolute"]スコープ (6)
a = AudioGenerator[{"Sin", 5000}];Periodogram[Table[AudioFrequencyShift[a, Quantity[5000, "Hertz"], mix], {mix, {0, .5, 1}}], 1000, PlotLegends -> Table["Mix: " <> ToString[mix], {mix, {0, .5, 1}}], PlotRange -> {-40, 20}]AudioFrequencyShift[\!\(\*AudioBox[""]\), 200]AudioFrequencyShift[\!\(\*AudioBox[""]\), Quantity[0.2, "Kilohertz"]]AudioFrequencyShift[\!\(\*AudioBox[""]\), 300 + 200Sin[2Pi#]&]TimeSeriesを使った時間依存周波数シフト：
AudioFrequencyShift[\!\(\*AudioBox[""]\), TimeSeries[{{0, 100}, {.5, 375}}]]AudioFrequencyShift[\!\(\*AudioBox[""]\), 500\!\(\*AudioBox[""]\)]AudioFrequencyShift[\!\(\*VideoBox[""]\), Quantity[1000, "Hertz"]]オプション (2)
Method (2)
AudioFrequencyShiftは3つのメソッドを使うことができる：
a = \!\(\*AudioBox[""]\);methods = {"UpperSideband", "LowerSideband", "AmplitudeModulation"};GraphicsRow[Periodogram[{a, AudioFrequencyShift[a, Quantity[1500, "Hertz"], Method -> #]}, ScalingFunctions -> "Absolute", PlotRange -> {{0, 3000}, All}, Ticks -> None, PlotLabel -> #]& /@ methods, ImageSize -> 500]"UpperSideband"と"LowerSideband"は非常に似通った結果を与え，"AmplitudeModulation"は異なるサウンドを生成する：
a = \!\(\*AudioBox[""]\);AudioFrequencyShift[a, Quantity[1000, "Hertz"], Method -> "UpperSideband"]AudioFrequencyShift[a, Quantity[1000, "Hertz"], Method -> "AmplitudeModulation"]アプリケーション (2)
もとの信号を混合しながら若干シフトさせることでコーラス効果を出す：
AudioFrequencyShift[\!\(\*AudioBox[""]\), Quantity[3, "Hertz"], .5]AudioFrequencyShift[\!\(\*AudioBox[""]\), Quantity[154, "Hertz"]]周波数シフトをと使ってドラムのようなサウンドを「調整する」：
AudioFrequencyShift[\!\(\*AudioBox[""]\), Quantity[233, "Hertz"]]AudioFrequencyShift[\!\(\*AudioBox[""]\), Quantity[300, "Hertz"]]特性と関係 (1)
正弦曲線のように調和的に単純な信号をシフトさせると，受け取られる音の高さが変わる：
AudioFrequencyShift[\!\(\*AudioBox[""]\), Quantity[150, "Hertz"]]//AudioNormalize複雑な信号をシフトさせると精文館の調和関係が変化し，不調和な出力を産むことがある：
AudioFrequencyShift[\!\(\*AudioBox[""]\), Quantity[150, "Hertz"]]//AudioNormalize考えられる問題 (1)
おもしろい例題 (2)
signal = \!\(\*AudioBox[""]\);shiftedSignal = AudioFrequencyShift[signal, Quantity[20000, "Hertz"]]AudioFrequencyShift[shiftedSignal, Quantity[-20000, "Hertz"]]RandomWalkProcessを使った時間依存周波数シフト：
shift = 50.TimeSeriesRescale[RandomFunction[RandomWalkProcess[0.5], {0, 40}], {0, 2}];
ListLinePlot[shift]AudioFrequencyShift[\!\(\*AudioBox[""]\), shift]Spectrogram[%, PlotRange -> {All, {0, 2000}}]
Wolfram Research (2016), AudioFrequencyShift, Wolfram言語関数， https://reference.wolfram.com/language/ref/AudioFrequencyShift.html （2024年に更新）.
テキスト
Wolfram Research (2016), AudioFrequencyShift, Wolfram言語関数， https://reference.wolfram.com/language/ref/AudioFrequencyShift.html （2024年に更新）.
CMS
Wolfram Language. 2016. "AudioFrequencyShift." Wolfram Language & System Documentation Center. Wolfram Research. Last Modified 2024. https://reference.wolfram.com/language/ref/AudioFrequencyShift.html.
APA
Wolfram Language. (2016). AudioFrequencyShift. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/AudioFrequencyShift.html