New in Wolfram
Mathematica
8: New and Improved Scientific and Information Visualization
◄
previous
|
next
►
Graphics & Visualization
Visualize Wavelets with Scalograms
Plot a wavelet scalogram of the vector coefficients of discrete or continuous wavelet transforms of a dataset.
In[1]:=
X
opts = {ImageSize -> 550, Frame -> True, ImagePadding -> {{30, 3}, {15, 3}}};
In[2]:=
X
data = Table[Sign[Cos[x + Sin[x^2]]], {x, -6, 6, 0.025}]; cwt = ContinuousWaveletTransform[data];
In[3]:=
X
Column[{WaveletScalogram[cwt, ColorFunction -> "SunsetColors", opts], ListLinePlot[data, PlotStyle -> Directive[Thick, Darker@Purple], AspectRatio -> 1/4, opts]}]
Out[3]=