如何在 Mathematica 中拥有变量参数列表

Question

现在，我有代码，其中某些函数 func 当我在其定义中给出特定参数时以我想要的方式执行（因此我将其设为 func[x1_,x2_]:=.. . 然后我将其设置为 func[x1_,x2_,x3_]:=... 而不更改其他任何内容，并且它按照我希望的方式工作）。有没有办法自动替换我为此函数指定的任何参数？

更新：

我还没有隔离问题代码，但是这里的代码没有达到我想要的效果：

(* Clear all stuff each time before running, just to be safe! *)
\
Clear["Global`*"]

data = {{238.2, 0.049}, {246.8, 0.055}, {255.8, 0.059}, {267.5, 
    0.063}, {280.5, 0.063}, {294.3, 0.066}, {307.7, 0.069}, {318.2, 
    0.069}};
errors = {{x1, 0.004}, {x2, 0.005}};

getX[x1_, x2_] := 1/x2^2

getY[x__] = 
 Evaluate[Simplify[
   Sqrt[Sum[(D[getX[x], errors[[i]][[1]]] errors[[i]][[2]])^2, {i, 
      Length[errors]}]]]]

map[action_, list_] := action @@@ list

y = map[getY, data];
y

getY[2, 3]

这里的代码可以：(给出{67.9989, 48.0841, 38.9524, 31.994, 31.994 , 27.8265, 24.3525, 24.3525} 为y)

(* Clear all stuff each time before running, just to be safe! *) \ Clear["Global`*"]

data = {{238.2, 0.049}, {246.8,
0.055}, {255.8, 0.059}, {267.5, 
    0.063}, {280.5, 0.063}, {294.3, 0.066}, {307.7, 0.069}, {318.2, 
    0.069}}; errors = {{x2, 0.004}, {x1, 0.005}};

getX[x1_, x2_] := 1/x2^2

getY[x1_, x2_] :=   Evaluate[Simplify[ Sqrt[Sum[(D[getX[x1, x2], errors[[i]][[1]]] 
        errors[[i]][[2]])^2, {i, Length[errors]}]]]]

map[action_, list_] := action @@@ list

y = map[getY, data]; y

getY[2, 3]

更新 2：

我的数学：

我打算取 getX 函数的所有偏导数的平方和的平方根。因此是 getY 函数的主体。然后我想针对 x1 和 x2 的不同值计算该表达式。因此我有了 getY 的参数。

Answer 1

使用 __，例如

In[4]:= f[x__] = {x}
Out[4]= {x}

In[5]:= f[1,2,3,4,5,6]
Out[5]= {1, 2, 3, 4, 5, 6}

In[6]:= f[a,b,c]
Out[6]= {a, b, c}

Answer 2

问题是，在第一个版本中，由于参数数量明确，您已使用 Evaluate 来计算右侧。当参数数量可变时，您不能执行此操作，因为评估器不知道要使用 getX 的哪个签名。

因此，解决方案是将 getY 替换为以下内容：

getY[x__] := (Simplify[
    Sqrt[(D[getX @@ 
          errors[[1 ;; Length[{x}], 1]], {errors[[All, 1]]}]. 
        errors[[All, 2]])^2]]) /. 
  Thread[errors[[1 ;; Length[{x}], 1]] -> {x}]

这将首先使用 errors 列表中的变量，其数量与您在 getY 的参数中提供的变量完全相同。 code>，以符号方式计算导数，然后执行 Dot，而不是更快的 Sum。那么输出将是相同的。

请注意，在代码的两个版本中，errors 具有不同的值。

或者，您可以像这样使用 Derivative：

getY2[x__] := 
 Abs[(Derivative[##][getX][x] & @@@ 
     IdentityMatrix[Length[{x}]].errors[[All, 2]])]

使用它会产生相同的结果。