LINUX.ORG.RU

История изменений

Исправление dikiy, (текущая версия) :

это мои потуги реализовать то, что я описал в прошлом треде на maple. При это f инициализируется так:

N:=7; unassign('f'); f:=[];
for j from 1 to N do
f:=[op(f), unapply(orthopoly[H](j,t),t)];
end do:

Исходная версия dikiy, :

это мои потуги реализовать то, что я описал в прошлом треде на maple. При это f инициализируется так:

[code]
N:=7; unassign('f'); f:=[];
for j from 1 to N do
f:=[op(f), unapply(orthopoly[H](j,t),t)];
end do:
[/code]