Управление показателями качества поверхности при комбинированных технологических воздействиях тема диссертации и автореферата по ВАК РФ 05.02.23, кандидат технических наук Танкиева, Тамара Ахметовна

• Танкиева, Тамара Ахметовна
• кандидат технических наук
• 2002

Оглавление диссертации кандидат технических наук Танкиева, Тамара Ахметовна

ВВЕДЕНИЕ.

1. ОБЗОР СОСТОЯНИЯ ВОПРОСА.

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

1.2. Методы технической диагностики объектов.

1.2.1. Оценка показателей качества обработанной поверхности средствами технической диагностики

1.2.2. Выбор сигнала для диагностики процесса

1.3. Анализ методов оценки технологических показателей процесса.

1.4. Анализ методов моделирования

1.5. Цель и задачи исследования.

2. СИСТЕМНЫЙ ПОДХОД К АНАЛИЗУ КОМБИНИРОВАННОГО ТЕХНОЛОГИЧЕСКОГО ВОЗДЕЙСТВИЯ.

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

2.1.1. Структуры подсистем, входящих в технологическую систему.

2.2. Моделирование взаимосвязей явлений, составляющих комбинированное технологическое воздействие.

2.2.1. Системный подход к описанию явлений, составляющих комбинированное технологическое воздействие.

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

2.4. Методика функционирования подсистем управления качеством и технической диагностики.

2.5. Выводы.

3. ПРОГНОЗИРОВАНИЕ ПОКАЗАТЕЛЕЙ КАЧЕСТВА ПОВЕРХНОСТИ ПРИ КОМБИНИРОВАННОМ ТЕХНОЛОГИЧЕСКОМ ВОЗДЕЙСТВИИ.

ЗЛ Обработка регистрируемых сигналов.

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

3.3. Математическое описание механического воздействия

3.3.1. Математическое описание профиля инструмента.

3.3.2. Кинематика механического воздействия.

3.3.3. Математическое описание режущей поверхности шлифовального круг.

3.3.4. Влияние силовых факторов на кинематику механического воздействия.

3.3.5. Математическое описание макро- и микро профиля обработанной поверхности.

3.4. Определение параметров электрохимического воздействия.

3.5. Схема замещения цепи технологического тока.

3.6. Алгоритм адаптации моделей и результаты моделирования.

3.7. Выводы.

4. УПРАВЛЕНИЕ ПОКАЗАТЕЛЯМИ КАЧЕСТВА ПОВЕРХНОСТИ НА ОСНОВЕ ОПТИМАЛЬНЫХ РЕШЕНИЙ.

4.1. Поиск оптимальных решений в подсистеме управления качеством.

4.2. Управление показателями качества криволинейных поверхностей при алмазном электрохимическом шлифовании.

4.2.1. Факторы, влияющие на показатели качества поверхности пера лопаток ГТД при АЭХШ.

4.2.2. Стабилизация показателей качества обработанной поверхности вдоль профиля поперечных сечений.

4.2.3. Стабилизация показателей качества обработанной поверхности вдоль профиля продольных сечений.

4.3. Выводы.

5. СРЕДСТВА ОСНАЩЕНИЯ ТЕОРЕТИЧЕСКИХ И ЭКСПЕРИМЕНТАЛЬНЫХ ИССЛЕДОВАНИЙ.

5.1. Методическое и аппаратурное оснащение проведенных экспериментов.

5.1.1. Описание основных элементов измерительного комплекса.

5.1.2. Экспериментальное оборудование.

5.1.3. Условия проведения экспериментов.

5.2. Модели временных выборок и вейвлет-спектров сигналов.

5.3. Блок обработки регистрируемых сигналов.

5.4. Управляемый источник технологического напряжения.

5.5. Выводы.

Введение диссертации (часть автореферата) на тему «Управление показателями качества поверхности при комбинированных технологических воздействиях»

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

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

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

- моделей, учитывающих взаимосвязи явлений, составляющих процесс, и раскрывающих их влияние на показатели качества;

- методов оптимизации показателей качества обработанной поверхности.

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

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

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

Автор защищает:

- структурное представление подсистемы управления показателями качества обработанной поверхности и ее связи с подсистемами и элементами ТС, реализующей комбинированное технологическое воздействие;

- методику функционирования подсистемы управления показателями качества обработанной поверхности;

- модель пересекающихся связей явлений, возникающих при комбинированном технологическом воздействии и оказывающих влияние на показатели качества обработанной поверхности;

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

- результаты, полученные при решении задачи улучшения показателей качества поверхности пера лопаток газотурбинных двигателей (ГТД) при алмазном электрохимическом шлифовании (АЭХШ).

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

Установлено влияние пересекающихся связей явлений, составляющих комбинированное технологическое воздействие, на показатели качества обработанной поверхности. * *

Диссертация состоит из пяти разделов.

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

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

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

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

- решение минимаксной задачи при варьировании параметрами схемы обработки;

- оценку результатов стабилизации по параметрам регистрируемого электрического сигнала.

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

Заключение диссертации по теме «Стандартизация и управление качеством продукции», Танкиева, Тамара Ахметовна

ОСНОВНЫЕ ВЫВОДЫ

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

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

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

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

155 раметров регистрируемого сигнала и параметров, характеризующих состояние элементов ТС.

5. Предложена методика адаптации разработанных моделей по корректируемым параметрам с использованием композиций реального сигнала, показателей качества обработанной поверхности и алгоритма статистического сравнения выборок, которая позволила получить адекватность моделей в пределах 10 %.

6. Предложен вариант управления показателями качества поверхности пера лопаток ГТД при АЭХШ, включающий в себя решение задач стабилизации и оптимизации показателей качества, который позволил получить следующие результаты: шероховатость вдоль профиля поперечных сечений &я=0,9±0,03 мкм; вдоль профиля продольных сечений Ra = 1,2 ± ОД мкм; волнистость по профилю пера - Wa= 4,2±0,4 мкм; остаточные напряжения на глубине 30 мкм - cr=0,06±0,01 ГПа; производительность - 1250 мм3 /мин.

Список литературы диссертационного исследования кандидат технических наук Танкиева, Тамара Ахметовна, 2002 год

1. А. с. № 1000207 (СССР). МКИ4 В23Н '/2 С пособ алмазно-электрохимического шлифования/ М. Я. Чмир, А. И. Коро-бочкин, И. Н. Сотов. Опубл. в Б. И. - 1983. - №8.

2. Атабеков Г.И. Теоретические основы электротехники. -Т.1. М.: Энергия, 1978. - 592 с.

3. Автоматизированное проектирование и производство в машиностроении/Под ред. Ю. М. Соломенцева и В. Г. Митрофанова, М.: Машиностроение, 1986. 255 с.

4. Андерсон Д. Таннехилл Дж. Плетчер Р. Вычислительная гидромеханика и теплообмен: В 2-х т. Т. 1: Пер. с англ. -М.: Мир, 1990. -384 с.

5. Артамонов Б. А. Анализ моделей процессов электрохимической и электроэрозионной обработки. М.: Машиностроение, 1991. - 142 с.

6. Артоболевский И. И. Введение в акустическую диагностику машин. М.: Наука, 1979. - 296 с.

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

8. Ахмед Н., Pao К. Р. Ортогональное преобразование при обработке цифровых сигналов: Пер. с англ./Под ред. И. Б. Фоменко. М.: Связь, 1980. - 248 с.

9. Базелян Э. М., Райзер Ю. П. Искровой разряд. М.:Изд-во МФТИ. 1977. - 320 с.

10. Байкалов А. К. Введение в теорию шлифования материалов. К.: Наукова думка, 1978. - 207 с.

11. Брагинский А. П., Евсеев Д. Г., Зданськи А. К. Распознавание дефектов по спектральным характеристикам акустической эмиссии. Дефектоскопия, 1983. - № 1. с.70-77.

12. Беидат Дж., Пирсол А. Измерение и анализ случайных процессов: Пер. с англ. М.: Мир, 1971. - 408 с.

13. Бендат Дж., Пирсол А. Применение корреляционного и спектрального анализа: Пер. с англ. М.: Мир, 1983. - 312 с.

14. Бердник В. В. Мамай А. В. Электроабразивное шлифование. К.: Техника, 1981. - 64 с.

15. Бермин Б. П. Вибрации и режимы резания. М.: Машиностроение, 1972

16. Блехман И. И. Вибрационная механика. М.: Наука, 19. - 394 с.

17. Бокс Дж., Дженкинс Г. Анализ временных рядов, прогноз и управление. В 2-х т. - М.: Мир, 1974.

18. Вибрации в технике: Справочник. В 6 т. Ред. совет Че-ломей В. Н. М.: Машиностроение, 1981.

19. Виброакустическая диагностика зарождающихся дефектов. Балицкий Ф. Я., Иванова М. А., Соколова А. Г., Хомяков Е. И.- М: Наука, 1984. 220 с.

20. Версан В.Г. Интеграция управления качеством продукции: новые возможности. М: Изд-во стандартов, 1994.

21. Выбор параметров регулирования процесса алмазного электрохимического шлифования/ И. Н. Сотов, В. А. Шишенков, А. Э. Беккер, Е. В. Илюшечкин// Электрохим. и электрофиз. методы обраб. материалов. Тула, 1986. - с.80 - 85.

22. Генкин М. Д., Соколова А. Г. Виброакустическая диагностика машин и механизмов. М.: Машиностоение, 1987. -288 с.

23. Генкин М. Д., Соколова А. Г. Виброакустическая диагностика машин и механизмов. М.: Машиностоение, 1987. -288 с.

24. Горелик A. J1. Современное состояние проблемы распознавания: Некоторые аспекты. М.: Радио и связь, 1985. -160 с25. ГОСТ 27.004-85 Пояснения к термину технологическая система. - М.: Изд-во стандарт, 1986, - 4 с.

25. ГОСТ 3.1 109-82 (СТ СЭВ 2064-79, СТ СЭВ 2522-80, СТ СЭВ 25623-80) Единая система технологической документации. М.: Изд-во стандарт, 1983, - 8 с.

26. ГОСТ 2533 1-82 Обработка электроэрозионная. М.: Изд-во стандарт, 1982, - 10 с.

27. ГОСТ 14.004-83 (СТ СЭВ 2521-80) Единая система технологической подготовки производства. М.: Изд-во стандарт, 1984, 10 с.

28. ГОСТ 21964-76 (СТ СЭВ 2603-80) Внешние воздействующие факторы. М.: Изд-во стандарт, 1995, - 29 с.

29. ГОСТ 2789-73 (СТ СЭВ 638-77) Шероховатость поверхности. М.: Изд-во стандартов, 1978. - 5 с.

30. Грешников В. А., Дробот Ю. В. Акустическая эмиссия. Применение для испытаний материалов и изделий. М.: Изд-во стандартов, 1976. - 272 с.

31. Гродзинский Э. Я. Абразивно-электрохимическая обработка. М. Машиностроение, 1976. - 55 с.

32. Гродзинский Э. Я., Исакова Р. Б. Алмазно электроэрозионное шлифование металлов// Электрофиз. и электрохим. методы обраб. - 1976. - №1 1. - с.3-7.

33. Гуляев А.И. Временные ряды в динамических базах данных. М.: Радио и связь, 1989. - 128 с.

34. Гуляев В. А., Чаплыга В. М., Кедровский И. В. Методы и средства обработки диагностической информации в реальном времени. Киев: Наукова думка, 1986. 224 с.

35. Диагностика процесса металлообработки/ Остафьев В.

36. А., Антонюк В. С., Тымчик Г. С. К.: Тэхника, 1991. - 152 с.

37. Диментберг М. Ф. Нелинейные стохастические задачи механических колебаний. М.: Наука, 1980. - 368 с.

38. Диментберг М. Ф. Случайные процессы в динамических системах с переменными параметрами,- М.: Наука, 1989,- 176 с.

39. Дорофеев В. Д. Основы профильной алмазно абразивной обработки. Изд-во Сарат. ун-та, 1983. - 186 с.

40. Евсеев Д. Г., Брагинский А. П., Арсентьев А. В. Контроль процессов резания по высокочастотному акустическому излучению // Резание и инструмент,-1 985.-№33г.

41. Еф имов В. В. Модель процесса шлифования с применением СОЖ. Саратов: Изд-во Сарат. ун-та, 1992. - 132 с.

42. Жарков И. Г. Вибрации при обработке лезвийным инструментом. Л.: Машиностроение. Ленингр. отд-ние, 1986. - 184 с.

43. Зыков А. А. Основы теории графов. М. Наука, 1987. -384 с.

44. Иванов Н. И. Методологические принципы разработки и исследования интенсифицированных методов механо элек-трофизичекой - химической размерной обработки: Дис.д-ра техн. наук: 05.03.01.- Тула, 1996. - 322 с.

45. Интеграция производства и управление качеством продукции / В.Г. Версан, В.И. Сиськов, Л.Г. Дубицкий и др. М: Изд-во стандартов, 1995.

46. Иванова Т. И. Идентификация качества поверхности с параметрами состояния технологической системы. Дис. на со-иск. уч. степ. канд. техн. наук. Тула. 2000. 183 с.

47. Ивановский Г. Ф., Петров В. И. Ионно-плазменная обработка материалов. М.: Радио и связь, 1986. - 232 с.

48. Измерение, обработка и анализ быстропеременныхпроцессов в машинах/Максимов В. П., Егоров И. В., Карасев В. А. М.: Машиностроение, 1990. - 210 с.

49. Кабанов Н. С., Слепан Э. Ш. Технология стыковой контактной сварки. М.: Машиностроение, 1984. - 220 с.

50. Керша Г. П., Аксенов В. А. К вопросу определения величины электрохимического съема при электроабразивном шлифовании// Новейшие методы обраб. металлов. Новосибирск, 1977. - с. 58-59.

51. Кибальченко А. В., Бабек С.П., Ромказов И. И. Акустическая диагностика процессов механической обработки. Типовые операции применения // Труды МВТУ.-1987.-N476.

52. Киселев Н. В., Сечкин В. А. Техническая диагностика методами нелинейного преобразования. Л.: Энергия, 1980. -112 с.

53. Коллакот Р. Диагностика повреждений: Пер. с англ. -М.: Мир, 1989. 512 с.

54. Корн Г., Корн Т. Справочник по математике для научных работников и инженеров. М.: Наука, 1984. - 834 с.

55. Королев А. В., Новоселов Ю. К. Теоретико вероятностные основы абразивной обработки. Часть 2. Взаимодействие инструмента и заготовки при абразивной обработке. Саратов: Изд-во Сарат. ун-та, 1989. - 160 с.

56. Круг Г. К., Кабанов В. А., Фомин Г. А., Фомина Е. С. Планирование эксперимента в задачах нелинейного оценивания и распознавания образов. М.: Наука, 1981. - 172 с.

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

58. Куликовский К. Л., Купер В. Я. Методы и средства измерений. М.: Энер^оатомиздат, 1986. - 448 с.

59. Куликовский Л. Ф., Мотов В. В. Теоретические основыинформационных процессов. М.: Высшая школа, 1987. - 248 с.

60. Лазарев Г. С. Автоколебания при резании металлов. -М.: Высшая школа, 1971. 244 с.

61. Любимов В.В., Иванов A.B. Автоматизированный подход к выбору рациональных режимов получения многослойных Ti-TiN покрытий методом электродугового испарения в вакууме //Электрофиз. и электрохим. методы обраб. Тр. Тула, 1996. -С.З - 10.

62. Любимов В. В., Иванов Н. И. Теоретические основы синтеза новых механо-электрофизических-химических методов размерной обработки//Электрофиз. и электрохим. методы обраб. Тр. Тула, 1990. - С.5 - 12.

63. Любимов В. В., Шишенков В. А., Иванова Т. И. От единичного импульса к масштабирующей и вейвлет функции/ Тезисы докладов Международной НТК "Молодежь науке будущего". Татарстан, г. Набережные Челны, 17-18 апреля 2000 г,-с.18-19.

64. Любимов В. В., Шишенков В. А., Иванова Т. И., Тан-киева Т. А. От преобразования Фурье к вейвлет преобразованию нестационарных сигналов/ Труды региональной НТК. Тула, 1999. с.1 10-122.

65. Любимов В. В., Шишенков В. А., Танкиева Т.А. Систематизация комбинированных методов обработки/Сборник научных трудов ведущих ученых технологического факультета. Тула, 2000 г. с.217-221.

66. Маслов Г. С. Расчеты колебаний валов: Справочник. -2-е изд., перераб. и доп. М.: Машиностроение, 1980. - 151 с.

67. Маслов Е. Н. Теория шлифования материалов. М.: Машиностроение, 1 974. - 320 с.

68. Мильнер Б.З. Организация программно-целевого управления .- М.: Наука, 1980.

69. Методы автоматизированного исследования вибрации машин: Справочник/Добрынин С. А., Фельдман М. С., Фирсов Г. И. М.: Машиностроение, 1987. - 224 с.

70. Методы математического моделирования и вычислительной диагностики: Сборник Под ред. Тихонова А. Н., Самарского А.А. М.: Изд-во Моск. ун-та, 1990. - 290 с

71. Михелькевич В. Н. Автоматическое управление шлифованием. М.: Машиностроение, 1975. - 304 с.

72. Многогранники, графы, оптимизация. Емеличев В. А., Ковалев М. М., Кравцов М. К. М.: Наука, 1981. -344 с.

73. Моисеев Н. П., Иванилов Ю. П., Столярова В. М. Методы оптимизации. М.: Наука, 1978. - 352 с.

74. Мордыхай В. М. Технологические основы разработки комбинированных электрофизических и электрохимических методов обработки. Труды Всероссийской научно-технической конференции" Современная электротехнология в машиностроении". Тула, 1997 г. с.292-300.

75. Мэйндональд Дж. Вычислительные алгоритмы в прикладной статистике: Пер. с англ. М.: Финансы и статистика, 1988. - 350 с.

76. Надежность и эффективность в технике: Справочник. В 10 т. Ред. совет: Авдуевский В. С. и др. М.: Машиностроение, 1987.

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

78. Орнатский П. П. Теоретические основы информационно-измерительной техники. Киев: Вища школа, 1983. —455 с.

79. Островский В. И. Теоретические основы процесса шлифования. Л.: Изд-во Ленингр. ун-та, 1981. - 144 с.

80. Остроумов Г. А. Взаимодействие электрических и гидродинамических полей. Физические основы электрогидродинамики. М.: Наука, Главная редакция физико-математической литературы, 1979.

81. Пановко Я. Г. Введение в теорию механических колебаний. М.: Наука, 1991. - 256 с.

82. Пахалин Ю. А. Алмазное контактно-эрозионное шлифование. Л.: Машиностроение, Ленингр. отд-ние, 1985. - 178 с.

83. Перегудов Ф. П., Тарасенко Ф. П. Введение в системный анализ. -М.: Высш. шк., 1989. 367 с.

84. Полупан Б. И., Мастренко А. Л. Оценка метода акустической эмиссии качества шлифуемых заготовок из керамики // Сверхтвердые материалы, -1994.-№4.

85. Попилов Л. Я. Электрофизическая и электрохимическая обработка материалов: Справочник. М.: Машиностроение, 1982. - 400 с.

86. Попов С. А., Малевский Н. П., Терещенко Л. М. Алмазно-абразивная обработка металлов и твердых сплавов. М.: Машиностроение, 1977. - 263 с.

87. Предотвращение дефектов при шлифовании. Кулаков Ю. М., Хрульков В. А., Дунин-Барковский И. В. М.: Машиностроение, 1975. - 144 с.

88. Прилуцкий В.А. Технологические методы снижения волнистости поверхностей. М.: Машиностроение, 1978.- 136 с.

89. Редько С. Ф. Ушкалов В. Ф. Яковлев В. П. Идентификация механических систем. Киев: Наук, думка, 1985. - 216 с.

90. Реклейтис Т., Рейвиндран А., Рэгсдел К. Оптимизация в технике: В 2-х кн. Пер. с англ. М.: Мир 1986 - 352 с.

91. Резников А. Н. Теплофизика процессов механической обработки материалов. М.: Машиностроение, 1981. - 279 с.

92. Саржевский В. А. Диагностика процесса шлифования методом акустической эмиссии // Вестник машиностроения.-1988.-№1.

93. Селекция и распознавание на основе локационной информации/ А. Л. Горелик, Ю. Л. Барабаш, О. Б. Кривошеев, С. С. Эпштейн; Под ред. А. Л. Горелика. М.: Радио и связь, 1990. -240 е., ил.

94. Силин С. С. Метод подобия при резании материалов. -М.: Машиностроение, 1979. 152 с.

95. Системы распознавания автоматизированных производств/ В. Л. Генкин, И. Л. Ерош, Э. С. Москалев. Л.: Машиностроение. Ленингр. отд-ние, 1988. - 246 с.

96. Справочник по электрохимическим и электрофизическим методам обработки/Амитан Г. Л., Байсупов И. А., Барон Ю. М. и др.; Под общ. ред. Волосатова В. А. Л.: Машиностроение, 1988. - 719 с.

97. Студенский Е. И., Богдарев В. И., Кадышев Н. Т. Электроалмазное шлифование. М.: Машиностроение, 1974. - 255 с.

98. Суслов А. Г. Технологическое обеспечение параметров состояния поверхностного слоя деталей. М.: Машиностроение, 1987. - 208 с.

99. Татг У. Теория графов: Пер. с англ. М.: Мир, 1988. -424 с.

100. Терещенко Л. Н., Тарханов Н. С., Костин Г. Б. Влияние режимов электрохимического шлифования на состояние поверхностного слоя твердого сплава// Алмазы и сверхтвердые материалы. 1980. - №5.- с. 8-10.

101. Терминология государственной системы стандартизации: Справочник. М.: Издательство стандартов, 1989. - 144 с.

102. Технологическое обеспечение эксплуатационных свойств деталей машин/О. В. Рыжов, А. Г. Суслов, В. П. Федоров. М.: Машиностроение, 1979.- 176 с.

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

104. Тимофеев А. Ю. Совершенствование алмазно-электрохимического шлифования гетерогенных покрытий с применением диагностического анализа. Дис. . канд. техн. наук. Тула. 1997. 123 с.

105. Точность обработки при шлифовании/Под ред. Яще-рицына П. И. Мн.: Наука и техника, 1987. - 152 с.

106. Трайбус М. Термодинамика и термостатика. Пер. с англ. М.: Энергия, 1970. - 504 с.

107. Трахтман А. М. Введение в обобщенную спектральную теорию сигналов. М.: Советское радио, 1972. - 352 с.

108. Трусов В. Н., Урывский Ф. П. К вопросу определения глубины растравливания при круглом врезном электроалмазномшлифовании// Исследование обрабатываемости жаропрочных и титановых сплавов. Вып. 4. - Куйбышев, 1 976. - с.84 - 90.

109. Теория электрической дуги в условиях вынужденного теплообмена / Отв. ред. М.Ф. Жуков.- Новосибирск: Наука, 1977. 3 1 1 с.

110. Управление качеством продукции: Справочник / Под ред. В.В. Бойцова, A.B. Голичева. М.: Изд-во стандартов, 1985.

111. Филимонов Л. Н. Высокоскоростное шлифование. -JE: Машиностроение, 1979. 248 с.

112. Фомин Я. А., Тарловский Г. Р. Статистическая теория распознавания образов. М.: Радио и связь, 1986. - 264 с.

113. Френке J1. Теория сигналов: Пер. с англ. М.: Советское радио, 1974. - 344 с.

114. Хар азов А. М., Цвид С. Ф. Методы оптимизации в технической диагностике машин. М.: Машиностоение, 1983. -132 с.

115. Цыпкин Я. 3. Основы теории обучающих систем. М.: Наука, 1979. - 251 с.

116. Чмир М. Я., Акимов А. С., Могильников В. А. Факторы, определяющие съем припуска при алмазно-электрохимическом шлифовании// Труды Всероссийской научно-технической конференции "Современная электротехнология в машиностроении". Тула, 1997.

117. Шибанов Г. П. Распознавание в системах автоконтроля. М. Машиностроение, 1973. - 424 с.

118. Шишенков В. А. Алмазное электрохимическое шлифование криволинейных поверхностей на станках с ЧПУ. Дис. на соиск. уч. степ. канд. техн. наук. Тула. 1986. 214 с.

119. Шишенков В. А., Иванова Т. И. Вейвлет спектр новый инструмент для диагностики/ Сборник материалов международной НТК "Новые материалы и технологии на рубеже веков". Пенза, 14 16 июня 2000 г. - с.187-190

120. Шишенков В. А., Иванова Т. И. Некоторые аспекты комбинированного технологического воздействия на материал/'/' Труды международной НТК "Прогрессивные методы и технологии получения и обработки конструкционных материалов и покрытий". Волгоград, 1999.

121. Шишенков В. А., Иванова Т. И., Танкиева Т. А. Анализ методов преобразования нестационарных сигналов/ Деп. в ВИНИТИ 16.11.99, N3370-В99 28 с.

122. Шишенков В. А., Иванова Т. И., Танкиева Т. А., Моделирование комбинированных методов обработки на основе применения многомасштабного анализа / Труды региональной НТК. Тула, 1998. с.100-104.

123. Шлихтинг Г. Теория пограничного слоя. М.: Наука, 1974. - 710 с.

124. Шустер Л. Ш. Адгезионное взаимодействие режущего инструмента с обрабатываемым материалом. М.: Машиностроение, 1988. 96 с.

125. Янг С., Эллисон А. Измерение шума машин: Пер. с англ. М.: Энрегоатомиздат, 1988. - 144 е., ил.

126. Akansu, A.N., Haddad R. A. Multiresolution Signal Decomposition. Transforms, Subbands and Wavelets. Academic Press, London, 1992.

127. Daubechies I. Ten Lectures on Wavelets. CBMS-NSF: Society for Industrial and Applied Mathematics (SIAM), 1992.

128. Daubechies I. The Wavelet Transform, Time-Frequency Localization and Signal Analysis. IEEE Transactions on Information Theory, Vol. 36, No. 5, Sep 90, S. 961-1005.

129. Daubechies I.: Orthogonal Bases of Compactly Supported Wavelets. Communications on Pure Applied Mathematics, 1988, Vol. 41, S. 909-996.

130. Fischer T. Wavelet Transformation von instationaren Wirbeln und turbulenten Stromungsvorgangen. Diplomarbeit von cand.aer., Universität Stuttgart, 1997.

131. Louis A.K., Maa P.R.A. Wavelets. Theorie und Anwendungen. Teubner Studienbücher, 1994, Stuttgart.

132. Ludders P.J. EEG-Segmentierung mit Hilfe der diskreten Wavelet-Transformation. Diplomarbeit, Technishe Universität Berlin, 1997.

133. Mallat S. A Theory for Multiresolution Signal Decomposition: The Wavelet Representation. IEEE Trans, on Pattern Analy169sis and Machine Intelligence, Vol. 11, No. 7, July 1989, S. 674-693.

134. Meyer Y. Wavelets. Algorithms and Applications. Phildelphia: Society for Industrial and Applied Mathematics (SIAM), 1993.

135. Meyer Y., Coifman R.R., Wickerhauser M.V. Size properties of wavelet packets. In Ruskai et al., editor, Wavelets and their Applications. Jones and Bartlett, 1992, S. 453-470.

136. Meyer Y., Coifman R.R., Wickerhauser M.V. Size properties of wavelet packets. In Ruskai et al., editor, Wavelets and their Applications. Jones and Bartlett, 1992, S. 453-470.

137. Программа расчета теоретического сигналаunit Signal;interfaceuses

138. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Math, ExtCtrls; type

139. Private declarations } public

140. Расчет температуры во 2-м клине) var i,j: Longlnt;yfi , lx, Ifi,cnt,cntl,cnt2: Double; Trez3:matrl; beginfor i:=1 to m do for j:=1 to n do Trez3 i, j. :=0; for i:=1 to m do

141. Trez3 i,1. :=Trezll[i,Round(yn/2)];

142. Trez3 1,1. : =323 ; for j:=2 to n do

143. Trez3 1 ,j. :=Trez3 [l,j-l]+(373-323)/(n-l) {Tu}; for i:=2 to m do for j:=2 to n do beginyfi:=dh*(i-1);lx:=(ymax-yfi)*lb/(ymax-ymaxl); lfi:=(j-1)*dl; if Ifi<=(lx-dl) then begin

144. Trez3 i,j. :=(Trez3[i,j-1] *(lx-lfi)+Td*dl)/ (lx-lfi+dl) ; if lfi>lx then

145. Trez3 i,j. : = (Trez3[i,j-1]*(lfi-lx)-Td*dl)/(lfi-lx-dl);end ;end; Trezl:=Trez3; end;procedure teplol2(dl,dh,ymax,ymaxl,lb: Double; m,n: Longlnt; var Trezl: matrl);

146. Расчет температуры в 1-м клине} var i,j: Longlnt;yfi,lx,lfi,cnt,cntl,cnt2: Double; Trez3:matrl; beginfor i:=1 to m do for j:=1 to n do Trez3 i,j. :=0; for i:=1 to ш do Trez3[i,1]:=T0; Trez3 [1,1] :=28+273; for j:=2 to n do

147. Trez3 i,j. :=Trez3[i,j-1]+dl*(Td-Trez3[i,j-1])/(dl + lx-lfi);if lfi>lx then

148. А, С,D,eta,fi,II,12,bnt,bntl,Rlmax,Rlmin,arcl, arc2 , Bn, S , Ant,Dnt,arc2nt,p7nt,ppIn: Double;beginpp2:=4/1000;(начальное значение для Delta} II:=pi*sqr(sqr(dl))/64; 12:=pi * sqr(sqr(d2))/64; repeatpp2:=pp2 + 0.000005 ; if (Re-p2)>=pl then

149. Ant:=pp4nt*sqr(101)*(102/12+101/11)/3/Е; С:=Bb/dz/pp2;

150. A:=pp4*sqr(101) * (102/12 + 101/11)/3/Е;

151. D : =sqr (Re-sqr (A*C) *pl) sqr (Re) +2*sqr (A*C) *pl* (pl+p2) p 7:=Re-sqr(A*C) *pl + sqrt (D) ; arc2:=arccos((p7-p2)/pl);ppl:=(Vd*pp2/Vu+h/arc2)*arc2;{пересчет Az}

152. Bn:=Kz*sqr(dz)*sqrt(dz/(ppl+h))/(ppl+h)/Kbzl;{расчет }

153. Процедура построения 1-го графика! vart,П,П1,prop: Word; у,у1: Double; ku: Double; beginku:=StrToFloat(ComboBox7.Text); prop:=StrToInt(ComboBox8.Text); yl:=Ism1.;1.agel. Canvas . Pen. Color =clGreen;

154. Hh:={dz/6}StrToFloat(ComboBox9.Text);val(edit10.text,kk,ee);val(edit11.text,kkk,ee);val(editl2.text,Ru,ee);sum:=0;for n ■. =1 to nm dobeginfor i:=1 to fotn+1 do beginbet n, i. := (2*pi*i) /fotn;

155. Rui:=sqrt{sgr(detd) +2 *Ru*detd*cos(betn,i. )+sqr(Ru))+detd/kk*sin (bet [n, i] kk) ;

156. Rvbn,i. :=Rui-RandG(0,dz/3 ) ; sum:=sum+Rvb[n,i]; end;for i:=fotn+2 to 2* (fotn+1) do

157. Rvb n,i. :=Rvb[n,i-fotn-1] ; for i:=l to 2*(fotn+1) do bet [n, i] : = (4 *pi * i ) /fotn;end;

158. AssignFile(Flek, 'd:\Reserv\' + 1Iek' ) ;

159. AssignFile(FAz, 'd:\Reserv\' + 1Az') ;

160. AssignFile(FR, 1d:\Reserv\' + 'R') ;1. Rewrite(Flek);1. Rewrite(FAz);1. Rewrite(FR);1. Vu:=2*pi*Ru*fu;

161. Vd:=Sp/60; k:=Vd*Ru/Vu; Lc:=dz/3/cos(nu); betconst: =2 *pi/fotn; for n:=1 to nm dofor i:=0 to 2 *(fotn+1) do begin

162. Rc:=rocont*(1+alfat*(Tpl-TO))*Lc/ksipop (Azl)/Azl/b; II:=U/Rc;ksipopl:=ksipop(Azl);kzl:=Round((detxl-Lc)*ksipopl/betconst/Rsr); if kzl>i then kz1:= i; for j:=i downto i-kzl do begin

163. Azn,j.:=Az1; Iek [n,j] : =11; end;end;

164. PredTn,predtcount.:=i; Inc(predtcount); Rvbl:=Rvb[n,i]; betl:=bet [n, i]; end else begin

165. ReshenExistOnPredt(result,jres);if result thenbeginresh(fimin,fimax,fikor);detxl:=detx(fimax,fikor,Rvbn,j res. ,Rvb [n,i] ) ; if detxlcLc then begin1.kn,i. : =0 ; AZ [n,i] : = 0 ; end else begin

166. Azl:=k*(betn,i.-betl)*(fimax-k*(bet [n,i]-betl)/(k+Rsr)/2/sqr(Rvbl))/(k+Rsr)/Rsr+(Rvb[n,jres]-Rvbl);b:= 2 *sqrt(Azl*dz) ;

167. Rc:=rocont*(1+alfat*(Tpl-TO))*Lc/ksipop(Azl)/Azl/b; II:=U/Rc;kzl:=Round((detxl-Lc)*ksipop(Azl)/betconst/Rsr); for j:=i downto kzl do begin

168. Azn,j.:=Az1; Iek [n,j] :=I1; end;end;

169. ShowMessage(1 Imax-Imin='+FloatToStr(Abs(maxlgr-minlgr))) ; ShowMessage(1Icp='+FloatToStr(Moek)); Ism:=I sum;ndob:=Trunc(16384/(fotn+1)); for j:=1 to ndob do for i:=1 to fotn+1 dobegin

170. Writeln (FIek, Isum 1. : 11 : 9) ,-end;for n:=1 to nm do beginfor i:=l to fotn+1 do beginif n=l then

171. Writeln(FR,Rvb n,i. :9:7) ; Write(FAz,Az(n,i]:9:7,' '); end;1. Writeln(FAz,' 1);end ;

172. Write(FIek,'Imax=1,maxlgr:11:9); Write(FIek,' Imin=',minlgr:11:9); Writeln(FIek,' Icp=1,Moek:11:9);

173. Writeln (FIek, 'Gamma=1 ,nul:11:9, ' Hh=',Hh:11:9, ' Taus=' ,Taus:11: 9, ' Alfat=',Alfat:11:9,1 Beta=1,beta:11:9,' Lam=',lam:11:9,1 Cv=1,Cv:11:9,' Tpl=1,Tpl:11:9); CloseFile(FR); CloseFile(FIek),■ CloseFile(FAz);

174. Calclp(11,12,dety,Hh,detyl,Azn,i.,Ip); lech [n,i] : = Ip ;kzl:=Round((11+12)/betconst/Rsrl); end;

175. ShowMessage('Imax-Imin='+FloatToStr(Abs(maxlgr-minlgr))); ShowMessage(1Icp='+FloatToStr(Moch) ); for j:=1 to 8 do for i:=2 to fotn+1 do begin

176. Writeln(Flech,Isum 1. {-Moch}:11:9) ; end;

177. Write(Flech,1Imax=',maxlgr:11:9);

178. Write(Flech,' Imin=',minlgr:11:9); Writeln(Flech,' Icp=',Moch:11:9);

179. Write In(Flech, 1Gamma=' ,nul:11:9, ' Hh=' ,Hh:11:9, ' Taus=' ,Taus:11:9, ' Alfat=',Alfat:11:9,1 Beta=',beta:11:9,' Lam=1,lam:11:9,1 Cv=1,Cv:11:9, Tpl=',Tpl:11:9); CloseFile(Flech);

180. ShowMessage('РАСЧЕТ ЗАКОНЧИЛСЯ'); Ism:=Isum; GrafSig0si2; GrafSig2; end;procedure TForml,N3Click(Sender: TObject); var j: Integer; begin Reset(FIek); for i:=1 to fotn+1 do begin

181. AssignFile(Flechpr,'d:\Reserv\'+1lechpr');1. Rewrite(Flechpr);for j:=1 to ndob+1 dofor i:=1 to fotn do

182. Sp:=StrToFloat(ComboBox2.Text); t:=StrToFloat(ComboBox5.Text); fu:=StrToFloat(СошЬоВохЗ.Text)/60; dz:=StrToFloat(ComboBox4.Text); dz:=dz/le6;

183. Hh:=StrToFloat(ComboBox9.Text); f:=StrToFloat(СошЬоВохб.Text); Vu :=2 *pi *Ru* fU; Vd :=Sp/60;

184. Wz:=ymaxob-yminob■ Sp:=Abs(xmaxob-xminob); Writeln(FW,Wz); Writeln(FW,Sp); CloseFile (FW) ; end; end.

185. Программа расчета показателей процесса алмазного электрохимического шлифования на основе модели идентификацииunit raschet;interfaceuses

186. SysUtils, WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Menus,

187. StdCtrls, Gauges, ExtCtrls, Dialogs, Math;type

188. StaticText3: TStaticText; StaticText4: TStaticText; StaticText6: TStaticText;

189. StaticText7: TStaticText; StaticText8: TStaticText; Imagel: TImage; Image2: TImage; Edit4: TEdit; Edit5: TEdit; CBoxl: TComboBox; StaticText9: StaticTextlO: TStaticText; StaticTextll: TStaticText; StaticText5: TStaticText;

190. StaticTextl2: TStaticText; Edit6: TEdit; StaticTextl5: TStaticText; CBox6: TComboBox; StaticText16: TStaticText; StaticTextl7 : TStaticText; StaticTextl4: TStaticText; Voin: TMenuItem; StaticText13: TStaticText; Chimia: TMenuItem;

191. Private declarations } public

192. Bi, Bil, Prip, rez, Ruk, Ymm, R1 : Ar ray 1 . 33000 . of Double;maxlgr,minlqr,max2gr,min2gr,max3gr,min3grfmax4gr,min4gr,bieri,R\.sr,Vu,dety,

193. OpenDialogl.InitialDir:='c:\reservi\baza1; if OpenDialogl.Execute then begin

194. AssignFile(f1,OpenDialogl.FileName); {$!-}

195. Reset (f1); if IOResultoO then begin

196. StaticTextl3.Caption: = 1 График сигнала '; GrafSigOsi; GrafSig;end ;procedure TForml.FileSaveDMClick(Sender: TObject);var f:TextFile;beginif SaveDialogl.Execute then begin

197. AssignFile(f,SaveDialogl.FileName);1. Rewrite(f);for i:=1 to pnt do

198. Расчет кинематико-геометрических и динамических параметров}var ppl,рр2,ррЗ,рр4,pp2n,pp4n,pplnt,pp4nt, étant, fint,étant1,fintl: Double ;

199. Ant:=pp4nt*sqr(101)*(102/12+101/11)/3/Е; С : =Bb/dz/pp2;

200. A:=pp4*sqr (101) * (102/12 + 101/ID/3/E;

201. D:=sqr(Re-sqr(A*C)*pl) -sqr(Re)+2*sqr(A*C) *pl*(pl+p2) ; p7:=Re-sqr(A*C)*pl+sqrt(D); arc2:=arccos((p7-p2)/pl); ppl:=(Vd*pp2/Vu+h/arc2)*arc2;

202. Dir:=ExtractFilePath(OpenDialogl.Filename); AssignFile(FPrip,Dir+'Prip'); {$!-}

203. Reset(Fprip); if IOResultoO then begin

204. MessageBox ( 0Расчет припуска не произведен',nil,mbIconHand or mb0k);1. Exit; end; {$1 + }

205. AssignFile(FBiRu,Dir+1BiRu1);1. AssignFile(FAz,Dir+'Az1);

206. AssignFile(FRey,Dir +'Rey');

207. AssignFile(FDelta,Dir+'Delta');

208. AssignFile(FZ,Dir+' Z 1 ) ;

209. AssignFile(FRlmin,Dir+'Rlmax');

210. AssignFile(FRlmax,Dir+'Rlmin');

211. Forml.Gauge 1.Visible:=True;

212. Forml.Gauge 1.MaxValue: = (pnt div l)-80;val(edit5.text,Fb,e);dt:=1/Fb;val(edit6.text,mo,e);kum:=StrToFloat(СВохб.Text);for nt:=1 to pnt do

213. Bil nt. :=(Bi[nt]+mo)*kum; Rmax:= 0; Rmin:=32768; imaxl:=0; iminl:=0;

214. Exx:=StrToFloat(editl.text); Rin:=StrToFloat(edit2.text); Ltr:=StrToFloat(edit3.text); Iold:=0;

215. SetLength(Masl,pnt+2*p); for nt:=1 to p do

216. Maslnt. :=Bil [nt+p] ; for nt:=1 to pnt do

217. Masl nt+p. : =Bil [nt] ; for nt:=l to pnt+p do begin1. Ue:=Masl nt. ;1.:=Iold+(Exx-Ue-Iold*Rin)*dt/Ltr; Masl nt. :=le; 101 d : = I e; end;for nt:=1 to pnt do

218. Masl nt. :=Masl [nt+p]; j:=Round(l/f/dt); for i:=1 to pnt do begin

219. Rm1.:=Bili./Masl[i]; if Rm[i]>=Rmax thenbegin

220. Rmax:=Rm 1. ; imaxl:=i; end;if Rm 1.<=Rmin then begin

221. Rmin:=Rm1.; iminl:=i; end;end; Vu:=2 *pi *Ru* f ; val{edit4.text,Deltad,e); Rlmax;=Ru+Deltad/1000; Rlmin =Ru-Del tad/1000 ; T1 : = StrToFloat(CBoxl.Text) ; Re:=Rlmin+Hz-Tl/1000; Fim:=arccos(Re-Hz)/Ru; TT: =Fim/2/pi/f

222. CalcKGP(Rlmax,Hz,Azmax,Deltarmax,Zmax,Rey);

223. Rl1. : =Ru-1 . 2*deltad/1000-0.0000001; ii:=l; max2gr:=0; min2gr:=32768;for i:=round(imin-j/2-100) to round(imin+j/2+10 0) do begin repeat1. Rlii.:=Rl[ii]+0.0000001;

224. CalcKGP(Rlii. ,Prip [ii] ,Az,Deltar,Z,Rey); ksipopr:=ksipop(Az); b:=2 * sqrt(dz*Az);

225. Ret:=ro*(1+alfat*(Tpl-TO))*Hh*dz/2/sqr(Az) /b/Z/ksipopr/sqrt (dz/Az1. ;

226. CloseFile(FRlmin); Rewrite(FRlmax);

227. Rl ii. :=Ru-1.2*deltad/1000-0.0000001;for i:=round(imax-j/2-100) to round(imax+j/2+100) do begin repeat

228. Rl ii. :=Rl[ii]+0.0000001;

229. CalcKGP (R1 ii3 , Pripfii. , Az , Deltar, Z, Rey) ksipopr:=ksipop(Az); b:=2 * sqrt (dz *Az) ;

230. Ret: =ro*(1+alfat*(Tpl-TO) )*Hh*dz/2/sqr(Az)/Ь/Z/ksipopr/sqrt(dz/Az1. ;

231. Ruk 1. :=Rli.-x*sin(2*pi*f*dt*(i-1))-y*cos(2*pi*f*dt* (i-1)) ; if Ruk[i]>max2gr then max2gr:=Ruk[i] ; if Ruk[i]<min2gr then min2gr:=Ruk[i]; Rusr:=Rusr+Ruk[i]; end;1. Rusr:=Rusr* f *dt;

232. ShowMessage('Биение='+FloatToStr(bien) ) ; ShowMessage('m='+FloatToStr(m)); Rewrite(FBiRu); Writeln(FBiRu, bien) ; Writeln(FBiRu,Rusr); CloseFile(FBiRu) ; } end ;procedure TForml.CalcPripClick(Sender: TObject);

233. Расчет припуска и производительности. const eps=0.0002; p = 2 0 0 0 ;dt=0.00000769; } var Rmax,Rmin,Azmax,Deltarmax,Azmin,Deltarmin,Az,Deltar, Lc ,

234. Z,Zmin,Zmax,ksimax,ksimin,ksipopmax,ksipopmin,r,m,ksir,ksech, polrmax,polrmin,ksipopr,b,Ret,x, у, mo, kum, xl,x2 , Ret 1,Ret2,PripO,Pripn: Double;

235. Bil nt. : = (Bi [nt]+mo)*kum; for nt:=3000 to pnt-3000 do beginif Bil nt.>=max then beginmax:=Bi1nt.; imax:=nt; end;if Bi1 nt.< =min then beginmin:=Bi1nt.; imin:=nt; end;end; Rmax:=0; Rrnin: =3276 8; imaxl:=0; iminl:=0;

236. Exx:=StrToFloat(editl.text); Rin:=StrToFloat(edit2.text); Ltr:=StrToFloat(edit3.text); Iold:=0;

237. SetLength(Masl,pnt+2*p); for nt:=1 to p do

238. Maslnt.:=Bi1[nt+p]; for nt:=l to pnt do

239. Maslnt+p. :=Bi1 [nt] ; for nt:=1 to pnt+p do begin1. Ue:=Mas1nt.;1.:=Iold+(Exx-Ue-Iold*Rin)*dt/Ltr; Masl nt. :=Ie; I o 1 d : = I e ; end;for nt:=l to pnt do

240. Masl nt. :=Masl[nt+p] ; j:=Round(1/f/dt); for i:=1 to pnt do begin

241. Rm1.:=Bi1i./Masl[i]; if Rm [i]>=Rmax then begin

242. Dir:=ExtractFilePath(OpenDialogl.Filename); AssignFile(FPrip,Dir+'Prip1); Rewrite(FPrip); max3gr:=0; min3gr:=32 768; ii:=1;

243. Prip ii. :=Pripmin-0.0000001;for i:=round(imin-j/2-100) to round(imin+j/2 + 100) do begin repeat

244. Prip ii. :=Prip[ii]+0.00000005; CalcKGP(Ru,Prip[ii] ,Az,Del tar,Z,Rey); ksipopr:=ksipop(Az); b : =2 * sqrt (dz*Az) ;

245. Ret : =ro*(1+alfat*(Tpl-TO))*Hh*dz/2/sqr(Az)/Ь/Z/ksipopr/sqrt(dz/Az1. ;

246. Until (abs(Ret-Rm1.)<eps) or ((Pripii.)>(Hz + 5*detprip/1000)) ; Prip[ii+1]:=Prip[ii]-0.00000015; WriteIn(FPrip,Prip [ii] ) ;if Pripii.>max3gr then max3gr:=Prip[ii]; if Prip [ii]<min3gr then min3gr:=Prip[ii] ; inc ( i i) ; end; { ii:=l;

247. PripO:=Pripmin-0.0000001; Pripn:=Hz+5*detprip/1000;for i:=round(imin-j/2 100) to round(imin+j/2 + 100) do beginksech:=(sqrt(5)-1)/2; xl:=Prip0+(1-ksech)*(Pripn-PripO); CalcKGP(Ru,xl,Az,Deltar,Z,Rey); ksipopr:=ksipop(Az); b : =2 * sqrt(dz*Az) ;

248. Retl : = ro* (1 + alfat*(Tpl-TO))*Hh*dz/2/sqr(Az)/Ь/Z/ksipopr/sqrt(dz/Az-1)-Rm 1. ;x2:=Prip0+ksech*(Pripn-PripO); CalcKGP(Ru,x2,Az,Deltar,Z,Rey); ksipopr:=ksipop(Az); b:=2*sqrt(dz*Az);

249. Pripn:=x2; x2 : =Xl; Ret2:=Ret1;xl:=PripO+ (1 ksech)*(Pripn-PripO) ; CalcKGP(Ru,xl,Az,Deltar,Z,Rey); ks ipopr:=ksipop(Az); b:=2 *sqrt(dz *Az) ; Retl:=ro*(1+alfat*(Tpl-TO))*Hh*dz/2/sqr(Az)/b/Z/ksipopr/sqrt(dz/Az-1)-Rm1.; end;end;

250. Prip ii. := (X1+X2) /2; Writeln(FPrip,Prip [ii]);if Pripii.>max3gr then max3gr:=Prip [ii] ; if Prip[ii]<min3gr then min3gr:=Prip[ii]; inc(ii);

251. PripO:=Pripii-1.; Pripn:=Hz+5*detprip/10 00; end; }

252. Pripi i. := Pripmin- 0.0000001;for i:=round(imax-j/2 100) to round(imax+j/2 + 100) do begin repeat

253. Pripii.:=Prip[ii]+0.00000005; CalcKGP(Ru,Prip [ii] ,Az,Del tar,Z,Rey) ; ksipopr:=ksipop(Az); b =2*sqrt (dz*Az) ;

254. Ret:=ro* (1+alfat* (Tpl-TO))*Hh*dz/2/sqr(Az)/b/Z/ksipopr/sqrt(dz/Az1. ;

255. Until (abs(Ret-Rm1.)<eps) or ((Pripi.)>(Hz+5*detprip/1000)); Prip [ii + 1] := Prip [ii] 0.00000015; Writeln(FPrip,Prip [ii] ) ;if Pripii.>max3gr then max3gr:=Prip[ii]; if Prip[ii]<min3gr then min3gr:=Prip[ii]; inc (i i); end ;

256. PripO:=Pripmin-0.0000001; Pripn:=Hz + 5 *detprip/10 0 0;for i:=round(imax-j/2-100) to round(imax+j/2+ 100) do beginksech:= (sqrt(5) -1)/2; xl -. =Prip0+ (1-ksech) * (Pripn-PripO) ; CalcKGP(Ru,xl,Az,Deltar,Z,Rey); ksipopr:=ksipop (Az) ; b:=2*sqrt(dz*Az);

257. Retl:=ro*(1+alfat*(Tpl-TO))*Hh*dz/2/sqr(Az)/b/Z/ksipopr/sqrt(dz/Az-1) -Rm 1. ;x2:=PripO+ksech*(Pripn-PripO); CalcKGP(Ru,x2,Az,Deltar,Z,Rey); ksipopr:=ksipop (Az); b:=2*sqrt(dz*Az);

258. Ret2:=ro*(1+alfat* (Tpl-TO))*Hh*dz/2/sqr(Az)/b/Z/ksipopr/sqrt(dz/Az1. -Rm 1. ;while Abs(x2-xl)*le9>=eps do beginif Abs(Retl)>=Abs(Ret2) then begin

259. PripO:=xl; Xl:=x2; Retl:=Ret2;x2:=PripO+ksech*(Pripn-PripO) ; CalcKGP(Ru,x2,Az,Deltar,Z,Rey); ksipopr:=ksipop(Az); b : =2 *sqrt (dz*Az) ,-Ret2:=ro*(1+alfat*(Tpl-TO))*Hh*dz/2/sqr(Az)/Ь/Z/ksipopr/sqrt(dz/Az-1)-Rm1.; end else begin

260. Pripn:=x2; X2:=xl; Ret2:=Retl;xl:=PripO+(1-ksech)*(Pripn-PripO); CalcKGP(Ru,xl,Az,Deltar,Z, Rey) ; ksipopr:=ksipop(Az); b : =2 *sqrt (dz*Az ) Retl:=ro*(1+alfat*(Tpl-TO))*Hh*dz/2/sqr(Az)/Ь/Z/ksipopr/sqrt(dz/Az-1)-Rm1.; end;end;

261. Pripii.:=(xl+x2)/2; Writeln(FPrip,Prip [ 1 i]);if Pripii.>max3gr then max3gr:=Prip[ii]; if Prip[ii]<min3gr then min3gr:=Prip[ii]; inc(ii);

262. Dir:=ExtractFilePath(OpenDialogl.Filename);1. AssignFile(FAz,Dir+'Az1);

263. AssignFile(FRey,Dir+1 Rey') ;

264. AssignFile(FDelta,Dir+1 Delta 1) ;1. AssignFile(FZ,Dir+'Z1);

265. AssignFile(FRlmin,Dir+'Rlmax');

266. AssignFile(FRlmax,Dir+'Rlmin1);

267. AssignFile(FYminmin,Dir+1Yminl');

268. XOU:=z*Pt*sqr(101)*(102/12+101/11)/3/E; y:=Rey-Rlit.*cos((x+xou-km*bet)/(km+Rl[it])) if y<ymin[jt] then ymin[jt):=y,-it=it+dettt ; end ;

269. Writeln(FYminmin,yminjt.); if ymin[jt]<yminob then beginyminob:=yminjt.; xminob:=X; endif yminjt.>ymaxob then beginymaxob:=yminj t.; xmaxob:=x; end;

270. CloseFile(FRey); CloseFile(FAz); CloseFile(Fz); ■ x: =x+chag; jt:=jt+l; end;min4gr:=yminob; max4gr:=ymaxob; Wz:=ymaxob-yminob; Sp:=Abs(xmaxob-xminob);

271. CloseFile(FRlmin); CloseFile(FYminmin); GrafYminOsi; GrafYmin; ShowMessage(1 ' ) ; Rlsr:=0; cht:=1;1.:=pi*sqr(sqr(dl))/64; 12:=pi*sqr(sqr(d2) ) / 64; while not SeekEof(FRlmax) do begin

272. Writeln(FYminmax,yminj t.) ; if ymin[jt]<yminob then beginyminob:=yminj t. ; xminob:=X; end;if yminjt.>ymaxob then beginymaxob:=yminjt.; xmaxob:=X; end;

273. ShowMessage ( ' ' ) ; chagx:=lll/xn;detyl:=(dety-Hh)*12/ (111 + 12)+Hh;

274. Pt:=taus*Azch*b*sin(eta)/sin(fi)/sin(eta+fi)+0.12 5*pi*mul*taus*sqr(dz); setkapl(chagx,chagy, dety,detyl,111,xn,yn,aset2,bset2);