Wolfram
Mathematica
8의 신기능: 새롭게 향상된 과학 및 정보 시각화 기능
◄
이전
|
다음
►
그래픽 및 시각화
이산 웨이블릿 변환의 행렬 플롯 만들기
스마일 이산 웨이브렛 변환에 대한 웨이브렛 행렬 계수의 기본 트리의 행렬 플롯을 제작 합니다.
In[1]:=
X
WaveletMatrixPlot[DiscreteWaveletTransform[ImageData[\!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztlU0KwjAQhafiwmt4AFeeQI9QT9CC3QpVkN7eiD9N5r2ZjAvBhQMpmbyv L+k0Iev+1A4LETmv0qPtrrtx7KbDMiX76XLs79I2tU1qjQ6ZAzSTrPGAOriS PZwpFv3JsL0+Yz7vU6KwFiMlDbIPgPVr1oF9UMI+m/kF4DcTYSlcvMgS2Ggs eVJQ8K/A1SRUjBf9h38O1psOkdy4CpdnrziMbKEmLAA3BqxpQR/c8KK6uQ2e lTlgjuL48NvKXioGn8SBeeIb16y16tGo2TRTdLF8F0pbFvrqJgMUp388gpso 4Fq8AbIODnA= "], {{0, 51}, {45, 0}}, {0, 1}, ColorFunction->GrayLevel], BoxForm`ImageTag["Bit", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], BaseStyle->"ImageGraphics", ImageSizeRaw->{45, 51}, PlotRange->{{0, 45}, {0, 51}}]\)], Automatic, 3], ColorFunction -> "GreenPinkTones", ImageSize -> 550]
Out[1]=