Is there a function to partition an integer set?Partition a set into subsets of size $k$Partition a set into $k$ non-empty subsetsHow to delete mirror symmetric point pair efficientlyPartition a range of integers into triplesSelecting last partition in integer partitionHow to partition a 2-D array properly?generating integer partitionsImproved a code to work once (no need to repeat)Partition a set of n objects into k subsets?Groupings of the Elements of a List with at Most $k$ Elements

Sums of two squares in arithmetic progressions

How does a dynamic QR code work?

How could indestructible materials be used in power generation?

Can a virus destroy the BIOS of a modern computer?

Does the Idaho Potato Commission associate potato skins with healthy eating?

Venezuelan girlfriend wants to travel the USA to be with me. What is the process?

Getting extremely large arrows with tikzcd

Finitely generated matrix groups whose eigenvalues are all algebraic

My ex-girlfriend uses my Apple ID to log in to her iPad. Do I have to give her my Apple ID password to reset it?

How to stretch the corners of this image so that it looks like a perfect rectangle?

Do Iron Man suits sport waste management systems?

Should I tell management that I intend to leave due to bad software development practices?

How to show a landlord what we have in savings?

How can I deal with my CEO asking me to hire someone with a higher salary than me, a co-founder?

Is this draw by repetition?

Knowledge-based authentication using Domain-driven Design in C#

How do I exit BASH while loop using modulus operator?

How can a day be of 24 hours?

How can saying a song's name be a copyright violation?

Unlock My Phone! February 2018

How does a refinance allow a mortgage to be repaid?

Does Dispel Magic work on Tiny Hut?

What is an equivalently powerful replacement spell for the Yuan-Ti's Suggestion spell?

Is it "common practice in Fourier transform spectroscopy to multiply the measured interferogram by an apodizing function"? If so, why?



Is there a function to partition an integer set?


Partition a set into subsets of size $k$Partition a set into $k$ non-empty subsetsHow to delete mirror symmetric point pair efficientlyPartition a range of integers into triplesSelecting last partition in integer partitionHow to partition a 2-D array properly?generating integer partitionsImproved a code to work once (no need to repeat)Partition a set of n objects into k subsets?Groupings of the Elements of a List with at Most $k$ Elements













5












$begingroup$


First I give an example. For an integer set $(0,1,2,3,4)$, there are eight kinds of subdivision or partition like this
$$(0,4);\~~(0,1)(1,4);~~(0,2)(2,4);~~(0,3)(3,4);\
(0,1)(1,2)(2,4);~~(0,1)(1,3)(3,4);~~(0,2)(2,3)(3,4);~~\(0,1)(1,2)(2,3)(3,4); $$



For a more general set $(0,1,2,...,n)$, there are $2^n-1$ kinds of partition.I believe that there must be a special name for this kind of partition mathematically. How can I realize it in MMA?










share|improve this question









$endgroup$
















    5












    $begingroup$


    First I give an example. For an integer set $(0,1,2,3,4)$, there are eight kinds of subdivision or partition like this
    $$(0,4);\~~(0,1)(1,4);~~(0,2)(2,4);~~(0,3)(3,4);\
    (0,1)(1,2)(2,4);~~(0,1)(1,3)(3,4);~~(0,2)(2,3)(3,4);~~\(0,1)(1,2)(2,3)(3,4); $$



    For a more general set $(0,1,2,...,n)$, there are $2^n-1$ kinds of partition.I believe that there must be a special name for this kind of partition mathematically. How can I realize it in MMA?










    share|improve this question









    $endgroup$














      5












      5








      5





      $begingroup$


      First I give an example. For an integer set $(0,1,2,3,4)$, there are eight kinds of subdivision or partition like this
      $$(0,4);\~~(0,1)(1,4);~~(0,2)(2,4);~~(0,3)(3,4);\
      (0,1)(1,2)(2,4);~~(0,1)(1,3)(3,4);~~(0,2)(2,3)(3,4);~~\(0,1)(1,2)(2,3)(3,4); $$



      For a more general set $(0,1,2,...,n)$, there are $2^n-1$ kinds of partition.I believe that there must be a special name for this kind of partition mathematically. How can I realize it in MMA?










      share|improve this question









      $endgroup$




      First I give an example. For an integer set $(0,1,2,3,4)$, there are eight kinds of subdivision or partition like this
      $$(0,4);\~~(0,1)(1,4);~~(0,2)(2,4);~~(0,3)(3,4);\
      (0,1)(1,2)(2,4);~~(0,1)(1,3)(3,4);~~(0,2)(2,3)(3,4);~~\(0,1)(1,2)(2,3)(3,4); $$



      For a more general set $(0,1,2,...,n)$, there are $2^n-1$ kinds of partition.I believe that there must be a special name for this kind of partition mathematically. How can I realize it in MMA?







      list-manipulation combinatorics partitions






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked yesterday









      user10709user10709

      1186




      1186




















          1 Answer
          1






          active

          oldest

          votes


















          8












          $begingroup$

          P[n] will return the set you are asking



          P[n_] := Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]]

          P[4]



          0, 4, 0, 1, 1, 4, 0, 2, 2, 4, 0, 3, 3, 4, 0,
          1, 1, 2, 2, 4, 0, 1, 1, 3, 3, 4, 0, 2, 2, 3, 3,
          4, 0, 1, 1, 2, 2, 3, 3, 4







          share|improve this answer











          $endgroup$












          • $begingroup$
            Thanks, it works well!!!
            $endgroup$
            – user10709
            yesterday










          • $begingroup$
            @user10709 I'm glad I helped!
            $endgroup$
            – J42161217
            yesterday










          • $begingroup$
            Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
            $endgroup$
            – J. M. is slightly pensive
            yesterday










          • $begingroup$
            @J.M.isslightlypensive yes, you are right
            $endgroup$
            – J42161217
            yesterday











          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%2f194351%2fis-there-a-function-to-partition-an-integer-set%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          8












          $begingroup$

          P[n] will return the set you are asking



          P[n_] := Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]]

          P[4]



          0, 4, 0, 1, 1, 4, 0, 2, 2, 4, 0, 3, 3, 4, 0,
          1, 1, 2, 2, 4, 0, 1, 1, 3, 3, 4, 0, 2, 2, 3, 3,
          4, 0, 1, 1, 2, 2, 3, 3, 4







          share|improve this answer











          $endgroup$












          • $begingroup$
            Thanks, it works well!!!
            $endgroup$
            – user10709
            yesterday










          • $begingroup$
            @user10709 I'm glad I helped!
            $endgroup$
            – J42161217
            yesterday










          • $begingroup$
            Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
            $endgroup$
            – J. M. is slightly pensive
            yesterday










          • $begingroup$
            @J.M.isslightlypensive yes, you are right
            $endgroup$
            – J42161217
            yesterday















          8












          $begingroup$

          P[n] will return the set you are asking



          P[n_] := Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]]

          P[4]



          0, 4, 0, 1, 1, 4, 0, 2, 2, 4, 0, 3, 3, 4, 0,
          1, 1, 2, 2, 4, 0, 1, 1, 3, 3, 4, 0, 2, 2, 3, 3,
          4, 0, 1, 1, 2, 2, 3, 3, 4







          share|improve this answer











          $endgroup$












          • $begingroup$
            Thanks, it works well!!!
            $endgroup$
            – user10709
            yesterday










          • $begingroup$
            @user10709 I'm glad I helped!
            $endgroup$
            – J42161217
            yesterday










          • $begingroup$
            Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
            $endgroup$
            – J. M. is slightly pensive
            yesterday










          • $begingroup$
            @J.M.isslightlypensive yes, you are right
            $endgroup$
            – J42161217
            yesterday













          8












          8








          8





          $begingroup$

          P[n] will return the set you are asking



          P[n_] := Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]]

          P[4]



          0, 4, 0, 1, 1, 4, 0, 2, 2, 4, 0, 3, 3, 4, 0,
          1, 1, 2, 2, 4, 0, 1, 1, 3, 3, 4, 0, 2, 2, 3, 3,
          4, 0, 1, 1, 2, 2, 3, 3, 4







          share|improve this answer











          $endgroup$



          P[n] will return the set you are asking



          P[n_] := Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]]

          P[4]



          0, 4, 0, 1, 1, 4, 0, 2, 2, 4, 0, 3, 3, 4, 0,
          1, 1, 2, 2, 4, 0, 1, 1, 3, 3, 4, 0, 2, 2, 3, 3,
          4, 0, 1, 1, 2, 2, 3, 3, 4








          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited yesterday

























          answered yesterday









          J42161217J42161217

          4,118324




          4,118324











          • $begingroup$
            Thanks, it works well!!!
            $endgroup$
            – user10709
            yesterday










          • $begingroup$
            @user10709 I'm glad I helped!
            $endgroup$
            – J42161217
            yesterday










          • $begingroup$
            Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
            $endgroup$
            – J. M. is slightly pensive
            yesterday










          • $begingroup$
            @J.M.isslightlypensive yes, you are right
            $endgroup$
            – J42161217
            yesterday
















          • $begingroup$
            Thanks, it works well!!!
            $endgroup$
            – user10709
            yesterday










          • $begingroup$
            @user10709 I'm glad I helped!
            $endgroup$
            – J42161217
            yesterday










          • $begingroup$
            Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
            $endgroup$
            – J. M. is slightly pensive
            yesterday










          • $begingroup$
            @J.M.isslightlypensive yes, you are right
            $endgroup$
            – J42161217
            yesterday















          $begingroup$
          Thanks, it works well!!!
          $endgroup$
          – user10709
          yesterday




          $begingroup$
          Thanks, it works well!!!
          $endgroup$
          – user10709
          yesterday












          $begingroup$
          @user10709 I'm glad I helped!
          $endgroup$
          – J42161217
          yesterday




          $begingroup$
          @user10709 I'm glad I helped!
          $endgroup$
          – J42161217
          yesterday












          $begingroup$
          Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
          $endgroup$
          – J. M. is slightly pensive
          yesterday




          $begingroup$
          Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
          $endgroup$
          – J. M. is slightly pensive
          yesterday












          $begingroup$
          @J.M.isslightlypensive yes, you are right
          $endgroup$
          – J42161217
          yesterday




          $begingroup$
          @J.M.isslightlypensive yes, you are right
          $endgroup$
          – J42161217
          yesterday

















          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%2f194351%2fis-there-a-function-to-partition-an-integer-set%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

          Wikipedia:Vital articles Мазмуну Biography - Өмүр баян Philosophy and psychology - Философия жана психология Religion - Дин Social sciences - Коомдук илимдер Language and literature - Тил жана адабият Science - Илим Technology - Технология Arts and recreation - Искусство жана эс алуу History and geography - Тарых жана география Навигация менюсу

          Bruxelas-Capital Índice Historia | Composición | Situación lingüística | Clima | Cidades irmandadas | Notas | Véxase tamén | Menú de navegacióneO uso das linguas en Bruxelas e a situación do neerlandés"Rexión de Bruxelas Capital"o orixinalSitio da rexiónPáxina de Bruselas no sitio da Oficina de Promoción Turística de Valonia e BruxelasMapa Interactivo da Rexión de Bruxelas-CapitaleeWorldCat332144929079854441105155190212ID28008674080552-90000 0001 0666 3698n94104302ID540940339365017018237

          What should I write in an apology letter, since I have decided not to join a company after accepting an offer letterShould I keep looking after accepting a job offer?What should I do when I've been verbally told I would get an offer letter, but still haven't gotten one after 4 weeks?Do I accept an offer from a company that I am not likely to join?New job hasn't confirmed starting date and I want to give current employer as much notice as possibleHow should I address my manager in my resignation letter?HR delayed background verification, now jobless as resignedNo email communication after accepting a formal written offer. How should I phrase the call?What should I do if after receiving a verbal offer letter I am informed that my written job offer is put on hold due to some internal issues?Should I inform the current employer that I am about to resign within 1-2 weeks since I have signed the offer letter and waiting for visa?What company will do, if I send their offer letter to another company