Novos Recursos do
Mathematica
8: Visualização Científica e de Informação Novas e Melhoradas
◄
anterior
|
próximo
►
Gráficos & Visualização
Visualize wavelets com escalogramas
Plote um escalograma de wavelet dos coeficientes de vetor de transformações contínuas ou discretas de wavelets de um conjunto de dados.
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]=