Partitioning values in a sequenceOrdering 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

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

How do I produce this Greek letter koppa: Ϟ in pdfLaTeX?

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?

Can a level 2 Warlock take one level in rogue, then continue advancing as a warlock?

Why must Chinese maps be obfuscated?

Cayley's Matrix Notation

Check if a string is entirely made of the same substring

Can I criticise the more senior developers around me for not writing clean code?

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

How to have a sharp product image?

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

What makes accurate emulation of old systems a difficult task?

Is there a better way to say "see someone's dreams"?

Is there really no use for MD5 anymore?

Multiple options vs single option UI

"The cow" OR "a cow" OR "cows" in this context

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

My bank got bought out, am I now going to have to start filing tax returns in a different state?

What does "function" actually mean in music?

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

How can I wire a 9-position switch so that each position turns on one more LED than the one before?

Is Electric Central Heating worth it if using Solar Panels?

How do I reattach a shelf to the wall when it ripped out of the wall?

Work requires me to come in early to start computer but wont let me clock in to get paid for it



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











$endgroup$











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















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











$endgroup$











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













2












2








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











$endgroup$




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




partitions






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 21 mins ago









user64494

3,65311122




3,65311122










asked 6 hours ago









Jamie MJamie M

475




475











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
















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















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




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










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]


enter image description here



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]


enter image description here



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






share|improve this answer











$endgroup$




















    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]


    enter image description here






    share|improve this answer









    $endgroup$













      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


















      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















      Required, but never shown

























      2 Answers
      2






      active

      oldest

      votes








      2 Answers
      2






      active

      oldest

      votes









      active

      oldest

      votes






      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]


      enter image description here



      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]


      enter image description here



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






      share|improve this answer











      $endgroup$

















        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]


        enter image description here



        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]


        enter image description here



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






        share|improve this answer











        $endgroup$















          1












          1








          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]


          enter image description here



          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]


          enter image description here



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






          share|improve this answer











          $endgroup$



          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]


          enter image description here



          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]


          enter image description here



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







          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited 5 hours ago

























          answered 5 hours ago









          KagaratschKagaratsch

          4,87531348




          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]


              enter image description here






              share|improve this answer









              $endgroup$

















                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]


                enter image description here






                share|improve this answer









                $endgroup$















                  2












                  2








                  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]


                  enter image description here






                  share|improve this answer









                  $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]


                  enter image description here







                  share|improve this answer












                  share|improve this answer



                  share|improve this answer










                  answered 1 hour ago









                  Bob HanlonBob Hanlon

                  61.9k33598




                  61.9k33598



























                      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.




                      draft saved


                      draft discarded














                      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















                      Required, but never shown





















































                      Required, but never shown














                      Required, but never shown












                      Required, but never shown







                      Required, but never shown

































                      Required, but never shown














                      Required, but never shown












                      Required, but never shown







                      Required, but never shown







                      -

                      Popular posts from this blog

                      منجزی محتویات تیره‌های طایفه منجزی[ویرایش] مشاهیر طایفه منجزی[ویرایش] محل سکونت[ویرایش] پانویس[ویرایش] منابع[ویرایش] منوی ناوبری«نمودار اجتماعی طوایف بختیاری»«Bakhtyārī»«BAḴTĪĀRĪ TRIBE»«اسامی طوایف و شعب ایل بختیاری»ووگسترش آن

                      Image
                      مقاله‌های خرد ایل بختیاریایل بختیاریبختیاریبهداروند بابهفت لنگطایفه‌های بختیاری ایل بختیاریهفت لنگبهداروندبختیارونداصفهانچهارمحال بختیاریخوزستانتیرهحاتم ...
                      Read more

                      بیوانفورماتیک محتویات تاریخچه[ویرایش] اهداف[ویرایش] کاربردهای بیوانفورماتیک[ویرایش] زمینه‌های مهم بیوانفورماتیک[ویرایش] موضوعات سیستم نرم‌افزاری بیوانفورماتیک[ویرایش] مراکز و ابزار[ویرایش] جستارهای وابسته[ویرایش] پیوند به بیرون[ویرایش] منابع[ویرایش] منوی ناوبریووانجمن بیوانفورماتیک ایرانمرکز بیوانفورماتیک دانشگاه تهرانمرکز ملی تحقیقات بیوانفورماتیکانستیتو بیو-آی‌تیبانک داده‌های دی ان ایمرکز ملی اطلاعات بیوتکنولوژیانستیتوی بیوانفورماتیک اروپاپورتال بیوانفورماتیک ایران«فرهنگ واژه‌های مصوب فرهنگستان ـ دفتر هشتم، بخش لاتین»وووو4611085-900870420ووو

                      Image
                      منطق ریاضینظریه مجموعه‌هانظریه اعدادنظریه گرافنظریه نوع‌هانظریه رده‌هاآنالیز عددینظریه اطلاعاتترکیبیاتجبر بولیتحلیل الگوریتم‌هاطراحی الگوریتمبهینه‌سازی ت...
                      Read more