data1=Table[Cos[20 π x],{x,0,1,(1/1023)}];
cwt1=ContinuousWaveletTransform[data1,GaborWavelet[6]];
data2=Table[Cos[20 π x]+Cos[(Sqrt[2]) 50 π x],{x,0,1,(1/1023)}];
cwt2=ContinuousWaveletTransform[data2,GaborWavelet[6]];
data3=Block[{fr=0},Table[Sin[(fr+=0.5)x],{x,0,1,(1/1023)}]];
cwt3=ContinuousWaveletTransform[data3,GaborWavelet[6]];

Partition[Riffle[ListLinePlot[#]&/@{data1,data2,data3},WaveletScalogram[#,ColorFunction->"SolarColors"]&/@{cwt1,cwt2,cwt3}],2]//Grid