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

Begin

WriteLn(MF,c.a:8:4,' + i * ',c.b:8:4);

End;

Function Nearest(c:Comp):LongInt;

Var x,y:Double;

i,j,inv,nex,prev:LongInt;

Begin

inv:=Trunc(Kut(c)/RnaS);

InWhat:=inv;

nex:=inv+1; if nex=k Then nex:=0;

if inv=0 Then prev:=N-1 else prev:=inv-1;

If (nex*RnaS-Kut(c)) > (Kut(c)-prev*RnaS) Then

nearest:=prev else nearest:=nex;

End;

Function IsGood:Boolean;

Var i,j:Integer;

Ok:Boolean;

l:LongInt;

v:Comp;

kv:Double;

Begin

v.a:=0; v.b:=0;

Ok:=True;

v.a:=0; v.b:=0;

For i:=1 To K+1 Do

Begin

v.a:=v.a+W[i].a*Nb[i,CN];

v.b:=v.b+W[i].b*Nb[i,CN];

End;

kv:=Kut(v);