# Transformadas de óndulas continuas (CWT)

Realice una transformada de óndula continua y visualice los resultados con escalogramas.
 In[1]:= Xcf[x_] := Blend[{RGBColor[0., 0., 0.3], RGBColor[0., 0., 0.5], RGBColor[0, 0.1, 0.5], RGBColor[0, 0.2, 1], RGBColor[0, 0.5, 1], RGBColor[0.2, 0.7, 1], RGBColor[0.5, 0.8, 1], RGBColor[0.5, .9, .9], RGBColor[0.5, 1., 0.9], RGBColor[0.7, 1, 0.7], RGBColor[0.8, 1, 0.5], RGBColor[1, 1, 0], RGBColor[1, 0.8, 0], RGBColor[1, 0.5, 0], RGBColor[1, .25, 0], RGBColor[1, .1, 0.], RGBColor[1, .0, 0.], RGBColor[.9, .0, 0.], RGBColor[0.8, 0., 0.], RGBColor[0.5, 0., 0.], RGBColor[.25, 0., 0.], RGBColor[0.1, 0, 0]}, x];
 In[2]:= Xdd = Table[ Cos[1.2/(0.75 - x)] + Cos[-1.2/(0.25 - x)] + Cos[0.1/(0.5 - x)] + Cos[0.1/(0.1 - x)] + Cos[0.1/(0.9 - x)], {x, 0, 1, 1/2023}];
 In[3]:= Xcwd = ContinuousWaveletTransform[dd, DGaussianWavelet[3], {Automatic, 16}];
 In[4]:= XColumn[{ListLinePlot[dd, Axes -> None, ImageSize -> 570, AspectRatio -> 0.2, PlotRangePadding -> None, Background -> cf[0], PlotStyle -> cf[0.3]], WaveletScalogram[cwd, ColorFunction -> ( cf[#] &), Axes -> None, ImageSize -> 570, PlotRangePadding -> None]}, Spacings -> 0.2]
 Out[4]=