Реализации алгоритмов/Интерполяция/Многочлен Лагранжа: различия между версиями
Содержимое удалено Содержимое добавлено
Stvad ua (обсуждение | вклад) add Octave realization |
|||
Строка 187:
end;
</source>
== Maple ==
<source lang="pascal">
ly := [2, 6, 14]:
lx := [0, 1, 2]:
n := 2; z := 0: d := 1: x := 'x':
for i to 3 do for j to 3 do
if j <> i then
d := (x-op(j, lx))*d/(op(i, lx)-op(j, lx));
end if end do;
z := z+op(i, ly)*d;
d := 1;
end do:
expand(z);
</source>
| |||