Чтение онлайн

на главную

Жанры

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

Миркес Е. М.

Шрифт:

Integer k Name "Число шагов между ParTan шагами" Default 2;

Real AccuracyName "Требуемый минимум оценки"Default 0.00001;

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

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

 Var

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

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

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

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

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

Long I;

Init

 Begin

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

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

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

If Map = Null Then GoTo Exit;

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

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

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

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

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

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

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

DirectMap= CreateArray;

If Map = Null Then GoTo Exit;

If DirectMap = Null Then GoTo Exit;

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

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

 End

InstrStep Est > Accuracy

 Begin

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

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

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

If Error <> 0 Then GoTo Exit;

End;

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

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

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

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

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

If Error <> 0 Then GoTo Exit;

 End

Close

 Begin

Exit:

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

If Not EraseArray(DirectMap) Then;

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

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

If Map = Null Then GoTo Exit1;

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

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

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

Exit1:

 End

End Instructor

Стандарт второго уровня компонента учитель

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

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

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

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

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

Поделиться:
Популярные книги

Бастард Императора

Орлов Андрей Юрьевич
1. Бастард Императора
Фантастика:
фэнтези
аниме
5.00
рейтинг книги
Бастард Императора

На границе империй. Том 10. Часть 1

INDIGO
Вселенная EVE Online
Фантастика:
космическая фантастика
попаданцы
5.00
рейтинг книги
На границе империй. Том 10. Часть 1

Имя нам Легион. Том 7

Дорничев Дмитрий
7. Меж двух миров
Фантастика:
боевая фантастика
рпг
аниме
5.00
рейтинг книги
Имя нам Легион. Том 7

Измена. Вторая жена мужа

Караева Алсу
Любовные романы:
современные любовные романы
5.00
рейтинг книги
Измена. Вторая жена мужа

Буря империи

Сай Ярослав
6. Медорфенов
Фантастика:
аниме
фэнтези
фантастика: прочее
эпическая фантастика
5.00
рейтинг книги
Буря империи

Пенсия для морского дьявола

Чиркунов Игорь
1. Первый в касте бездны
Фантастика:
попаданцы
5.29
рейтинг книги
Пенсия для морского дьявола

На изломе чувств

Юнина Наталья
Любовные романы:
современные любовные романы
6.83
рейтинг книги
На изломе чувств

Тринадцатый II

NikL
2. Видящий смерть
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Тринадцатый II

Сирота

Шмаков Алексей Семенович
1. Светлая Тьма
Фантастика:
юмористическое фэнтези
городское фэнтези
аниме
5.00
рейтинг книги
Сирота

Законы Рода. Том 9

Flow Ascold
9. Граф Берестьев
Фантастика:
городское фэнтези
попаданцы
аниме
дорама
фэнтези
фантастика: прочее
5.00
рейтинг книги
Законы Рода. Том 9

Красноармеец

Поселягин Владимир Геннадьевич
1. Красноармеец
Фантастика:
боевая фантастика
попаданцы
4.60
рейтинг книги
Красноармеец

Огненный князь 4

Машуков Тимур
4. Багряный восход
Фантастика:
попаданцы
аниме
5.00
рейтинг книги
Огненный князь 4

Начальник милиции. Книга 5

Дамиров Рафаэль
5. Начальник милиции
Фантастика:
попаданцы
альтернативная история
5.00
рейтинг книги
Начальник милиции. Книга 5

Инкарнатор

Прокофьев Роман Юрьевич
1. Стеллар
Фантастика:
боевая фантастика
рпг
7.30
рейтинг книги
Инкарнатор