Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.03.2012, 00:07
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию Помогите обучить нейросеть

Всем привет! Решил разобраться с работой нейросетей. Пару дней по искал, по изучал алгоритмы просмотрел примеры и написал свою прогу. Написанная программа на 99.9% рабочая и правильная (подставлял коэффициенты и веса с рабочей нейросети, все правильно считается).
Но возникли проблемы с обучением. Одну пару сигналов учит нормально, а две и больше просто зависает цикл с обучением. К примеру на вход подал 1 на вых 0 и обучил все нормально, а параллельно в цикле с двумя парами 1-0 и 0-1 не учиться (в цикле случайно выбирается пара из 2ух для обучения).
Вопрос. Может кто занимался нейросетями, подскажите как их обучать в какой последовательности подавать вх вых сигналы. А то у меня получается что одна сеть учит одну пару и все. Прикрепил программу с коментами и картинку какую сеть создает она: Neuro.rar
__________________
If end Then begin;
Ответить с цитированием
  #2  
Старый 12.03.2012, 11:46
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

В MatLab'е есть toolbox по нейросетям.
Ответить с цитированием
  #3  
Старый 13.03.2012, 14:42
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию

Все разобрался. Ошибка была очень проста входной сигнал сети не 0..1 а (-1)..1 надо подавать. И еще подобрать коэфициенты я так понял можно только для одной обучающей пары. Т.е для каждой обученой пары надо сохранять параметры сети в файл и при распознавании по очереди подгружать и смотреть выход сети, вроде так, буду проверять.
__________________
If end Then begin;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:18.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025