Новое в системе Wolfram
Mathematica
8: Вейвлет-анализ
◄
предыдущая
|
следующая
►
Прикладные области
Визуализация вейвлет-преобразования с помощью графика вдоль общей оси абсцисс
Визуализация вейвлет-коэффициентов вдоль общей оси абсцисс.
In[1]:=
X
data = Table[Sin[450 x], {x, 0, 1, 1/1024}] + Table[Sin[50 x^2], {x, 0, 1, 1/1024}];
In[2]:=
X
dwd = StationaryWaveletTransform[data, Automatic, 7];
In[3]:=
X
Column[{ListLinePlot[data, ImageSize -> 570, AspectRatio -> 0.2, Axes -> None, ColorFunction -> "DarkRainbow", Filling -> Axis, PlotLabel -> Style["Data", FontFamily -> "Verdana", Brown, Bold, 16], InterpolationOrder -> 2], WaveletListPlot[dwd, DataRange -> {0, 1}, ColorFunction -> "DarkRainbow", Filling -> Axis, ImageSize -> 570, PlotRangePadding -> None, TicksStyle -> Directive[13, FontFamily -> "Verdana"], PlotLabel -> Style["Wavelet Decomposition", FontFamily -> "Verdana", Brown, Bold, 16]]}]
Out[3]=