Vjylku

Why didn't the Space Shuttle bounce back into space as many times as possible so as to lose a lot of kinetic energy up there?

How do I check if a string is entirely made of the same substring?

Drawing a german abacus as in the books of Adam Ries

How to be good at coming up with counter example in Topology

Contradiction proof for inequality of P and NP?

What does "function" actually mean in music?

"Whatever a Russian does, they end up making the Kalashnikov gun"? Are there any similar proverbs in English?

Apply a different color ramp to subset of categorized symbols in QGIS?

Is there a word for the censored part of a video?

Older movie/show about humans on derelict alien warship which refuels by passing through a star

How exactly does Hawking radiation decrease the mass of black holes?

A ​Note ​on ​N!

Is Diceware more secure than a long passphrase?

Could moose/elk survive in the Amazon forest?

Find the identical rows in a matrix

Do I need to watch Ant-Man and the Wasp and Captain Marvel before watching Avengers: Endgame?

Should the Product Owner dictate what info the UI needs to display?

How do I deal with a coworker that keeps asking to make small superficial changes to a report, and it is seriously triggering my anxiety?

How important is it that $TERM is correct?

Does a large simulator bay have standard public address announcements?

What is the best way to deal with NPC-NPC combat?

Multiple options vs single option UI

Mistake in years of experience in resume?

Which big number is bigger?

Partitioning values in a sequence

Ordering the elements in a list and separate them into sublists for plottingFinding all partitions of a setPartitioning an image based on featuresPartition list into a given number of sub-listsPartitioning List Into Sublists of Length 2 With The Pairing Being RandomCluster numbers into n partitions so that each partitions sum is closest to total/nEfficient lazy weak compositionsTiming and memory use is critical:fast partitioning of binary sparse arrayVariable iterator in Do Loop (splitting a list)Non-Constant Partitioning of a List with Order AnalysisTotally orderless partition

2

$begingroup$

I have a sequence that forms visible lines when plotted as a graph, what would be a good way to automatically partition the sequence to create a list of sequences, one for each line that is visible when the sequence is plotted?

Here is the start of the sequence:

list = {2,3,5,11,7,23,13,29,41,17,53,37,83,43,89,19,113,131,67,47,73,31,79,173,179,61,191,97,233,239,251,127,139,281,71,293,101,103,107,163,59,359,193,199,137,419,431,443,151,491,509,181,109,277,593,149,307,641,653,659,683,719,241,743,373,761,257,157,263,809,271,409,283,433,911,311,313,953,487,331,499,1013,1019,1031,347,1049,211,269,367,1103,577,167,397,1223,1229,619,1289,223,673,229,461,467,1409,709,1439,1451,727,739,1481,1499,503,1511,1559,1583,1601,401,557,337,853,1733,349,883,197};

Thanks.

cheers,
Jamie

partitions

share|improve this question

edited 25 mins ago

user64494

3,65311122

asked 6 hours ago

Jamie MJamie M

475

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Possible duplicate of ordering-the-elements-in-a-list-and-separate-them-into-sublists-for-plotting
  $endgroup$
  – MelaGo
  5 hours ago
  

  
  
  
  

add a comment | 

2

$begingroup$

I have a sequence that forms visible lines when plotted as a graph, what would be a good way to automatically partition the sequence to create a list of sequences, one for each line that is visible when the sequence is plotted?

Here is the start of the sequence:

list = {2,3,5,11,7,23,13,29,41,17,53,37,83,43,89,19,113,131,67,47,73,31,79,173,179,61,191,97,233,239,251,127,139,281,71,293,101,103,107,163,59,359,193,199,137,419,431,443,151,491,509,181,109,277,593,149,307,641,653,659,683,719,241,743,373,761,257,157,263,809,271,409,283,433,911,311,313,953,487,331,499,1013,1019,1031,347,1049,211,269,367,1103,577,167,397,1223,1229,619,1289,223,673,229,461,467,1409,709,1439,1451,727,739,1481,1499,503,1511,1559,1583,1601,401,557,337,853,1733,349,883,197};

Thanks.

cheers,
Jamie

partitions

share|improve this question

edited 25 mins ago

user64494

3,65311122

asked 6 hours ago

Jamie MJamie M

475

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Possible duplicate of ordering-the-elements-in-a-list-and-separate-them-into-sublists-for-plotting
  $endgroup$
  – MelaGo
  5 hours ago
  

  
  
  
  

add a comment | 

$begingroup$

I have a sequence that forms visible lines when plotted as a graph, what would be a good way to automatically partition the sequence to create a list of sequences, one for each line that is visible when the sequence is plotted?

Here is the start of the sequence:

list = {2,3,5,11,7,23,13,29,41,17,53,37,83,43,89,19,113,131,67,47,73,31,79,173,179,61,191,97,233,239,251,127,139,281,71,293,101,103,107,163,59,359,193,199,137,419,431,443,151,491,509,181,109,277,593,149,307,641,653,659,683,719,241,743,373,761,257,157,263,809,271,409,283,433,911,311,313,953,487,331,499,1013,1019,1031,347,1049,211,269,367,1103,577,167,397,1223,1229,619,1289,223,673,229,461,467,1409,709,1439,1451,727,739,1481,1499,503,1511,1559,1583,1601,401,557,337,853,1733,349,883,197};

Thanks.

cheers,
Jamie

partitions

share|improve this question

edited 25 mins ago

user64494

3,65311122

asked 6 hours ago

Jamie MJamie M

475

$endgroup$

list = {2,3,5,11,7,23,13,29,41,17,53,37,83,43,89,19,113,131,67,47,73,31,79,173,179,61,191,97,233,239,251,127,139,281,71,293,101,103,107,163,59,359,193,199,137,419,431,443,151,491,509,181,109,277,593,149,307,641,653,659,683,719,241,743,373,761,257,157,263,809,271,409,283,433,911,311,313,953,487,331,499,1013,1019,1031,347,1049,211,269,367,1103,577,167,397,1223,1229,619,1289,223,673,229,461,467,1409,709,1439,1451,727,739,1481,1499,503,1511,1559,1583,1601,401,557,337,853,1733,349,883,197};

share|improve this question

edited 25 mins ago

user64494

3,65311122

asked 6 hours ago

Jamie MJamie M

475

share|improve this question

edited 25 mins ago

user64494

3,65311122

asked 6 hours ago

Jamie MJamie M

475

edited 25 mins ago

user64494

3,65311122

edited 25 mins ago

user64494

3,65311122

asked 6 hours ago

Jamie MJamie M

475

asked 6 hours ago

Jamie MJamie M

475

2 Answers
2

active

oldest

votes

1

$begingroup$

You could for instance fit a mean polynomial function through the data:

fun = NonlinearModelFit[list, a x^2 + b x + c , {a, b, c}, x] //Normal

-48.3941 + 6.86017 x + 0.0161064 x^2

This will separarate the upper line from the lower line that you can see in the plot:

Show[

 ListLinePlot[list, PlotRange -> All],

 Plot[fun, {x, 0, 125}, PlotRange -> All, PlotStyle -> Red],

 PlotRange -> All]

Then you can simply run through the list and separate it into two lists based on whether the value is above or below the mean fit:

upperLine = {};

lowerLine = {};

Do[

 If[list[[x]] > fun,

   AppendTo[upperLine, {x, list[[x]]}],

   AppendTo[lowerLine, {x, list[[x]]}]];

 , {x, 1, Length[list]}]

The upperLine and lowerLine data sets then look like:

{ListLinePlot[upperLine], ListLinePlot[lowerLine]}

Repeat the process on the lowerLine data to separate the sequences further.

share|improve this answer

edited 5 hours ago

answered 5 hours ago

KagaratschKagaratsch

4,87531348

$endgroup$

add a comment | 

2

$begingroup$

list = {2, 3, 5, 11, 7, 23, 13, 29, 41, 17, 53, 37, 83, 43, 89, 19, 

   113, 131, 67, 47, 73, 31, 79, 173, 179, 61, 191, 97, 233, 239, 251,

    127, 139, 281, 71, 293, 101, 103, 107, 163, 59, 359, 193, 199, 

   137, 419, 431, 443, 151, 491, 509, 181, 109, 277, 593, 149, 307, 

   641, 653, 659, 683, 719, 241, 743, 373, 761, 257, 157, 263, 809, 

   271, 409, 283, 433, 911, 311, 313, 953, 487, 331, 499, 1013, 1019, 

   1031, 347, 1049, 211, 269, 367, 1103, 577, 167, 397, 1223, 1229, 

   619, 1289, 223, 673, 229, 461, 467, 1409, 709, 1439, 1451, 727, 

   739, 1481, 1499, 503, 1511, 1559, 1583, 1601, 401, 557, 337, 853, 

   1733, 349, 883, 197};



upper = FindPeaks[list];



lower = {1, -1} # & /@ FindPeaks[-list];



ListLinePlot[{list, lower, upper},

 PlotStyle -> {LightGray, Blue, Red}]

share|improve this answer

answered 1 hour ago

Bob HanlonBob Hanlon

61.9k33598

$endgroup$

add a comment | 

Your Answer

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',
autoActivateHeartbeat: false,
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');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f197055%2fpartitioning-values-in-a-sequence%23new-answer', 'question_page');
}
);

Post as a guest

Name

Email

Required, but never shown

1

$begingroup$

You could for instance fit a mean polynomial function through the data:

fun = NonlinearModelFit[list, a x^2 + b x + c , {a, b, c}, x] //Normal

-48.3941 + 6.86017 x + 0.0161064 x^2

This will separarate the upper line from the lower line that you can see in the plot:

Show[

 ListLinePlot[list, PlotRange -> All],

 Plot[fun, {x, 0, 125}, PlotRange -> All, PlotStyle -> Red],

 PlotRange -> All]

Then you can simply run through the list and separate it into two lists based on whether the value is above or below the mean fit:

upperLine = {};

lowerLine = {};

Do[

 If[list[[x]] > fun,

   AppendTo[upperLine, {x, list[[x]]}],

   AppendTo[lowerLine, {x, list[[x]]}]];

 , {x, 1, Length[list]}]

The upperLine and lowerLine data sets then look like:

{ListLinePlot[upperLine], ListLinePlot[lowerLine]}

Repeat the process on the lowerLine data to separate the sequences further.

share|improve this answer

edited 5 hours ago

answered 5 hours ago

KagaratschKagaratsch

4,87531348

$endgroup$

add a comment | 

1

$begingroup$

You could for instance fit a mean polynomial function through the data:

fun = NonlinearModelFit[list, a x^2 + b x + c , {a, b, c}, x] //Normal

-48.3941 + 6.86017 x + 0.0161064 x^2

This will separarate the upper line from the lower line that you can see in the plot:

Show[

 ListLinePlot[list, PlotRange -> All],

 Plot[fun, {x, 0, 125}, PlotRange -> All, PlotStyle -> Red],

 PlotRange -> All]

Then you can simply run through the list and separate it into two lists based on whether the value is above or below the mean fit:

upperLine = {};

lowerLine = {};

Do[

 If[list[[x]] > fun,

   AppendTo[upperLine, {x, list[[x]]}],

   AppendTo[lowerLine, {x, list[[x]]}]];

 , {x, 1, Length[list]}]

The upperLine and lowerLine data sets then look like:

{ListLinePlot[upperLine], ListLinePlot[lowerLine]}

Repeat the process on the lowerLine data to separate the sequences further.

share|improve this answer

edited 5 hours ago

answered 5 hours ago

KagaratschKagaratsch

4,87531348

$endgroup$

add a comment | 

$begingroup$

You could for instance fit a mean polynomial function through the data:

fun = NonlinearModelFit[list, a x^2 + b x + c , {a, b, c}, x] //Normal

-48.3941 + 6.86017 x + 0.0161064 x^2

This will separarate the upper line from the lower line that you can see in the plot:

Show[

 ListLinePlot[list, PlotRange -> All],

 Plot[fun, {x, 0, 125}, PlotRange -> All, PlotStyle -> Red],

 PlotRange -> All]

Then you can simply run through the list and separate it into two lists based on whether the value is above or below the mean fit:

upperLine = {};

lowerLine = {};

Do[

 If[list[[x]] > fun,

   AppendTo[upperLine, {x, list[[x]]}],

   AppendTo[lowerLine, {x, list[[x]]}]];

 , {x, 1, Length[list]}]

The upperLine and lowerLine data sets then look like:

{ListLinePlot[upperLine], ListLinePlot[lowerLine]}

Repeat the process on the lowerLine data to separate the sequences further.

share|improve this answer

edited 5 hours ago

answered 5 hours ago

KagaratschKagaratsch

4,87531348

$endgroup$

fun = NonlinearModelFit[list, a x^2 + b x + c , {a, b, c}, x] //Normal

Show[

 ListLinePlot[list, PlotRange -> All],

 Plot[fun, {x, 0, 125}, PlotRange -> All, PlotStyle -> Red],

 PlotRange -> All]

upperLine = {};

lowerLine = {};

Do[

 If[list[[x]] > fun,

   AppendTo[upperLine, {x, list[[x]]}],

   AppendTo[lowerLine, {x, list[[x]]}]];

 , {x, 1, Length[list]}]

{ListLinePlot[upperLine], ListLinePlot[lowerLine]}

share|improve this answer

edited 5 hours ago

answered 5 hours ago

KagaratschKagaratsch

4,87531348

answered 5 hours ago

KagaratschKagaratsch

4,87531348

answered 5 hours ago

KagaratschKagaratsch

4,87531348

2

$begingroup$

list = {2, 3, 5, 11, 7, 23, 13, 29, 41, 17, 53, 37, 83, 43, 89, 19, 

   113, 131, 67, 47, 73, 31, 79, 173, 179, 61, 191, 97, 233, 239, 251,

    127, 139, 281, 71, 293, 101, 103, 107, 163, 59, 359, 193, 199, 

   137, 419, 431, 443, 151, 491, 509, 181, 109, 277, 593, 149, 307, 

   641, 653, 659, 683, 719, 241, 743, 373, 761, 257, 157, 263, 809, 

   271, 409, 283, 433, 911, 311, 313, 953, 487, 331, 499, 1013, 1019, 

   1031, 347, 1049, 211, 269, 367, 1103, 577, 167, 397, 1223, 1229, 

   619, 1289, 223, 673, 229, 461, 467, 1409, 709, 1439, 1451, 727, 

   739, 1481, 1499, 503, 1511, 1559, 1583, 1601, 401, 557, 337, 853, 

   1733, 349, 883, 197};



upper = FindPeaks[list];



lower = {1, -1} # & /@ FindPeaks[-list];



ListLinePlot[{list, lower, upper},

 PlotStyle -> {LightGray, Blue, Red}]

share|improve this answer

answered 1 hour ago

Bob HanlonBob Hanlon

61.9k33598

$endgroup$

add a comment | 

2

$begingroup$

list = {2, 3, 5, 11, 7, 23, 13, 29, 41, 17, 53, 37, 83, 43, 89, 19, 

   113, 131, 67, 47, 73, 31, 79, 173, 179, 61, 191, 97, 233, 239, 251,

    127, 139, 281, 71, 293, 101, 103, 107, 163, 59, 359, 193, 199, 

   137, 419, 431, 443, 151, 491, 509, 181, 109, 277, 593, 149, 307, 

   641, 653, 659, 683, 719, 241, 743, 373, 761, 257, 157, 263, 809, 

   271, 409, 283, 433, 911, 311, 313, 953, 487, 331, 499, 1013, 1019, 

   1031, 347, 1049, 211, 269, 367, 1103, 577, 167, 397, 1223, 1229, 

   619, 1289, 223, 673, 229, 461, 467, 1409, 709, 1439, 1451, 727, 

   739, 1481, 1499, 503, 1511, 1559, 1583, 1601, 401, 557, 337, 853, 

   1733, 349, 883, 197};



upper = FindPeaks[list];



lower = {1, -1} # & /@ FindPeaks[-list];



ListLinePlot[{list, lower, upper},

 PlotStyle -> {LightGray, Blue, Red}]

share|improve this answer

answered 1 hour ago

Bob HanlonBob Hanlon

61.9k33598

$endgroup$

add a comment | 

$begingroup$

list = {2, 3, 5, 11, 7, 23, 13, 29, 41, 17, 53, 37, 83, 43, 89, 19, 

   113, 131, 67, 47, 73, 31, 79, 173, 179, 61, 191, 97, 233, 239, 251,

    127, 139, 281, 71, 293, 101, 103, 107, 163, 59, 359, 193, 199, 

   137, 419, 431, 443, 151, 491, 509, 181, 109, 277, 593, 149, 307, 

   641, 653, 659, 683, 719, 241, 743, 373, 761, 257, 157, 263, 809, 

   271, 409, 283, 433, 911, 311, 313, 953, 487, 331, 499, 1013, 1019, 

   1031, 347, 1049, 211, 269, 367, 1103, 577, 167, 397, 1223, 1229, 

   619, 1289, 223, 673, 229, 461, 467, 1409, 709, 1439, 1451, 727, 

   739, 1481, 1499, 503, 1511, 1559, 1583, 1601, 401, 557, 337, 853, 

   1733, 349, 883, 197};



upper = FindPeaks[list];



lower = {1, -1} # & /@ FindPeaks[-list];



ListLinePlot[{list, lower, upper},

 PlotStyle -> {LightGray, Blue, Red}]

share|improve this answer

answered 1 hour ago

Bob HanlonBob Hanlon

61.9k33598

$endgroup$

list = {2, 3, 5, 11, 7, 23, 13, 29, 41, 17, 53, 37, 83, 43, 89, 19, 

   113, 131, 67, 47, 73, 31, 79, 173, 179, 61, 191, 97, 233, 239, 251,

    127, 139, 281, 71, 293, 101, 103, 107, 163, 59, 359, 193, 199, 

   137, 419, 431, 443, 151, 491, 509, 181, 109, 277, 593, 149, 307, 

   641, 653, 659, 683, 719, 241, 743, 373, 761, 257, 157, 263, 809, 

   271, 409, 283, 433, 911, 311, 313, 953, 487, 331, 499, 1013, 1019, 

   1031, 347, 1049, 211, 269, 367, 1103, 577, 167, 397, 1223, 1229, 

   619, 1289, 223, 673, 229, 461, 467, 1409, 709, 1439, 1451, 727, 

   739, 1481, 1499, 503, 1511, 1559, 1583, 1601, 401, 557, 337, 853, 

   1733, 349, 883, 197};



upper = FindPeaks[list];



lower = {1, -1} # & /@ FindPeaks[-list];



ListLinePlot[{list, lower, upper},

 PlotStyle -> {LightGray, Blue, Red}]

share|improve this answer

answered 1 hour ago

Bob HanlonBob Hanlon

61.9k33598

answered 1 hour ago

Bob HanlonBob Hanlon

61.9k33598

answered 1 hour ago

Bob HanlonBob Hanlon

61.9k33598