New in Wolfram
Mathematica
8: Wavelet Analysis
◄
previous
|
next
►
Application Areas
Compute Wavelet Transforms to High Precision
Use any working precision, including exact or infinite precision.
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]=