New in Wolfram
Mathematica
8: New and Improved Scientific and Information Visualization
◄
previous
|
next
►
Graphics & Visualization
Create Matrix Plots of Discrete Wavelet Transforms
Create a matrix plot of the basis tree of the wavelet matrix coefficients for the discrete wavelet transform of a smiley face.
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]=