1
$\begingroup$

I want to do wavelet Fourier transform of my data but I have few doubts in this. 1)first of all what is octive and voice command here when i am changing value according to that my plot is changing but I don't know how to select this value for my data collection rate is 25fps. Since my data is contain so much oscillation is this code method is good for this?? For your consideration Can you please help me to figure it out the solution for this.I will be highly grateful for you efforts for this. Thank you and for consideration I am adding set of data point for more detail:

I also want to know how mathematica change time to frequency axis??

  data = Import["https://pastebin.com/raw/xWx0gRTP", "Table", HeaderLines -> 1];
    f[list_, pos_] := Module[{x = list}, x[[All, pos]] = Sequence[]; x]
    fdata = Flatten@f[data, 1];
    cwd = ContinuousWaveletTransform[fdata, MorletWavelet[], {20, 20}, 
      SampleRate -> 25]
    WaveletScalogram[cwd, ColorFunction -> "AvocadoColors", 
     ImageSize -> 700]
    ListLinePlot[Total[Abs[#]^2] & /@ Reverse@cwd[All, "Values"], 
      PlotRange -> All, ImageSize -> 700, BaseStyle -> Thick, 
      PlotStyle -> ColorData[19, "ColorList"], Frame -> True, 
      PlotRange -> {{0, 30}, {0, 30}}];
    freq = (1000/(# MorletWavelet[][
             "FourierFactor"])) & /@ (Thread[{Range[6], 1}] /. 
         cwd["Scales"]);

    ticks = Transpose[{Range[Length[freq]], freq}];

    WaveletScalogram[cwd, Frame -> True, 
     FrameTicks -> {{ticks, Automatic}, Automatic}, 
     FrameLabel -> {"Time", "Frequency(Hz)"}, 
     ColorFunction -> "SunsetColors", ImageSize -> 700]
$\endgroup$
  • $\begingroup$ The contents of prticle.xlsx are the numbers at the bottom of your post? $\endgroup$ – J. M. will be back soon Sep 3 '17 at 7:16
  • $\begingroup$ yes.this is the data $\endgroup$ – user51734 Sep 3 '17 at 7:21
  • $\begingroup$ I've put your long data in Pastebin; please check if I did not miss anything. $\endgroup$ – J. M. will be back soon Sep 3 '17 at 12:12
  • $\begingroup$ it seems fine to me. $\endgroup$ – user51734 Sep 3 '17 at 12:39
  • $\begingroup$ I think this data is not accessible. $\endgroup$ – user51734 Sep 5 '17 at 14:55

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.