我正在尝试在Mathematica中复制拉格朗日插值多项式。关于它们的解释的维基可以在here上看到。这是我的代码(对不起,我不知道如何放置mathematica代码,所以我有一个图像):

我的问题是我想要一个有条件的产品。如果j=m,我只想跳过那个乘积,然后计算下一个乘积。这就是为什么我把错误的评估设为1。有什么建议吗?
发布于 2011-12-07 12:30:15
所有内置函数都以大写字母开头。所以条件是If[...]而不是if[...]。解决这个问题,一切都会正常工作!
With[{k = 5}, Sum[Product[
If[j != m, (x - x[m])/(x[j] - x[m]), 1], {m, 0, k}], {j, 0, k}]]

https://stackoverflow.com/questions/8410379
复制相似问题