使用mathematica 4.0生成排列

发布于 2024-10-15 06:50:10 字数 204 浏览 2 评论 0原文

您好，我正在使用 Mathematica 4.0。我试图找到所有排列，例如，假设有两个数字 0 和 0。 1. 我试图在 3 个（比如说）位置重复使用这两个数字来生成所有排列，例如 {1,1,1},{1,1,0},{1,0,1},{1, 0,0}...我还尝试将每个排列放入一个数组中。 Mathematica 4.0 中是否有任何代码或命令可以让我完成所有这些事情。请帮助我完成这项任务...

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

荒芜了季节 2024-10-22 06:50:10

在 Mathematica 5.1 及更高版本中，有一个函数 Tuples 可以完成您想要的操作。你可以尝试

getTuples[elements_List, length_Integer] :=
  Flatten[Outer[List, Sequence @@ Table[elements, {length}]], length - 1]

例如：

In[6]:= getTuples[{0, 1}, 3]

Out[6]= {{0, 0, 0}, {0, 0, 1}, {0, 1, 0}, {0, 1, 1}, {1, 0, 0}, {1, 0, 1}, {1, 1, 0}, {1, 1, 1}}

但我不知道这是否适用于M4.0。我想应该是这样，但我无法检查。一般来说，使用4.0这样的过时版本，你会遇到各种各样的困难，包括缺乏功能、性能和界面（前端）较差、某些在后续版本中修复的错误、与后续编写的代码不兼容等。版本，并获取帮助。对于 Mathematica 来说尤其如此，因为自 4.0 以来，Mathematica 在各个方面都取得了巨大的进步。因此，如果您打算定期使用它，我强烈建议升级。

In Mathematica 5.1 and higher, there is a function Tuples which does what you want. You may try

getTuples[elements_List, length_Integer] :=
  Flatten[Outer[List, Sequence @@ Table[elements, {length}]], length - 1]

For example:

In[6]:= getTuples[{0, 1}, 3]

Out[6]= {{0, 0, 0}, {0, 0, 1}, {0, 1, 0}, {0, 1, 1}, {1, 0, 0}, {1, 0, 1}, {1, 1, 0}, {1, 1, 1}}

But I don't know if this works in M4.0. It should, I guess, but I can not check. Generally, you will face tons of difficulties of various kinds working with such an obsolete version as 4.0, including lacking the functionality, inferior performance and interface (front-end), certain bugs that were fixed in later versions, incompatibility with code written in later versions, and getting help. This is especially true for Mathematica given huge advances in all sorts of directions introduced since 4.0. So, if you plan to use it regularly, I'd strongly suggest to upgrade.

回复收藏 0 原文

旧时模样 2024-10-22 06:50:10

一种考古问题：D。版本 4 已经很老了！

<<DiscreteMath`Combinatorica`

perm1[l_,n_]:=Union[KSubsets[Flatten[Table[l,{n}]],n]]  

In[70]:= perm1[{1,2,1},4]
Out[70]= {{1,1,1,1},{1,1,1,2},{1,1,2,1},{1,1,2,2},{1,2,1,1},
          {1,2,1,2},{1,2,2,1},{1,2,2,2},{2,1,1,1},{2,1,1,2},
          {2,1,2,1},{2,1,2,2},{2,2,1,1},{2,2,1,2},{2,2,2,1},{2,2,2,2}}  

In[73]:= perm1[{1,0},3]
Out[73]= {{0,0,0},{0,0,1},{0,1,0},{0,1,1},{1,0,0},{1,0,1},{1,1,0},{1,1,1}}

Kind of archeological question :D. Version 4 is pretty old!

<<DiscreteMath`Combinatorica`

perm1[l_,n_]:=Union[KSubsets[Flatten[Table[l,{n}]],n]]  

In[70]:= perm1[{1,2,1},4]
Out[70]= {{1,1,1,1},{1,1,1,2},{1,1,2,1},{1,1,2,2},{1,2,1,1},
          {1,2,1,2},{1,2,2,1},{1,2,2,2},{2,1,1,1},{2,1,1,2},
          {2,1,2,1},{2,1,2,2},{2,2,1,1},{2,2,1,2},{2,2,2,1},{2,2,2,2}}  

In[73]:= perm1[{1,0},3]
Out[73]= {{0,0,0},{0,0,1},{0,1,0},{0,1,1},{1,0,0},{1,0,1},{1,1,0},{1,1,1}}

回复收藏 0 原文