Wolfram
Mathematica
8의 신기능: 웨이블릿 분석
◄
이전
|
다음
►
응용 분야
웨이블릿의 최적 기저 계산
패킷 변환의 최적 기저를 계산합니다.
In[1]:=
X
SeedRandom[2]; dwd = DiscreteWaveletPacketTransform[RandomReal[10, 16]];
In[2]:=
X
bestBasisMethod = {"ShannonEntropy", "Norm", "LogEnergy", {"Threshold", 2}};
In[3]:=
X
basisPlot = Table[{Show[WaveletBestBasis[dwd, c]["BestBasisBlockView"], ImageSize -> 280], Magnify[Show[WaveletBestBasis[dwd, c][{"TreeView", Center}], AspectRatio -> 1, ImageSize -> 500], 0.55]}, {c, bestBasisMethod}];
In[4]:=
X
ShowBestBasis[name_, info_] := Framed[Column[{Style[name, 14, Bold, FontFamily -> "Helvetica"], Grid[{info}, Spacings -> {0, 0}]}, Alignment -> Center], RoundingRadius -> 50, FrameStyle -> None, Background -> GrayLevel@0.90]
In[5]:=
X
Column[MapThread[ShowBestBasis, {bestBasisMethod, basisPlot}]]
Out[5]=