Maple Вред 03/04/16 Вск 00:21:15  №706407    

что не так? Почему возникает ошибка ?
код:
restart;
>

RS:= proc (A,N)
local i,j,S,P,x;
i:=0:
S:=0:
while (i<=N) do
P:=unapply(normal(product((x-A[j+1][1]),j=0..N)
/(x-A[i+1,1])),x):
S:=S+A[i+1,2]/P(A[i+1,1]):
i:=i+1:
end do:
return S:
end proc;
proc(A, N) ... end;
newton:=proc(A)
local N,Nmax,L,x,i:
L:=A[1][2]:
Nmax:=`linalg/vectdim`(A):
for N from 1 to Nmax-1
do
L:=L+Rc(A,N)*product(x-A[i+1][1],i=0..N-1):
end do:
unapply(collect(L,x),x):
end proc;
proc(A) ... end;
XY:=[[-3,5],[-2,3],[0,6],[1,4],[2,7],[3,15]];
[[-3, 5], [-2, 3], [0, 6], [1, 4], [2, 7], [3, 15]]
newton(XY)(t);
Error, (in newton) final value in for loop must be numeric or character