Швидкість збіжності алгоритму навчання нейрона в залежності від вибору нормуючого множника, Детальна інформація

For j:=1 to k do nb[j,1]:=1;

For j:=2 To l Do

Begin

for k1:=1 to 10 do

nb[k1,j]:=nb[k1,j-1];

k1:=1;

while nb[k1,j-1]=-1 do

Begin

nb[k1,j]:=1; fl:=true; k1:=k1+1;

End;

nb[k1,j]:=-1;

End;

For j:=1 To L Do Nb[k+1,j]:=1;

Step:=l;

End;

Procedure BeginNastr;

Var i:LongInt;

Begin

WriteLn('Aaaae\x00B3oue ii/aoeiao e\x00B3euee\x00B3noue naeoi\x00F0\x00B3a'); ReadLn(PochSect); N:=PochSect;

WriteLn('Aaaae\x00B3oue e\x00B3euee\x00B3noue ci\x00B3iieo ooieoe\x00B3? :'); ReadLn(K);

RnaS:=2*Pi/N;

PKNSO(N,e);

GenerateFandNb;

CN:=1;

For i:=1 To K+1 Do Begin W[i].a:=1; W[i].b:=0; End;

iter:=0;

End;

Procedure OutPutVect;

Var i:LongInt;

Begin