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

End;

End;

Var kk,i,z,Meza:Longint;

Begin

Assign(MF,'Neuro1.txt'); ReWrite(MF);

BeginNastr; z:=0;

WriteLn('Ne\x00B3eueee ooieoe\x00B3e iaa/aoe ?'); ReadLn(Meza);

For kk:=1 To Meza Do

Begin

CN:=1;

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

Getfunc;

Obuch;

OutPutVect;

z:=z+iter;

iter:=0;

End;

Close(MF);

WriteLn(z);

End.

Ieae/a iiaeaii oaeno iiaeoey, yeee aeei\x00F0enoiao\x00BA i\x00F0ia\x00F0aia.

Unit Complex;

Interface

Type Comp=Record

a,b:Double;

End;

Type Vector=Array[1..10] of Comp;

Type Func=Array[1..1025] of Integer;

Procedure PKNSO(N:LongInt; Var k:Comp);

Procedure ToStep(N:LongInt; x:Comp; Var R:Comp);