Biorthogonal spline wavelet with primal and dual filters swapped
ReverseBiorthogonalSplineWavelet[]
ReverseBiorthogonalSplineWavelet[n, m]
Plot[WaveletPhi[ReverseBiorthogonalSplineWavelet[2, 4], x, "Dual"], {x, -4, 4}, PlotRange -> All]
→ -Graphics-Plot[WaveletPsi[ReverseBiorthogonalSplineWavelet[2, 4], x, "Dual"], {x, -2, 3}, PlotRange -> All]
→ -Graphics-WaveletFilterCoefficients[ReverseBiorthogonalSplineWavelet[2, 4], {"DualLowpass", "DualHighpass"}, WorkingPrecision -> ∞]
→ {{{-4, 3/128}, {-3, -3/64}, {-2, -1/8}, {-1, 19/64}, {0, 45/64}, {1, 19/64}, {2, -1/8}, {3, -3/64}, {4, 3/128}}, {{0, -1/4}, {1, 1/2}, {2, -1/4}}}