Screenshot-82.jpg

Screenshot-83.jpg

Решение:

Для решения данной задачи используем математический пакет 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));