升级:
WaveletExplorer
在 Mathematica 8 中,Wavelet Explorer 附加程序包的功能已被集成到 Mathematica 内核.
小波滤波器
以下是在 Wavelet Explorer 中可用的滤波器列表,以及其在 Mathematica 8 中相对应的格式.
使用内置函数 WaveletFilterCoefficients 计算小波系数:
| Out[14]= |  |
请注意,相对于 Wavelet Explorer 的结果,所有小波系数均被缩放了
,因此,要获得相等的结果,您必须把结果乘以
:
| Out[13]= |  |
计算高通滤波系数,使用 WaveletFilterCoefficients 的
参数:
| Out[2]= |  |
尺度和小波函数
以下是在 Wavelet Explorer 中可用的滤波器列表,以及其在 Mathematica 8 中相对应的格式.
| ScalingFunction[filt,j] | WaveletPhi[wave] |
| Wavelet[wave,j] | WaveletPsi[wave] |
| ShannonPhi[t] | WaveletPhi[ShannonWavelet[lim],t] |
| ShannonPsi[t] | WaveletPsi[ShannonWavelet[lim],t] |
| MeyerPhi[n,t,lim] | WaveletPhi[MeyerWavelet[n,lim],t] |
| MeyerPsi[n,t,lim] | WaveletPsi[MeyerWavelet[n,lim],t] |
| SplinePhi[n,t,lim] | WaveletPhi[BattleLemarieWavelet[n,lim],t] |
| SplinePsi[n,t,lim] | WaveletPsi[BattleLemarieWavelet[n,lim],t] |
| BSpline[n,t] | BSplineBasis[{n,{u1,u2,...}},0,t] |
| DScalingFunction[filt,jmax,m] | Dt[WaveletPhi[wave,t],{t,m}] |
| DWavelet[filt,jmax,m] | Dt[WaveletPsi[wave,t],{t,m}] |
的功能可以用 WaveletPhi 实现:
| Out[17]= |  |
使用 Dt 和 WaveletPhi 求尺度函数的导数:
| Out[2]= |  |
的功能可用 Dt 和 WaveletPsi 实现:
| Out[2]= |  |
计算尺度和小波函数的高阶导数:
WaveletPhi 与 WaveletPsi 输出的 InterpolatingFunction 把 InterpolationOrder 设为
. 因此第二个导数为0.
| Out[2]= |  |
| Out[3]= |  |
用更高阶的 InterpolationOrder 进行重采样和内插可以解决这个问题:
| Out[5]= |  |
| Out[6]= |  |
的功能可以用内置函数 BSplineBasis 实现:
| Out[3]= |  |
小波变换
以下是在 Wavelet Explorer 中可用的滤波器列表,以及其在 Mathematica 8 中相对应的格式.
| WaveletTransform[data,filt,j] | DiscreteWaveletTransform[data,wave,j] |
| InverseWaveletTransform[wd,filt] | InverseWaveletTransform[dwd] |
| WaveletPacketCoefficients[data,filt,j] | DiscreteWaveletPacketTransform[data,filt,j] |
| WaveletPacketTransform[data,filt,l] | WaveletBestBasis[DiscreteWaveletPacketTransform[...]] |
| InverseWaveletPacketTransform[wpdata,filt] | InverseWaveletTransform[dwd] |
等价的内置函数. 函数

不能由内置函数直接支持.
功能可用 DiscreteWaveletTransform 实现:
| Out[18]= |  |
使用 DiscreteWaveletPacketTransform 计算包变换:
| Out[2]= |  |
使用 InverseWaveletTransform 计算逆:
| Out[4]= |  |
的功能可以编写如下:
| Out[3]= |  |
| Out[4]= |  |
正弦和余弦变换
以下是在 Wavelet Explorer 中可用的滤波器列表,以及其在 Mathematica 8 中相对应的格式.
等价的内置函数. 函数

、

、

,

、

、

、

和

不能直接由内置函数支持.
使用内置函数 FourierDST 计算
:
| Out[10]= |  |
具有指定的第二变量的
:
| Out[2]= |  |
的一维功能可以编写如下:
| Out[3]= |  |
同样我们可以用 FourierDCT 编写
:
| Out[6]= |  |
其它应用
以下是在 Wavelet Explorer 中可用的滤波器列表,以及其在 Mathematica 8 中相对应的格式.
等价的内置函数. 函数

与

不能直接由内置函数支持.
使用 WaveletScalogram 绘制小波系数:
| Out[30]= |  |
| Out[33]= |  |
对数据压缩使用 WaveletThreshold:
| Out[3]= |  |
| Out[4]= |  |
函数
可以编写如下:
| Out[4]= |  |
| Out[5]= |  |