응용 분야

이산 웨이블릿 변환 (DWT) 

In[1]:=

X f[t_] := N[ 4/(1 + Exp[-6.4 t + 3.2]) + Cos[100 \[Pi] t] Ii[t, 1/3, 2/3]]; Ii[t_, x1_, x2_] := Piecewise[{{1, t >= x1 && t <= x2}}, 0]

In[2]:=

X dwt = DiscreteWaveletTransform[Table[f[x], {x, 0, 1, 1/255}], Automatic, 3];

In[3]:=

X Column[{Show[dwt["TreeView"], ImageSize -> 300, AspectRatio -> 1/GoldenRatio, PlotLabel -> Style["DWT Decomposition Tree", FontFamily -> "Verdana", Brown, Bold, 16]], WaveletListPlot[dwt, DataRange -> {0, 1}, 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][3], 4], ColorData[2][1]]) ]}, Alignment -> Center]

Out[3]=