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

WriteLn(MF,'-----------------------------------------------');

WriteLn(MF,'\x00D0acoeueooth/ee aaeoi\x00F0...');

For i:=1 To K+1 Do Begin Write(Mf,'W[',Pred(i),']= '); OutPut(W[i]); End;

WriteLn(MF,'”Ooieoe\x00B3y...');

For i:=1 To Step Do Write(MF,f[i]:4);

WriteLn(MF,'');

WriteLn(MF,'\x00B2oa\x00F0aoe\x00B3e ',iter);

WriteLn(MF,'Naeoi\x00F0\x00B3a ',N);

End;

Procedure Obuch;

Var Ob:Boolean;

Uob:LongInt;

i,ij:LongInt;

ea,eb,ec:Comp;

md,kv:Double;

Begin

Ob:=False; Uob:=0;

While Not Ob Do

Begin

If Not IsGood Then

Begin

While Not IsGood Do

Begin

Uob:=0;

Wzv.a:=0; Wzv.b:=0;

For i:=1 To K+1 Do

Begin

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

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

End;