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

kv:=Kut(Wzv);

InWhat:=Trunc(Kv/RnaS);

ToStep(Nearest(Wzv),e,ea);

ToStep(InWhat,e,eb);

ec.a:=ea.a-eb.a;

ec.b:=ea.b-eb.b;

md:=Sqrt(Wzv.a*Wzv.a+Wzv.b*Wzv.b);

if md=0 then md:=1;

inc(iter);

For i:=1 To K+1 Do

Begin

W[i].a:=W[i].a+(1/((N+1){*md}))*ec.a*Nb[i,CN];

W[i].b:=W[i].b+(1/((N+1){*md}))*ec.b*Nb[i,CN];

End;

If iter>10000 Then

Begin

N:=N*2;

WriteLn(n);

RnaS:=2*Pi/N;

PKNSO(N,e);

Iter:=0;

CN:=1;

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

End;

End;

End;

Uob:=Uob+1;

Cn:=Cn+1;

If CN=Step+1 Then CN:=1;

If Uob=Step Then Ob:=True;