Я пытаюсь воспроизвести интерполяционные полиномы Лагранжа в Mathematica. Вики для объяснения их можно увидеть здесь . Это мой код (извините, я не знаю, как разместить код mathematica в SO, поэтому у меня есть изображение): Моя проблема в том, что я хочу условный продукт. если j = m, я просто хочу пропустить этот продукт и оценить следующий. Вот почему я поставил ложную оценку как 1. Любые предложения?
Все встроенные функции начинаются с заглавной буквы.Таким образом, условным является If[...], а не if[...].Исправьте это, и все работает отлично!
If[...]
if[...]
With[{k = 5}, Sum[Product[ If[j != m, (x - x[m])/(x[j] - x[m]), 1], {m, 0, k}], {j, 0, k}]]
