mathematica 函数总和

Question

我想按以下方式构建函数：

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;

所以我得到一个多项式 Q_11 * (x-x_1) + Q_12 * (x-x_1) * (x-2x_2) ...

这是我拥有的最新版本，但它不起作用。问题是我必须添加功能（我找到了一些已完成的帖子）但我必须保存新功能以便再次使用它。有人知道该怎么做吗？

谢谢！

马吕斯

Answer 1

我无法理解你的代码的头部或尾部，但你可以很容易地构造出这样的结果：

 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]

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])

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

mathematica 函数总和

mathematica Sum of functions

function

sum

wolfram-mathematica