How to find second,third,etc maximum peak of list

up vote
2
down vote

favorite

I need to find all values of peaks.
I have Table with 10000 elements in it and I plot a graphic using ListPlot.
enter image description here

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?
enter image description here
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]]]

peakwavelengths = tbl[[#1, 1]] & @@@ peakpositions

ListPlot[tbl, PlotRange -> All, GridLines -> {peakwavelengths, None}, 

GridLinesStyle -> Directive[Red, Thick]]

enter image description here

edited Nov 27 at 0:50

asked Nov 27 at 0:30

John

1996

1

Did you try FindPeaks?
– J42161217
Nov 27 at 0:33

Yes, I did. I added the result above.
– John
Nov 27 at 0:45

add a comment |

up vote
2
down vote

favorite

I need to find all values of peaks.
I have Table with 10000 elements in it and I plot a graphic using ListPlot.
enter image description here

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?
enter image description here
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]]]

peakwavelengths = tbl[[#1, 1]] & @@@ peakpositions

ListPlot[tbl, PlotRange -> All, GridLines -> {peakwavelengths, None}, 

GridLinesStyle -> Directive[Red, Thick]]

enter image description here

edited Nov 27 at 0:50

asked Nov 27 at 0:30

John

1996

1

Did you try FindPeaks?
– J42161217
Nov 27 at 0:33

Yes, I did. I added the result above.
– John
Nov 27 at 0:45

add a comment |

up vote
2
down vote

favorite

I need to find all values of peaks.
I have Table with 10000 elements in it and I plot a graphic using ListPlot.
enter image description here

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?
enter image description here
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]]]

peakwavelengths = tbl[[#1, 1]] & @@@ peakpositions

ListPlot[tbl, PlotRange -> All, GridLines -> {peakwavelengths, None}, 

GridLinesStyle -> Directive[Red, Thick]]

enter image description here

edited Nov 27 at 0:50

asked Nov 27 at 0:30

John

1996

I need to find all values of peaks.
I have Table with 10000 elements in it and I plot a graphic using ListPlot.
enter image description here

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?
enter image description here
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]]]

peakwavelengths = tbl[[#1, 1]] & @@@ peakpositions

ListPlot[tbl, PlotRange -> All, GridLines -> {peakwavelengths, None}, 

GridLinesStyle -> Directive[Red, Thick]]

enter image description here

plotting list-manipulation mathematical-optimization peak-detection

edited Nov 27 at 0:50

asked Nov 27 at 0:30

John

1996

edited Nov 27 at 0:50

asked Nov 27 at 0:30

John

1996

edited Nov 27 at 0:50

asked Nov 27 at 0:30

John

1996

asked Nov 27 at 0:30

John

1996

asked Nov 27 at 0:30

John

1996

1

Did you try FindPeaks?
– J42161217
Nov 27 at 0:33

Yes, I did. I added the result above.
– John
Nov 27 at 0:45

add a comment |

1

Did you try FindPeaks?
– J42161217
Nov 27 at 0:33

Yes, I did. I added the result above.
– John
Nov 27 at 0:45

Did you try FindPeaks?
– J42161217
Nov 27 at 0:33

Yes, I did. I added the result above.
– John
Nov 27 at 0:45

add a comment |

2 Answers
2

active

oldest

votes

up vote
5
down vote

accepted

jumps = tbl[[1 + Flatten@Position[Sign@Differences[tbl[[All, 2]]], 1]]]

ListStepPlot[tbl,  Epilog -> {Red, PointSize[Large], Point[jumps]}, 

 GridLines -> Transpose[jumps]]

enter image description here

answered Nov 27 at 0:53

kglr

174k8196401

add a comment |

up vote
4
down vote

Pick[tbl,Join[{0},Sign@Differences[Last/@tbl]],1]

answered Nov 27 at 1:15

J42161217

3,432219

add a comment |

Your Answer

StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\$","\$"]]);
});
});
}, "mathjax-editing");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "387"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});

}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f186752%2fhow-to-find-second-third-etc-maximum-peak-of-list%23new-answer', 'question_page');
}
);

Post as a guest

Name

Required, but never shown

2 Answers
2

active

oldest

votes

2 Answers
2

active

oldest

votes

up vote
5
down vote

accepted

jumps = tbl[[1 + Flatten@Position[Sign@Differences[tbl[[All, 2]]], 1]]]

ListStepPlot[tbl,  Epilog -> {Red, PointSize[Large], Point[jumps]}, 

 GridLines -> Transpose[jumps]]

enter image description here

answered Nov 27 at 0:53

kglr

174k8196401

add a comment |

up vote
5
down vote

accepted

jumps = tbl[[1 + Flatten@Position[Sign@Differences[tbl[[All, 2]]], 1]]]

ListStepPlot[tbl,  Epilog -> {Red, PointSize[Large], Point[jumps]}, 

 GridLines -> Transpose[jumps]]

enter image description here

answered Nov 27 at 0:53

kglr

174k8196401

add a comment |

up vote
5
down vote

accepted

jumps = tbl[[1 + Flatten@Position[Sign@Differences[tbl[[All, 2]]], 1]]]

ListStepPlot[tbl,  Epilog -> {Red, PointSize[Large], Point[jumps]}, 

 GridLines -> Transpose[jumps]]

enter image description here

answered Nov 27 at 0:53

kglr

174k8196401

jumps = tbl[[1 + Flatten@Position[Sign@Differences[tbl[[All, 2]]], 1]]]

ListStepPlot[tbl,  Epilog -> {Red, PointSize[Large], Point[jumps]}, 

 GridLines -> Transpose[jumps]]

enter image description here

answered Nov 27 at 0:53

kglr

174k8196401

answered Nov 27 at 0:53

kglr

174k8196401

answered Nov 27 at 0:53

kglr

174k8196401

answered Nov 27 at 0:53

kglr

174k8196401

add a comment |

up vote
4
down vote

Pick[tbl,Join[{0},Sign@Differences[Last/@tbl]],1]

answered Nov 27 at 1:15

J42161217

3,432219

add a comment |

up vote
4
down vote

Pick[tbl,Join[{0},Sign@Differences[Last/@tbl]],1]

answered Nov 27 at 1:15

J42161217

3,432219

add a comment |

up vote
4
down vote

Pick[tbl,Join[{0},Sign@Differences[Last/@tbl]],1]

answered Nov 27 at 1:15

J42161217

3,432219

Pick[tbl,Join[{0},Sign@Differences[Last/@tbl]],1]

answered Nov 27 at 1:15

J42161217

3,432219

answered Nov 27 at 1:15

J42161217

3,432219

answered Nov 27 at 1:15

J42161217

3,432219

answered Nov 27 at 1:15

J42161217

3,432219

add a comment |

draft saved

draft discarded

Thanks for contributing an answer to Mathematica Stack Exchange!

Please be sure to answer the question. Provide details and share your research!

But avoid …

Asking for help, clarification, or responding to other answers.

Making statements based on opinion; back them up with references or personal experience.

Use MathJax to format equations. MathJax reference.

To learn more, see our tips on writing great answers.

Some of your past answers have not been well-received, and you're in danger of being blocked from answering.

Please pay close attention to the following guidance:

Please be sure to answer the question. Provide details and share your research!

But avoid …

Asking for help, clarification, or responding to other answers.

Making statements based on opinion; back them up with references or personal experience.

To learn more, see our tips on writing great answers.

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Name

Required, but never shown

Name

Required, but never shown

This page is only for reference, If you need detailed information, please check here

搜尋此網誌

Vrftjkry