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

          How to write a 12-bar blues melodyI-IV-V blues progressionHow to play the bridges in a standard blues progressionHow does Gdim7 fit in C# minor?question on a certain chord progressionMusicology of Melody12 bar blues, spread rhythm: alternative to 6th chord to avoid finger stretchChord progressions/ Root key/ MelodiesHow to put chords (POP-EDM) under a given lead vocal melody (starting from a good knowledge in music theory)Are there “rules” for improvising with the minor pentatonic scale over 12-bar shuffle?Confusion about blues scale and chords

          What if the end-user didn't have the required library?What is setup.py?What is a clean, pythonic way to have multiple constructors in Python?What does Ruby have that Python doesn't, and vice versa?What is the reason for having '//' in Python?How do I create a namespace package in Python?How to package shared objects that python modules depend on?setuptools vs. distutils: why is distutils still a thing?Navigation in Windows 10 vs code not going to virtualenv library when the same library is installed at user levelPython create package for local usePackaging a project that uses multiple python versionsWhy is permission denied on pip install except for when “--user” is included at end of command?

          Why did Thanos need his ship to help him in the battle scene?Which actor plays Thanos in the Avengers mid-credits scene?Are there economic implications portrayed in comics where the buildings and cities are ruined almost daily?Old X-Men comic where team travels to alien world with a ring-like sun that needs recharging?Why does Ego need help sleeping?Is there an objective answer to who “the strongest Avenger” is?How did Banner get unstuck?Why did Thanos get hit?How did Thanos (or anyone) know the Infinity Stones would give him this power?Did Thanos leave Eitri alive for his after-sales service?In Avengers 1, why does Thanos need Loki?