автореферат диссертации по обработке конструкционных материалов в машиностроении, 05.03.01, диссертация на тему:Оценка состояния технологических систем комбинированных методов обработки

ВВЕДЕНИЕ.

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

1.1. Основные аспекты развития комбинированных методов обработки.

1.2. Особенности структуры технологической системы реализующей комбинированный метод обработки.

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

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

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

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

2. СТРУКТУРНЫЙ И ФУНКЦИОНАЛЬНО-ПРОЦЕССНЫЙ АНАЛИЗ ТЕХНОЛОГИЧЕСКОЙ СИСТЕМЫ.

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

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

2.3. Систематизация явлений, составляющих технологическое воздействие.

2.4. Анализ и синтез комбинированных методов обработки.

2.5. Общая структурная схема технологического воздействия.

2.6. Методика оценки состояния технологической системы и технологических показателей обработки.

2.6.1. Постановка задачи оценки состояния технологической системы.

2.7. Выводы.

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

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

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

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

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

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

3.5.1. Кинематико-геометрические условия механического воздействия.

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

3.5.3. Силовые характеристики механического воздействия.

3.5.4. Математическое описание профиля шлифовального круга.

3.5.5. Моделирование технологических показателей обработки.

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

3.7. Теоретические исследования с использованием модели на основе дискретного представления технологического воздействия.

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

3.9. Выводы.

4. ОПТИМИЗАЦИЯ ТЕХНОЛОГИЧЕСКИХ ПОКАЗАТЕЛЕЙ ОБРАБОТКИ НА ПРИМЕРЕ АЭХШ ПЕРА ТУРБИННОЙ ЛОПАТКИ.

4.1. Постановка задач оптимизации технологических показателей обработки на примере АЭХШ пера турбинной лопатки.

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

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

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

4.3. Выводы.

5. АППАРАТУРНО - МЕТОДИЧЕСКОЕ ОСНАЩЕНИЕ ЭКСПЕРИМЕНТОВ И КОНСТРУКТОРСКО - ТЕХНОЛОГИЧЕСКИЕ РАЗРАБОТКИ ЭЛЕМЕНТОВ ТЕХНОЛОГИЧЕСКИХ СИСТЕМ.

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

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

5.1.2. Условия проведения эксперимента.'!.

5.2. Экспресс контроль параметров состояния технологической системы.

5.3. Конструктивные особенности блока вейвлет-пакет пре образования сигнала в реальном времени.

5.4. Конструкторско-технологические разработки элементов технологической системы.

5.4.1. Конструктивные особенности управляемого источника технологического напряжения.

5.5. Выводы.

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

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

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

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

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

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

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

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

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

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

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

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

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

В четвертом разделе на примере АЭХШ пера турбинной лопатки реализовано поэтапное решение задачи оптимизации технологических показателей обработки. На первом этапе - стабилизация качественных показателей обработанной поверхности через приближения значений диагностических признаков электрического сигнала. На втором этапе - оптимизация технологических показателей обработки для каждого характерного участка профиля, образуемого в поперечном сечении построчным формообразованием пера лопатки.

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

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

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

2. Определена структура ТС, реализующей КМО, позволяющая осуществлять оценку ее состояния и технологических показателей обработки. В структуре ТС выделены по функциональному и функционально-процессному признакам подсистемы: технологического воздействия, контроля заготовок и деталей, технической диагностики, моделирования и управления воздействием.

3. Разработаны методики оценки состояния ТС и технологических показателей обработки, включающие в себя: обработку регистрируемого сигнала; идентификацию ДП сигнала с параметрами состояния ТС и технологических показателей обработки на основе физического моделирования.

4. Разработана структурная схема комбинированного технологического воздействия на основе систематизации физических явлений, позволяющая синтезировать КМО, осуществлять выбор регистрируемого сигнала и определять структуру модели технологического воздействия. Установлено соответствие между структурными схемами технологического воздействия и структурными схемами моделей технологического воздействия через типы регистрируемых сигналов для АЭХШ, АЭЭШ, ЭХХ, ЭХСФ, ГМО.

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

6. Установлены (на примере АЭХШ) частотные диапазоны отображения в спектральной области вейвлет-спектра: электрохимического воздействия - от 0 до 5.6,5 кГц, электроконтактного - эрозионного - от 0 до 60 кГц; и зоны интенсивности их проявления: электрохимического воздействия - от 0 до 500.800 Гц, электроконтактного - эрозионного - от 500.800 Гц до 12.45 кГц.

7. Разработаны методика и схема блока поиска оптимальных решений, позволяющие (на примере АЭХШ) осуществлять решение задачи оптимизации технологических показателей обработки на основе модели технологического воздейставия и базы готовых решений. Установлена структура базы готовых решений, элементами которой являются вектора сформированные параметрами: режима обработки, элементов ТС, модели технологического воздействия, технологических показателей обработки и ДП сигналов.

8. Решена задача стабилизации качественных показателей обработки для АЭХШ пера турбинных лопаток в результате поэтапного решения задачи оптимизации технологических показателей обработки. При стабилизации на 80% качественных показателей обработки по профилю поперечных сечений достигнуты

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

2. Автоматизация поискового конструирования/Под ред. А. И. Половинкина. М.: Радио связь, 1981. - 344 с.

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

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

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

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

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

8. Ахмед Н., Рао К. Р. Ортогональное преобразование при обработке цифровых сигналов: Пер. с англ./Под ред. И. Б. Фоменко. М.: Связь, 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. Вибро-акустическая диагностика зарождающихся де-фектов/Ф. Я. Балицкий, М. А. Иванов, А. Г. Соколов. М.: Наука, 1984г.-120 с.

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

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

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

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

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

26. ГОСТ 25331-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. - №11. - с.3-7.

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

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

35. Диагностика процесса металлообработки/ Остафьев В. А., Антонюк В. С., Тымчик Г. С. К.: Тэхника, 1991. - 152 с.

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

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

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

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

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

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

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

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

44. Иванов Н. И., Чибисов М. М., Мартынов В. В. Вопросы разработки методов размерной микрофинишной обработки деталей с упрочняющими покрытиями//Электрофиз. и электрохим. методы обраб.Тр.-Тула, 1995.- С. 19 24.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

67. Математическое моделирование катодных процессов/ A.M. Зимин, И. П. Назаренко, И. Г. Паневин, В. И. Хвесюк в. о. Новосибирск: "Наука". Сибирская издательская фирма, 1993. -194 с. - (Низкотемпературная плазма. Т. 11).

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

108. Управление колебаниями. Черноусько Ф. Л., Акуленко Л. Д., Соколов Б. Н М.: Наука, 1980. 384 с.

109. Упрочнение поверхностей деталей комбинированными способами. Бойцов А. Г., Машков В. Н., Смоленцев В. А., Хво-ростухин Л. А. М.: Машиностроение, 1991. - 144 с.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

125. Ящерицин П. И., Дорофеев В. Д., Пахалин Ю. А. Электроэрозионная правка алмазно-абразивных инструментов. -Мн.: Наука и техника, 1981. 232 с.

126. Akansu, А. N. Wavelets and Filter Banks. A Signal Processing Perspective. IEEE Circuits & Devices Magazine, Nov. 1994, S. 14-18.

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

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

129. 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.

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

131. Fischer T. Wavelet Transformation von instationaren214

132. Wirbeln und turbulenten Stromungsvorgangen. Diplomarbeit von cand.aer., Universitat Stuttgart, 1997.

133. Louis A.K., Maa P.R.A. Wavelets. Theorie und Anwendungen. Teubner Studienbticher, 1994, Stuttgart.

134. Ludders P.J. EEG-Segmentierung mit Hilfe der diskreten Wavelet-Transformation. Diplomarbeit, Technishe Universitat Berlin, 1997.

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

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

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

138. 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.

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

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

141. Private declarations } public

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

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

144. Trez31,1.:=323; for j:=2 to n do

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

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

147. Trez3i,j. : = (Trez3[i, j-1]*(1fi-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);

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

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

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

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

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

153. 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)/pi);ppl:=(Vd*pp2/Vu+h/arc2)*arc2;{пересчет Az}

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

155. Hh:={dz/6}StrToFloat(ComboBox9.Text);val(edit10.text,kk,ее);val(editll.text,kkk,ее);val(editl2.text,Ru,ее);sum:=0;for n:=l to nm do beginfor i:=l to fotn+1 do beginbetn,i.:=(2*pi*i)/fotn;

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

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

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

159. AssignFile(FIek,'d:\Reserv\'+Чек');

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

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

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

163. Azl;=abs((k*(betn, i.-betl) + (Rvbfn,i]1. Rvb2)/fimax2)*fimaxl);b:=2*sqrt(Azl*dz);

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

165. Az n,j. :=Az1; Iek[n,j] :=11; end;end;

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

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

168. 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) ;

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

170. Az n,j. :=Azl; Iek[n,j]:=I1; end;end;

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

172. Writeln(FIek,Isumfi. :11:9); end;for n:=l to rati do beginfor i:=l to fotn+1 do beginif n=l then

173. Writeln(FR,Rvbn,iJ:9:7); Write(FAz,Az[n,i.:9:7,1 '); end;1. Writeln(FAz,' ');end;

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

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

176. Fim:=arccos((Rsr-t)/Rsr) ;1.:=Fim*Rsr;расчет длины 2-й зоны}if krit<=Fim then12:=Rsr*krit else12 :=Lk;kzl:=Round((11+12)/betconst/Rsr); for n:=1 to 20 dofor i:=l to fotn+1 do begin Rsrl:=0;for j:=i to i+kzl do

177. Calclp(ll,12,dety,Hh,detyl,Azn, i.,Ip) ; lech fn,i]:=Ip;kzl:=Round((11+12)/betconst/Rsr1); end;

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

179. Writeln(Flech,Isumfi.{-Moch}:11:9); end;

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

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

182. AssignFile(Flechpr,'d:\Reserv\'+'Iechpr'); Rewrite(Flechpr); for j:=l to ndob+1 do for i:=l to fotn do

183. Sp:=StrToFloat(ComboBox2.Text); t;=StrToFloat(ComboBox5.Text); fu.:=StrToFloat (ComboBox3.Text) /60; dz:=StrToFloat(ComboBox4.Text); dz:=dz/le6;

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

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; EditS: TEdit; CBoxl: TComboBox; StaticText9: StaticTextlO; TStaticText; StaticTextll: TStaticText; StaticText5: TStaticText;

190. StaticTextl2: TStaticText; Edit6: TEdit; StaticTextl5: TStaticText; СВохб: TComboBox; StaticTextl6: TStaticText; StaticTextl7: TStaticText; StaticTextl4: TStaticText; Voln: TMenuItem; StaticTextl3: TStaticText; Chimia: TMenuItem;

191. Private declarations ) public

192. OpenDialogl.InitialDir:='c:\reservl\baza1; if OpenDialogl.Execute then begin

193. AssignFile(fl,OpenDialogl.FileName); {$!-}

194. Reset(fl); if IOResultoO then begin

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

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

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

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

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

200. 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)/pi);ppl:=(Vd*pp2/Vu+h/arc2)*arc2;

201. Bn:=Kz*sqr(dz)*sqrt(dz/(ppl+h))/(ppl+h)/Kbzl;

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

203. Reset(Fprip); if lOResultoO then begin

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

205. AssignFile(FBiRu,Dir+'BiRu');1. AssignFile{FAz,Dir+'Az');

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

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

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

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

210. Forml.Gaugel.Visible:=True;

211. Forml.Gaugel.MaxValue: = (pnt div 1)-80;val(edit5.text,Fb,e);dt:=l/Fb;val(edit 6.text,mo,e); kum:=StrToFloat(CBox6.Text); for nt:=l to pnt do

212. Bilnt.:=(Bi[nt]+mo)*kum; Rmax:=0; Rmin:=327 68; imaxl:=0; iminl:=0;

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

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

215. Maslnt.:=Bil[nt+p]; for nt:=l to pnt do

216. Maslnt+p.:=Bil[nt]; for nt:=l to pnt+p do begin1. Ue:=Maslnt.;1.:=Iold+(Exx-Ue-Iold*Rin)*dt/Ltr; Maslnt.:=Ie; Iold:=Ie; end;for nt:=l to pnt do

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

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

219. Rmax:=Rm1.; imaxl:=i; end;if Rm1.<=Rmin then begin

220. Rmin: =Rm i . ; iminl:=i; end;end; Vu:=2*pi*Ru* f; val(edit<3.text,Deltad,e); Rlmax:=Ru+Deltad/1000; Rlmin:=Ru-Deltad/1000; T1:=StrToFloat(CBoxl.Text); Re:=Rlmin+Hz-Tl/1000; Fim:=arccos(Re-Hz)/Ru; TT:=Fim/2/pi/f;

221. R11.:=Ru-1.2*deltad/1000-0.0000001; ii: =1; max2gr:=0; min2gr:=327 68;for i:=round(imin-j/2-100) to round(imin+j/2+100) do begin repeat

222. R1 ii. :=R1[ii]+0.0000001;

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

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

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

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

227. R1 ii. :=Rl[ii]+0.0000001;

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

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

230. Ruk1.:=R1i.-x*sin(2*pi*f*dt*(i-l))-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;

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

232. Bilnt.:=(Bi[nt]+mo)*kum; for nt:=3000 to pnt-3000 do beginif Bilnt.>=max then beginmax:=Bilnt.; imax:=nt; end;if Bilnt.<=min then beginmin:=Bilnt.; imin:=nt; end;end; Rmax:=0; Rmin:=32768; imaxl:=0; iminl:=0;

233. Exx:=StrToFloat(editl.text); Rin:=StrToFloat(edit2.text); Ltr:=StrToFloat(edit3,text); lold:=0;

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

235. Maslnt.:=Bil[nt+p]; for nt:=l to pnt do

236. Maslnt+p.:=Bil[nt]; for nt:=l to pnt+p do begin1. Ue:=Maslnt.;1.:=Iold+(Exx-Ue-Iold*Rin)*dt/Ltr; Maslnt.:=Ie; Iold:=Ie; end;for nt:=l to pnt do

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

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

239. CalcKGP(Ru,Pripmax,Azmax,Deltarmax,Zmax,Rey);

240. Dir:=ExtractFilePath(OpenDialogl.Filename); AssignFile(FPrip,Dir+'Prip'); Rewrite(FPrip); max3gr:=0; min3gr:=32768; ii:=l;

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

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

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

244. Until (abs(Ret-Rm1.)<eps) or ((Pripii.)>(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(ii); end; { ii:=1;

245. 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) ;

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

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

248. 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

249. 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) ; Ret 1:=ro*(1 + alfat*(Tpl-TO))*Hh*dz/2/sqr(Az)/Ь/Z/ksipopr/sqrt(dz/Az-1)-Rm1.; end;end;

250. Pripii.:=(xl+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/1000; end; }

252. Pripii.:=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,Deltar,Z,Rey); ksipopr:=ksipop(Az); b:=2*sqrt(dz*Az);

254. Ret:=ro*(1+alfat*(Tpl-TO))*Hh*dz/2/sqr(Az)/Ь/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 (ii); end;

256. PripO:=Pripmin-0.0000001; Pripn:=Hz+5*detprip/1000;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)/Ь/Z/ksipopr/sqrt(dz/Az-1)-Rm1.;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)/Ь/Z/ksipopr/sqrt (dz/Az1.-Rm1.;while Abs(x2-xl)*le9>=eps do beginif Abs(Retl)>=Abs(Ret2) then begin

259. PripO:=xl; xl:=x2; Retl:=Ret2;x2:=Prip0+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:=Ret1;xl:=Prip0+(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. Pripfii.:=(xl+x2)/2; Writeln(FPrip,Pripii]);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+'Rey');

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

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

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

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

268. Read(FRlmin,R1cht.); Rlsr:=Rlsr+Rl[cht]; Inc(cht); end; cht:=cht-l; Rlsr:=Rlsr/cht;dettt:=Round(detsr/Rlsr/2/pi/f/dt) ; x:=0;yminob:=32768; ymaxob:=0; xminob:=0; xmaxob:=0; chag:=0.000001; jt:=l;while x<=0.001 do beginyminjt.:=327 68; it:=1;

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

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

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