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

If Error<> 0 Then GoToExit;

Est =Optimize(Direction, Step); {Вызываем функцию подбора оптимального шага}

If Error<> 0 Then GoToExit;

RDM = Est;

GoTo Endd;

Exit :

RDM = 0;

Endd :

End

End InstrLib

Пример 3. Антиовражная процедура обучения.

InstructorkParTan UsedLibrary1; {Антиовражная процедура обучения kParTan}

Main {Обучение ведется по всему обучающему множеству}

LabelExit, Exit1;

Static

ColorInstColor Name"Цвет примеров обучающего множества"

DefaultHFFFF; {По умолчанию}

IntegerOperColor Name"Операция для отбора цветов" Default CIn;

{все примеры, в цвете которых есть хоть один единичный бит }

StringNetName Name"Имя сети" Default"";

IntegerWhat Name"Что обучать" Default Parameters;

{По умолчанию 2ParTan}

Integerk Name"Число шагов между ParTan шагами" Default2;

RealAccuracy Name"Требуемый минимум оценки" Default0.00001;

LogicDirection Name"Случайное направление или антиградиент"

11 Default True; {Если истина,то антиградиент }

Var

IntegerHandle; {Номер сеанса задачника}

StringQName; {Имя запроса}

PRealArrayMap1, DirectMap; {Для текущего массива параметров и ParTan направления}

RealStep, ParTanStep; {Длины шагов для оптимизации шага}

RealEst1, Est2; {Для хранения текущей и случайной оценки}

LongI;

Init

Begin

If NotSetInstructionObject(What, @NetName) Then GoToExit; {Задаем объекты обучения}

QName = "InitSession"; {Задаем имя запроса}

Map1 = NewArray(mRealArray, 3);{Создаем массив для аргументов запроса}

IfMap = Null Then GoToExit;

TPointer(Map^[1]) = @InstColor; {Заносим адрес первого аргумента}

TPointer(Map^[2]) = @OperColor; {Заносим адрес второго аргумента}

TPointer(Map^[3]) = @Handle; {Заносим адрес третьего аргумента}

If NotGenerateQuMap(@QName, Map) Then GoToExit;{Открываем сеанс работы с задачником}

If NotFreeArray(mRealArray, Map) Then GoToExit;{Освобождаем массив для аргументов}

{Собственно начало обучения}

Map = CreateArray; {Создаем вспомогательные массивы}

DirectMap= CreateArray;

IfMap = Null Then GoToExit;

IfDirectMap = Null Then GoToExit;

Est1 = Accuracy*10; {Задаем оценку, не удовлетворяющую требованию точности}

Step = 0.005; {Задаем начальное значение шагу}

End

InstrStepEst > Accuracy

Begin

If NotSaveArray(Map1) Then GoToExit; {Сохраняем начальный массив параметров}

ForI = 1 Tok Do Begin {Выполняем k межпартанных шагов}

If Direct Then Est = SDM(Handle, Step) Else Est = RDM(Handle, Step);

If Error<> 0 Then GoToExit;

End;

If NotSaveArray(DirectMap) Then GoToExit; {Сохраняем конечный массив параметров}

ForI = 1 To TLong(Map^[0]) Do

DirectMap^[I] = DirectMap^[I] - Map^[I]; {Вычисляем направление ParTan шага}

ParTanStep = 1; {Задаем начальное значение ParTan шагу}

Est =Optimize(DirectMap, ParTanStep); {Вызываем функцию подбора оптимального шага}

If Error<> 0 Then GoToExit;

End

Close

Begin

Exit:

If NotEraseArray(Мар) Then; {Освобождаем вспомогательные массивы}

If NotEraseArray(DirectMap) Then;

QName = "CloseSession"; {Задаем имя запроса}

Map = NewArray(mRealArray, 1); {Создаем массив для аргументов запроса}

IfMap = Null Then GoToExit1;

TPointer(Map^[1]) = @Handle; {Заносим адрес единственного аргумента}

If NotGenerateQuest(@QName, Map) Then;{Открываем сеанс работы с задачником}

If NotFreeArray(mRealArray, Map) Then; {Освобождаем массив для аргументов}

Exit1:

End

End Instructor

Компонент учитель одновременно работает только с одним учителем. Запросы к компоненту учитель можно разбить на следующие группы.

1. Обучение сети.

2. Чтение/запись учителя.

3. Инициация редактора учителя.

4. Работа с параметрами учителя.