[TaDa]

pva, в формуле, к сожалению, ошибка, должно быть k != m.

Удалось реализовать это дело с помощью следующего кода:

Код:

Psi1[Nu_, m_] := Product[(Nu - NuRoots[[k]])/(NuRoots[[m]] - NuRoots[[k]]), {k, Delete[Range[1, n1], m]}]

В массиве NuRoots лежат точки; все это делается для получения аппроксимирующей функции, точнее - работает формула Гаусса-Кристоффеля для вычисления несобственного интеграла.

Тут возник еще один вопрос: существует ли способ скопировать код из Mathematica в Microsoft Word так, чтобы в документ пошла "красивая" запись кода? Может, через MathType как-нибудь?