New in Wolfram
Mathematica
8: Análisis de óndula
◄
previous
|
next
►
Áreas de aplicación
Transformada de óndula lifting (LWT)
Realice una
LiftingWaveletTransform
.
In[1]:=
X
data = Table[t Sinc[t^2], {t, -6, 6, 12/255}];
In[2]:=
X
lwt = LiftingWaveletTransform[data, Automatic, 3];
In[3]:=
X
Column[{Show[lwt["TreeView"], ImageSize -> 300, AspectRatio -> 1/GoldenRatio, PlotLabel -> Style["LWT Decomposition Tree", FontFamily -> "Verdana", Brown, Bold, 16]], WaveletListPlot[lwt, Automatic, DataRange -> {-6, 6}, Joined -> False, ImageSize -> 570, PlotRangePadding -> None, Filling -> Axis, TicksStyle -> Directive[FontFamily -> "Verdana", 12], PlotMarkers -> "", PlotLabel -> Style["Wavelet Decomposition Plot", FontFamily -> "Verdana", Brown, Bold, 16], Method -> {"PlotData" -> True}, Ticks -> Full, PlotStyle -> (Directive[{Opacity[1], Thickness@0.003, #}] & /@ Append[ConstantArray[ColorData[2][2], 4], ColorData[2][1]]) ]}, Alignment -> Center]
Out[3]=