Е. Миркес - Учебное пособие по курсу «Нейроинформатика»

{Слой точек ветвления}

LayerBLay(N,M : Long)

ContentsBranch(N)[M] {В состав слоя входит M точек ветвления}

Connections

{Выходные сигналы в порядке первый с каждой точки ветвления, затем второй и т.д. }

OutSignals[1..N * M]<=> Branch[+:1..M]. OutSignals[1..N]

End {Конец описания слоя Точек ветвления}

При описании блоков используются элементы, описанные в библиотеке Elements, приведенной в разд. «Пример описания элементов».

NetBiblSubNets UsedElements; {Библиотека подсетей, использующая библиотеку Elements}

{Сигмоидный нейрон с произвольным сумматором на N входов}

CascadNSigm(aSum : Block; N : Long;Char : Real)

{В состав каскада входит произвольный сумматор на N входов и сигмоидный нейрон с необучаемой характеристикой}

ContentsaSum(N), S_NotTrain(Char)

End

{Слой сигмоидных нейронов с произвольными сумматорами на N входов}

LayerLay1(aSum : Block; N,M : Long;Char : Real)

ContentsSigm: NSigm(aSum,N,Char)[M] {В состав слоя входит M нейронов}

End

{Слой точек ветвления}

LayerBLay(N,M : Long)

ContentsBranch(N)[M] {В состав слоя входит M точек ветвления}

Connections

{Выходные сигналы в порядке первый с каждой точки ветвления, затем второй и т.д.}

OutSignals[1..N * M] <=> Branch[+:1..M]. OutSignals[1..N]

End

{Полный слой сигмоидных нейронов с произвольными сумматорами на N входов}

CascadFullLay(aSum : Block; N,M : Long;Char : Real)

ContentsBLay1(M,N) ,Lay1(aSum,N,M ,Char) {Слой точек ветвления и слой нейронов}

End {Конец описания слоя сигмоидных нейронов с произвольным сумматором}

{Сеть с сигмоидными нейронами и произвольными сумматорами, содержащая

Input – число нейронов на входном слое;

Output – число нейронов на выходном слое (число выходных сигналов);

Hidden – число нейронов на H>0 скрытых слоях;

N – число входных сигналов

все входные сигналы подаются на все нейроны входного слоя}

Cascad Net1(aSum : Block; Char : Real; Input, Output, Hidden, H, N : Long)

{Под тремя разными псевдонимами используется одна и таже подсеть с разными параметрами. Использование псевдонимов необходимо даже при сокращенном описании}

Contents

In: FullLay(aSum,N,Input ,Char),

Hid1: FullLay(aSum,Input,Hidden,Char)

Hid2: FullLay(aSum,Hidden,Hidden,Char)[H-1] {Пусто при H=1}

Out: FullLay(aSum,Hidden,Output,Char)

End

{Полносвязная сеть с M сигмоидными нейронами на К тактов функционирования с невыделенным входным слоем на M сигналов. Все параметры ограничены по абсолютному значению единицей}

LoopCircle(aSum : Block; Char : Real; M, K : Long) K

Contents

FullLay(aSum,M,M ,Char)

ParamDefDefaultType -1 1

End

{Полносвязная сеть с М сигмоидными нейронами на К тактов функционирования с выделенным входным слоем на N сигналов.

CascadNet2: (aSum : Block; Char : Real; M, K, N : Long)

Contents

In: FullLay(aSum,N,M ,Char), {Входной слой}

Net: Circle(aSum,Char,M,K) {Полносвязная сеть}

End

CascadHopf(N : Long) {Нейрон сети Хопфилда из N нейронов}

ContentsSum(N),Sign_Easy {Сумматор и пороговый элемент}

End

{Слой нейронов Хопфилда}

LayerHLay(N : Long)

ContentsHop: Hopf(N)[N] {В состав слоя входит N нейронов}

End

{Сеть Хопфилда из N нейронов}

UntilHopfield(N : Long) InSignals= OutSignals

ContentsBLay(N,N) ,HLay(N) {Слой точек ветвления и слой нейронов}

End

End NetLib

В данном разделе рассмотрены все запросы, исполняемые компонентом сеть. Прежде чем приступать к описанию стандарта запросов компонента сеть следует выделить выполняемые им функции. Что должен делать компонент сеть? Очевидно, что прежде всего он должен уметь выполнять такие функции, как функционирование вперед (работа обученной сети) и назад (вычисление вектора поправок или градиента для обучения), модернизацию параметров (обучение сети) и входных сигналов (обучение примера). Кроме того компонент сеть должен уметь читать сеть с диска и записывать ее на диск. Необходимо так же предусмотреть возможность создавать сеть и редактировать ее структуру. Эти две функциональные возможности не связаны напрямую с работой (функционированием и обучением) сети. Таким образом, необходимо выделить сервисную компоненту — редактор сетей. Компонент редактор сетей позволяет создавать и изменять структуру сети, модернизировать обучаемые параметры в «ручном» режиме.