In[]:=
WaveletFilterCoefficients[BiorthogonalSplineWavelet[2,2],"PrimalHighpass",WorkingPrecision->Infinity]
Out[]=
0,-
1
4
,1,
1
2
,2,-
1
4

In[]:=
WaveletFilterCoefficients[BiorthogonalSplineWavelet[2,2],"DualLowpass",WorkingPrecision->Infinity]
Out[]=
-1,
1
4
,0,
1
2
,1,
1
4
