Нейронная сеть

@nastya2345 · Регистрация: 05.04.2018

Author24 — интернет-сервис помощи студентам

Здравствуйте, дорогие форумчане, мне очень нужна ваша профессиональная помощь с заданием.
Задание такое, нужно создать нейросеть на делфи, что бы она вычисляла результат, в зависимости от того какое число мы подаём на входы (0 или 1), но результат должен вычисляться начиная с конца, то есть выходной нейрон запрашивает результат у предыдущего нейрона и так пока не дойдёт до входного слоя, где он у нас и имеется ( это 0 или 1) и затем уже идёт вычисление и выдаётся результат. Прошу помогите очень надо

@ZX Spectrum-128 · 27.06.2018, 17:34

http://www.aiportal.ru/downloa... n_xor.html

@nastya2345 · 28.06.2018, 23:07 **[ТС]**

Пожалуйста можно исходник.

Добавлено через 5 минут
кусочек кода у меня есть:

Delphi

 TSvyz=class;
 
  TNeiron=class
    sum:real;
    Svyz:Array of TSvyz;
    Function ResultNeiron:real;
  end;
 
  TSvyz=class
    ves:real;
    Neiron: TNeiron;
    Function ResultSvyzi:real;
  end;
 
  TSloy=class
    Neiron:Array of TNeiron;
  end;
 
  TSety=class
    VXODsloy:Array of Tsloy;
    VIXODsloy:Array of TSloy;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
Function TSvyz.ResultSvyzi:real;
begin
  Result:=Neiron.ResultNeiron*ves;
end;
 
Function TNeiron.Resultneiron:real;
var
  i:integer;
begin
  If Sum=0 then
    for i:=0 To Length(Svyz)-1 Do Sum:=Sum+Svyz[i].ResultSvyzi;
  Result:=1/(1+Exp(-Sum));
 
end;

@nastya2345 0 / 0 / 1 Регистрация: 05.04.2018 Сообщений: 2
		1
	Delphi 6-7 Нейронная сеть 27.06.2018, 17:22. Показов 4780. Ответов 2 Метки нет (Все метки) Здравствуйте, дорогие форумчане, мне очень нужна ваша профессиональная помощь с заданием. Задание такое, нужно создать нейросеть на делфи, что бы она вычисляла результат, в зависимости от того какое число мы подаём на входы (0 или 1), но результат должен вычисляться начиная с конца, то есть выходной нейрон запрашивает результат у предыдущего нейрона и так пока не дойдёт до входного слоя, где он у нас и имеется ( это 0 или 1) и затем уже идёт вычисление и выдаётся результат. Прошу помогите очень надо 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	27.06.2018, 17:34	2
	http://www.aiportal.ru/downloa... n_xor.html 1

	28.06.2018, 23:07

Нейронная сеть

Решение