有没有“正常”的情况? Mathematica 中的 EqualQ 函数?
在 Equal 的文档页面上,我们读到 机器的大概数字 考虑精度或更高 如果他们至多有差异,则相等 最后七个二进制数字(大约 最后两位小数)。 以下是示…
在 Mathematica 中,如何为任意数量的参数编译函数 Outer[]?
如果我想从两个列表 list1 和 list2 中查找所有可能的和,我可以使用 Outer[] 函数以及 规范Plus 作为组合运算符: In[1]= list1 = {a, b}列表2 = {c,…
减少数学中未确定的方程组
我得到了以下方程(作为示例): {2 w11 + 3 w21 == 2 w12, w11 == 4 w12 + 3 w22, w11 + 2 w21 + w22 == 0, 2 w12 + w21 + 2 w22 == 0} 我想确定 w11…
Mathematica:非交换乘法下的下标简化
在 Mathematica 7.0+ 中使用下标[变量,整数],我有以下形式的表达式: a_-4 ** b_1 ** a_-4 ** b_-4 ** a_1 ** c_-4 ** c_1 ** c_5 我想简化这个表达…
通过 MathLink 从 v.7.01 会话中执行 v.5.2 内核中的代码
我在同一台计算机上安装了 Mathematica 7.01 和 Mathematica 5.2。我希望能够在 Mathematica 7.01 会话中评估 v.5.2 内核中的代码。我的意思是,运行 …
意外的阴影和“已删除[符号]”
如果您对以下代码求值两次,结果将会不同。谁能解释一下发生了什么事吗? findHull[points_] := Module[{}, Needs["ComputationalGeometry`"] ConvexH…
Maxima 在相对简单的积分上崩溃
我正在尝试最大化我的 Mathematica 框选项公式 (https://github.com/barrycarter/bcapps/blob/master/box-option-value.m) 但是 Maxima 在一个相当…
在mathematica中很好地打印出一个矩阵
我在mathematica中有一个列表(矩阵)列表。我想很好地打印出来,每行的最大值都以粗体显示。如何做到这一点? 或者更进一步,在这个最大值之外的圆,…
如何在mma中替换n-1->n
我已经定义了 Subscript[S,n]=Subscript[X,n]+Subscript[S,n-1] For 表达式: 3*n^2 – 6* n* Subscript[S, -1 + n] ^2 我想做 n-1->n,但似乎 3*n^…
浮点数的基本输入形式?
我刚刚发现浮点数的两种输入形式之间的根本区别: In[8]:= 1.5*^-334355//Hold//FullForm 1.5*10^-334355//Hold//FullForm Out[8]//FullForm= Hold[1.…
在 Mathematica 图表上绘制形状
在 Mathematica 中,我有三角形的坐标数组,例如 {{0,0}, {1,2}, {2,1}},我试图将其绘制到图表。我需要连接点,理想情况下需要填充三角形。到目前为…
如何求解mathematica中递推关系的解析解
我再次遇到如下情况: RSolve[{f[m, n] == f[m, n - 1] + f[m - 1, n], f[0, n] == 1, f[m, 0] == 1}, f[m, n], {n}] 我尝试使用 RSolve,但出现错误…
有没有办法强制 ContourPlot 重新检查其递归算法每个阶段的所有点?
感谢对情节的出色分析 Yaroslav Bulatov 的算法,我现在明白了 Plot3D 和 ContourPlot 无法绘制具有中断和不连续性的平滑函数的原因。 例如,在以下情…