Wolfram
Mathematica
8의 신기능: 웨이블릿 분석
◄
이전
|
다음
►
응용 분야
정밀 웨이블릿 변환 연산
정확한 정밀도, 무한 정밀도를 포함한 어떤 작업 정밀도에서도 사용할 수 있습니다.
In[1]:=
X
dwtfunc[rank_] := Simplify[DiscreteWaveletTransform[ RandomInteger[4, ConstantArray[4, rank]], Automatic, 1, WorkingPrecision -> \[Infinity]][All]];
In[2]:=
X
formatdwt[rank_, color_ : White] := Block[{}, SeedRandom[1]; Labeled[Framed[Column[(Style[#1, 11, Bold] &) /@ dwtfunc[rank]], ImageSize -> 570, Alignment -> Left, RoundingRadius -> 10, Background -> color], Framed[Style["DWT In " <> ToString[rank] <> "-Dimension", 14, Darker[Red, 0.9], FontFamily -> "Helvetica"], RoundingRadius -> 10, Background -> color], Top]]
In[3]:=
X
Column[{formatdwt[1, RGBColor[0.804547, 1, 0.740871]], formatdwt[2, RGBColor[0.938979, 1, 0.790463]], formatdwt[3, RGBColor[1, 0.929198, 0.872953]]}]
Out[3]=
