[pva]

я не понял, как так k=1, k!=1

Обычно сама математика пишет такие формулы в виде

Код:

phi[m_][x_] := Product[(x-x[k])/(x[m]-x[k]), {k,1,n}]

При этом x объявлета как функция (по аналогии с константами интегрирования C[n])

Странно, что не получается реализовать её в виде таблицы, должно получиться:

Код:

x = Table[...]
phi[x1_]=Table[Times@@((x1-x)/(x[m]-x)), {m,1,Length[x]}]] (*здесь x1 должна быть таблицей длины Length[x] *)

Ещё вариант: (мой любимый, но без пол-литра не поймёшь, куда посылает)

Код:

x = Table[...]
phi[x1_]:=(Times@@((x1-x)/(#1-x))&)/@x (*здесь x1 должна быть таблицей длины Length[x] *)