如何在Mathematica中有一个可变参数列表

Question

现在我有代码，其中一些函数func以我想要的方式执行，当我在其定义中给出特定参数时（所以我使它func[x1_,x2_]:=...然后我使它func[x1_,x2_,x3_]:=...没有改变任何东西，它的工作方式，我希望它）。有没有办法自动替换我为这个函数指定的参数？

UPDATE：

我没有找出问题的代码还没有，但这里的代码没有做什么，我想：

(* 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] 

这个代码在这里所做的：（y的给{67.9989, 48.0841, 38.9524, 31.994, 31.994, 27.8265, 24.3525, 24.3525} ）

(* 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

好问题是，在第一个版本，用的参数明显的编号，你已经使用评估，以评估的右手边。当参数数量可变时，您不能这样做，因为评估者不知道要使用哪个签名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}] 

这将首先使用变量从完全一样多，你在getY的论点提供errors列表，计算导象征，然后执行Dot，而不是Sum这更快。然后输出将是相同的。

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

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

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

使用它给出了相同的结果。

Answer 2

Use __，例如，

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}