数学函数之和答案

【问题标题】：mathematica Sum of functions数学函数之和
【发布时间】：2015-03-27 22:13:41
【问题描述】：

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

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

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

谢谢！

马吕斯

【问题讨论】：

标签： function sum wolfram-mathematica

【解决方案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 循环。）

【讨论】：