автореферат диссертации по информатике, вычислительной технике и управлению, 05.13.06, диссертация на тему:Повышение качества процесса адаптации при изменении технологических параметров с помощью аппарата нейронных сетей

Введение.

Глава 1. Анализ проблем диагностики и управления процессом резания и поиск перспективных путей их решения на основе повышения качества процесса адаптации систем управления. Постановка задачи исследования.

1.1. Система "Станок-процесс резания" как объект управления. Входные, выходные и функциональные параметры процесса резания.

1.2. Обзор используемых диагностических сигналов, несущих информацию о ходе процесса резания и состоянии инструмента.

1.2.1. Взаимосвязь параметров процесса резания.

1.2.2. Силовые параметры процесса резания.

1.2.3. Механические колебания при резании.

1.2.4. Тепловые и электрические явления при резании.

1.2.5. Параметры обрабатываемой детали - диагностические признаки процесса резания.;.

1.3. Диагностика режущего инструмента.

1.4. Системы адаптивного управления - существенный резерв повышения эффективности процессов металлообработки.

1.4.1. Качество обработки - управляемый параметр процесса резания.

1.4.2. Общие принципы адаптивного управления.

1.4.3. Анализ и классификация адаптивных систем управления.

1.5. Анализ математических моделей, используемых в системах адаптивного управления металлообработкой.

1.6. Выводы по главе 1. Цель и задачи исследования.

Глава 2. Искусственные нейронные сети и эффективность их применения в адаптивных системах диагностики и управления процессами металлообработки в реальном масштабе времени.

2.1. Искусственные нейронные сети как инструмент моделирования адаптивных процессов.

2.1.1. Структура и свойства искусственного нейрона.

2.1.2. Основные архитектуры нейронных сетей.

2.1.3. Обучение. Адаптация. Самоорганизация.

2.1.4. Многослойные нейронные сети прямого распространения и их обучение.

2.1.5. Алгоритм обратного распространения ошибки.

2.2. Нейроуправление как элемент повышения качества процесса адаптации технологических систем.

2.2.1. Нейронные сети в системах управления и идентификации.

2.2.2. Подходы к нейронному управлению.

2.3. Автономное и оперативное обучение нейроконтроллера и нейроэмулятора.

2.4. Динамическое обучение нейронных сетей.

2.4.1. Введение динамики в обучение нейронной сети.

2.4.2. Скоростной алгоритм обучения нейронной сети.

2.4.3. Динамический алгоритм обучения с прогнозом.

2.4.4. Упрощенный динамический алгоритм обучения с прогнозом.

2.5. Предварительная обработка входных и выходных данных.

2.6. Выводы по главе 2.

Глава 3. Разработка метода построения нейросетевых многослойных нейронных сетей для повышения качества процесса адаптации системы управления процессом резания.

3.1. Обучение и самоорганизация сети в процессе функционирования системы управления.

3.1.1. Внутренняя и внешняя структуры нейронной сети.

3.1.2. Улучшение рабочих характеристик нейросетевой модели с помощью динамической оптимизации ее структуры.

3.2. Динамическая оптимизация внешней структуры сети.

3.3. Динамическая оптимизация внутренней структуры сети.

3.4. Выводы по главе 3.

Глава 4. Разработка адаптивной системы управления процессом резания на основе нейросетевых технологий.

4.1. Структура и алгоритм функционирования нейросетевой адаптивной системы управления.

4.2. Создание и непрерывное обновление обучающей выборки и тестового множества в процессе функционирования системы управления.

4.3. Экспериментальные исследования по обучению нейросетевых компонент системы управления.

Проблема повышения эффективности металлообработки была и остается одной из главных в машиностроении. Большая масса изделий машиностроения производится в механообрабатывающих станочных модулях, в которых основным технологическим процессом является процесс резания, а системами управления - системы числового программного управления (ЧПУ). Поэтому повышение эффективности процесса резания является актуальной научно-технической задачей.

Сложность решения проблемы связана с тем, что процесс резания характеризуется нестабильностью и множеством взаимосвязанных переменных, влияющих как на ход процесса, так и на его результаты. Условия резания динамически изменяются случайным образом из-за влияния различных возмущающих факторов: разброс припусков, разброс твердости и структуры металла заготовок, непрерывно изменяющиеся режущие свойства инструмента и др. Показатели качества зависят от жесткости и тепловой деформация элементов технологической системы, характера и параметров относительных колебаний инструмента и детали, и т. д. Программа ЧПУ не может учитывать данные факторы, расчет режимов резания производится по наихудшим возможным вариантам, что обеспечивает более стабильную работу инструмента и уменьшает вероятность брака, но при этом заведомо отрицательно сказывается на технико-экономической эффективности оборудования, приводит к снижению производительности и увеличению затрат на производство.

Проблема повышения качества, точности и производительности механической обработки решалась за счет использования в станках следящих систем автоматического управления, работающих в реальном режиме времени. Исследования, проведенные под руководством профессора Б.С. Балакшина, позволили установить связи между факторами, действующими в процессе обработки деталей, понять и математически описать механизмы образования погрешностей. В результате были созданы первые станки с системами автоматического регулирования режимов резания с использованием объективной информации о характере протекания процесса. Появилось новое технологическое направление. За системами автоматического регулирования закрепилось название "Адаптивные системы управления". Термин оправдывался тем, что такие станки приобрели способность непрерывно корректировать режимы резания, положение инструмента, жесткость системы, приспосабливаясь в той или иной мере к изменяющимся условиям обработки. Станки, оснащенные АдСУ, дают увеличение точности обработки в 2.5 раз при увеличении производительности в 1,5.2 и более раз.

Однако интерес к АдСУ, функционирующим в режиме реального времени, заметно снизился из-за отсутствия математических моделей управляемого процесса резания. Получившие из-за простоты реализации распространение модели, основанные на эмпирических степенных зависимостях выходных характеристик процесса обработки от параметров режима и геометрии инструмента, имеют низкую точность и не дают адекватного отклика на изменяющиеся условия обработки.

Построение точных моделей - серьезная проблема, которая остается сегодня нерешенной. Для построения точных математических моделей необходимо проделать не одну серию экспериментов, что требуют времени, материалов и влечет экономические потери. Точные математические модели, как правило, настолько сложны, что быстрый поиск оптимальных режимов резания требует существенных аппаратных затрат, приводит к резкому удорожанию адаптивных систем и нецелесообразности их использования. К тому же найденная модель будет иметь постоянно нарастающую погрешность вследствие изменения режимов работы и свойств самого оборудования.

Используемые в настоящее время адаптивные системы имеют жесткую структуру и неизменный алгоритм функционирования и, как следствие, низкое качество адаптации к изменению технологических параметров.

Современный подход к адаптивному управлению требует от системы способности автоматически изменять свою структуру или алгоритм функционирования. Очевидно, что системы будут обладать значительно большими способностями к адаптации, если при изменении параметров процесса резания произойдет перестройка модели и определится для нее новый закон управления. Появляется необходимость перестраивать модель из-за непрерывно изменяющихся параметров процесса резания и определять структуру модели в каждом конкретном случае. Только так можно повысить качество адаптации и, как следствие, повысить эффективность процесса металлообработки.

Таким образом, актуальной задачей исследования становится повышение качества процесса адаптации при изменении технологических параметров с помощью самонастраивающихся моделей управляемого процесса резания. Однако, современная теория управления с самонастройкой не является популярной, так как ее сложно применять для реальных задач управления. Для того, чтобы алгоритмы управления могли применяться на практике, они должны быть простыми в реализации и понимании, обладать гибкостью, способностью к обучению, нелинейностью. Существенно повысить качество адаптации систем для целей управления металлообработкой и упростить процесс моделирования могут самоорганизующиеся нейросетевые модели.

Нейронные сети в последние время все шире начинают применяться для целей управления благодаря своим замечательным свойствам. Они способны обучаться на основе соотношений "вход-выход", обеспечивают возможность реализации любых нелинейных отображений X —»Y с любой заданной точностью, избавляют от необходимости использовать сложный математический аппарат. Благодаря способности к обучению, нейроконтроллер не требует большого объема априорной информации об объекте управления. В области управления нейронные сети могут оказаться подходящим средством для решения сложных нелинейных задач, для которых обычные методы управления не дают удовлетворительных результатов.

Для управления могут применяться нейронные сети различной архитектуры, однако многослойные нейронные сети вызывают особый интерес. Эти сети можно представить в виде блоков с входами и выходами, так как информация в них передается в прямом направлении, что удобно для систем управления. Эти сети наиболее изучены, для обучения их разработан алгоритм обратного распространения и большая часть литературы посвящена именно многослойным нейронным сетям.

Многослойные нейронные сети и алгоритм обратного распространения широко используются в задачах распознавания, обработки экспериментальных данных и др., где обучающие образцы являются статическими и обучение в реальном времени не требуется. Практически для всех задач управления (где Х- набор контролируемых параметров управляемого объекта, Y- код, определяющий управляющее воздействие, соответствующее текущим значениям контролируемых параметров) необходимо оперативное обучение. Сеть должна быстро обучаться. Медленное обучение -основной недостаток многослойных нейронных сетей. Поэтому, чтобы нейронное управление стало действительно альтернативой традиционным методам, необходимы эффективные алгоритмы оперативного обучения нейроконтроллеров.

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

Диссертационная работа посвящена повышению эффективности металлообработки за счет улучшения качества процесса адаптации системы управления при изменении технологических параметров. Научная новизна работы заключается в новом подходе к созданию АдСУ процессами резания, основанном на свойстве самоорганизации нейронных сетей, в разработке общих принципов построения и функционирования нейросетевых адаптивных систем управления, в разработке метода синтеза нейросетевых компонент системы управления. Предлагается новое решение задачи стабилизации температурно-силового режима процесса обработки. Новое решение за счет высокой гибкости нейросетевых моделей и алгоритмов позволит более точно корректировать режимы резания при изменении технологических параметров, свободнее подходить к назначению режимов резания при разработке управляющей программы системы ЧПУ и сократить время на технологическую подготовку.

4.4. Выводы по главе 4

Оптимизация процесса резания по экономическим критериям, критериям качества и максимальной производительности в конечном итоге сводится к задаче стабилизации температурно-силовых параметров процесса. Именно изменения данных параметров в процессе обработки вызывают необходимость занижать режимы резания и приводят к браку, ухудшению качества обработки и поломки инструмента. Поэтому важнейшей задачей является разработка математических моделей процесса и синтез системы температурно-силовой стабилизации.

Строить нейросетевую систему управления (стабилизации температурно-силовых параметров) с целью повышения эффективности процесса обработки необходимо по двухсетевой схеме с контроллером и эмулятором. Это обусловлено тем, что динамика процесса резания весьма нестабильна, имеет взаимосвязанные параметры и зависит от многих факторов технологического процесса.

В главе предложена структура и разработан алгоритм функционирования системы управления. Разработаны начальные структуры нейросетевых компонент. В процессе функционирования системы управления и обучения нейросетей возможна коррекция структуры сетей.

Разработан алгоритм формирования и обновления обучающей и тестовой выборок в процессе функционирования системы управления. Установлено, что частота смены нейроконтроллера зависит от стабильности ошибки управления.

С целью определения оптимальной методики построения системы управления и настроек алгоритма обучения (с точки зрения обеспечения наилучшего качества переходного процесса) были проведены эксперименты по обучению нейросетей:

1. Проведены исследования переходных процессов по одному из каналов управления с различными функциями активации нейронов скрытого слоя. Погрешность обучения (максимальная ошибка) при использовании гиперболического тангенса на 7.9% меньше, чем в случае логистической функции.

2. Исследовано влияние объема обучающей выборки на качество переходного процесса и определен оптимальный размер выборки для системы управления.

3. Экспериментально проверено влияние коэффициента скорости обучения на качество переходного процесса. Установлено, что увеличение коэффициента свыше 0,1 приводит к увеличению колебательности процесса, а снижение коэффициента менее 0,05 существенно не влияет на качество переходного процесса.

4. Проведены эксперименты по определению оптимального количества нейронов скрытого слоя.

Исследования качества работы НК показали, что стабилизация параметров с ошибкой ± 2,5% достигается за время 0,2.0,5 мс при использовании процессора Pentium 400 МГц.

Заключение

Основными результатами работы являются:

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

2. Проанализировано влияние качества процесса адаптации системы управления на эффективность металлообработки. Используемые в настоящее время в адаптивном управлении математические модели не обладают необходимой точностью, гибкостью и способностью к обучению и не обеспечивают необходимого качества процесса адаптации при изменении технологических параметров. Построение таких моделей - серьезная проблема, требующая решения. Определены и обоснованы преимущества нейросетевого подхода к построению адаптивных систем управления процессами металлообработки. Показано, что в отличие от традиционных методов, нейросетевой подход обладает потенциальной возможностью для создания самообучающихся и самоорганизующихся систем. Применение самоорганизующихся нейросетевых моделей может существенно облегчить построение адаптивных систем и повысить качество процесса адаптации.

3. Предложен динамический алгоритм обучения многослойных нейронных сетей, позволяющий избежать недостатков алгоритма обратного распространения, сократить время обучения и обеспечить работу сети в реальном времени. На основе данного алгоритхма разработано программное обеспечение для обучения нейросетевых компонент системы управления.

4. Проведены экспериментальные исследования влияния топологии нейронного регулятора и функций активации нейронов скрытого слоя на работу системы управления. Погрешность обучения (максимальная ошибка) при использовании гиперболического тангенса на 1.9% меньше, чем в случае логистической функции. Установлено, что неполносвязная сеть обеспечивает лучшее качество управления, по сравнению с полносвязной.

5. Предложено правило исключения из перерасчета весовых коэффициентов, позволяющее сократить используемые вычислительные ресурсы.

6. Установлено, что для существующих методов синтеза нейросетевых моделей характерны неопределенность и неоднозначность при выборе той или иной структуры нейронной сети. Кроме того, при изменении параметров процесса исходная структура сети не всегда остается оптимальной с точки зрения точности и скорости обучения. В связи с этим предлагается новый метод синтеза нейросетевых компонент в составе адаптивных систем управления.

7. Разработаны конструктивный и деструктивный алгоритмы оптимизации структуры сети, позволяющие непосредственно в процессе функционирования системы одновременно с обучением сети корректировать ее структуру (надстраивать или удалять отдельные связи и нейроны, изменять число скрытых слоев).

8. Разработан пакет программ (нейроимитатор) для обучения и оптимизации нейросетевых компонент в системе управления с контроллером и эмулятором.

Программный нейроимнтатор имеет прикладное значение для разработки и изучения нейросетевых систем.

9. Как показал анализ работ, задача адаптивной системы управления и оптимизации процесса резания по экономическим критериям, критериям качества и максимальной производительности в конечном итоге сводится к задаче стабилизации температурно-силовых параметров процесса. Именно изменения данных параметров в процессе обработки вызывают необходимость занижать режимы резания и приводят к браку, ухудшению качества обработки и поломки инструмента. Поэтому важнейшей задачей является разработка математических моделей процесса и синтез системы температурно-силовой стабилизации. С целью повышения эффективности процесса обработки предложена структура адаптивной нейросетевой системы стабилизации данных параметров процесса. Установлено, что необходимо строить систему управления (стабилизации) по двухсетевой схеме с нейроэмулятором и нейроконтроллером. Разработан алгоритм функционирования системы. Разработан алгоритм создания и непрерывного обновления обучающей и тестовой выборок, необходимых для оперативного обучения и оптимизации структуры нейросетевых компонент.

10. Исследована эффективность предложенных алгоритмов и методик. Результаты моделирования и внедрения в производство показывают возможное сокращение времени на технологическую подготовку производства новых деталей на 8-10% за счет использования ранее накопленных знаний о подобных процессах.

1. Аведьян Э.Д. Алгоритмы обучения нейронных сетей: Дис. . д-ра техн. наук: 05.13.01. —М., 1997.-213 с.

2. Адаптивное управление станками / Под ред. Б.С. Балакшина. М.: Машиностроение. 1973. 688 с.

3. Адаптивное управление технологическими процессами / Ю.М.Соломенцев, В.Г.Митрофанов, С.П.Протопопов и др. М.: Машиностроение, 1980. 536 с.

4. Арбузов А.В. Разработка и исследование адаптивных регуляторов, построенных на базе технологий экспертных систем и нейросетевых структур: Дис. . канд. техн. наук: 05.13.01-М.,1998 163 е.: ил. -Библиогр.: с.130-143.

5. Арбузов А.К. Построение нейросетевых регуляторов роботов. М.: 1998.

6. Аршанский М.М., Щербаков В.П. Вибродиагностика и управление точностью обработки на металлорежущих станках. М.: Машиностроение, 1988. - 136 е.: ил.

7. Басканова Т.Ф., Панкин Ю.П. Нейросетевой алгоритм самостоятельной адаптации// VI Всероссийская конференция "Нейрокомпьютеры и их применение" с международным участием "НКП-2000". М.: ИПРЖР, 2000. С. 489-492.

8. Беллман Р., Заде JI. Принятие решений в расплывчатых условиях. В кн.: "Вопросы анализа и процедуры принятия решений". Сборник переводов под ред. Шахнова И.Ф. М.: Мир. 1976.-е. 172-215.

9. Богданов А.А. Параллельные модели и нейросетевые алгоритмы управления робототехническими системами: Дис. . канд. техн. наук: 05.13.14.- СПб., 1998.-232 е.: ил,- Библиогр.: с.152-161.

10. Булатов И. А. Автоматизация контроля металлорежущего инструмента многономенклатурного производства вибродиагностическими методами: Дис. . канд. техн. наук: 05.13.07. М., 1997. - 147 е.: ил. - Библиогр.: с. 121-129.

11. Бусленко Н.П. Моделирование сложных систем. М.: Наука, 1978.- 400 с.

12. Васильев В.И. Распознающие системы. Справочник. Киев: Наукова думка, 1983. -230 с.

13. Ведмидь П. А. Разработка и исследование системы автоматического диагностирования процесса обработки на токарных станках с ЧПУ: Дис. . канд. техн. наук: 05.13.07. Свердловск, 1990. 221 е.: ил. - Библиогр.: с.177 -193.

14. Верещака А.С. Работоспособность режущего инструмента с износостойкими покрытиями. М.: Машиностроение, 1993. 336 е.: ил. - (Б-ка инструментальщика).

15. Виноградов С.В., Щелкунова М.Е. К вопросу о создании адаптивной технологической системы //Синергетика. Самоорганизующиеся процессы в системах и технологиях. Ч. 1: Материалы МНТК. Комсомольск-на -Амуре. -1998. С. 162-164.

16. Гаврилов А.И. Нейросетевая реализация процедуры идентификации динамических систем: Дис. .канд. техн. наук: 05.13.01. М., 2000.-214 с.

17. Галушкин А.И. Перспективные проблемы теории нейронных сетей // VII Всероссийская конференция "Нейрокомпьютеры и их применение" с международным участием "НКП-2001". М.: ИПРЖР, 2001. С. 541-549.

18. Галушкин А.И. Теория нейронных сетей. Кн.1: Учеб. пособие для вузов. М.: ИПРЖР, 2000. - 416 е.: ил. (Нейрокомпьютеры и их применение)

19. Галушкин А.И. Нейрокомпьютеры. Кн.З. М.: ИПРЖР, 2000. - 272 е.: ил. (Нейрокомпьютеры и их применение)

20. Галушкин А.И. Синтез многослойных систем распознавания образов. М.: Энергия, 1974.

21. Гилев С.Е. Обучение нейронных сетей: (методы, алгоритмы, тестовые испытания, примеры приложений): Дис. . канд. физ.-мат. наук: 05.13.16. -Красноярск, 1997. 187 с. -Библиогр.: с.133-151.

22. Головко В.А. Нейронные сети: обучение, организация и применение. Кн.4. Учеб. пособие для вузов / Общая ред. А.И. Галушкина М.: ИПРЖР, 2001. -256 е.: ил. (Нейрокомпьютеры и их применение).

23. Горбань А.Н. Нейронные сети на персональном компьютере. М.: Мир, 1996. -530 с.

24. Горбань А.Н. Обучение нейронных сетей. М: СП Параграф, 1990. 160 с.

25. Горбань А.Н., Россиев Д.А. Нейронные сети на персональном компьютере. Отв. ред. В.И. Быков. Новосибирск: Наука, Сибирское отделение РАН. 1996. -275 с.

26. Горелик А.Л. Скрипкин В.А. Методы распознавания. Изд. 2-е,- М.: Высшая школа, 1984.-219 с.

27. Грибок А.В. Нейронные сети и нелинейная обработка сигналов: Дис. . канд. физ.-мат. наук: 03.00.02. Обнинск, 1995. - 134 е.: ил. - Библиогр.: с. 94-103.

28. Гриняев С.Н. Применение нейрокомпьютерных средств для управления динамическими объектами. СПб.: 1998. 310 с.

29. Гроп Д. Методы идентификации систем. Пер. с англ. М.: Мир, 1979. - 302 с.

30. Грувер М., Зиммерс Э. САПР и автоматизация производства: Пер. с англ. -М.: Мир, 1987.-528 е., ил.

31. Дуда Р., Харт П. Распознавание образов и анализ сцен. Пер. с англ., М.: Мир, 1978.-510 с.

32. Дьяконов В. Mathcad 8/2000: специальный справочник. СПб.: Питер, 2000.-592 с.

33. Евтихиев Н.Н., Оныкий Б.Н., Перепелица В.В., Щербаков И.Б. Математические модели и оптические реализации многослойных и полиномиальных нейронных сетей. М.: Препринт МИФИ. 004-94, 1994. 32 с.

34. Елагин В.М. Массово-параллельные цифровые нейрокомпьютеры. М.: 1990. -215 с.

35. Еремин Д.М. Разработка и исследование нейросетевого регулятора для систем автоматического управления: Дис. . канд. техн. наук. М., 1995. - 170 с.

36. Ермаков А.Е. Адаптивное управление роботами. М.: 1993. 102 с.

37. Жуков Л. А. Технология нейросетевого решения прикладных классификационных задач в экологии, биологии, медицине: Дис. . канд. техн. наук: 05.13.16. Красноярск, 2000.-211 с.

38. Заковоротный В.Л., Лукьянов А.Д., Потравко О.О. Динамическая самоорганизация процесса резания // Проектирование технологических машин. / Сб. науч. тр., М.: Станкин, №18, 2000. 70 с.

39. Ивахненко А.Г. Самообучающиеся системы распознавания и автоматического управления. Киев: Техника, 1969. - 392 с.

40. Ивахненко А.Г., Мюллер Й.А. Самоорганизация прогнозирующих моделей. Киев: Техника, 1985. -233 с.

41. Ивахненко А.Г. Персептрон система распознавания образов. Киев: Наукова Думка, 1975.

42. Искусственный интеллект: применение в интегрированных производственных системах. Под ред. Э. Кьюсиака. Пер с англ. М.: Машиностроение. 1991. 544 с.

43. Кабалдин Ю.Г., Биленко С.В., Шпилев A.M. Применение нейросетевых моделей процесса резания в системах адаптивного управления // Конструкторско-технологическая информатика 2000: Материала IV международного конгресса. -М.: 2000. Т.1. - С. 241-243.

44. Кадыров Ж.Н. Диагностика и адаптация станочного оборудования гибких производственных систем. J1.: Политехника, 1991. - 144 с.

45. Карпова Н.А. Синтез нейронных сетей на основе алгоритмов самоорганизации // Новые технологии и системы обработки информации и управления. Сб. науч. трудов университетского семинара №1. Пенза: ПГУ, 1999.

46. Карпова Н.А. Разработка нейросетевого классификатора для систем тестирования: Дис. . канд. техн. наук: 05.13.16. Пенза, 1999. - 159 е.: ил.

47. Ковалевский С.В., Шевцова Н.А., Медведев В.В. Исследование процессов механообработки с использованием однородных сетей // VI Всероссийская конференция "Нейрокомпьютеры и их применение" с международным участием "НКП-2000". М.: ИПРЖР, 2000. С. 252-256.

48. Ковалевский С.В., Гитис В.Б. Адаптивное управление объектами на основе систем с пластичной структурой // VI Всероссийская конференция "Нейрокомпьютеры и их применение" с международным участием "НКП-2000". М.: ИПРЖР, 2000. С. 262-265.

49. Ковалевский С.В., Медведев В.В. Система распознавания качества изделий на основе нейросетевых технологий // VII Всероссийская конференция "Нейрокомпьютеры и их применение" с международным участием "НКП-2001". М.: ИПРЖР, 2001. С. 397-400.

50. Ковалевский С.В., Мишура Е.В. Моделирование на основе нейроподобных сетей в условиях ограниченности ресурсов // VII Всероссийская конференция "Нейрокомпьютеры и их применение" с международным участием "НКП-2001". М.: ИПРЖР, 2001. С. 385-388.

51. Комаров С.В. Применение нейросетевых и экспертных систем в управления динамическими системами. СПб.: 1995. 110 с.

52. Короткий С. Нейронные сети: алгоритм обратного распространения// http:// www. neuropower/de/rus/books/index.html.

53. Короткий С. Нейронные сети: обучение без учителя// http:// www. neuropower/de/rus/books/index.html.

54. Короткий С. Нейронные сети: основные положения// http:// www. neuropower/de/rus/books/index .html.

55. Кохонен Т. Ассоциативная память. М.: Мир, 1980. 239 с.

56. Красовский А.А. Науковедение и состояние современной теории управления техническими системами // Известия РАН "Теория и системы управления", 1998, №6, с. 7.

57. Круглов В.В., Борисов В.В. Искусственные нейронные сети. Теория и практика. М.: Горячая линия - Телеком, 2001. - 382 е.: ил.

58. Кудинов В.А. Динамика станков. М.: Машиностроение, 1967. - 368 с.

59. Кузнецов А.В. Применение нейросетевых методов для обработки сигналов в каналах с помехами: Дис. . доктора техн. наук: 05.13.17. М., 2000. - 362 е.: ил.

60. Левин А.И. Математическое моделирование в исследованиях и проектировании станков. М.: Машиностроение, 1978. 184 с.

61. Либерман Я.Л. Интенсификация использования станков с ЧПУ путем применения диагностики состояния инструмента в процессе обработки / Перспективные методы механообработки и сборки в ГПС. Л.: ЛДНТП, 1988. с. 62-72.

62. Либерман Я.Л. Системы вибродиагностики состояния режущего инструмента для токарных станков с ЧПУ. Вестник машиностроения №2, 1992. с. 31-38.

63. Лират Ф., Шарфернорт У., Пикер Х.Й. Контроль состояния режущих инструментов при обработке на токарных станках. Станки и инструмент, №1, 1988. с.11.

64. Лисс А.А., Степанов Н.В. Нейронные сети и нейрокомпьютеры. СПб.: 1997.

65. Логинов В.П. Экспресс-оценка показателей качества процесса резания труднообрабатываемых материалов на основе анализа акустической эмиссии: Дис. .д-ра техн. наук: 05.03.01.-М., 1999.-383 с.

66. Логовский А.С. Применение искусственных нейронных сетей для решения задач управления динамическими объектами: Дис. . канд. техн. наук: М., 1998.

67. Логовский А.С. Зарубежные нейропакеты: современное состояние и сравнительные характеристики. Нейрокомпьютер №1, №2 1998.

68. Лукьянов А.Д., Потравко О.О. Предварительная обработка сигнала АЭ в системе диагностики состояния режущего инструмента / Диагностика и управление в технических системах: Межвузовский сб. науч. трудов. Ростов н/Д, 1997. - С.122-128.

69. Лукьянов А.Д., Потравко О.О., Усиков И.В. Динамическая диагностика состояния режущего инструмента / Диагностика и управление в технических системах: Межвузовский сб. науч. трудов Ростов н/Д, 1997. - С. 128-132.

70. Льюнг Л. Идентификация систем. Теория для пользователя. Пер. с англ. М.: Наука. Гл. ред. физ.-мат. лит.,1991. -432 с.

71. Макаров А.Д. Дальнейшее развитие оптимального резания металлов. Уфа: УАИ, 1982.-56 с.

72. Макаров А.Д. Оптимизация процессов резания. М.: Машиностроение, 1976. -278 с.

73. Макаров М.В. Повышение эффективности точения инструментом из СТМ на основе назначения рациональных режимов резания с учетом ультразвуковойдиагностики его свойств: Дис. . канд. техн. наук: 05.03.01. Рыбинск, 2000. -212 е.: ил.

74. Мак-Каллок У.С., Питтс В. Логическое исчисление идей, относящихся к нервной активности //"Архив нейрокомпьютеров" Нейрокомпьютер №3,4. 1992.

75. Металлорежущие станки и автоматы. Учебник для машиностроительных втузов / Под ред. А.С. Проникова. М.: Машиностроение, 1981. - 479 е.: ил.

76. Миленький А.В. Классификация сигналов в условиях неопределенности. М.: Советское радио, 1975. - 328 с.

77. Милованов А.В., Воронин А.В. Программная реализация самообучающейся нейроподобной среды для распознавания образов // Нейроинформатика и ее применения: Тезисы докладов VI Всероссийского семинара / Под ред. А.Н. Горбаня. Красноярск: КГТУ, 1996. - с.95.

78. Минский М. Вычисления и автоматы. М.: Мир, 1971. 368 с.

79. Морозов В.П., Дымарский Я.С. Элементы теории управления ГАП. Л.: Машиностроение, Ленинградское отд., 1984. 331 с.

80. Нахапетян Е.Г. Диагностирование оборудования гибкого автоматизированного производства. М.: Наука, 1985. 224 с.

81. Невельсон М.С. Автоматическое управление точностью обработки на металлорежущих станках. М.: Машиностроение, 1992. 346 с.

82. Нейрокомпьютеры и интеллектуальные роботы. Под ред. Амосова. Киев: Наукова думка, 1991. 269 с.

83. Нейронные классификаторы в акустических распознаваниях образов // Приборы и элементы автоматики. Испытательные стенды: Экспресс-информ. ВИНИТИ, №21, 1995. С.4-11.

84. Нейросетевые системы управления / В.А. Терехов, Д.В. Ефимов, И.Ю. Тюкин и др. СПб.: Издательство С.-Петербургского университета, 1999. - 265 с.

85. Никитин Ю.А., Хузин И.С., Ильин А.Н. Комплексная оценка состояния режущего инструмента // "Автоматизированные технологические и мехатронные системы в машиностроении". Уфа: УГАТУ, 1997. - С. 132-133.

86. Оптимальное управление точностью обработки деталей в условиях АСУ / В.И. Кантор, О.Н. Анисифоров, Г.Н. Алексеева и др. М.: Машиностроение, 1981. -256 с.

87. Орлик С.В. Секреты Delphi на примерах. М.: Восточная книжная компания, 1996,-352 е.: ил.

88. Отаров С.К. Многопараметрическая диагностика и управление процессом обработки на металлорежущих станках. Ростов, 1999.- 120 с.

89. Отаров С.К. Многопараметрическая диагностика и управление процессом резания на металлорежущих станках в условиях ГАП: Дис. . канд. техн. наук: 05.13.01.-Ростов н/Д, 1999.-301 с.

90. Палей С.М., Решетов Д.Н. Автоматизированный контроль состояния режущего инструмента в токарных гибких производственных модулях / Станки и инструмент №11, 1987. с. 15-18.

91. Патрик Э.А. Основы теории распознавания образов. Пер. с англ. В.А. Баронкина под ред. Б.Р. Левина. М.: Сов. радио, 1980. 408 с.

92. Пестунов В.М. Развитие систем адаптивного управления // Станки и инструмент. 1990. №7. С. 32-36.

93. Подураев В.Н., Борзов А.А., Горелов В.А. Технологическая диагностика резания методом акустической эмиссии, М.: Машиностроение, 1988. - 56 с.

94. Подураев В.Н. и др. Прогнозирование стойкости режущего инструмента. Вестник машиностроения №1, 1993.

95. Поляков П.Ф. и др. Устройство для распознавания радиосигналов. Авт. свид. №481054, 1972.

96. Прикладная статистика. Классификация и снижение размерности. Справочник. / Под ред. С.А. Айвазяна. М.: Финансы и статистика, 1989. -450 с.

97. Программное управление станками: Учебник для машиностроительных вузов / В.Л.Сосонкин, О.П.Михайлов, Ю.А. Павлов и др. Под ред. д-ра техн. наук проф. В.Л.Сосонкина. М.: Машиностроение, 1981. - 398 е., ил.

98. Пуш В.Э., Пигерт Р., Сосонкин В.Л. Автоматические станочные системы. М.: Машиностроение, 1982. 319 с.

99. Рабочая книга по прогнозированию / Под ред. И.В. Бестужева Лада, - М.: Мысль, 1983.-300 с.

100. Распознавание образов: состояние и перспективы // К. Верхаген, Р. Дейн, Ф. Грун и др. М.: Радио и связь, 1985. 104 с.

101. Растригин Л.А. Современные принципы управления сложными объектами. -М.: Сов. Радио, 1980. 120 с.

102. Розенблат Ф. Принципы нейродинамики: Персептроны и теория механизмов мозга. М.: Мир, 1965.

103. Рыжков А.В. Построение нейросетевого контроллера для управления динамическими объектами. М.: 1990. 69 с.

104. Сейдж Э.П., Мелса Д.Л. Идентификация систем управления. Пер. с англ. -М.: Наука. Гл. ред. физ.-мат. лит., 1974. 248 с.

105. Сиберт У.М. Цепи, сигналы, системы: В 2-х ч. 4.2. Пер. с англ. -М.: Мир, 1988. 360 е., ил.

106. Сигеру Омату Нейроуправление и его приложения. Кн.2./Сигеру Омату, Марзуки Халид, Рубия Юсоф. Пер. с англ. Н.В. Батина. Под ред. А.И. Галушкина, В.А.Птичкина. М.: ИПРЖР, 2000. - 272 е.: ил. (Нейрокомпьютеры и их применение)

107. Синопальников В.А., Еременко И.В. Диагностика процесса резания инструмента: Учеб. пособие. М.: Мосстанкин, 1991. - 130 с.

108. Смолянинова Л.Г. Нейросетевые задачи. М.: 1995. 120 с.

109. Соломенцев Ю.М., Сосонкин В.Л. Управление гибкими производственными системами. М.: Машиностроение, 1988. 352 е.: ил.

110. Сосонкин В.Л. Концепция систем ЧПУ на основе персонального компьютера (PCNC) // Станки и инструмент. 1990. №3. С. 9-14.

111. Сосонкин В.Л. Микропроцессорные системы числового программного управления станками. М.: Машиностроение, 1985. 288 с.

112. Сосонкин В.Л. Программное управление технологическим оборудованием. -М.: Машиностроение, 1991.-510с.: ил.

113. Станочное оборудование автоматизированного производства. Т.1. / Под ред. В.В. Бушуева М.: СТАНКИН, 1993. - 584 с.

114. Старков В.К. Обработка резанием. Управление стабильностью и качеством в автоматизированном производстве. М.: Машиностроение, 1989. - 296 с.

115. Сушков Б.Г. Нейронные сети для построения маршрутов в сетях. М.: ВЦ РАН, 1995.

116. Талантов Н.В. Физические основы процесса резания, изнашивания и разрушения инструмента. М.: Машиностроение, 1992.

117. Теория автоматического управления: Учебник для машиностроительных специальностей вузов / В.Н. Брюханов, М.Г. Косов, С.П. Протопопов и др. Под ред. Ю.М. Соломенцева. 2-е изд., испр. - М.: Высшая школа, 1999 - 268 е., ил.

118. Теория прогнозирования и принятия решений / Под ред. С.А. Саркисяна. М.: Высшая школа, 1977. - 220 с.

119. Терехов В.А. Искусственные нейронные сети и их применение в системах АСУ. М.: Мир, 1997.

120. Технические средства диагностирования: Справочник / В.В. Клюев, П.П. Пархоменко, В.Е. Абрамчук и др. Под общ. ред. В.В. Клюева. М.: Машиностроение, 1998. - 672 е., ил.

121. Тимофеев А.В. Адаптивные робототехнические комплексы. СПб.: 1998.- 156 с.

122. Ту Д., Гонсалес Р. Принципы распознавания образов. М.: Мир, 1978. - 411 с.

123. Уидроу Б. , Стринз С. Адаптивная обработка сигналов. Пер. с англ. М.: Радио и связь, 1989.-440 с.

124. Уинстон П. Искусственный интеллект. М.: Мир, 1980. 400 с.

125. Уоссермен Ф. Нейрокомпьютерная техника. Теория и практика. Под ред. А.И. Галушкина. М.: Мир, 1992. 238 с.

126. Усов В.М. Применение нейронных сетей для управления роботами. СПб.: 1998.-310 с.

127. Фу К. Структурные методы в распознавании образов. Пер. с англ., М.: Мир, 1977.-320 с.

128. Хакен Г. Информация и самоорганизация. М.: Мир, 1991.

129. Хакен Г. Синергетика. Иерархии неустойчивостей в самоорганизующихся системах и устройствах. М.: Мир, 1985.

130. Харламов А.А. Системы управления роботами. М.: 1991. 220 с.

131. Цыганков В.Д. Нейрокомпьютер и его применение. Под ред. В.А. Львова. М.: Сол Систем, 1993,- 117 с.

132. Цыпкин Я.З. Основы информационной теории идентификации. М.: Наука, 1984.-520 с.

133. Чураков Е.П. Оптимальные и адаптивные системы. М.: Энергоатомиздат, 1987.-256 с.

134. Шлапаков С.И., Кривошеев И.А. Самоорганизующиеся нейронные сети в системах распознавания // Труды международной конференции "Идентификация систем и задачи управления". "SICPRO 2000". М.: 2000. С. 1174-1182.

135. Щемель А.Л. Нейронные сети, их разработка и применение для управления системами. М.: 1997. 90 с.

136. Щербаков М.А. Искусственные нейронные сети. М.: Мир, 1996.

137. Щетинин В.Г. Самоорганизация минимальной нейронной сети // В сб. "Нейроинформатика и ее применения". Красноярск, СО РАН, 1996. С. 43-44.

138. Эйкхофф П. Основы идентификации систем управления. М.: Мир, 1975. -683 с.

139. Эшби У. Р. Конструкция мозга. Происхождение адаптивного поведения. М.: Иностранная литература, 1962. 395 с.

140. Юдашкин А.А. Применение нейронных сетей для построения адаптивных систем управления технологическими процессами: Дис. . канд. техн. наук: 05.13.07,- Самара, 1994.-145 е.: ил. Библиогр.: с. 136-142.

141. Явленский К.Н., Явленский А.К. Вибродиагностика и прогнозирование качества механических систем. JL: Машиностроение, 1983. 239 с.

142. Widrow В. and F. W. Smith, "Pattern-recognizing control system, Proc. of Computer and Information Sciences, Washington D.C." Spartan, Washington, 1964.

143. Albus J. S., "A new approach in manipulator control: the cerebellar model articulation controller (CMAC)", Journal of Dynamic Systems, Measurement and Control, pp. 220-227, 1975.

144. Barto A.G., R. S. Sutton and C.W. Anderson, "Neuron-like adaptive elements that can solve difficult learning control problems", IEEE Trans, on Systems, Man and Cybernetics, Vol. SMC-13, pp. 834-846, 1983.

145. Psaltis D., A. Sideris, and A.Yamamura, "A Multilayered neural network controller", IEEE Control Systems Magazine, Vol. 8, pp. 17-21, 1988.

146. Werbos P. J., "Overview of designs and capabilities", in Neural Networks for Control, MIT Press, Cambridge, MA, pp. 59-65, 1990.

147. Зав. кафедрой КСУ МГТУ "СТАНКИН"д.т.н., профессор -——"^rd' с Сосонкин В.Л.

148. Зам. зав. кафедрой КСУ МГТУ "СТАНКИН" к.т.н., профессор fШемелин в-к

149. Ученый секретарь кафедры КСУ МГТ^СТАНКИН" к.т.н., доцент Кабак И.С.unit Unitl;interface uses

150. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, CornCtrls, ToolWin, Menus;type1. TForml = class(TForm)1. ControlBarl: TControlBar;1. Panell: TPanel;

151. SpeedButtonl: TSpeedButton;

152. SpeedButton2: TSpeedButton;

153. SpeedButton3: TSpeedButton;

154. SpeedButton4: TSpeedButton;

155. SpeedButtonb: TSpeedButton;

156. SpeedButtonl2: TSpeedButton;

157. SpeedButtonl3: SpeedButtonl4: SpeedButtonl5: SpeedButtonl6: SpeedButtonl7: SpeedButtonl8: SpeedButtonl9: SpeedButton20: procedure procedure procedure procedure procedure procedure

158. ConfigSave(); ConfigLoad();

159. TObject) TObject) TObject)

160. TObject) TObject) TObject) TObject) TObject) TObject);

161. SpeedButtonl9Click(Sender: TObject) estinglClick(Sender: TObject); NewlClick(Sender: TObject); raining2Click(Sender: TObject);private

162. AssignFile(F,'config.txt'); Rewrite(F); Writeln(F,сcount 1); Writein(F,ccount2); Writeln(F,ccount3); CloseFile(F); end;procedure TForml.ConfigLoad();//Процедура загрузки конфигурации программыvarа, b,с:string; F: TextFile; begin

163. AssignFile(F,'config.txt');1. Reset(F);1. Readln(F,a);1. Readln(F,b);1. Readln(F,c);ccountl:=strtoint(a);ccount2:=strtoint(b) ;ccountB:=strtoint (c);1. CloseFile(F);if ccountl=l then Standardl.Checked:=falseelse Standardl.Checked:=true;

164. Panel1.Visible:=Standardl.Checked;if ccount2=l then Edit2.Checked:=falseelse Edit2.Checked:=True;

165. Panel2.Visible:=Edit2.Checked;if ccount3=l then Layers 1.Checked:=falseelse Layersl.Checked:=true;

166. Panel3.Visible:=Layersl.Checked;end;procedure TForml.LayerlClick(Sender: TObject); begin1. Form3.Show; end;procedure TForml.ExitlClick(Sender: TObject);begin1. Close;end;procedure TForml.StandardlClick(Sender: TObject); begin

167. Standardl.Checked:= not Standardl.Checked; Panell.Visible:=Standardl.Checked; If Standardl.Checked=false then ccountl:=l else ccountl:=0; end;procedure TForml.Edit2Click(Sender: TObject); begin

168. Standardl.Checked:=Panell.Visible; Edit2.Checked:=Pane12.Visible; Layers 1.Checked:=Panel3.Visible;if Layers 1.Checked=false then ccount3:=l// 1 тулбара нету, 0 тулбар есть else ccount3:=0;if Edit2.Checked=false then ccount2:=l else ccount2:=0;

169. Standardl.Checked=false then ccountl:=lelse ccountl:=0;end;procedure TForml.FormClose(Sender: TObject; var Action: TCloseAction);

170. ControlBarl.Width:=Forml.Width-8; end;procedure TForml.FormResize(Sender: TObject); begin

171. Filename:=SaveDialog1.FileName; Form4.SaveNetAs(Filename); end; end;procedure TForml.SpeedButtonl9Click(Sender: TObject) begin1. Form4.SetAct(); end;procedure TForml.estinglClick(Sender: TObject); begin

172. Fname>'' then Form4.NetTest(); end;procedure TForml.NewlClick{Sender: TObject); begin1. Form6.Show; end;procedure TForml.raining2Click(Sender: TObject);beginif Fname>'' then Form9.Show //Form4.Training();end;end.unit Unit2; interfaceuses

173. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl;type

174. TForm2 = Edit 1 Edit2 Memol Labell Label2 Label3 Label4 Buttonlclass(TForm) TEdit; TEdit; TMemo; TLabel; TLabel TLabel TLabel; : TButton;

175. Write several words for discription!')elsebegin1.adNet();1. SaveProject();1. Form5.Show();1. Close () ;end;end;procedure TForm2.SaveProject(); begin

176. AssignFile(F,Editl.Text+ ' .srt');unit Unit4;interface uses

177. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus, Math, OleServer, Excel2000;type1. TForm4 = class(TForm)procedure Load{Filename:string); function

178. NewHeight: Integer; var Resize: Boolean); procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

179. Shift: TShiftState; X, Y: Integer); procedure FormKeyUp(Sender: TObject; var Key: Word;

180. Shift: TShiftState); procedure FormKeyDown(Sender: TObject; var Key: Word;

181. Shift: TShiftState; X, Y: Integer); procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;

182. Usedlndex:array1.10000. of bool;sx,sy:array of integer;sen,sel,empty:string;msmall:bool;1. Tm:real;wsize:integer;nin,nout:integer;1. WorkNet:bool;1. Private declarations }

183. Ctrl,alt,shifft,Drg,MDown,NAd,LAd,Zum:bool; tx,ty,xc,yc,stx,sty:integer; delta:array of real; rdone:array1.10000. of bool; publicend;var

184. Form4: TForm4; typetmp,FName:string; ny:real;

185. AssignFile(F,copy(Filename,1,StrLen(PChar(Filename))-4)+'.pos'); Reset(F) ;for i:=l to 20000 do beginif ((i mod 2)>0) then Read(F,posxi div 2 +1.) else

186. Read(F,posyi div 2 .); end;1. CloseFile(F);for i:=l to strtoint(ReadSimbol(List,3,1,4)) do begin

187. UsedIndexstrtoint(ReadSimbol(List,6+i,1,4)).:=true; end,•for i:=10000 downto 1 do beginif (not Usedlndex1. ) then wsize:=i else break; end;

188. SetLength (W,wsize+1,wsize+1);

189. AssignFile(Fw,copy(Filename,1,StrLen(PChar(Filename))-4)+'.wgt'); Reset(Fw);for i:=1 to wsize do beginfor j:=l to wsize do begin1. Read(Fw,W1.j.); end; end;1. CloseFile(Fw);

190. SetLength(outs,nout); SetLength(touts,nout); SetLength(ins,nin); if FName>'' then Draw(); if FName>' ' then Center ();end;function

191. Form4.Canvas.Brush.Color:=clWhite; Form4.Canvas.Pen.Color:=clWhite;

192. Form4.Canvas.MoveTo(trunc((posxk.)*M)+xc, trunc((posy[k])*M)+yc); Form4.Canvas.LineTo(0,trunc((posy[k])*M)+yc) ; end;out lines draw if (ReadSimbol(List,6+kk,6,3)='вых') then begin

193. Form4.Canvas.MoveTo(trunc((posxk.)*M)+xc,trunc((posy[k])*M)+yc); Form4.Canvas.LineTo(ClientWidth,trunc((posy[k])*M)+yc); end;linx drawbeginwith Form4.Canvas do begin z:= Listkk+5.;for tmp:=1 to ((StrLen(PChar (z))-9) div 4) do Begin

194. Form4.Canvas.Ellipse(xc-l,yc-l,xc+l,yc+l) ;if WorkNet=true then NetTestO;end;procedure TForm4.FormCreate(Sender: TObject);begin

195. Form4.Caption:='ConstructorNet Browser N:'+sen+' L:'+sel;bypass:

196. Forml.SpeedButtonl2.Flat:=false; Form4.Cursor:=crDefault ; NAd:=false;

197. Procedure TForm4.DrawSeN(); varu: integer; beginfor u:=l to (strlen(PChar(sen)) div 4) do beginwith Form4.Canvas do begin

198. Form4.Canvas.Pen.Color:=clFuchsia;

199. Form4.Canvas.Ellipse(xc+trunc(posxStrToInt(copy(Sel,(8*i-3),4)).*M)-3,yc+trunc(posy[StrToInt(copy(Sel,(8*i-3),4))]*M)-3,xc+trunc(posx[StrToInt(copy(Sel, (8*i3.,4)).*M)+3,yc+trunc(posyStrToInt(copy(Sel,(8*i-3),4))]*M)+3);

200. Form4.Canvas.Brush.Color:=clRed;

201. Form4.Canvas.Pen.Color:=clBlack;end;end;end;function TForm4.BackPos4(Sampl:string;Sour:string) :integer;vari,slen:integer; begin1. BackPos4:=0;slen:=strlen(PChar(Sour)); for i:=l to slen div 4 do beginif Sampl=copy(Sour,slen-i*4+l,4) then begin

202. BackPos4:=slen-i*4+l; break; end; end; end;function TForm4.BackPos8(Sampl:string;Sour:string):integer; vari,slen:integer; begin1. BackPos8:=0;slen:=strlen(PChar(Sour)); for i:=l to slen div 8 do beginif Sampl=copy(Sour,slen-i*8+l,8) then begin

203. BackPos8:=slen-i*8+l; break; end; end; end;

204. Procedure TForm4.SwitchDrag() ;label fin;beginif drg=true then begindrg:=false;

205. Forml.SpeedButtonl2.Flat:=false; Form4.Cursor:=crDefault; goto fin; end;if drg = false thenbegin1. Drg:=true;

206. M:=TM*abs((1-(y-ty-yc))/(Form4.ClientHeight/2)); Forml.Caption:=Floattostr(m) + ' '+inttostr(y) ; Draw(); end; }end;procedure TForm4.FormMouseUp(Sender: TObject; Button: TMouseButton;

207. Shift: TShiftState; X, Y: Integer); begin1. MDown:=false; end;procedure TForm4.FormMouseWheel(Sender: TObject; Shift: TShiftState;

208. Forml.SpeedButtonl4.Flat:=false; Form4.Cursor:=crDefault; goto fin; end;if NAd = false thenbegin1. NAd:=true ;1. Form4.Cursor:=crCross;

209. Forml.SpeedButtonl4.Flat:=true;end;fin:end;

210. FName:=tmpfile+'.net'; List:=TStringList.Create; List.Add(TmpFile);1.st.Add('Многослойная сеть прямого распространения');1.st.Add('0000 нейронов');1.st.Add('');1.st.Add('0000');1.st.Add('связи:');1.st.SaveToFile(FName);

211. Write(F,posyi div 2 .); end;1. CloseFile(F);for i:=10000 downto 1 do beginif (not Usedlndex1.) then wsize:=i else break; end;

212. Set Length (W, wsize + 1, ws.ize+1) ; fin:1. NAdd(); end;**************************procedure TForrn4 . SelDel () ;vari,j,k,1:integer; temp,tmp:string; begin

213. TmpList:=TStringList.Create ; SaveNetAs(FName+'~'); if sel>'' then beginfor i:=l to strLen(PChar(sel)) div 8 do begintemp:=ListNstr(copy(sel,8*i-3,4)).;

214. Delete(temp,backpos4(copy(sel,8*i-7,4),temp),4); {for j:=backpos4(copy(sel,8*i-7,4),temp) div 4 to (strlen(Pchar(List1.)) div 4)-2 do begin

215. Usedlndexstrtoint(tmp).:=False;temp:=TmpList 2. ;1.sert(To4(StrToInt(copy(TmpList2.,1,4))-l),temp,1);1. Delete(temp,5,4);1. TmpList2.:=temp;

216. SetLength(W,wsize+1,wsize+1);rewrite(F); for i:=1 to 20000 do beginif ((i mod 2)>0) then Write(F,posxi div 2 +1.) else

217. Write(Fn,posyi div 2 .); end; CloseFile(Fn); AssignFiie(Fw,name+'.wgt'); Rewrite(Fw); for i:=l to wsize do beginfor j:=l to wsize do begin

218. Write(Fw,W1. j. ) ; end; end; CloseFile(Fw);end;procedure TForm4.LAdd();label fin; var1. Curs2:cardinal ; beginif LAd=true then begin1.d:=false;

219. Forml.SpeedButtonl5.Flat:=false ; Form4.Cursor:=crDefault ; goto fin; end;if LAd = false thenbegin1.d:=true;

220. Form4.Cursor:=crUpArrow; Forml.SpeedButtonl5.Flat:=true;end; fin: end;fin: end;***********procedure TForm4.SetAct(); vari:integer;temp,Funcpr:string;begin

221. Funcpr:=InputBox('Выбор функции и ее опции','Выберите функцию и ее модификацию',Funcpr); ShowMessage(funcpr);if (seno'')and{strlen(PChar(Funcpr))=2) then begintemp:=List3.;for i:=l to strlen(PChar(sen))div 4 do begin

222. GetOut:=insnov-1.; end elsebegin net:=0;for i:=l to (strlen(PCHAR(ListNstr(str).))-9)div 4 dobeginnet:=net+GetOut(copy(ListNstr(str).,9+i*4-3,4))*GetWeight(copy(List[Nstr(str)],9+i*4-3,4)+str); end;

223. ShowMessage('коорд2='+copy(Listi+5.,9+j*4-3,4));

224. ShowMessage(copy(ListNstr(str). , 6, 3)) ; if copy(List[Nstr(str)],6,3)='вых' then begin nov:=0;for i:=l to Nstr(str) do beginif copy(List1.,6,3)='вых' then inc(nov); end;

225. ShowMessage('nov='+inttostr(nov-1)); ShowMessage('str'+str);

226. ShowMessage('GetOut='+floattostr(GetOut(str))); ShowMessage('touts='+floattostr(toutsnov-1.)); ShowMessage('delta='+floattostr(GetOut(str)-touts[nov-1]));

227. ShowMessage('daf='+floattostr(daf(GetNet(str),copy(List3.,(Nstr(str)-5)*2-1,2))));

228. ShowMessage('getdeIta='+floattostr(getdelta(copy(List1.,1,4))));

229. ShowMessage('GetWeight='+floattostr(GetWeight(str+copy(List1.,1,4)))); }sumka:=sumka+getdelta(copy(List1.,l,4))*GetWeight(str+copy(Listi.,1,4)); //showmessage('sumka='+floattostr(sumka));unit Unit5;interface uses

230. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math;type

231. Private declarations } public

232. F:TextFile; { Public declarations } FileName:string; end;var1. Form5: TForm5;implementation uses Unit2; {$R *.dfm}procedure TForm5.LoadProject (); begin1. Memol.Clear() ;

233. FileName:=Form2.Editl.Text + ' .srt'; AssignFiie(F,FileName); Reset(F);

234. Memol.Lines.LoadFromFile(FileName);1. CloseFile(F);end;procedure TForm5.FormShow(Sender: TObject); begin1.adProj ect(); end;procedure TForm5.ButtonlClick(Sender: TObject); varj ,Lw,n,m, P,L:integer;

235. Matrix:array of array of integer;beginn:=StrToInt(Editl.Text); m:=StrToInt(Edit2.Text); P:=StrToInt(Edit3.Text); Lw:=m*(P div m+1)*(n+m+1)+m;unit Unit 6; interfaceuses

236. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type

237. Private declarations ) procedure NRaspred(); procedure Raspred(); public

238. Public declarations } end;var1. Form6: TForm6;

239. Button1.Visible:=true; Button2.Visible:=true; Button3.Visible:=true; for i:=10 downto 0 do begin1.bel2.Left:=((8 div 10)*i)+24; Label3 . Left:=Label2.Left; Label4.Left:=Label2.Left; Label5.Left:=Label2.Left; Labelб.Left:=Label2.Left;

240. Edit2.Left:=((17 6 div 10)*i)+24;1. Edit3.Left:=Edit2.Left;1. Edit4.Left:=Edit2.Left;1. Edit5.Left:=Edit2.Left;1. Edit6.Left:=Edit2.Left;

241. ComboBoxl.Left: = ((Edit 6.Width+ComboBoxl.Width + 2) div 10)*i + 24

242. ComboBoxl.Top:=Label6.Top;

243. Button6.Top:=ComboBoxl.Top;

244. Button4.Top:=Label6.Top+30;

245. Button5.Top:=Label6.Top+30;

246. Button5.Left:=Label6.Left;

247. Button4.Left:=Edit 6.Left;end;

248. Buttonl.Enabled:=true; Label2.Visible:=false; Edit2.Visible:=false; Label3.Visible:=false; Edit3.Visible:=false; Label4.Visible:=false; Edit 4.Visible:=false; Label5.Visible:=false;

249. Button6.Visible:=true; ComboBoxl.Visible:=false ; Label6.Visible:=false; ComboBoxl.Clear;for i:=1 to StrToint(Edit4.Text) do begin

250. ComboBoxl.Items.Add(inttostr(i) ) ; end;end;procedure TForm6.NRaspred(); varpron promezh. neironovninl sredn neironov vo vnutr sloeclast combo lastpron,ninl,i,clast:integer;begin

251. Comboi+1.:=Combo[i+1]+1; end;

252. Combo1.:=strtoint(Edit2.Text); Comboclast.:=strtoint(Edit3.Text); end;procedure TForm6.ComboBoxlChange(Sender: TObject); begin

253. Memol.Lines.Add(Editl.Text);

254. Memol.Lines.Add('Многослойная сеть прямого распространения');

255. ShowMessage('Ошибка в слое'+inttostr(Comboz.));break;end;end;end;

256. Memol.Lines.Add(sclad) ; sclad:='';

257. Memol.Lines.Add('связи: ' ) ;

258. ProgressBarl.Position:=i; end;

259. ComboComboBoxl.Itemlndex+l.:=strtoint(Edit6.Text); i:=strtoint(Edit 6.Text)-temped6;if (ComboBoxl.Itemlndex+l=l)then Edit2.Text:=Edit6.Text;if (ComboBoxl.ItemIndex+l=strtoint(Edit4.Text)) then Edit3.Text:=Edit6.Text;

260. Edit5. Text:=inttostr(strtoint(Edit5.Text)+i);end;end;procedure TForm6.Edit5Enter(Sender: TObject); begin

261. Buttons.Visible:=true; ComboBoxl.Visible:=false; Label6.Visible:=false; end;procedure TForm6.Edit2Enter(Sender: TObject); begin

262. Button6.Visible:=true; ComboBoxl.Visible:=false; Labelб.Visible:=false; end;procedure TForm6.Edit3Enter(Sender: TObject); begin

263. Button6.Visible:=true; ComboBoxl.Visible:=false; Label6.Visible:=false; end;procedure TForm6.Edit4Enter(Sender: TObject); begin

264. Button6.Visible:=true; ComboBoxl.Visible:=false; Label6.Visible:=false; end;procedure TForm6.Button3Click(Sender: TObject); begin

265. FName:=Editl.Text+'.net'; List: =TStringList.Create; List.Add(FName);1.st.Add(1 Многослойная сеть прямого распространения');1.st.Add('0000 нейронов');1.st.Add('');1.st.Add('0000') ;1.st.Add('связи:');1.st.SaveToFile(FName);

266. AssignFile(F,Editl.Text+'.pos');1. Rewrite(F);1. CloseFile(F);1. Close;end;unit Unit7;interface uses

267. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type

268. TForm7 = class(TForm) Memol: TMemo; Buttonl: TButton; procedure SaveFile();procedure ButtonlClick(Sender: TObject);private

269. Private declarations } public

270. Filename:string; { Public declarations } end;var1. Form7: TForm7;implementation uses Unit4, Unit6; {$R *.dfm}procedure TForm7.SaveFile() ;begin

271. Filename:=Form6.Editl.Text+' .net' ; Memol .Lines.SaveToFile(Filename);

272. ShowMessage('Файл '+Filename+' был успешно создан'); end;procedure TForm7.ButtonlClick(Sender: TObject); var

273. F:file of integer; Fw:file of real; defwgt:real; b,c,i,j,k,kk:integer;posx,posy:array1.10000. of integer; begin

274. AssignFile(F,Form6.Editl.Text+'.pos'); Rewrite(F);

275. D : = 10 ; Ln:=20; L s : = 4 0 ; Xm:= 0; Ym:=0;for i:=1 to strtoint(Form6.Edit4.Text) do beginunit Unit8;interface uses

276. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type

277. TForm8 = class(TForm) Buttonl: TButton; Button2: TButton; Button3: TButton; Labell: TLabel; procedure ButtonlClick(Sender procedure Button2Click(Sender procedure Button3Click(Sender private

278. Private declarations } public

279. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

280. Dialogs, Grids, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, DBGrids,

281. DBCtrls, DB, DBTables, Series;type

282. Shift: TShiftState); procedure StringGridlKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); privatecount:integer; { Private declarations }kv,к:integer; indie:integer; public

283. Public declarations } end;var

284. ShowMessage(floattostr(random(StringGridl.RowCount-1))) ; for i:=l to k-kv do begininsi-1.:=strtofloat(StringGridl.Cells[i-1,prow] ); end;for i:=k-kv+l to к do begintoutsi-(k-kv+1).:=strtofloat((StringGridl.Cells[i-1,prow])); end;

285. Form4.Training() ; Series 1.Clear; Series2.Clear ; for i:=l to kv do begin

286. Series1.AddBar(Form4.GetOut(Copy(StringGridl.Cellsk-kv+i-1,0.,5,4)),Copy(StringGridl.Cells[k-kv+i-1,0],5,4),clRed);

287. Series2.AddBar(toutsi-1.,Copy(StringGridl.Cells[k-kv+i-1, 0],5,4),clGreen);end;end;end;procedure TForm9.FormShow(Sender: TObject); vari:integer; begin count:=2; к: =0;

288. Seriesl.Clear; Series2.Clear;ny:=strtofloat(InputBox('Ввод коэфициента скорости обучения','Введите коэфициент скорости обучения','0.25'));for i:=0 to strtoint (copy(List2.,1,4))+5 do beginif (copy(List1.,6,3)='вхд')then begin

289. StringGridl.ColCount:=k+l;

290. StringGridl.Colsk.Add('вхд'+' '+Copy(List1.,1,4)); inc(k) end; end; kv:=0;for i:=1 to strtoint(copy(List2.,1,4))+5 do beginif (copy(List1.,6,3)='вых')then begin

291. StringGridl.ColCount:=k+l;

292. StringGridl.Colsk.Add('вых'+' '+Copy(List1.,1,4)); inc(k);begintoutskv.:=0;

293. Seriesl.AddBar(outskv.,Copy(List1.,1,4),clRed); Series2.AddBar(touts[kv],Copy(List[i] , 1, 4) , clGreen) ; end;with Series2 dobegin Clear;

294. ShowMessage(floattostr(toutskv.));

295. AddBar(toutskv.,Copy(List1.,1, 4),clGreen); end; } inc(kv); end; end; end;procedure TForm9.Button4Click(Sender: TObject); begininc (count);

296. StringGridl.RowCount:=count; end;procedure TForm9.StringGridlSelectCell(Sender: TObject; ACol,

297. Seriesl.AddBar(Form4.GetOut(Copy(StringGridl.Cellsk-kv+i-1,0.,5,4)) , Copy(StringGridl.Cells[k-kv+i-1,0],5,4),clRed);

298. Series2.AddBar(toutsi-1.,Copy(StringGridl.Cells[k-kv+i-1,0],5,4),clGreen); end;end; end;procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction); begin

299. StringGridl.Rows0.Clear; end;procedure TForm9.ButtonSClick(Sender: TObject); beginif count=l then count:=2; count:=count-l; StringGridl.RowCount:=count; StringGridl.Rowscount.Clear;