将字符串转换为 Mathematica 中非法/不支持的表达式。

Question

我需要将一个变量（例如 var）输入到 Mathematica 函数 Series[ ] 中，如下所示：Series[A^2+B^2+C^2, var]。 Series[ ] 具有以下语法：

Series[f, {x, x_0, n}] 生成 f 关于点 x=x_0 的幂级数展开，阶数为 n。
Series[f, {x, x_0, n}, {y, y_0, m}, ...] 依次找到相对于 x 的级数展开，然后是 y 等。

因为我并不总是在一维中计算 Series[ ] （即，B 和 C 在每次迭代中并不总是变量），var 必须正确格式化以适应尺寸要求。需要注意的是，Mathematica 喜欢列表，因此任何退化的表都将具有一组外部 {}。

假设我之前的代码生成了以下两组集合：

表[1]= {{A, 0, n}};
表[2]= {{A, 0, n}, {B, 0, m}}; .

我最好的想法是使用字符串操作（对于 i= 2）：

字符串 = ToString[表[i]]; .
str = StringReplacePart[string, {" ", " "}, {{1}, {StringLength[string], StringLength[string]}}]

下一步是将 str 转换为如下表达式var 并通过执行 var= ToExpression[str] 来执行 Series[A^2 + B^2 + C^2, var]，但是这将返回以下错误：

ToExpression::sntx：“{A, 0, n}, {B, 0, m}”中或之前的语法无效。
$失败

帮助将 str 正确转换为表达式或建议另一种方法来处理此问题。

Answer 1

如果我理解正确，您已经

table[2] = {{A, 0, n}, {B, 0, m}};

并且正在尝试从中获取

Series[f[A,B],{A,0,n},{B,0,m}]

这可以使用 Sequence 来完成，就像这样（我将使用 series 而不是 Series 使其不被评估，以便您可以看到发生了什么）：

series[f[A, B], Sequence @@ table[2]]
(*
-> series[f[A,B],{A,0,n},{B,0,m}]
*)

例如

table[3] = {{A, 0, 2}, {B, 0, 2}};
Series[f[A, B], Sequence @@ table[3]]

给出正确的级数展开。

Answer 2

您可以使用 First 或 最后或更一般地说，Part 获取List 你想要的。例如，

var = {{x, 0, 3}, {x, 0, 5}};
Series[1/(1 + x), var[[1]]]

Out[1]= 1 - x + x^2 - x^3 + O[x]^4

Series[1/(1 + x), var[[2]]]

Out[2]= 1 - x + x^2 - x^3 + x^4 - x^5 + O[x]^6

---

编辑：

对于多个变量，您可以使用 SlotSequence (##) 以及 应用 (@@)，如下所示：

Series[Sin[u + w], ##] & @@ {{u, 0, 3}, {w, 0, 3}}