Решение:
Для решения данной задачи используем математический пакет Maple.
> restart:
Digits:=4:
> with(LinearAlgebra):
> f:=(i,j)->if(i=j) then 1 else -epsilon fi:
> y:=Vector([-1,1,-1,-1,1]):
> poslin:=(x)-> if (x<0) then 0 else x fi:
> x[1]:=[-1,1,-1,1,-1]:
> x[2]:=[-1,-1,1,1,-1]:
> x[3]:=[-1,1,1,1,-1]:
> x[4]:=[-1,-1,-1,-1,1]:
> m:=4:
> N:=nops(x[1]):
> epsilon:=1/4:
> b:=Vector(4,N):
> W1:=Matrix([seq(x[i],i=1..m)]):
> W2:=Matrix(4,f):
> ff:=(x)->1-x/N:
> a:=(b-W1.y)/2:
> p:=map(ff,a);
> p:=evalf(map(poslin,W2.p));