Пока я разбираюсь с индексами, возможно вам будет проще понять по листингу проверки равенства в "Maple 12". Тут
, таким образом, результат равен
.
Код:
restart;
with(combinat);
n := 5;
s1 := array(1 .. n, 1 .. n);
for i to n do
for j to n do
s1[i, j] := stirling1(i, j)/factorial(i-1)
end do
end do;
s1 := evalm(s1);
sm := convert(s1, Matrix);
C := array(1 .. n, 1 .. n);
for i to n do
for j to n do
C[i, j] := (-1)^(i+j)*binomial(i-1, j-1)
end do
end do;
C := evalm(C);
P := convert(C, Matrix);
with(LinearAlgebra);
S[1] := Transpose(sm);
f := proc (j) options operator, arrow; j^y end proc;
y := 4;
k := Vector(5, f);
Y := MatrixVectorMultiply(P, k);
F := proc (j) options operator, arrow; x^(j-1) end proc;
x := 5;
k := Vector[row](5, F);
X := VectorMatrixMultiply(k, S[1]);
Multiply(X, Y);
Можно просто вставить код в Maple и поиграть со значениями
и
.