Partitioning sublists based on positions, with new partitions immediately following original sublist












4












$begingroup$


I need to restructure this list nums:



nums = {{0.0140242, 0.138626, 0.0585034, 0.0509646, 0.0629815, 0.0750587, 

  0.00588226, 0.272169, 1.},

 {0.153123, 0.212751, 0.217497, 0.12154, 0.210508, 0.189625, 0.0680384, 

  0.0768402, 0.172107},

 {0.20766, 0.246923, 0.0924592, 0.142682, 0.110408, 0.20464, 0.246233, 

  0.251928, 0.07382}};


based on the following rules:




  • Every 2nd element in each sublist should be moved/appended to a new vector immediately following its original vector

  • Every 3rd element in each sublist should be moved/appended to a new vector immediately following its original vector and the 2nd elements vector


The resulting list should look like:



{{0.0140242, 0.0509646, 0.00588226},

 {0.138626, 0.0629815, 0.272169},         // new 2nd elements vector

 {0.0585034, 0.0750587, 1.},              // new 3rd elements vector

 {0.153123, 0.12154, 0.0680384},

 {0.212751, 0.210508, 0.0768402},         // new 2nd elements vector

 {0.217497, 0.189625, 0.172107},          // new 3rd elements vector

 {0.20766, 0.142682, 0.246233},

 {0.246923, 0.110408, 0.251928},          // new 2nd elements vector

 {0.0924592, 0.20464, 0.07382}}           // new 3rd elements vector





list-manipulation partitions







share|improve this question











$endgroup$

















    4












    $begingroup$


    I need to restructure this list nums:



    nums = {{0.0140242, 0.138626, 0.0585034, 0.0509646, 0.0629815, 0.0750587, 
    
  0.00588226, 0.272169, 1.},
    
 {0.153123, 0.212751, 0.217497, 0.12154, 0.210508, 0.189625, 0.0680384, 
    
  0.0768402, 0.172107},
    
 {0.20766, 0.246923, 0.0924592, 0.142682, 0.110408, 0.20464, 0.246233, 
    
  0.251928, 0.07382}};


    based on the following rules:




    • Every 2nd element in each sublist should be moved/appended to a new vector immediately following its original vector

    • Every 3rd element in each sublist should be moved/appended to a new vector immediately following its original vector and the 2nd elements vector


    The resulting list should look like:



    {{0.0140242, 0.0509646, 0.00588226},
    
 {0.138626, 0.0629815, 0.272169},         // new 2nd elements vector
    
 {0.0585034, 0.0750587, 1.},              // new 3rd elements vector
    
 {0.153123, 0.12154, 0.0680384},
    
 {0.212751, 0.210508, 0.0768402},         // new 2nd elements vector
    
 {0.217497, 0.189625, 0.172107},          // new 3rd elements vector
    
 {0.20766, 0.142682, 0.246233},
    
 {0.246923, 0.110408, 0.251928},          // new 2nd elements vector
    
 {0.0924592, 0.20464, 0.07382}}           // new 3rd elements vector





    list-manipulation partitions







    share|improve this question











    $endgroup$















      4












      4








      4





      $begingroup$


      I need to restructure this list nums:



      nums = {{0.0140242, 0.138626, 0.0585034, 0.0509646, 0.0629815, 0.0750587, 
      
  0.00588226, 0.272169, 1.},
      
 {0.153123, 0.212751, 0.217497, 0.12154, 0.210508, 0.189625, 0.0680384, 
      
  0.0768402, 0.172107},
      
 {0.20766, 0.246923, 0.0924592, 0.142682, 0.110408, 0.20464, 0.246233, 
      
  0.251928, 0.07382}};


      based on the following rules:




      • Every 2nd element in each sublist should be moved/appended to a new vector immediately following its original vector

      • Every 3rd element in each sublist should be moved/appended to a new vector immediately following its original vector and the 2nd elements vector


      The resulting list should look like:



      {{0.0140242, 0.0509646, 0.00588226},
      
 {0.138626, 0.0629815, 0.272169},         // new 2nd elements vector
      
 {0.0585034, 0.0750587, 1.},              // new 3rd elements vector
      
 {0.153123, 0.12154, 0.0680384},
      
 {0.212751, 0.210508, 0.0768402},         // new 2nd elements vector
      
 {0.217497, 0.189625, 0.172107},          // new 3rd elements vector
      
 {0.20766, 0.142682, 0.246233},
      
 {0.246923, 0.110408, 0.251928},          // new 2nd elements vector
      
 {0.0924592, 0.20464, 0.07382}}           // new 3rd elements vector





      list-manipulation partitions







      share|improve this question











      $endgroup$




      I need to restructure this list nums:



      nums = {{0.0140242, 0.138626, 0.0585034, 0.0509646, 0.0629815, 0.0750587, 
      
  0.00588226, 0.272169, 1.},
      
 {0.153123, 0.212751, 0.217497, 0.12154, 0.210508, 0.189625, 0.0680384, 
      
  0.0768402, 0.172107},
      
 {0.20766, 0.246923, 0.0924592, 0.142682, 0.110408, 0.20464, 0.246233, 
      
  0.251928, 0.07382}};


      based on the following rules:




      • Every 2nd element in each sublist should be moved/appended to a new vector immediately following its original vector

      • Every 3rd element in each sublist should be moved/appended to a new vector immediately following its original vector and the 2nd elements vector


      The resulting list should look like:



      {{0.0140242, 0.0509646, 0.00588226},
      
 {0.138626, 0.0629815, 0.272169},         // new 2nd elements vector
      
 {0.0585034, 0.0750587, 1.},              // new 3rd elements vector
      
 {0.153123, 0.12154, 0.0680384},
      
 {0.212751, 0.210508, 0.0768402},         // new 2nd elements vector
      
 {0.217497, 0.189625, 0.172107},          // new 3rd elements vector
      
 {0.20766, 0.142682, 0.246233},
      
 {0.246923, 0.110408, 0.251928},          // new 2nd elements vector
      
 {0.0924592, 0.20464, 0.07382}}           // new 3rd elements vector





      list-manipulation partitions




      list-manipulation partitions






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 25 '18 at 23:45









      kglr

      189k10206424




      189k10206424










      asked Nov 25 '18 at 23:12









      briennakhbriennakh

      4899




      4899






















          2 Answers
          2






          active

          oldest

          votes


















          5












          $begingroup$

          Join @@ Transpose[nums[[All, # ;; ;; 3]] & /@ {1, 2, 3}]



          {{0.0140242, 0.0509646, 0.00588226},

          {0.138626, 0.0629815,
          0.272169},

          {0.0585034, 0.0750587, 1.},

          {0.153123, 0.12154,
          0.0680384},

          {0.212751, 0.210508, 0.0768402},

          {0.217497, 0.189625,
          0.172107},

          {0.20766, 0.142682, 0.246233},

          {0.246923, 0.110408,
          0.251928},

          {0.0924592, 0.20464, 0.07382}}




          Also



          Flatten[Partition[nums, {3, 3}], {3, 4, 1}]



          same result







          share|improve this answer











          $endgroup$





















            6












            $begingroup$

            Flatten[Transpose@Partition[#,3]&/@nums,1]



            {{0.0140242,0.0509646,0.00588226},

            {0.138626,0.0629815,0.272169},

            {0.0585034,0.0750587,1.},

            {0.153123,0.12154,0.0680384},

            {0.212751,0.210508,0.0768402},

            {0.217497,0.189625,0.172107},

            {0.20766,0.142682,0.246233},

            {0.246923,0.110408,0.251928},

            {0.0924592,0.20464,0.07382}}







            share|improve this answer











            $endgroup$













              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',
              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%2f186677%2fpartitioning-sublists-based-on-positions-with-new-partitions-immediately-follow%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









              5












              $begingroup$

              Join @@ Transpose[nums[[All, # ;; ;; 3]] & /@ {1, 2, 3}]



              {{0.0140242, 0.0509646, 0.00588226},

              {0.138626, 0.0629815,
              0.272169},

              {0.0585034, 0.0750587, 1.},

              {0.153123, 0.12154,
              0.0680384},

              {0.212751, 0.210508, 0.0768402},

              {0.217497, 0.189625,
              0.172107},

              {0.20766, 0.142682, 0.246233},

              {0.246923, 0.110408,
              0.251928},

              {0.0924592, 0.20464, 0.07382}}




              Also



              Flatten[Partition[nums, {3, 3}], {3, 4, 1}]



              same result







              share|improve this answer











              $endgroup$


















                5












                $begingroup$

                Join @@ Transpose[nums[[All, # ;; ;; 3]] & /@ {1, 2, 3}]



                {{0.0140242, 0.0509646, 0.00588226},

                {0.138626, 0.0629815,
                0.272169},

                {0.0585034, 0.0750587, 1.},

                {0.153123, 0.12154,
                0.0680384},

                {0.212751, 0.210508, 0.0768402},

                {0.217497, 0.189625,
                0.172107},

                {0.20766, 0.142682, 0.246233},

                {0.246923, 0.110408,
                0.251928},

                {0.0924592, 0.20464, 0.07382}}




                Also



                Flatten[Partition[nums, {3, 3}], {3, 4, 1}]



                same result







                share|improve this answer











                $endgroup$
















                  5












                  5








                  5





                  $begingroup$

                  Join @@ Transpose[nums[[All, # ;; ;; 3]] & /@ {1, 2, 3}]



                  {{0.0140242, 0.0509646, 0.00588226},

                  {0.138626, 0.0629815,
                  0.272169},

                  {0.0585034, 0.0750587, 1.},

                  {0.153123, 0.12154,
                  0.0680384},

                  {0.212751, 0.210508, 0.0768402},

                  {0.217497, 0.189625,
                  0.172107},

                  {0.20766, 0.142682, 0.246233},

                  {0.246923, 0.110408,
                  0.251928},

                  {0.0924592, 0.20464, 0.07382}}




                  Also



                  Flatten[Partition[nums, {3, 3}], {3, 4, 1}]



                  same result







                  share|improve this answer











                  $endgroup$



                  Join @@ Transpose[nums[[All, # ;; ;; 3]] & /@ {1, 2, 3}]



                  {{0.0140242, 0.0509646, 0.00588226},

                  {0.138626, 0.0629815,
                  0.272169},

                  {0.0585034, 0.0750587, 1.},

                  {0.153123, 0.12154,
                  0.0680384},

                  {0.212751, 0.210508, 0.0768402},

                  {0.217497, 0.189625,
                  0.172107},

                  {0.20766, 0.142682, 0.246233},

                  {0.246923, 0.110408,
                  0.251928},

                  {0.0924592, 0.20464, 0.07382}}




                  Also



                  Flatten[Partition[nums, {3, 3}], {3, 4, 1}]



                  same result








                  share|improve this answer














                  share|improve this answer



                  share|improve this answer








                  edited Nov 26 '18 at 0:16

























                  answered Nov 25 '18 at 23:24









                  kglrkglr

                  189k10206424




                  189k10206424























                      6












                      $begingroup$

                      Flatten[Transpose@Partition[#,3]&/@nums,1]



                      {{0.0140242,0.0509646,0.00588226},

                      {0.138626,0.0629815,0.272169},

                      {0.0585034,0.0750587,1.},

                      {0.153123,0.12154,0.0680384},

                      {0.212751,0.210508,0.0768402},

                      {0.217497,0.189625,0.172107},

                      {0.20766,0.142682,0.246233},

                      {0.246923,0.110408,0.251928},

                      {0.0924592,0.20464,0.07382}}







                      share|improve this answer











                      $endgroup$


















                        6












                        $begingroup$

                        Flatten[Transpose@Partition[#,3]&/@nums,1]



                        {{0.0140242,0.0509646,0.00588226},

                        {0.138626,0.0629815,0.272169},

                        {0.0585034,0.0750587,1.},

                        {0.153123,0.12154,0.0680384},

                        {0.212751,0.210508,0.0768402},

                        {0.217497,0.189625,0.172107},

                        {0.20766,0.142682,0.246233},

                        {0.246923,0.110408,0.251928},

                        {0.0924592,0.20464,0.07382}}







                        share|improve this answer











                        $endgroup$
















                          6












                          6








                          6





                          $begingroup$

                          Flatten[Transpose@Partition[#,3]&/@nums,1]



                          {{0.0140242,0.0509646,0.00588226},

                          {0.138626,0.0629815,0.272169},

                          {0.0585034,0.0750587,1.},

                          {0.153123,0.12154,0.0680384},

                          {0.212751,0.210508,0.0768402},

                          {0.217497,0.189625,0.172107},

                          {0.20766,0.142682,0.246233},

                          {0.246923,0.110408,0.251928},

                          {0.0924592,0.20464,0.07382}}







                          share|improve this answer











                          $endgroup$



                          Flatten[Transpose@Partition[#,3]&/@nums,1]



                          {{0.0140242,0.0509646,0.00588226},

                          {0.138626,0.0629815,0.272169},

                          {0.0585034,0.0750587,1.},

                          {0.153123,0.12154,0.0680384},

                          {0.212751,0.210508,0.0768402},

                          {0.217497,0.189625,0.172107},

                          {0.20766,0.142682,0.246233},

                          {0.246923,0.110408,0.251928},

                          {0.0924592,0.20464,0.07382}}








                          share|improve this answer














                          share|improve this answer



                          share|improve this answer








                          edited Nov 25 '18 at 23:33

























                          answered Nov 25 '18 at 23:20









                          J42161217J42161217

                          3,968323




                          3,968323






























                              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%2f186677%2fpartitioning-sublists-based-on-positions-with-new-partitions-immediately-follow%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

                              Costa Masnaga

                              Image
                              .mw-parser-output .avviso .mbox-text-div>div,.mw-parser-output .avviso .mbox-text-full-div>div{font-size:90%}.mw-parser-output .avviso .mbox-image div{width:52px}.mw-parser-output .avviso .mbox-text-full-div .hide-when-compact{display:block} Questa voce o sezione sull'argomento Lombardia non cita le fonti necessarie o quelle presenti sono insufficienti . Puoi migliorare questa voce aggiungendo citazioni da fonti attendibili secondo le linee guida sull'uso delle fonti. Segui i suggerimenti del progetto di riferimento. Costa Masnaga comune Localizzazione Stato   Italia Regione Lombardia Provincia Lecco Amministrazione Sindaco Sabina Panzeri (Al centro il cittadino) dall'08/06/2009 Territorio Coordinate 45°46′N 9°17′E  /  45.766667°N 9.283333°E 45.766667; 9.283333  ( Costa Masnaga ) Coordinate: 45°46′N 9°17′E  /  45.766667°N 9.283333°E 45.766667; 9.283333  ( Costa Masnaga ) Altitudine 318 m s.l.m...
                              Read more

                              Fotorealismo

                              Image
                              Guerrino Boatto, Venice's St. Barnaba Church and canal Il fotorealismo è un genere di pittura basato sull'uso di una o più fotografie dalle quali l'artista prende le informazioni necessarie da utilizzare poi nel processo della creazione dell'opera, in genere ad olio o ad acrilico, al fine di avere un aspetto finale il più simile possibile alla fotografia. Indice 1 Storia 2 Lista dei fotorealisti 3 Note 4 Voci correlate 5 Altri progetti Storia | Il fotorealismo è un movimento che nasce negli Stati Uniti d'America alla fine degli anni sessanta [1] sulla scia della Pop Art [2] [3] [4] , e insieme condividono il carattere reazionario verso la travolgente ascesa dei media, che alla metà del ventesimo secolo si trasforma in un fenomeno di massa talmente imponente da minacciare il valore dell'immagine nell'arte. [5] [6] Ne consegue così che, colto il gesto d'inizio che fu della Pop Art, i fotorealisti aprono ad un ...
                              Read more

                              Sidney Franklin

                              Image
                              Questa voce sull'argomento registi statunitensi è solo un abbozzo . Contribuisci a migliorarla secondo le convenzioni di Wikipedia. Sidney Franklin, foto di Carl Van Vechten Oscar alla memoria Irving G. Thalberg 1943 Sidney Franklin , all'anagrafe Sidney Arnold Franklin , (San Francisco, 21 marzo 1893 – Santa Monica, 18 maggio 1972), è stato un regista, produttore cinematografico e attore statunitense. Il 20 giugno 1963, si sposò con l'attrice australiana Enid Bennett. Il matrimonio durò fino alla morte dell'attrice, il 14 maggio 1969 [1] Indice 1 Filmografia 1.1 Regista 1.2 Aiuto regia (parziale) 1.3 Produttore 1.4 Attore (parziale) 2 Note 3 Altri progetti 4 Collegamenti esterni Filmografia | Regista | The Baby , co-regia Chester M. Franklin (1915) The Rivals , co-regia Chester M. Franklin (1915) Little Dick's First Case , co-regia Chester M. Franklin (1915) Her Filmland Hero , co-...
                              Read more