Áreas de aplicación

Calcule transformadas de óndula a alta precisión 

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]=