Novos Recursos do
Mathematica
8: Visualização Científica e de Informação Novas e Melhoradas
◄
anterior
|
próximo
►
Gráficos & Visualização
Crie matrizes de gráficos a partir de transformações discretas de wavelets
Crie matrizes de gráficos da árvore base da matriz de coeficientes de wavelets para transformada discreta de wavelets a partir de um smiley.
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]=