Функция активации в Delphi

[Ericnex]

Есть нейронная сеть по распознавани цифр от 0 до 9. В качестве функции активации стоит пороговая функция. Надо переделать программу чтобы использовать в качестве функции активации гиперболический тангенс.

Режим распознавания цифр:часть кода

begin
if Image1.Canvas.Pixels[i,j]=clblack then
s0:=s0+zero[i+j*100];
end;
if s0>=p then Form1.StatusBar1.Panels[0].Text:='Это цифра:0'else
for i:=0 to 99 do
for j:=0 to 99  do
begin
if Image1.Canvas.Pixels[i,j]=clblack then
s1:=s1+one[i+j*100];
end;
if s1>=p then StatusBar1.Panels[0].Text:='Это цифра:1'

Режим обучения: часть кода

procedure learning(b: boolean); // обучение персерптрона
begin
if Form1.RadioGroup1.ItemIndex=0 then
for i:=0 to 9999 do
begin
if (b) and (Form1.Image1.Canvas.Pixels[i mod 100,i div 100]=clblack)  then
zero[i]:=zero[i]+1 else
if (not(b)) and (Form1.Image1.Canvas.Pixels[i mod 100,i div 100]=clblack)
then zero[i]:=zero[i]-1;
end

На рисунке функция гиперболического тангенса...