BartlettWindow
x のBartlett窓関数を表す.
詳細
- BartlettWindowは,三角窓としても知られている,アンチエイリアス処理およびリサンプリングによく使われる窓関数である.
- 窓関数は,データが短いセグメントで処理されるアプリケーションに使われ,データ値を漸減して各セグメントの終りで0に近付ける平滑化効果がある.
- BartlettWindow[x]は
に等しい. - BartlettWindowは自動的にリストに縫い込まれる.
例題
すべて開く すべて閉じる例 (3)
スコープ (4)
BartlettWindow[0.1]Plot[BartlettWindow[(x - 1) / 2], {x, -1, 3}]Plot3D[BartlettWindow[Sqrt[x ^ 2 + y ^ 2]], {x, -1, 1}, {y, -1, 1}, PlotRange -> All]ListPlot[Array[BartlettWindow, 15, {-1 / 2, 1 / 2}], Filling -> Axis]ListPointPlot3D[Array[BartlettWindow[#1] BartlettWindow[#2]&, {15, 10}, {{-1 / 2, 1 / 2}}], Filling -> Axis]アプリケーション (4)
h = ConstantArray[1 / 11, 11]w = Array[BartlettWindow, Length[h], {-1 / 2, 1 / 2}];
fir = w h;fir / Total[fir]Plot[Evaluate[20Log10[Abs@ListFourierSequenceTransform[#, ω]]& /@ {h, %}], {ω, 0, Pi}, GridLines -> Automatic]Bartlett窓メソッドを使ってホワイトノイズ信号にフィルタをかける:
a = AudioGenerator["White", 1, SampleRate -> 8000];
Periodogram[{a, LowpassFilter[a, 8000 π / 3, 21, BartlettWindow]}]窓指定を使ってサンプルPowerSpectralDensityを計算する:
proc = ARMAProcess[1, {.5}, {.3}, 1];
data = RandomFunction[proc, {50}];spec = PowerSpectralDensity[data, w, BartlettWindow];sd = PowerSpectralDensity[data, w];sd === specプロットは,窓がスペクトル密度を平坦化したことを示している:
Plot[{sd, spec}, {w, -π, π}, PlotRange -> All, PlotLegends -> {"no window", "with window"}]Plot[{spec, Evaluate@PowerSpectralDensity[proc, w]}, {w, -π, π}, PlotLegends -> {"data", "process"}]data = RandomFunction[ARMAProcess[1, {.3}, {.4}, 1], {300}];EstimatedProcess[data, ARMAProcess[1, 1], ProcessEstimator -> {"SpectralEstimator", "Window" -> BartlettWindow}]特性と関係 (6)
BartlettWindowは,圧縮されたUnitTriangleに等しい:
PiecewiseExpand[BartlettWindow[x]] === PiecewiseExpand[UnitTriangle[2x]]area = Integrate[BartlettWindow[x], {x, -∞, ∞}]Plot[{BartlettWindow[x], BartlettWindow[x] / area}, {x, -1, 1}]f = FourierTransform[BartlettWindow[x], x, w]LogLinearPlot[20 Log[10, Abs[f]], {w, .1, 100}]Array[BartlettWindow, 15, {-0.5, 0.5}]% / Total[%]正規化された長さ15の離散Bartlett窓の離散時間フーリエ変換:
(win = Array[BartlettWindow, 15, {-0.5, 0.5}];
f = ListFourierSequenceTransform[win / Total[win], ω])Plot[Abs@f, {ω, 0, π}, PlotRange -> All]tab = Table[(h = Array[win, 15, {-0.5, 0.5}];
20Log10[Abs@ListFourierSequenceTransform[h / Total[h], ω]]), {win, {BartlettWindow, DirichletWindow}}];Plot[tab, {ω, 0, π}, PlotRange -> {5, -80}, PlotLegends -> {BartlettWindow, DirichletWindow}]関連するガイド
テキスト
Wolfram Research (2012), BartlettWindow, Wolfram言語関数, https://reference.wolfram.com/language/ref/BartlettWindow.html.
CMS
Wolfram Language. 2012. "BartlettWindow." Wolfram Language & System Documentation Center. Wolfram Research. https://reference.wolfram.com/language/ref/BartlettWindow.html.
APA
Wolfram Language. (2012). BartlettWindow. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/BartlettWindow.html
BibTeX
@misc{reference.wolfram_2026_bartlettwindow, author="Wolfram Research", title="{BartlettWindow}", year="2012", howpublished="\url{https://reference.wolfram.com/language/ref/BartlettWindow.html}", note=[Accessed: 14-August-2026]}
BibLaTeX
@online{reference.wolfram_2026_bartlettwindow, organization={Wolfram Research}, title={BartlettWindow}, year={2012}, url={https://reference.wolfram.com/language/ref/BartlettWindow.html}, note=[Accessed: 14-August-2026]}