I need to find all values of peaks.
I have Table
with 10000 elements in it and I plot a graphic using ListPlot
.
Then I tried to find peaks:
tbl1 = Table[tbl[[i, 2]], {i, 1, Length[tbl]}];
gA = Max[tbl1]
gAm = Part[tbl, Position[tbl1 , gA ][[1, 1]], 1]
Here tbl
my Table with Data
And get:
0.15
8.751
So I find the last peak starting. How I can find other? I upload a .txt file with data to my google drive here .
I also tried to use FindPeaks but it's wrong:
peakpositions = FindPeaks[tbl[[All, 2]]]
{{116, 0.}, {1441, 0.}}
peakwavelengths = tbl[[#1, 1]] & @@@ peakpositions
{0.115, 1.44}
ListPlot[tbl, PlotRange -> All, GridLines -> {peakwavelengths, None},
GridLinesStyle -> Directive[Red, Thick]]
FindPeaks
? $\endgroup$