Wolfram
Mathematica
8의 신기능: 새롭게 향상된 과학 및 정보 시각화 기능
◄
이전
|
다음
►
그래픽 및 시각화
Scalograms을 이용한 웨이블릿 시각화
데이터 셋의 이산 또는 연속 웨이블릿 변환 벡터 계수의 웨이브렛 scalogram 플롯을 작성을 합니다.
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]=