Re: wavelet

*To*: mathgroup at smc.vnet.net*Subject*: [mg114719] Re: wavelet*From*: "Vivek J. Joshi" <vivekj at wolfram.com>*Date*: Tue, 14 Dec 2010 06:54:47 -0500 (EST)

You need to Map the function over the wavelet coefficients, data == Sin[N@Range[0, 2 Pi, 2 Pi/1023]] + RandomReal[NormalDistribution[0,0.1], 1024]; dwd == DiscreteWaveletTransform[data,HaarWavelet[],5] DiscreteWaveletData[<<DWT>>,<5>,{1024}] Map[#[[1]]->StandardDeviation[Flatten[#[[2]]]]&,dwd[{___,1}]] {{1}->0.100544,{0,1}->0.106671,{0,0,1}->0.105074,{0,0,0,1}->0.138215,{0,0,0,0,1}->0.249566} or StandardDeviation[Flatten[#]]&/@dwd[{___,1},"Values"] {0.100544,0.106671,0.105074,0.138215,0.249566} Vivek J. Joshi Wolfram Research Inc. On Dec 13, 2010, at 2:50 AM, clansa wrote: > The order > StandardDeviation[Flatten[dwd[{___,1},"Values"]] > compute the standard deviation of all the wavelets coefficients dwd > > But I want to calculate standard deviations of the wavelets > coefficients for each level of the decomposition > Do you know the solution? > Thanks > > Andre Dauphine, Geographer >