Mrthfx

Why did Rep. Omar conclude her criticism of US troops with the phrase "NotTodaySatan"?

A faster way to compute the largest prime factor

What to do with someone that cheated their way through university and a PhD program?

All ASCII characters with a given bit count

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

Is Electric Central Heating worth it if using Solar Panels?

Retract an already submitted recommendation letter (written for an undergrad student)

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

How to not starve gigantic beasts

As an international instructor, should I openly talk about my accent?

Is there metaphorical meaning of "aus der Haft entlassen"?

Co-worker works way more than he should

Island of Knights, Knaves and Spies

Why is the underscore command _ useful?

Is it acceptable to use working hours to read general interest books?

What does "function" actually mean in music?

Is there really no use for MD5 anymore?

Injection into a proper class and choice without regularity

std::unique_ptr of base class holding reference of derived class does not show warning in gcc compiler while naked pointer shows it. Why?

What makes accurate emulation of old systems a difficult task?

How can I practically buy stocks?

How bug prioritization works in agile projects vs non agile

A Paper Record is What I Hamper

How long after the last departure shall the airport stay open for an emergency return?

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 15 mins ago

user64494

3,65311122

asked 5 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 15 mins ago

user64494

3,65311122

asked 5 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 15 mins ago

user64494

3,65311122

asked 5 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 15 mins ago

user64494

3,65311122

asked 5 hours ago

Jamie MJamie M

475

share|improve this question

edited 15 mins ago

user64494

3,65311122

asked 5 hours ago

Jamie MJamie M

475

edited 15 mins ago

user64494

3,65311122

edited 15 mins ago

user64494

3,65311122

asked 5 hours ago

Jamie MJamie M

475

asked 5 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