Помощь в написании студенческих работ
Антистрессовый сервис

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

Диссертация: Управление показателями качества поверхности при комбинированных технологических воздействиях
ДиссертацияПомощь в написанииУзнать стоимостьмоей работы

Предложен вариант управления показателями качества поверхности пера лопаток ГТД при АЭХШ, включающий в себя решение задач стабилизации и оптимизации показателей качества, который позволил получить следующие результаты: шероховатость вдоль профиля поперечных сечений &-я=0,9±-0,03 мкмвдоль профиля продольных сечений Ra = 1,2 ± ОД мкмволнистость по профилю пера — Wa= 4,2±0,4 мкмостаточные… Читать ещё >

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

Содержание

  • 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 мм³ /мин.

Показать весь текст

Список литературы

  1. А. с. № 1 000 207 (СССР). МКИ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, СТ СЭВ 25 623−80) Единая система технологической документации. М.: Изд-во стандарт, 1983, — 8 с.
  26. ГОСТ 2533 1−82 Обработка электроэрозионная. М.: Изд-во стандарт, 1982, — 10 с.
  27. ГОСТ 14.004−83 (СТ СЭВ 2521−80) Единая система технологической подготовки производства. М.: Изд-во стандарт, 1984, 10 с.
  28. ГОСТ 21 964–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. Я. Г. Введение в теорию механических колебаний. М.: Наука, 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. — Куйбышев, 1 976. — с.84 — 90.
  108. Теория электрической дуги в условиях вынужденного теплообмена / Отв. ред. М. Ф. Жуков.- Новосибирск: Наука, 1977. 3 1 1 с.
  109. Управление качеством продукции: Справочник / Под ред. В. В. Бойцова, A.B. Голичева. М.: Изд-во стандартов, 1985.
  110. Л. Н. Высокоскоростное шлифование. -JE: Машиностроение, 1979. 248 с.
  111. Я. А., Тарловский Г. Р. Статистическая теория распознавания образов. М.: Радио и связь, 1986. — 264 с.
  112. Френке J1. Теория сигналов: Пер. с англ. М.: Советское радио, 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-В99 28 с.
  121. В. А., Иванова Т. И., Танкиева Т. А., Моделирование комбинированных методов обработки на основе применения многомасштабного анализа / Труды региональной НТК. Тула, 1998. с.100−104.
  122. Г. Теория пограничного слоя. М.: Наука, 1974. — 710 с.
  123. Л. Ш. Адгезионное взаимодействие режущего инструмента с обрабатываемым материалом. М.: Машиностроение, 1988. 96 с.
  124. Янг С., Эллисон А. Измерение шума машин: Пер. с англ. М.: Энрегоатомиздат, 1988. — 144 е., ил.
  125. Akansu, A.N., Haddad R. A. Multiresolution Signal Decomposition. Transforms, Subbands and Wavelets. Academic Press, London, 1992.
  126. Daubechies I. Ten Lectures on Wavelets. CBMS-NSF: Society for Industrial and Applied Mathematics (SIAM), 1992.
  127. 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.
  128. Daubechies I.: Orthogonal Bases of Compactly Supported Wavelets. Communications on Pure Applied Mathematics, 1988, Vol. 41, S. 909−996.
  129. Fischer T. Wavelet Transformation von instationaren Wirbeln und turbulenten Stromungsvorgangen. Diplomarbeit von cand.aer., Universitat Stuttgart, 1997.
  130. Louis A.K., Maa P.R.A. Wavelets. Theorie und Anwendungen. Teubner Studienbucher, 1994, Stuttgart.
  131. Ludders P.J. EEG-Segmentierung mit Hilfe der diskreten Wavelet-Transformation. Diplomarbeit, Technishe Universitat Berlin, 1997.
  132. 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.
  133. Meyer Y. Wavelets. Algorithms and Applications. Phildelphia: Society for Industrial and Applied Mathematics (SIAM), 1993.
  134. 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.
  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. Программа расчета теоретического сигналаunit Signal-interfaceuses
  137. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Math, ExtCtrls- type
  138. Private declarations } public
  139. Расчет температуры во 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
  140. Trez3 i, 1. :=Trezll[i, Round (yn/2)]-
  141. Trez3 1,1.: =323 — for j:=2 to n do
  142. 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
  143. Trez3 i, j. :=(Trez3[i, j-1] *(lx-lfi)+Td*dl)/ (lx-lfi+dl) — if lfi>lx then
  144. 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) —
  145. Расчет температуры в 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
  146. Trez3 i, j. :=Trez3[i, j-1]+dl*(Td-Trez3[i, j-1])/(dl + lx-lfi)-if lfi>lx then
  147. А, С, 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.5 — if (Re-p2)≥pl then
  148. Ant:=pp4nt*sqr (101)*(102/12+101/11)/3/Е- С:=Bb/dz/pp2-
  149. A:=pp4*sqr (101) * (102/12 + 101/11)/3/Е-
  150. 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}
  151. Bn:=Kz*sqr (dz)*sqrt (dz/(ppl+h))/(ppl+h)/Kbzl-{расчет }
  152. Процедура построения 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-
  153. 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-
  154. Rui:=sqrt{sgr (detd) +2 *Ru*detd*cos (betn, i.)+sqr (Ru))+detd/kk*sin (bet [n, i] kk) —
  155. Rvbn, i. :=Rui-RandG (0,dz/3) — sum:=sum+Rvb[n, i]- end-for i:=fotn+2 to 2* (fotn+1) do
  156. Rvb n, i. :=Rvb[n, i-fotn-1] - for i:=l to 2*(fotn+1) do bet [n, i]: = (4 *pi * i) /fotn-end-
  157. AssignFile (Flek, 'd:Reserv' + 1Iek') —
  158. AssignFile (FAz, 'd:Reserv' + 1Az') —
  159. AssignFile (FR, 1d: Reserv' + 'R') -1. Rewrite (Flek)-1. Rewrite (FAz)-1. Rewrite (FR)-1. Vu:=2*pi*Ru*fu-
  160. 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
  161. 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
  162. Azn, j.:=Az1- Iek [n, j]: =11- end-end-
  163. PredTn, predtcount.:=i- Inc (predtcount) — Rvbl:=Rvb[n, i]- betl:=bet [n, i]- end else begin
  164. 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
  165. 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) —
  166. 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
  167. Azn, j.:=Az1- Iek [n, j] :=I1- end-end-
  168. ShowMessage (1 Imax-Imin='+FloatToStr (Abs (maxlgr-minlgr))) — ShowMessage (1Icp='+FloatToStr (Moek)) — Ism:=I sum-ndob:=Trunc (16 384/(fotn+1)) — for j:=1 to ndob do for i:=1 to fotn+1 dobegin
  169. Writeln (FIek, Isum 1.: 11: 9) ,-end-for n:=1 to nm do beginfor i:=l to fotn+1 do beginif n=l then
  170. Writeln (FR, Rvb n, i. :9:7) — Write (FAz, Az (n, i]: 9:7,' ') — end-1. Writeln (FAz,' 1)-end —
  171. Write (FIek,'Imax=1,maxlgr:11:9) — Write (FIek,' Imin=', minlgr:11:9) — Writeln (FIek,' Icp=1,Moek:11:9) —
  172. 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) —
  173. Calclp (11,12,dety, Hh, detyl, Azn, i., Ip) — lech [n, i]: = Ip -kzl:=Round ((11+12)/betconst/Rsrl) — end-
  174. 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
  175. Writeln (Flech, Isum 1. {-Moch}:11:9) — end-
  176. Write (Flech, 1Imax=', maxlgr:11:9) —
  177. Write (Flech,' Imin=', minlgr:11:9) — Writeln (Flech,' Icp=', Moch:11:9) —
  178. 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) —
  179. 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
  180. AssignFile (Flechpr,'d:Reserv'+1lechpr')-1. Rewrite (Flechpr)-for j:=1 to ndob+1 dofor i:=1 to fotn do
  181. Sp:=StrToFloat (ComboBox2.Text) — t:=StrToFloat (ComboBox5.Text) — fu:=StrToFloat (СошЬоВохЗ.Text)/60- dz:=StrToFloat (ComboBox4.Text) — dz:=dz/le6-
  182. Hh:=StrToFloat (ComboBox9.Text) — f:=StrToFloat (СошЬоВохб.Text) — Vu :=2 *pi *Ru* fU- Vd :=Sp/60-
  183. Wz:=ymaxob-yminob¦ Sp:=Abs (xmaxob-xminob) — Writeln (FW, Wz) — Writeln (FW, Sp) — CloseFile (FW) — end- end.
  184. Программа расчета показателей процесса алмазного электрохимического шлифования на основе модели идентификацииunit raschet-interfaceuses
  185. SysUtils, WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Menus,
  186. StdCtrls, Gauges, ExtCtrls, Dialogs, Math-type
  187. StaticText3: TStaticText- StaticText4: TStaticText- StaticText6: TStaticText-
  188. StaticText7: TStaticText- StaticText8: TStaticText- Imagel: TImage- Image2: TImage- Edit4: TEdit- Edit5: TEdit- CBoxl: TComboBox- StaticText9: StaticTextlO: TStaticText- StaticTextll: TStaticText- StaticText5: TStaticText-
  189. StaticTextl2: TStaticText- Edit6: TEdit- StaticTextl5: TStaticText- CBox6: TComboBox- StaticText16: TStaticText- StaticTextl7: TStaticText- StaticTextl4: TStaticText- Voin: TMenuItem- StaticText13: TStaticText- Chimia: TMenuItem-
  190. Private declarations } public
  191. Bi, Bil, Prip, rez, Ruk, Ymm, R1: Ar ray 1. 33 000. of Double-maxlgr, minlqr, max2gr, min2gr, max3gr, min3grfmax4gr, min4gr, bieri, R. sr, Vu, dety,
  192. OpenDialogl.InitialDir:='c:reservibaza1- if OpenDialogl. Execute then begin
  193. AssignFile (f1,OpenDialogl.FileName) — {$!-}
  194. Reset (f1) — if IOResultoO then begin
  195. StaticTextl3.Caption: = 1 График сигнала '- GrafSigOsi- 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:=1 to pnt do
  197. Расчет кинематико-геометрических и динамических параметров}var ppl, рр2, ррЗ, рр4, pp2n, pp4n, pplnt, pp4nt, etant, fint, etant1, fintl: Double —
  198. Ant:=pp4nt*sqr (101)*(102/12+101/11)/3/Е- С: =Bb/dz/pp2-
  199. A:=pp4*sqr (101) * (102/12 + 101/ID/3/E-
  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)/pl) — ppl:=(Vd*pp2/Vu+h/arc2)*arc2-
  201. Dir:=ExtractFilePath (OpenDialogl.Filename) — AssignFile (FPrip, Dir+'Prip') — {$!-}
  202. Reset (Fprip) — if IOResultoO then begin
  203. MessageBox (0Расчет припуска не произведен', nil, mbIconHand or mb0k)-1. Exit- end- {$ 1 + }
  204. AssignFile (FBiRu, Dir+1BiRu1)-1. AssignFile (FAz, Dir+'Az1) —
  205. AssignFile (FRey, Dir +'Rey') —
  206. AssignFile (FDelta, Dir+'Delta') —
  207. AssignFile (FZ, Dir+' Z 1) —
  208. AssignFile (FRlmin, Dir+'Rlmax') —
  209. AssignFile (FRlmax, Dir+'Rlmin') —
  210. Forml.Gauge 1. Visible:=True-
  211. 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
  212. Bil nt. :=(Bi[nt]+mo)*kum- Rmax:= 0- Rmin:=32 768- 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:=1 to p do
  215. Maslnt. :=Bil [nt+p] - for nt:=1 to pnt do
  216. 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
  217. nt. :=Masl [nt+p]- j:=Round (l/f/dt) — for i:=1 to pnt do begin
  218. Rm1.:=Bili./Masl[i]- if Rm[i]≥Rmax thenbegin
  219. Rmax:=Rm 1. — imaxl:=i- end-if Rm 1.≤Rmin then begin
  220. 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
  221. CalcKGP (Rlmax, Hz, Azmax, Deltarmax, Zmax, Rey) —
  222. Rl1.: =Ru-1. 2*deltad/1000−0.1- ii:=l- max2gr:=0- min2gr:=32 768-for i:=round (imin-j/2−100) to round (imin+j/2+10 0) do begin repeat1. Rlii.:=Rl[ii]+0.1-
  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) /b/Z/ksipopr/sqrt (dz/Az1. -
  225. CloseFile (FRlmin) — Rewrite (FRlmax) —
  226. Rl ii. :=Ru-1.2*deltad/1000−0.1-for i:=round (imax-j/2−100) to round (imax+j/2+100) do begin repeat
  227. Rl ii. :=Rl[ii]+0.1-
  228. CalcKGP (R1 ii3, Pripfii., 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. 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]
  231. ShowMessage ('Биение='+FloatToStr (bien)) — ShowMessage ('m='+FloatToStr (m)) — Rewrite (FBiRu) — Writeln (FBiRu, bien) — Writeln (FBiRu, Rusr) — CloseFile (FBiRu) — } end -procedure TForml. CalcPripClick (Sender: TObject) —
  232. Расчет припуска и производительности. const eps=0.0002- p = 2 0 0 0 -dt=0.769- } var Rmax, Rmin, Azmax, Deltarmax, Azmin, Deltarmin, Az, Deltar, Lc ,
  233. 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-
  234. 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-
  235. Exx:=StrToFloat (editl.text) — Rin:=StrToFloat (edit2.text) — Ltr:=StrToFloat (edit3.text) — Iold:=0-
  236. SetLength (Masl, pnt+2*p) — for nt:=1 to p do
  237. Maslnt.:=Bi1[nt+p]- for nt:=l to pnt do
  238. 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
  239. nt. :=Masl[nt+p] - j:=Round (1/f/dt) — for i:=1 to pnt do begin
  240. Rm1.:=Bi1i./Masl[i]- if Rm [i]≥Rmax then begin
  241. Dir:=ExtractFilePath (OpenDialogl.Filename) — AssignFile (FPrip, Dir+'Prip1) — Rewrite (FPrip) — max3gr:=0- min3gr:=32 768- ii:=1-
  242. ii. :=Pripmin-0.1-for i:=round (imin-j/2−100) to round (imin+j/2 + 100) do begin repeat
  243. ii. :=Prip[ii]+0.5- CalcKGP (Ru, Prip[ii], Az, Del tar, Z, Rey) — ksipopr:=ksipop (Az) — b: =2 * sqrt (dz*Az) —
  244. Ret: =ro*(1+alfat*(Tpl-TO))*Hh*dz/2/sqr (Az)/Ь/Z/ksipopr/sqrt (dz/Az1. -
  245. Until (abs (Ret-Rm1.)(Hz + 5*detprip/1000)) — Prip[ii+1]: =Prip[ii]-0.15- WriteIn (FPrip, Prip [ii]) -if Pripii.>max3gr then max3gr:=Prip[ii]- if Prip [ii]
  246. PripO:=Pripmin-0.1- 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) —
  247. 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) —
  248. 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-
  249. ii. := (X1+X2) /2- Writeln (FPrip, Prip [ii])-if Pripii.>max3gr then max3gr:=Prip [ii] - if Prip[ii]
  250. PripO:=Pripii-1.- Pripn:=Hz+5*detprip/10 00- end- }
  251. i. := Pripmin- 0.1-for i:=round (imax-j/2 100) to round (imax+j/2 + 100) do begin repeat
  252. Pripii.:=Prip[ii]+0.5- CalcKGP (Ru, Prip [ii], Az, Del tar, Z, Rey) — ksipopr:=ksipop (Az) — b =2*sqrt (dz*Az) —
  253. Ret:=ro* (1+alfat* (Tpl-TO))*Hh*dz/2/sqr (Az)/b/Z/ksipopr/sqrt (dz/Az1. -
  254. Until (abs (Ret-Rm1.)(Hz+5*detprip/1000)) — Prip [ii + 1] := Prip [ii] 0.15- Writeln (FPrip, Prip [ii]) -if Pripii.>max3gr then max3gr:=Prip[ii]- if Prip[ii]
  255. PripO:=Pripmin-0.1- 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) —
  256. 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) —
  257. 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
  258. 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
  259. 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-
  260. Pripii.:=(xl+x2)/2- Writeln (FPrip, Prip [ 1 i])-if Pripii.>max3gr then max3gr:=Prip[ii]- if Prip[ii]
  261. Dir:=ExtractFilePath (OpenDialogl.Filename)-1. AssignFile (FAz, Dir+'Az1) —
  262. AssignFile (FRey, Dir+1 Rey') —
  263. AssignFile (FDelta, Dir+1 Delta 1) -1. AssignFile (FZ, Dir+'Z1) —
  264. AssignFile (FRlmin, Dir+'Rlmax') —
  265. AssignFile (FRlmax, Dir+'Rlmin1) —
  266. AssignFile (FYminmin, Dir+1Yminl') —
  267. XOU:=z*Pt*sqr (101)*(102/12+101/11)/3/E- y:=Rey-Rlit.*cos ((x+xou-km*bet)/(km+Rl[it])) if y
  268. Writeln (FYminmin, yminjt.) — if ymin[jt]ymaxob then beginymaxob:=yminj t.- xmaxob:=x- end-
  269. CloseFile (FRey) — CloseFile (FAz) — CloseFile (Fz) — ¦ x: =x+chag- jt:=jt+l- end-min4gr:=yminob- max4gr:=ymaxob- Wz:=ymaxob-yminob- Sp:=Abs (xmaxob-xminob) —
  270. 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
  271. Writeln (FYminmax, yminj t.) — if ymin[jt]ymaxob then beginymaxob:=yminjt.- xmaxob:=X- end-
  272. ShowMessage (' ') — chagx:=lll/xn-detyl:=(dety-Hh)*12/ (111 + 12)+Hh-
  273. 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) —
Заполнить форму текущей работой

Сессия? Спокойно!