Список форумов neuroproject.ru neuroproject.ru
Форум сайта компании НейроПроект
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

помагите нужна программа

 
Начать новую тему   Ответить на тему    Список форумов neuroproject.ru -> Поиск демонстрационных программ
Предыдущая тема :: Следующая тема  
Автор Сообщение
Эльвиз
Новый посетитель
Новый посетитель


Зарегистрирован: 09 Фев 2007
Сообщения: 1
Откуда: Азербайджан, Баку

СообщениеДобавлено: Пт Фев 09, 2007 4:28 pm    Заголовок сообщения: помагите нужна программа Ответить с цитатой

Извините мой рысский очень плохой.
спасите меня я учус в Баку и здес очень мало знают по нейронным сетям и мая работа оже нейронные сети распознавание изображени. Может у кого нибуд ест готовая программа в делфи или в с ну любом языке програмирывание. Мне не важен там какой модел проста нужен программа чтобы я анализирывал.
Зарание спасибо.
Жду ответа
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail MSN Messenger
DmitryShm
Участник форума
Участник форума


Зарегистрирован: 09 Апр 2006
Сообщения: 63
Откуда: Россия, Казань

СообщениеДобавлено: Вс Апр 29, 2007 2:12 pm    Заголовок сообщения: вот, возьми Ответить с цитатой

Есть программа. Правда на Mathematica 5.0. Для Delphi переписать раз плюнуть... Задавать можно многослойный перцептрон. Аппроксимировать любую функцию. Если сможешь настроить параметры --- буду рад, если поделишься ими. Я вот сам пытаюсь ешить эту задачу. Пока тщетно. Синаптические веса уходят из под контроля, и стремятся к бесконечности. Сижу вот, и настраиваю. Sad Вот программа.

(*Многослойный перцептрон: универсальный аппроксиматор.*)

(* определение полносвязного перцептрона *)

(*
[in]fun -- символ активизационной функции
[in]neu -- символ для нейронов
[in]wei -- символ для весов
[in]step -- инициализация
[in]listInts -- списов целых, задающих перцептрон
*)
Perceptron[fun_,neu_,wei_,step_,listInts_]:=
Module[{iLen,j,k},
iLen=Length[listInts];
If[iLen\[Equal]0,
Null,
If[iLen\[Equal]1,
Array[neu[1],listInts[[1]]],
If[iLen\[Equal]2,
Table[neu[2][j]=Sum[
fun[neu[1][k]]*wei[1][j,k],{k,1,listInts[[1]]}]+step,{j,1,listInts[[2]]}],
Perceptron[
fun,neu,wei,step,Delete[listInts,iLen]];Table[neu[
iLen][j]=Sum[fun[neu[iLen-1][k]]*wei[iLen-1][j,k],{k,1,listInts[[
iLen-1]]}],{j,1,listInts[[iLen]]}]
]
]
]
];
(* определение опдстановки выборки в перцептрон *)

(*
[in]listVals -- обучающая выборка
[in]fun -- символ активизационной функции
[in]n -- символ для нейронов
[in]w -- символ для синаптических весов
[in]step -- символ для шага инициализации
[in]listInts -- списов целых, задающих перцептрон
*)
TestPerceptron[listVals_,fun_,n_,w_,step_,listInts_]:=
Module[{iLen,j},
If[Length[listInts]\[Equal]0,
Null,
iLen=Length[listVals];
If[iLen==listInts[[1]],
Table[n[1][j]=listVals[[j]],{j,1,iLen}];
Perceptron[fun,n,w,step,listInts],
Null
]
]
];

(* определение алгоритма последовательного обучения (1 эпоха \[Equal] 1
выборка) *)

(*
[in]funTarget -- символ приближаемой функции
[in]fun -- символ акцивизационной функции
[in]neu -- символ для нейронов
[in]wei -- символ для весов
[in]speedEta -- параметр, определяющий скорость обучения
[in]step -- инийиализирующая величина
[in]listInts -- списов целых, задающих перцептрон
[in]listSequence -- последовательность обучающих выборок (эпох)
*)
LearnBackPropSequential[funTarget_,fun_,neu_,wei_,speedEta_,step_,listInts_,\
listSequence_]:=
Module[{k,q,p,iSeqLen,iLen,listTest,lmsE,deltaGrad,DifActFun,\
vField,neuTemp,stepAbs, dCurError},
iLen=Length[listInts];
If[iLen<3,
Null,
DifActFun[x_]=D[fun[x],x];
iSeqLen=Length[listSequence];
dCurError=0;
Table[ lmsE[iLen][j]=0,{j,1,listInts[[iLen]]}];
For[k=1,k?iSeqLen,k++,
(* подставляем обучающую выборку в перцептрон (wei уже
известны) *)
listTest=TestPerceptron[listSequence[[k]],fun,neuTemp,
wei,step,listInts];
(* а здесь делаем обратный проход ошибок,
сначала вычислив ошибки для выходного слоя *)
(* вычисляем ошибку сети на выходном слое *)
Table[ lmsE[iLen][j]+=funTarget[listSequence[[
k]]][[j]]-listTest[[j]],{j,1,listInts[[iLen]]}];
];
dCurError+=1/2*Sum[lmsE[iLen][j]^2,{j,1,listInts[[iLen]]}];
(* считаем индуцированное поле для нейронов выходного слоя *)
Table[vField[iLen][p]=Sum[wei[iLen-1][p,q]*
neuTemp[iLen-1][
q],{q,1,listInts[[iLen-1]]}]+step,{p,1,listInts[[iLen]]}\
];
(* высчитываем локальный градиент выходного слоя *)
Table[
deltaGrad[iLen][j]=lmsE[iLen][j]*DifActFun[vField[iLen][j]],{j,1,
listInts[[iLen]]}];
(* корректируем синаптические веса *)
Table[Table[wei[iLen-1][p,q]+=speedEta*
deltaGrad[iLen][p]*neuTemp[iLen-1][q],{q,1,listInts[[iLen-1]]}],{p,1,\
listInts[[iLen]]}];

(* теперь проходим по всем скрытым слоям вниз... *)
For[j=iLen-2,j>0,j--,
Table[
vField[j+1][p]=Sum[wei[j][p,q]*neuTemp[j][q],{q,listInts[[j]]}]+\
step,{p,1,listInts[[j+1]]}];
Table[deltaGrad[j+1][p]=DifActFun[vField[j+1][
p]]*Sum[deltaGrad[j+2][q]*wei[j+1][q,p],{q,1,listInts[[
j+2]]}],{p,1,listInts[[j+1]]}];
Table[
Table[wei[j][p,q]+=speedEta*deltaGrad[j+1][p]*neuTemp[j][q],{q,\
1,listInts[[j]]}],{p,1,listInts[[j+1]]}];
];
dCurError
]
];

In[75]:=
Off[General::spell1];
(* определение активизационной функции *)
ActFun[x_]:=Tanh[x];

(* исследуемая функция *)
f[x_]:=Sin[x];

(* степень однослойного перцептрона *)
iPower = 20;

(* мощность обучающей выборки *)
iLearnCnt = 20;

(* интервал, на котором будут лежать числа из выборки *)
dRangeA=0;
dRangeB=1;

(* точность обучения *)
eps=0.001;

(* пераметр скорости обучения *)
eta = 1;

(* ступенька *)
step=eps/10;

(* обучаемый перцептрон *)
perceptron={1,iPower,1};
dError=1;
stepAbs=Abs[step];
(* инициализируем синаптические веса *)
iLen=Length[perceptron];
Table[Table[Table[wei[j][p,q]=
0,{q,1,perceptron[[j]]}],{p,1,perceptron[[j+1]]}],{j,1,iLen-1}];

(* обучение сети приближать данную функцию *)
While[dError>eps,
tableLearn=Table[{Random[Real,{dRangeA,dRangeB}]},{iLearnCnt}];

dError=LearnBackPropSequential[f,ActFun,neu,wei,eta,step,perceptron,\
tableLearn];
If[dError<eps,
(* график функции и ее приближения *)
Print["текущая ошибка сети: ", dError];
g[x_]=Module[{neu},Perceptron[ActFun,
neu,wei,step,perceptron]/.neu[1][1]\[Rule]x][[1]];
Plot[{f[x],g[x]},{x, dRangeA,
dRangeB},PlotStyle\[Rule]{Hue[0.5],Hue[0.7]}];
Break[];
];
];

Print["текущая ошибка сети: ", dError];
g[x_]=Module[{neu},Perceptron[ActFun, neu,wei,step,perceptron]/.neu[1][1]\
\[Rule]x][[1]];
Plot[{f[x],g[x]},{x, dRangeA,dRangeB},PlotStyle\[Rule]{Hue[0.5],Hue[0.7]}]
Print[Table[Flatten[Table[Table[wei[j][p,q],{q,1,perceptron[[j]]}],{p,
1,perceptron[[j+1]]}]],{j,1,Length[perceptron]-1}]];
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
orlowsckiy
Новый посетитель
Новый посетитель


Зарегистрирован: 10 Ноя 2011
Сообщения: 1
Откуда: Киев

СообщениеДобавлено: Чт Ноя 10, 2011 5:01 pm    Заголовок сообщения: Ответить с цитатой

спасибо, мне очень пригодилась эта программка!
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора Адрес AIM
zevsnedv
Новый посетитель
Новый посетитель


Зарегистрирован: 13 Авг 2013
Сообщения: 1
Откуда: Ставрополь

СообщениеДобавлено: Вт Авг 13, 2013 10:35 am    Заголовок сообщения: Решение Ответить с цитатой

Нейронные сети вошли в практику везде, где нужно решать задачи прогнозирования, классификации или управления. Вот и у меня курсак подобного плана, сижу теперь все под делфи переписываюSmile) спасибо за направление, хотя ямне пришлось еще инфу рытьSmile)
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
dastina
Новый посетитель
Новый посетитель


Зарегистрирован: 05 Сен 2013
Сообщения: 1
Откуда: Демурино

СообщениеДобавлено: Пт Сен 06, 2013 7:41 am    Заголовок сообщения: фигня это все Ответить с цитатой

Не то и не по теме, что за кусок корявого кода? Я вообще в шоке, потратила специально время на то чтоб отписаться. Странно, но в поисковике нашла ваш сайт как лучший по нейронным сетямSmile))
_________________
Скоро звездопад
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
savinata
Новый посетитель
Новый посетитель


Зарегистрирован: 18 Сен 2013
Сообщения: 1
Откуда: Севастополь

СообщениеДобавлено: Чт Сен 19, 2013 12:13 am    Заголовок сообщения: Нейронные сети Ответить с цитатой

Нейронные сети - превосходный пример. Все мы слышали о нейронных сетях и о том, что они обещают, но почему-то не видим обычных программ, основанных на них. Наиболее популярные и изученные архитектуры - это многослойный перцептрон, нейронная сеть с общей регрессией, нейронные сети Кохонена и другие. Почему программно не реализуется это направление????
_________________
Мне скучно!
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
lilisa
Новый посетитель
Новый посетитель


Зарегистрирован: 25 Сен 2013
Сообщения: 1
Откуда: Астрахань

СообщениеДобавлено: Чт Сен 26, 2013 12:21 am    Заголовок сообщения: Нейронные сети Ответить с цитатой

Тупо втыкаю и пытаюсь понять, что же такое нейронные сети. Как мне кажется, то это что то очень странное и не понятное. Пройдет пару дней я вам отпишусь что я по этому думаю.
_________________
Туристам привет!
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
droidnet
Новый посетитель
Новый посетитель


Зарегистрирован: 09 Окт 2013
Сообщения: 1

СообщениеДобавлено: Ср Окт 09, 2013 11:20 pm    Заголовок сообщения: Ответить с цитатой

Цікавий сайтець правда не про нейронну сітку http://4droid.net Evil or Very Mad
_________________
Цікавий сайтець http://4droid.net
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
lugarik
Новый посетитель
Новый посетитель


Зарегистрирован: 10 Окт 2013
Сообщения: 3
Откуда: Свердловск

СообщениеДобавлено: Чт Окт 10, 2013 2:33 pm    Заголовок сообщения: Дерьмо сайт и спамер во главе Ответить с цитатой

Цікавий сайтець правда не про нейронну сітку 4droid.net Evil or Very Mad
Как мне так я тоже могу замутить такоеSmile) Луганские объявления публикуют цены на семечки и на гречку, а мы как раз любим сечку, так что же нам теперь делать?
_________________
Все супер в наше неспокойное время!
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов neuroproject.ru -> Поиск демонстрационных программ Часовой пояс: GMT + 4
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Rambler's Top100 Rambler's Top100