Wolfram
Mathematica
8의 신기능: 웨이블릿 분석
◄
이전
|
다음
►
응용 분야
웨이블릿 행렬 플롯
피라미드의 배치 또는 그리드 형태의 레이아웃을 사용하여 행렬의 이산 웨이블릿 변환의 웨이블릿 계수의 기본 tree의 행렬 플롯을 제작 합니다.
In[1]:=
X
n = 64; cf = Function[x, Which[0.48 < x < 0.52, White, x < 0.5, ColorData["DeepSeaColors", 2 x], True, ColorData["SolarColors", Rescale[x, {0.5, 1}, {1, 0}]]]]; mat = Sum[k DiamondMatrix[k, {n, n}], {k, {2, 4, 8, 16, 32}}]; dwd = DiscreteWaveletTransform[mat, Automatic, 4]; dwd2 = WaveletBestBasis[ DiscreteWaveletPacketTransform[mat, Automatic, 4]]; Grid[{{MatrixPlot[mat, FrameTicks -> None, ImageSize -> 275, ColorFunction -> cf, ImagePadding -> 1], WaveletMatrixPlot[dwd, ImageSize -> 275, Frame -> None, PlotRangePadding -> None, ImagePadding -> 1, ColorFunction -> cf]}, {WaveletMatrixPlot[dwd, PlotLayout -> "Grid", Axes -> None, ImageSize -> 64, ColorFunction -> cf], WaveletMatrixPlot[dwd2, ImageSize -> 275, Frame -> None, PlotRangePadding -> None, ColorFunction -> cf, ImagePadding -> 1]}}]
Out[1]=