列出四面体的所有有趣部分
答案更新，12/22： 使用 Peter Shor 的观察，存在同态在立方体上的不同部分和对象排列之间，通过将一组立方体对称性表示为 SymmetricGroup[8] 的子群…
查找 Mathematica 列表中大于阈值的第一个元素
我想知道如何获得（已排序）列表中大于给定阈值的第一个元素。 我不太了解 Mathematica 中的列表操作函数，也许有人可以给我一个技巧来有效地做到这一…
从 OCaml 程序调用 Mathematica
我正在编写 OCaml 代码。其中一部分，我想检查两个算术表达式是否相等（例如 x+2+y == x+2*y-y+2）。在 mathematica 中实现这一点很简单，所以我想要…
具有多个依赖性的任务杂耍者，其中任务长度取决于先前的任务
我有一个任务 Z，只能完成一次任务 X 或 任务Y已完成。另外： % 任务 Z 的长度取决于 X 或 Y 中的哪一个完成： % 如果任务 X 完成，任务 Z 需要 4 小…
($VersionNumber < 6) 在 Mathematica 中裁剪导出的图像
这是我使用 Mathematica 制作的动画。通过突出显示图像可以看出，左侧和右侧的边距都太宽。我不想仅仅为了裁剪而将图像提交到另一个程序，那么我该怎…
在 Mathematica 中，我们如何将循环生成的许多图合并为一个图？
我想可视化 x^n 形式的函数，使得 n=1,2,...,10。 我希望这些 n 值由循环生成，然后将函数绘制为 绘制 [{x^n},{x,0,100}] 并将绘图存储在数组中。然后…
为什么使用牛顿法的 FindMaximum 会抱怨它无法找到足够的函数减少？
首先，这看起来（来自 ContourPlot）是一个相当简单的最大化问题，为什么使用牛顿法的 FindMaximum 会出现问题？ 其次，如何摆脱警告？ 第三，如果我…
枚举 Mathematica 中的所有分区
类似于 Select[Tuples[Range[0, n], d], Total[#] == n &]，但速度更快？ 更新 以下是 3 个解决方案及其时间图，IntegerPartitions 和 Permutation…
莫名其妙的 Mathematica7 DumpSave[] 问题
我有一个非常大的浮点图像数据数组： In[25]:= Dimensions[daylightImgd] Out[25]= {18, 2002, 2989} In[26]:= daylightImgd[[1, 1]][[1 10]] Out[26…
在 Mathematica 中将点从 4d 空间投影到 3d 空间
假设我们有一组点，其限制是每个点的所有坐标都是非负的，并且坐标之和等于 1。这限制点位于 3 维单纯形中，因此尝试映射是有意义的它回到 3 维空间以…
“选择”比较 Mathematica 中的相邻元素
在 Mathematica 中，“选择”命令仅允许为列表中的每个元素单独定义选择标准。 我想指定一个标准，该标准分别依赖于前一个和/或下一个元素的函数以及…
如何在 Graphics3D 中精确定位相机？
对于我正在设计的基于激光的传感器的模拟，我想验证投影在表面上的四个点在相机中的显示效果。因此我开始实施 Graphics3D 可视化。 该可视化将 4 个激…
求 Mathematica 中积分定义的函数的最小值
我需要找到函数 f(t) = int g(t,x) dx 在 [0,1] 上的最小值。我在mathematica中所做的如下： f[t_] = NIntegrate[g[t,x],{x,-1,1}] FindMinimum[f[t],…
