次数4,二重次数2の双直交スプラインウェーブレットを表す.
BiorthogonalSplineWavelet[n,m]
次数 n,二重次数 m の双直交スプラインウェーブレットを表す.
BiorthogonalSplineWavelet
次数4,二重次数2の双直交スプラインウェーブレットを表す.
BiorthogonalSplineWavelet[n,m]
次数 n,二重次数 m の双直交スプラインウェーブレットを表す.
詳細
- BiorthogonalSplineWaveletは双直交ウェーブレット族を定義する.
- BiorthogonalSplineWavelet[n,m]は正の整数 m と n について定義される.ただし,m+n は偶数である.
- スケーリング関数(
)とウェーブレット関数(
)はコンパクトサポートを持つ.両関数は対称である. - BiorthogonalSplineWaveletはDiscreteWaveletTransform,WaveletPhi等の関数で使うことができる.
例題
すべて開く すべて閉じる例 (6)
Plot[WaveletPhi[BiorthogonalSplineWavelet[2, 4], x], {x, -4, 4}, PlotRange -> All]Plot[WaveletPsi[BiorthogonalSplineWavelet[2, 4], x], {x, -2, 3}, PlotRange -> All]Plot[WaveletPhi[BiorthogonalSplineWavelet[2, 4], x, "Dual"], {x, -2, 2}, PlotRange -> All]Plot[WaveletPsi[BiorthogonalSplineWavelet[2, 4], x, "Dual"], {x, -2, 3}, PlotRange -> All]WaveletFilterCoefficients[BiorthogonalSplineWavelet[2, 4], {"PrimalLowpass", "PrimalHighpass"}, WorkingPrecision -> ∞]WaveletFilterCoefficients[BiorthogonalSplineWavelet[2, 4], {"DualLowpass", "DualHighpass"}, WorkingPrecision -> ∞]スコープ (17)
基本的な用法 (10)
WaveletFilterCoefficients[BiorthogonalSplineWavelet[3, 3], "PrimalLowpass"]WaveletFilterCoefficients[BiorthogonalSplineWavelet[3, 3], "DualLowpass"]WaveletFilterCoefficients[BiorthogonalSplineWavelet[3, 3], "PrimalHighpass"]WaveletFilterCoefficients[BiorthogonalSplineWavelet[3, 3], "DualHighpass"]WaveletFilterCoefficients[BiorthogonalSplineWavelet[3, 3], "LiftingFilter", WorkingPrecision -> ∞]%[{"LiftingMatrixForm", z}]lf = WaveletFilterCoefficients[BiorthogonalSplineWavelet[3, 3], "LiftingFilter", WorkingPrecision -> ∞]lf["ForwardLiftingFunction"][Range[8]]lf["InverseLiftingFunction"][%]Plot[WaveletPhi[BiorthogonalSplineWavelet[2, 6], x], {x, -6, 6}, PlotRange -> All]Plot[WaveletPhi[BiorthogonalSplineWavelet[2, 6], x, "Dual"], {x, -1, 1}, PlotRange -> All]Table[Plot[WaveletPhi[BiorthogonalSplineWavelet[2, 6], x, MaxRecursion -> i], {x, -4, 4}, PlotLabel -> i, PlotRange -> All], {i, 1, 8, 2}]Plot[WaveletPsi[BiorthogonalSplineWavelet[2, 6], x], {x, -3, 4}, PlotRange -> All]Plot[WaveletPsi[BiorthogonalSplineWavelet[2, 6], x, "Dual"], {x, -3, 4}, PlotRange -> All]Table[Plot[WaveletPsi[BiorthogonalSplineWavelet[2, 6], x, MaxRecursion -> i], {x, -3, 4}, PlotLabel -> i, PlotRange -> All], {i, 1, 8, 2}]ウェーブレット変換 (5)
DiscreteWaveletTransformを計算する:
data = Table[Sign[Cos[t^2]], {t, -2π, 2π, (4π/1023)}];ListLinePlot[data, PlotRange -> All]dwt = DiscreteWaveletTransform[data, BiorthogonalSplineWavelet[4, 4], 2]dwt["TreeView"]dwt["Dimensions"]WaveletListPlot[dwt, PlotLayout -> "CommonXAxis"]DiscreteWaveletPacketTransformを計算する:
data = Table[Sign[Cos[t^2]], {t, -2π, 2π, (4π/1023)}];dwpt = DiscreteWaveletPacketTransform[data, BiorthogonalSplineWavelet[4, 4], 2]dwpt["TreeView"]dwpt["Dimensions"]WaveletListPlot[dwpt, PlotLayout -> "CommonXAxis"]StationaryWaveletTransformを計算する:
data = Table[Sign[Cos[t^2]], {t, -2π, 2π, (4π/1023)}];swt = StationaryWaveletTransform[data, BiorthogonalSplineWavelet[4, 4], 2];swt["TreeView"]swt["Dimensions"]WaveletListPlot[swt, PlotLayout -> "CommonXAxis"]StationaryWaveletPacketTransformを計算する:
data = Table[Sign[Cos[t^2]], {t, -2π, 2π, (4π/1023)}];swpt = StationaryWaveletPacketTransform[data, BiorthogonalSplineWavelet[4, 4], 2];swpt["TreeView"]swpt["Dimensions"]WaveletListPlot[swpt, PlotLayout -> "CommonXAxis"]LiftingWaveletTransformを計算する:
data = Table[Sign[Cos[t^2]], {t, -2π, 2π, (4π/1023)}];lwt = LiftingWaveletTransform[data, BiorthogonalSplineWavelet[4, 4], 2];lwt["TreeView"]lwt["Dimensions"]WaveletListPlot[lwt, PlotLayout -> "CommonXAxis"]より高い次元 (2)
多変量スケーリング関数と多変量ウェーブレット関数はそれぞれの一変量関数の積である:
ϕ = WaveletPhi[BiorthogonalSplineWavelet[2, 6]];
ψ = WaveletPsi[BiorthogonalSplineWavelet[2, 6]];Plot3D[Evaluate[ϕ[x]ϕ[y]], {x, -6, 6}, {y, -6, 6}, PlotRange -> All, ColorFunction -> "SolarColors", Mesh -> None, Axes -> None]Plot3D[Evaluate[ϕ[x]ψ[y]], {x, -6, 6}, {y, -3, 4}, PlotRange -> All, ColorFunction -> "SolarColors", Mesh -> None, Axes -> None]Plot3D[Evaluate[ψ[x]ϕ[y]], {x, -3, 4}, {y, -6, 6}, PlotRange -> All, ColorFunction -> "SolarColors", Mesh -> None, Axes -> None]Plot3D[Evaluate[ψ[x]ψ[y]], {x, -3, 4}, {y, -3, 4}, PlotRange -> All, ColorFunction -> "SolarColors", Mesh -> None, Axes -> None]多変量双対スケーリング関数および多変量双対ウェーブレット関数はそれぞれの一変量関数の積である:
Overscript[ϕ, ~] = Evaluate[WaveletPhi[BiorthogonalSplineWavelet[2, 6], #, "Dual"]]&;
Overscript[ψ, ~] = Evaluate[WaveletPsi[BiorthogonalSplineWavelet[2, 6], #, "Dual"]]&;Plot3D[Evaluate[Overscript[ϕ, ~][x]Overscript[ϕ, ~][y]], {x, -1, 1}, {y, -1, 1}, PlotRange -> All, ColorFunction -> "RustTones", Mesh -> None, Axes -> None]Plot3D[Evaluate[Overscript[ϕ, ~][x]Overscript[ψ, ~][y]], {x, -1, 1}, {y, -3, 4}, PlotRange -> All, ColorFunction -> "RustTones", Mesh -> None, Axes -> None]Plot3D[Evaluate[Overscript[ψ, ~][x]Overscript[ϕ, ~][y]], {x, -3, 4}, {y, -1, 1}, PlotRange -> All, ColorFunction -> "RustTones", Mesh -> None, Axes -> None]Plot3D[Evaluate[Overscript[ψ, ~][x]Overscript[ψ, ~][y]], {x, -3, 4}, {y, -3, 4}, PlotRange -> All, ColorFunction -> "RustTones", Mesh -> None, Axes -> None]特性と関係 (18)
BiorthogonalSplineWavelet[1,1]はHaarWaveletに等しい:
WaveletFilterCoefficients[HaarWavelet[]] == WaveletFilterCoefficients[BiorthogonalSplineWavelet[1, 1]]WaveletFilterCoefficients[HaarWavelet[]] == WaveletFilterCoefficients[BiorthogonalSplineWavelet[1, 1], "DualLowpass"]Total@WaveletFilterCoefficients[BiorthogonalSplineWavelet[4, 2]][[All, 2]]Total@WaveletFilterCoefficients[BiorthogonalSplineWavelet[4, 2], "PrimalHighpass"][[All, 2]]Total@WaveletFilterCoefficients[BiorthogonalSplineWavelet[4, 2], "DualLowpass"][[All, 2]]Total@WaveletFilterCoefficients[BiorthogonalSplineWavelet[4, 2], "DualHighpass"][[All, 2]]Integrate[WaveletPhi[BiorthogonalSplineWavelet[2, 2], x], {x, -∞, ∞}]Integrate[WaveletPhi[BiorthogonalSplineWavelet[2, 2], x, "Dual"], {x, -∞, ∞}]Integrate[WaveletPsi[BiorthogonalSplineWavelet[2, 2], x], {x, -∞, ∞}]Integrate[WaveletPsi[BiorthogonalSplineWavelet[2, 2], x, "Dual"], {x, -∞, ∞}]スケーリング関数
はコンパクトサポート{n1,n2}を持つ:
ϕ = WaveletPhi[BiorthogonalSplineWavelet[3, 3], x]{n1, n2} = {-3, 4};双対スケーリング関数
はコンパクトサポート{nd1,nd2}を持つ:
Overscript[ϕ, ~] = WaveletPhi[BiorthogonalSplineWavelet[3, 3], x, "Dual"]{nd1, nd2} = {-1, 2};対応するウェーブレット関数
はサポート({n1-nd2+1)/2,(n2-nd1+1)/2}を持つ:
ψ = WaveletPsi[BiorthogonalSplineWavelet[3, 3], x]{(n1 - nd2 + 1/2), (n2 - nd1 + 1/2)}双対ウェーブレット関数
はサポート({nd1-n2+1)/2,(nd2-n1+1)/2}を持つ:
Overscript[ψ, ~] = WaveletPsi[BiorthogonalSplineWavelet[3, 3], x, "Dual"]{(nd1 - n2 + 1/2), (nd2 - n1 + 1/2)}ϕ = WaveletPhi[BiorthogonalSplineWavelet[1, 3]];a = WaveletFilterCoefficients[BiorthogonalSplineWavelet[1, 3], "PrimalLowpass"];scalet[x_, ϕ_, a_] := 2Table[a[[i, 2]]ϕ[2x - a[[i, 1]]], {i, Length[a]}]{Plot[Evaluate@scalet[x, ϕ, a], {x, -3, 4}, PlotRange -> All],
Plot[Total@scalet[x, ϕ, a], {x, -3, 4}, PlotRange -> All]}ϕ = WaveletPhi[BiorthogonalSplineWavelet[1, 3]];b = WaveletFilterCoefficients[BiorthogonalSplineWavelet[1, 3], "PrimalHighpass"];wavelet[x_, ϕ_, b_] := 2Table[b[[i, 2]]ϕ[2x - b[[i, 1]]], {i, Length[b]}]{Plot[Evaluate@wavelet[x, ϕ, b], {x, -1, 2}, PlotRange -> All], Plot[Total@wavelet[x, ϕ, b], {x, -1, 2}, PlotRange -> All]}Overscript[ϕ, ~] = (Evaluate[WaveletPhi[BiorthogonalSplineWavelet[3, 5], #, "Dual"]]&);Overscript[a, ~] = WaveletFilterCoefficients[BiorthogonalSplineWavelet[3, 5], "DualLowpass"];scalet[x_, ϕ_, a_] := 2Table[a[[i, 2]]ϕ[2x - a[[i, 1]]], {i, Length[a]}]{Plot[Evaluate@scalet[x, Overscript[ϕ, ~], Overscript[a, ~]], {x, -1, 2}, PlotRange -> All],
Plot[Total@scalet[x, Overscript[ϕ, ~], Overscript[a, ~]], {x, -1, 2}, PlotRange -> All]}Overscript[ϕ, ~] = (Evaluate[WaveletPhi[BiorthogonalSplineWavelet[3, 5], #, "Dual"]]&);Overscript[b, ~] = WaveletFilterCoefficients[BiorthogonalSplineWavelet[3, 5], "DualHighpass"];wavelet[x_, ϕ_, b_] := 2Table[b[[i, 2]]ϕ[2x - b[[i, 1]]], {i, Length[b]}]{Plot[Evaluate@wavelet[x, Overscript[ϕ, ~], Overscript[b, ~]], {x, -3, 4}, PlotRange -> All],
Plot[Total@wavelet[x, Overscript[ϕ, ~], Overscript[b, ~]], {x, -3, 4}, PlotRange -> All]}h[wav_, ω_] := With[{a = WaveletFilterCoefficients[wav]}, Sum[a[[i, 2]]Exp[-Ia[[i, 1]]ω], {i, Length[a]}]]Plot[Abs[h[BiorthogonalSplineWavelet[2, 2], ω]], {ω, -π, π}, Ticks -> {{-π, -(π/2), 0, (π/2), π}, Automatic}, AxesLabel -> {ω, Abs[H[ω]]}]h[wav_, ω_] := With[{a = WaveletFilterCoefficients[wav]}, Sum[a[[i, 2]]Exp[-Ia[[i, 1]]ω], {i, Length[a]}]]fh[wav_, ω_, j_] := Abs[Product[h[wav, (ω/2^i)], {i, j}]]Plot[fh[BiorthogonalSplineWavelet[2, 2], ω, 10], {ω, -10Pi, 10Pi}, PlotRange -> All,
AxesLabel -> {ω, Abs[Overscript[ϕ, ^ ][ω]]}]Overscript[h, ~][wav_, ω_] := With[{a = WaveletFilterCoefficients[wav, "DualLowpass"]}, Sum[a[[i, 2]]Exp[-Ia[[i, 1]]ω], {i, Length[a]}]]Plot[Abs[Overscript[h, ~][BiorthogonalSplineWavelet[2, 2], ω]], {ω, -π, π}, Ticks -> {{-π, -(π/2), 0, (π/2), π}, Automatic}, AxesLabel -> {ω, Abs[Overscript[H, ~][ω]]}]Overscript[h, ~][wav_, ω_] := With[{a = WaveletFilterCoefficients[wav, "DualLowpass"]}, Sum[a[[i, 2]]Exp[-Ia[[i, 1]]ω], {i, Length[a]}]]fh[wav_, ω_, j_] := Abs[Product[Overscript[h, ~][wav, (ω/2^i)], {i, j}]]Plot[fh[BiorthogonalSplineWavelet[2, 2], ω, 10], {ω, -10Pi, 10Pi}, PlotRange -> All,
AxesLabel -> {ω, Abs[Overscript[Overscript[ϕ, ~], ^ ][ω]]}]g[wav_, ω_] := With[{b = WaveletFilterCoefficients[wav, "PrimalHighpass"]}, Sum[b[[i, 2]]Exp[-Ib[[i, 1]]ω], {i, Length[b]}]
]Plot[Abs[g[BiorthogonalSplineWavelet[2, 2], ω]], {ω, -π, π}, Ticks -> {{-π, -(π/2), 0, (π/2), π}, Automatic}, AxesLabel -> {ω, Abs[G[ω]]}]h[wav_, ω_] := With[{a = WaveletFilterCoefficients[wav]}, Sum[a[[i, 2]]Exp[-I a[[i, 1]]ω], {i, Length[a]}]]g[wav_, ω_] := With[{b = WaveletFilterCoefficients[wav, "PrimalHighpass"]}, Sum[b[[i, 2]]Exp[-Ib[[i, 1]]ω], {i, Length[b]}]]fg[wav_, ω_, j_] := Abs[g[wav, (ω/2)]Product[h[wav, (ω/2^i)], {i, 2, j}]]Plot[fg[BiorthogonalSplineWavelet[2, 2], ω, 10], {ω, -10Pi, 10Pi}, PlotRange -> All,
AxesLabel -> {ω, Abs[Overscript[ψ, ^ ][ω]]}]Overscript[g, ~][wav_, ω_] := With[{b = WaveletFilterCoefficients[wav, "DualHighpass"]}, Sum[b[[i, 2]]Exp[-Ib[[i, 1]]ω], {i, Length[b]}]]Plot[Abs[Overscript[g, ~][BiorthogonalSplineWavelet[2, 2], ω]], {ω, -π, π}, Ticks -> {{-π, -(π/2), 0, (π/2), π}, Automatic}, AxesLabel -> {ω, Abs[Overscript[G, ~][ω]]}]Overscript[h, ~][wav_, ω_] := With[{a = WaveletFilterCoefficients[wav, "DualLowpass"]}, Sum[a[[i, 2]]Exp[-Ia[[i, 1]]ω], {i, Length[a]}]]Overscript[g, ~][wav_, ω_] := With[{b = WaveletFilterCoefficients[wav, "DualHighpass"]}, Sum[b[[i, 2]]Exp[-Ib[[i, 1]]ω], {i, Length[b]}]]Overscript[fg, ~][wav_, ω_, j_] := Abs[Overscript[g, ~][wav, (ω/2)]Product[Overscript[h, ~][wav, (ω/2^i)], {i, 2, j}]]Plot[Overscript[fg, ~][BiorthogonalSplineWavelet[2, 2], ω, 10], {ω, -10Pi, 10Pi}, PlotRange -> All,
AxesLabel -> {ω, Abs[Overscript[Overscript[ψ, ~], ^ ][ω]]}]おもしろい例題 (2)
ϕ[x_, j_, k_] := 2^j / 2WaveletPhi[BiorthogonalSplineWavelet[1, 3], 2^jx - k]Plot[Evaluate@Table[ϕ[x, j, 0], {j, 0, 4}], {x, -1, 2}, Filling -> Axis, PlotRange -> All, Axes -> {True, False}]Plot[Evaluate@Table[ϕ[x, 2, k], {k, 0, 2^2 - 1}], {x, -0.5, 2}, Filling -> Axis, PlotRange -> All]ψ[x_, j_, k_] := 2^j / 2WaveletPsi[BiorthogonalSplineWavelet[1, 3], 2^jx - k]Plot[Evaluate@Table[ψ[x, j, 0], {j, 0, 4}], {x, -0.5, 1}, Filling -> Axis, PlotRange -> All, Axes -> {True, False}]Plot[Evaluate@Table[ψ[x, 2, k], {k, 0, 2^2 - 1}], {x, -0.5, 1.5}, Filling -> Axis, PlotRange -> All]テクニカルノート
関連するガイド
-
▪
- ウェーブレット
テキスト
Wolfram Research (2010), BiorthogonalSplineWavelet, Wolfram言語関数, https://reference.wolfram.com/language/ref/BiorthogonalSplineWavelet.html.
CMS
Wolfram Language. 2010. "BiorthogonalSplineWavelet." Wolfram Language & System Documentation Center. Wolfram Research. https://reference.wolfram.com/language/ref/BiorthogonalSplineWavelet.html.
APA
Wolfram Language. (2010). BiorthogonalSplineWavelet. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/BiorthogonalSplineWavelet.html
BibTeX
@misc{reference.wolfram_2026_biorthogonalsplinewavelet, author="Wolfram Research", title="{BiorthogonalSplineWavelet}", year="2010", howpublished="\url{https://reference.wolfram.com/language/ref/BiorthogonalSplineWavelet.html}", note=[Accessed: 16-August-2026]}
BibLaTeX
@online{reference.wolfram_2026_biorthogonalsplinewavelet, organization={Wolfram Research}, title={BiorthogonalSplineWavelet}, year={2010}, url={https://reference.wolfram.com/language/ref/BiorthogonalSplineWavelet.html}, note=[Accessed: 16-August-2026]}