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

i:=Trunc(Kv/RnaS);

if i mod 2 =0 then j:=1 else j:=-1;

If j<>f[CN] Then Ok:=False;

IsGood:=Ok;

End;

Procedure GetFunc;

Var i,p,l:LongInt;

Begin

l:=1;

For i:=1 To k Do l:=2*l;

For i:=1 To l Do

Begin

p:=Random(2);

F[i]:=(p*2)-1;

End;

N:=PochSect;

End;

Procedure GenerateFandNb;

Var i:LongInt;

l,j,k1:LongInt;

fl:Boolean;

Begin

l:=1;

For i:=1 To k Do l:=2*l;

Randomize;

For j:=1 To l Do

Begin

f[j]:=Random(2);

If f[j]=0 Then f[j]:=-1;

End;