ВУЗ:
Составители:
51
которое значение. Теоретически второй слой должен работать пока его выхо-
ды не стабилизируются, но на практике количество итераций искусственно огра -
ничивают. Исходный код :
Count:=0;
repeat
for i:=1 to m do // Значения предыдущей итерации
begin
Outputs[i]:=SecondRow[i].Output;
SecondRow[i].Sum = 0;
end
for i:=1 to m do // Один шаг работы второго слоя
for j:=1 to m do
if i=j then // c его выходов на его же входы
SecondRow[j].Sum := SecondRow[j].Sum+ SecondRow[i].Output;
else
SecondRow[j].Sum := SecondRow[j].Sum+ SecondRow[i].Output * e;
Flag:=true;
for i:=1 to m do
begin
SecondRow[i].Output = SecondRow[i].Sum
If (Outputs[i] <> SecondRow[i].Output) then flag:=false;
end;
Count:=Count+1;
until (flag or (Count>25));
Последний шаг — выбор нейрона второго слоя с наибольшим значением на
выходе. Его номер и есть номер распознанного образа :
Max:= -N;
For i:=1 to m do
If SecondRow[i].Output>Max then
begin
Max = SecondRow[i].Output;
Index = i;
end;
ЛИТЕРАТУРА
1. Минский М. Л . Персептроны / М. Л . Минский , С. Пейперт - М: Мир,
1971. - 360 c.
2. Розенблатт Ф . Принципы нейродинамики/ Ф . Розенблатт - М.: Мир, 1965.-
387 c.
3. Уоссермен Ф . Нейрокомпьютерная техника : теория и практика / Ф . Уоссер-
мен - М.: Мир, 1992.- 380 с.
4. Калан Р. Основные концепции нейронных сетей/ Р. Калан – М.: Издатель-
ский дом “Вильямс”, 2001.- 288 c.
5. Êðóãëîâ Â.Â. Èñêóññòâåííûå íåéðîííûå ñåòè. Òåîðèÿ è
ïðàêòèêà/ Â.Â. Êðóãëîâ, Â.Â. Áîðèñîâ -Ì: Ãîðÿ÷àÿ
ëèíèÿ- Òåëåêîì, 2002.-382 ñ.
Автор : Каширина И . Л .
Редактор : Бунина Т . Д .
51 которое значение. Теоретически второй слой должен работать пока его выхо- ды не стабилизируются, но на практике количество итераций искусственно огра- ничивают. Исходный код: Count:=0; repeat for i:=1 to m do // Значения предыдущей итерации begin Outputs[i]:=SecondRow[i].Output; SecondRow[i].Sum = 0; end for i:=1 to m do // Один шаг работы второго слоя for j:=1 to m do if i=j then // c его выходов на его же входы SecondRow[j].Sum := SecondRow[j].Sum+ SecondRow[i].Output; else SecondRow[j].Sum := SecondRow[j].Sum+ SecondRow[i].Output * e; Flag:=true; for i:=1 to m do begin SecondRow[i].Output = SecondRow[i].Sum If (Outputs[i] <> SecondRow[i].Output) then flag:=false; end; Count:=Count+1; until (flag or (Count>25)); Последний шаг — выбор нейрона второго слоя с наибольшим значением на выходе. Его номер и есть номер распознанного образа: Max:= -N; For i:=1 to m do If SecondRow[i].Output>Max then begin Max = SecondRow[i].Output; Index = i; end; ЛИТЕРАТУРА 1. Минский М. Л. Персептроны / М. Л. Минский, С. Пейперт - М: Мир, 1971. - 360 c. 2. Розенблатт Ф. Принципы нейродинамики/ Ф. Розенблатт - М.: Мир, 1965.- 387 c. 3. Уоссермен Ф. Нейрокомпьютерная техника: теория и практика/ Ф. Уоссер- мен - М.: Мир, 1992.- 380 с. 4. Калан Р. Основные концепции нейронных сетей/ Р. Калан – М.: Издатель- ский дом “Вильямс”, 2001.- 288 c. 5. Êðóãëîâ Â.Â. Èñêóññòâåííûå íåéðîííûå ñåòè. Òåîðèÿ è ïðàêòèêà/ Â.Â. Êðóãëîâ, Â.Â. Áîðèñîâ -Ì: Ãîðÿ÷àÿ ëèíèÿ- Òåëåêîì, 2002.-382 ñ. Автор: Каширина И.Л. Редактор: Бунина Т.Д.