你能用 Mathematica/Wolfram 语言创建任意长度的数组/向量吗？

Question

我正在研究最小二乘法如何为我们提供算术平均值的小证明/演示。

Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= X := {x1, x2, x3}

In[2]:= Err[mu_] := X - mu

In[3]:= SSE[mu_] := Total[Err[mu]^2]

In[4]:= SSE'[mu]

Out[4]= -2 (-mu + x1) - 2 (-mu + x2) - 2 (-mu + x3)

In[5]:= Solve[SSE'[mu] == 0, mu]

                x1 + x2 + x3
Out[5]= {{mu -> ------------}}
                     3

我想要一个更通用的版本，其中

X

具有任意长度，

X := {x1, x2, x3, ... , xn}

。有没有办法表达可变长度的向量？我最终寻找的是

mu -> (x1 + x2 + x3 + ... + xn) / n

。

Answer 1

我不确定这是否是您要找的，但是

Symbol[]

可用于从文本创建符号：

In[1] := Symbol["x" <> ToString[#]] & /@ Range[10]
Out[1] = {x1, x2, x3, x4, x5, x6, x7, x8, x9, x10}