AudioTimeStretch
AudioTimeStretch[audio,r]
audio に時間の引き伸ばしを適用し，指定された因数 r 分だけ引き伸ばす．
AudioTimeStretch[video,r]
video の最初の音声トラックに時間の引伸しを適用する．
詳細とオプション
- AudioTimeStretchは，入力音声信号を，ピッチは変えずに指定された時間分引き伸ばす．
- 因数 r は次の任意のものでよい．
-
r 持続時間が r 倍される Scaled[r] 持続時間が r 倍される Quantity[dur,unit] 結果の持続時間 dur を与えられた時間の単位で指定する - 次は，サポートされるオプションである．
-
Method Automatic 使用するメソッド PartitionGranularity Automatic 短時間フーリエ変換の計算に使用する分割を制御する - デフォルトで，位相ボコーダアルゴリズムが使われる．時間伸長音声信号にMethod->"Speech"を使う．
例題
すべて開く すべて閉じる例 (2)
a = \!\(\*AudioBox[""]\);
AudioTimeStretch[a, Scaled[2]]AudioPlot[{a, %}]Audioオブジェクトを丸3秒間に伸ばす：
a = \!\(\*AudioBox[""]\);
AudioTimeStretch[a, Quantity[3, "Seconds"]]スコープ (3)
Audioオブジェクトを2倍に伸ばす：
a = Import["ExampleData/rule30.wav"];
Duration[a]AudioTimeStretch[a, Scaled[2]]//DurationAudioTimeStretchは，音の高さは音色を変えずに複雑なサウンドの持続時間を変える：
a = Mean[Table[AudioGenerator[{"Sin", 200 * i}, 2, SampleRate -> 8000] / i, {i, 1, 10}]]res = AudioTimeStretch[a, 1.5]Periodogram[{a, res}, PlotRange -> {{0, 2000}, All}, ScalingFunctions -> "Absolute"]AudioTimeStretch[\!\(\*VideoBox[""]\), 2]オプション (4)
Method (1)
Method->"Speech"をスピーチ信号に使ってより高品質の結果を得る：
a = \!\(\*AudioBox[""]\);
AudioTimeStretch[a, 1.8, Method -> "Speech"]これと比較すると，通常の時間を引き伸ばしたサウンドはあまりはっきりしない：
AudioTimeStretch[a, 1.8]PartitionGranularity (3)
分割サイズを大きくすると周波数応答は向上するが，過渡成分が不鮮明になる：
a = Import["ExampleData/rule30.wav"];
AudioTimeStretch[a, 1.1, PartitionGranularity -> Quantity[46, "Milliseconds"]]AudioTimeStretch[a, 1.1, PartitionGranularity -> Quantity[150, "Milliseconds"]]小さいオフセット値を使うと，一般に，結果の品質は向上するが計算時間は長くなる：
a = Import["ExampleData/rule30.wav"];
AudioTimeStretch[a, 1.1, PartitionGranularity -> {Quantity[46, "Milliseconds"], Quantity[20, "Milliseconds"]}]//AbsoluteTimingAudioTimeStretch[a, 1.1, PartitionGranularity -> {Quantity[46, "Milliseconds"], Quantity[5, "Milliseconds"]}]//AbsoluteTimingデフォルトで，HannWindowが使われる：
a = Import["ExampleData/rule30.wav"];
AudioTimeStretch[a, 1.1]AudioTimeStretch[a, 1.1,
PartitionGranularity -> {Quantity[46, "Milliseconds"], Quantity[10, "Milliseconds"], DirichletWindow}]AudioTimeStretch[a, 1.1,
PartitionGranularity -> {Quantity[46, "Milliseconds"], Quantity[10, "Milliseconds"], BlackmanWindow}]アプリケーション (1)
音声オブジェクトの持続時間を，他のものとマッチするように変える：
a1 = \!\(\*AudioBox[""]\);
a2 = ExampleData[{"Audio", "Piano"}];Duration /@ {a1, a2}AudioTimeStretch[a1, Duration[a2]]Duration[%]特性と関係 (1)
a = \!\(\*AudioBox[""]\);Audio[a, SampleRate -> 11025]AudioTimeStretchは音の高さは変えない：
AudioTimeStretch[a, 22050 / 11025]考えられる問題 (2)
AudioTimeStretch[\!\(\*AudioBox[""]\), 5.6]音声以外の信号にMethod->"Speech"を使っても，期待した結果は得られないかもしれない：
a = \!\(\*AudioBox[""]\);
AudioTimeStretch[a, 1.8, Method -> "Speech"]テキスト
Wolfram Research (2016), AudioTimeStretch, Wolfram言語関数， https://reference.wolfram.com/language/ref/AudioTimeStretch.html （2024年に更新）.
CMS
Wolfram Language. 2016. "AudioTimeStretch." Wolfram Language & System Documentation Center. Wolfram Research. Last Modified 2024. https://reference.wolfram.com/language/ref/AudioTimeStretch.html.
APA
Wolfram Language. (2016). AudioTimeStretch. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/AudioTimeStretch.html