응용 분야

리프팅 웨이블릿 변환 (LWT) 

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]=