Function 数学函数之和

我想用以下方式构建一个函数：

f[x_] := 0;
For[i = 1, i <= n, i++,
    g[x_] := 0; 
    For[k = 1, k <= i, k++,
            g ^:= g[#]*(# - X[[k]]) &;
            g[x_] = g;
        ]
    f ^:= f[#] + Q[[1, i]]*g[#];
    f[x_] = f;

f[x_]：=0；
对于[i=1，i我无法理解您的代码的头尾，但您可以很容易地构造这样的结果：

 qlist = Array[q, {10, 10}];
 xlist = Array[x, 10];
 poly[n_] := Sum[ qlist[[1, j]] Product[ (x - xlist[[i]] ), {i, j}] , {j, 3}]
 poly[3]

如果您确实需要使用
UpSetDelayed
的帮助，您应该提出一个更简单/具体的问题（即不使用
For
循环）

q[1, 1] (x - x[1]) + q[1, 2] (x - x[1]) (x - x[2]) + 
       q[1, 3] (x - x[1]) (x - x[2]) (x - x[3])