data=Table[Sin[450 x],{x,0,1,1/1024}]+Table[Sin[50 x^2],{x,0,1,1/1024}];

dwd=StationaryWaveletTransform[data,Automatic,7];

Column[{ListLinePlot[data,ImageSize->570,AspectRatio->0.2,Axes->None,ColorFunction->"DarkRainbow",Filling->Axis,PlotLabel->Style["Data",FontFamily->"Verdana",Brown,Bold,16],InterpolationOrder->2],WaveletListPlot[dwd,DataRange->{0,1},ColorFunction->"DarkRainbow",Filling->Axis,ImageSize->570,PlotRangePadding->None,TicksStyle->Directive[13,FontFamily->"Verdana"],PlotLabel->Style["Wavelet Decomposition",FontFamily->"Verdana",Brown,Bold,16]]}]