Диплом, курсовая, контрольная работа
Помощь в написании студенческих работ

Метод и технические средства автоматизированного мониторинга металлоконструкций грузоподъемных кранов

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

Значительное количество грузоподъемных кранов, находящихся в эксплуатации в России, к настоящему времени выработали нормативный срок и их эксплуатация продлевается на основании проводимых обследований с целью определения возможности их дальнейшей эксплуатации. При проверке состояния металлических конструкций на практике в основном применяют визуальные методы обнаружения дефектов. Как известно… Читать ещё >

Содержание

  • 1. ПРОБЛЕМЫ АВТОМАТИЗАЦИИ МОНИТОРИНГА МЕТАЛЛОКОНСТРУКЦИЙ ГРУЗОПОДЪЕМНЫХ КРАНОВ И ЗАДАЧИ ИССЛЕДОВАНИЯ
  • 1. Л. Работоспособность металлоконструкции, и факторы влияющие на неё
    • 1. 2. Возможные дефекты и порядок диагностирования несущих металлоконструкций
    • 1. 3. Методы и средства контроля дефектов материала несущих металлоконструкций
    • 1. 4. Современные методы и технические средства для неразрушающего контроля трещин несущих металлоконструкций грузоподъемных кранов
    • 1. 5. Методы и средства автоматизированного мониторинга металлических конструкций и способы оценки их остаточного ресурса
    • 1. 6. Цель работы и задачи исследования
  • 2. ПОСТРОЕНИЕ МОДЕЛИ НАКОПЛЕНИЯ ПОВРЕЖДАЕМОСТИ В ДИАГНОСТИРУЕМЫХ МЕТАЛЛОКОНСТРУКЦИЯХ
    • 2. 1. Изменение свойств поверхности материала в процессе накопления усталости
    • 2. 2. Кинетика накопления усталостной повреждаемости металлоконструкции
    • 2. 3. Модель накопления повреждаемости
  • Выводы
  • 3. АВТОМАТИЗИРОВАННЫЙ МОНИТОРИНГ МЕТАЛЛОКОНСТРУКЦИЙ
    • 3. 1. Способ автоматизированного диагностирования металлоконструкций грузоподъемных кранов с помощью средств оптической рефлектометрии
    • 3. 2. Формирование информационного сигнала на входе рефлектометрической системы контроля усталостных повреждений металлоконструкции
    • 3. 3. Принципы обнаружения усталостных повреждений металлоконструкции
    • 3. 4. Оптические методы обнаружения повреждений поверхности
      • 3. 4. 1. Корреляционные способы контроля
      • 3. 4. 2. Контроль повреждений анализом формы индикатриссы рассеяния поверхности
      • 3. 4. 3. Контроль анализом дисперсий индикатриссы рассеяния поверхности
    • 3. 5. Принцип работы программы обнаружения усталостных повреждений
  • Выводы
  • 4. ЭКСПЕРИМЕНТАЛЬНЫЕ ИССЛЕДОВАНИЯ СИСТЕМЫ АВТОМАТИЗИРОВАННОГО МОНИТОРИНГА НЕСУЩИХ МЕТАЛЛОКОНСТРУКЦИЙ КРАНОВ
    • 4. 1. Методика эксперимента
    • 4. 2. Экспериментальные данные
    • 4. 3. Анализ изменений оптических свойств поверхностей контрольных площадок под действием циклического нагружения
  • Выводы
  • 5. ВЫБОР ОПТИМАЛЬНОГО АЛГОРИТМА КОНТРОЛЯ УСТАЛОСТНЫХ ПОВРЕЖДЕНИЙ
    • 5. 1. Критерии эффективности алгоритмов обнаружения усталостных повреждений
    • 5. 2. Библиотека алгоритмов обнаружения усталостных повреждений поверхности
    • 5. 3. Эффективность алгоритмов рефлектометрического контроля усталостных повреждений поверхности
  • Выводы

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

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

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

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

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

— для повышения надежности диагностирования применяют последовательно несколько методов обнаружения дефектов, что ведет к неоправданно большой трудоемкости контроля;

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

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

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

Решению этой задачи посвящена диссертация.

Работа выполнялась в соответствии с тематикой научно — технической программы «Научные исследования высшей школы по приоритетным направлениям науки и техники», подпрограмма «Производственные технологии», раздел «Технология современного заготовительного производства. Сварка и диагностические комплексы», тема ПТ. 67.

Диссертация состоит из введения, пяти разделов, основных результатов и выводов, списка использованных источников и приложения.

ОСНОВНЫЕ РЕЗУЛЬТАТЫ И ВЫВОДЫ.

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

В рамках проведенных исследований получены следующие основные результаты:

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

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

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

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

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

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

7. Экспериментальные исследования подтвердили связь между изменениями оптических свойств поверхности контрольной площадки и степенью усталостного повреждения испытываемого образца. Величины корреляционного интервала, а для поверхности образца до нагружения и после уменьшаются от 0,035 мм до 0,005 мм, а значение среднеквадратического отклонения высот микронеровностей сг увеличивается от 0,4 мм до 0,0534 мм.

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

9. На основе экспериментальных данных получена регрессионная модель, позволяющая оценить остаточный ресурс диагностируемого образца. No=0,.12 343 + 0,.20 419 ¦ In R.

10.Исследована эффективность алгоритмов контроля усталостных повреждений. С учетом всех требований к алгоритму контроля трещинообразования оптимальным является алгоритм, реализующий линейную коррекцию усиления диффузного канала. При его применении величина относительного среднего риска при обнаружении трещины с глубиной z0=0,01 мм и раскрытием Ах =0,02 мм составляет R/Rmax =0,7, а десятичный логарифм отношения сигнал/среднеквадратическое значение шума lg и с max.

— 22.

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

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

  1. Акустическая эмиссия и ее применение для неразрушающего контроля в ядерной энергетике / Под ред. К. Б. Вакара. М: Атомиздат, 1980. — 214 с.
  2. Н.Н. Статистическая теория усталостной прочности металлов. Киев.: Изд. АНУССР, 1953. — 128 с.
  3. Ф.Г., Фукс И. М. Рассеяние волн на статистически неровной поверхности. М.: Наука, 1972. — 424 с.
  4. В.В. Статистические методы в строительной механике. -М.: Стройиздат, 1965. -279 с.
  5. В.В. Ресурс машин и конструкций. М.: Машиностроение, 1990. — 623 с.
  6. А.В. Технологичность и несущая способность крановых металлоконструкций. М.: Машиностроение, 1984. -167 с.
  7. В.В. Физическая природа разрушения металлов. -М.: Металлургия, 1984. 280 с.
  8. В.Н. Контроль качества сварных конструкций. М.: Машиностроение, 1986. — 152 с.
  9. B.C., Касаткин С. Б. Развитие пластической деформации в вершине трещиноподобных дефектов // Автоматическая сварка. 1976,-№ 8.-С. 72−73.
  10. В.Е. Теория вероятностей и математическая статистика. Учеб. пособие для втузов. Изд. 5-е, перераб. и доп. М.: Высшая школа, 1977. — 479.
  11. С.А., Пушкар А. Микропластичность и усталость металлов. М.: Металлургия, 1980, — 240 с.
  12. В.М., Терентьев В. Ф. Структура и усталостное разрушение металлов. М.: Металлургия, 1980. — 208 с.
  13. Е.В., Карпенко Н. Т. Повышение долговечности металлических конструкций мостовых кранов. Киев — Донецк: Вишашк., 1986.- 145 с.
  14. М.М. Металлические конструкции подъемно -транспортных машин. Изд. 3-е, допол. и переработ. Л.: Машиностроение. Ленингр. отделение, 1976. — 456 с.
  15. В.М., Лавриненко Ю. А. Напалков А.В. Прогнозирование разрушения металлов в процессе холодной пластической деформации // Пробл. Прочности. 1999. — № 1. -С. 76−85.
  16. Диагностирование грузоподъемных машин / В. И. Сероштан, Ю. С. Огарь, А. И. Головин и др.: Под ред. В. И. Сероштана, Ю. С. Огаря. -М.: Машиностроение, 1992. 192 с.
  17. B.C., Сорокин П. А., Селиверстов Г. В. Технология структурного мониторинга состояния металлоконструкций грузоподъемных кранов // Сб. науч. трудов ведущих ученых технологического факультета. Тула: ТулГУ, 2000. — С. 143 — 147.
  18. B.C. Усталостное разрушение металлов. М.: Металлургия, 1963. — 272 с.
  19. B.C., Орлов Л. Г., ТерентьевВ.Ф. и др. ФММ- 1972. т. 33, вып. № 3,-С. 627 -633.
  20. B.C., Терентьев В. Ф. Природа усталости металлов. М.: Металлургия, 1975. — 456 с.
  21. B.C., Шанявский А. А. Количественная фрактография. Усталостное разрушение. Челябинск: Металлургия, 1988. -400 с. машин и конструкций на прочность и долговечность: Справочник. М.: Машиностроение, 1985. — 224 с.
  22. Д. Повреждение материалов в конструкциях. Анализ, предсказание, предотвращение: Пер. с англ. М.: Мир, 1984. -624 с.
  23. А. А. Автоматизированный контроль дефектов поверхности деталей методом анализа дисперсий. Автореф. дис. на соиск. уч. степ, к-та техн. наук. Тула: ТулГУ, 2001.
  24. Е.М., Розеншейн Б. М. Ремонт крановых металлоконструкций. -М.: Машиностроение, 1979. 206 с.
  25. Кох П. И. Климат и надежность машин. М.: Машиностроение, 1981.- 175 с.
  26. С. Усталостное разрушение металлов. М.: Металлургия, 1976. — 456 с.
  27. С. Усталостное растрескивание металлов. М.: Металлургия, 1990. — 623 с.
  28. А.Я. Физические основы прочности. Киев: Наукова думка, 1977.- 140 с.
  29. А.А., Обрадович К. А. Оптические приборы для измерения шероховатой поверхности. Л.: Машиностроение, 1981. — 197 с.
  30. А.А., Чаусов Н. Г., Богинич И. О., Недосеко С. А. Комплексная оценка повреждаемости материала при пластическом деформировании // Пробл. Прочности. 1996. -№ 5.-С. 23 -30.
  31. А.А., Чаусов Н. Г., Богинич И. О. Модель накопления повреждаемости в металлических материалах при сложном напряженном состоянии // Пробл. Прочности. 1997. — № 3. — С. 55 -63.
  32. Н.А. Деформационные критерии разрушения и расчет элементов конструкций на прочность. М.: Машиностроение, 1981.-272 с.
  33. Н.А., Бурак М. И., Гаденин М. М. Механика малоциклового разрушения. М.: Наука, 1986. — 264 с.
  34. Н.А., Зацаринный В. В., Базарас Ж. Л. Статистические закономерности малоциклового разрушения. М.: Наука, 1989. -252 с.
  35. Н.А., Зацаринный В. В., Новиков В. А. Исследования возникновения и распространения трещин малоцикловой усталости в зонах концентрации напряжений в статическом аспекте // Завод, лаб. 1983. — № 4. — С. 68 — 73.
  36. Н.А., Веретимус Н. К. Исследования полей накопления повреждений при циклическом нагружении // Завод, лаб. 2000. -№ 8.-С. 46−49.
  37. П.Г., Нешпор Г. С., Кудряшов В. Г. Кинетика разрушения. М.: Металлургия, 1979. — 279 с.
  38. Г. Концентрация напряжений. М., Л.: ОГИЗ, 1947. -204 с.
  39. В.В. Механика квазихрупкого разрушения материалов. Киев: Наук, думка, 1991. — 416 с.
  40. Р. Коэффициенты концентрации напряжений. Графики и формулы для расчета конструктивных элементов на прочность. -М.: Мир, 1977.-302 с.
  41. Поля деформаций при малоцикловом нагружении. Серенсен С. В., Шнейдерович P.M., Махутов Н. А. и др. М.: Наука, 1979. -276 с.
  42. Прикладные вопросы вязкости разрушения: Пер. с англ. / Под ред. Дроздовского Б. А. М.: Мир, 1968. — 552 с.
  43. B.C. Теория вероятностей и математическая статистика. -М.: Наука, 1979.-321 с.
  44. В.Н. Диагностирование металлоконструкций портовых перегрузочных машин. М.: Транспорт, 1987. — 176 с.
  45. Расчёты машиностроительных конструкций методом конечных элементов: Справочник / В. И. Мяченков, В. П. Мальцев, В. П. Майборода и др.- Под общ. ред. В. И. Мяченкова, М.: Машиностроение, 1989−520с.
  46. В.А., Мошкарев Г. Н. Долговечность и устойчивость сварных конструкций строительных и дорожных машин. М.: Машиностроение, 1984. — 232 с.
  47. X., Стефанова С. Справочник по коррозии: Пер. с болг. -М.: Мир, 1982.-520 с.
  48. Г. Н. Распределение напряжений около отверстий. Киев: Наукова думка, 1968. — 887 с.
  49. Г. Н., Тульчий В. И. Справочник по концентрации напряжений. Киев: В.Ш., 1976. — 410 с.
  50. Е.М. Системотехническое проектирование оптикоэлектронных сканирующих систем автоматического контроля поверхности. Автореф. дисс. на соиск. уч. степ, к-та техн. наук. Н.: НЭТИ, 1982.
  51. Сборник нормативных и справочных документов по безопасной эксплуатации грузоподъемных машин: В 2 т. Т. 1. / B.C. Котельников, Н. А. Шишков, П. И. Стеценко, A.M. Горлин. М.: НПО ОБТ, 1995.-464 с.
  52. Сборник нормативных и справочных документов по безопасной эксплуатации грузоподъемных машин: В 2 т. Т. 2. / B.C. Котельников, Н. А. Шишков, П. И. Стеценко, A.M. Горлин. М.:1501. НПО ОБТ, 1995.-378 с.
  53. Г. В., Сорокин П. А. Высокопроизводительный оптический метод контроля дефектов поверхности // Автоматизация и современные технологии. 2001. — № 8. — С. 14 -16.
  54. С.В., Когаев В. П., Шнейдерович P.M. Несущая способность и расчеты на прочность деталей машин. М.: Машиностроение, 1975. — 317 с.
  55. В.И., Марьенко О. С. Оценка остаточного ресурса крановых металлоконструкций по условию сопротивления усталости // Подъемно транспортные машины: Изв. Тульского государственного университета. — Тула: ТулГУ, 2001. — С. 174 — 180.
  56. П.А. Корреляционный способ в автоматизированной дефектоскопии поверхности штампованных деталей // Безлюдные роторные и гибкие технологии. Тула: ТулПИ, 1987. С. 49−57.
  57. П.А., Селиверстов Г. В., Колясников А. А. Способ автоматизированной диагностики металлоконструкций грузоподъемных кранов // Автоматизация и современные технологии. -2001. -№ 1. С. 5 -7.
  58. П.А., Селиверстов Г. В. Способ оценки усталостного повреждения металлоконструкций, подвергаемых циклическому нагружению // BicH. Схщноукр. держ. ун-ту. 2000. — № 6(28). -С. 133 — 137.
  59. П.А., Чистяков B.JI. Оптические способы обнаружения и классификация дефектов поверхности изделий // ВОТ. Серия 13. Комплексная автоматизация производства и роторные линии. М.: ЦНИИинформации. 1990. — № 11. — С. 28 — 38.
  60. JI.A. Статистическая механика усталостного разрушения. Мн.: Наука и техника, 1987.-288с.
  61. О.И. Прочность сварных конструкций в агрессивных средах. М.: Машиностроение, 1979. — 200 с.
  62. М.Н. Статистическая обработка результатов механических испытаний. -М.: Машиностроение, 1972. 232 с.
  63. М.Н. Статистические методы обработки результатов механических испытаний: Справочник. М.: Машиностроение, 1985.-232 с.
  64. Теория когерентных изображений / П. А. Бакут, В. И. Мандросов, И. Н. Матвеев и др.- под ред. Н. Д. Устинова. М.: Радио и связь, 1987.-264 с.
  65. В.Ф., Махутов Н. А., Пойда В. Г. и др. Проблемы прочности 1969. — № 3. — С. 59−63.
  66. А.С. Оптика шероховатой поверхности. Л.: Машиностроение, 1988. — 191 с.
  67. В.Т. Деформирование и разрушение металлов при многоцикловом нагружении. Киев: Наукова думка, 1981. -342 с.
  68. В.Т. Усталость и неупругость металлов. Киев: Наук, думка, 1972. — 268 с.
  69. П.Т., Петров И. В., Балаховский М. С., Сергеев В. П., Мартынов В. Д. Эксплуатация и испытания строительных машин.- М.: Высшая школа, 1970. 392 с.
  70. Р.Б. Проектирование с учетом усталости. М.: Машиностроение, 1969. — 504 с.
  71. Р.В. Деформация и механика разрушения конструкционных материалов: Пер. с англ. / Под ред. Бернштейна M. J1., Ефименко С. П. М.: Металлургия, 1989. -576 с.
  72. Циклические деформации и усталость металлов. В 2 т. Т.1. Малоцикловая и многоцикловая усталость металлов / Трощенко В. Т., Хамаза Л. А., Покровский В. В. и др. Под ред. Трощенко В. Т. -Киев: Наук, думка, 1985. -216 с.
  73. JI.M. Методика усталостных испытаний: Справочник.- М.: Металлургия, 1978. 304 с.
  74. P.M. Прочность при статическом и повторно-статическом нагружениях. М.: Машиностроение, 1968. — 340 с.
  75. С .Я., Красовский А. Я., Осташ О. П. и др. Развитие усталостного разрушения в листовой малоуглеродистой стали при комнатной и низкой температурах // Пробл. Прочности. -1977.-№ 3.-С. 21−26.
  76. Патент РФ № 2 170 923, G01N21/88, G01BU/30. Способ диагностики работоспособности металлоконструкций./П. А. Сорокин, B.C. Дронов, Г. В. Селиверстов, А. В. Григорьев // 2001, — № 20.
  77. Патент РФ № 2 142 622, G01N21/88. Способ обнаружения дефектов поверхности./П.А.Сорокин, Е. Н. Будкина, А. А. Колясников, Г. В. Селиверстов // 1999, № 34.
  78. Патент РФ № 2 140 076, G01N29/14, 3/46. Способ акустического контроля трещиностойкости изделий./Е.Б. Мокрицкая, Н. А. Семашко, Б. Я. Мокрицкий, О. М. Вахрушев // 1999, № 29.
  79. Патент РФ № 1 750 342, G01B7/I6. Способ контроля трещинообразования./Л.Н. Екименков, Л. М. Певзнер, Г. Е. Дядченко, А. Л. Екименков // 1994, № 2.
  80. Патент РФ № 2 077 046, G01N3/00. Способ определения повреждаемости нагруженного материала./В.А. Петров // 1997, -№ 10.
  81. Патент РФ № 2 165 612, G01N21/88. Способ обнаружения дефектов поверхности./П.А. Сорокин, Г. В. Селиверстов, // 2001, -№ 11.101. «Патент РФ № 1 659 796, G01N21/88. Устройство для обнаружения дефектов поверхности./П.А.Сорокин, И. А. Клусов и др. // 1991, -№ 24.
  82. Патент РФ № 835 209, G01N21/88. Фотоэлектронное устройство обнаружения дефектов поверхности./П.А.Сорокин, B.C. Котляров// 1981,-№ 17.
  83. Патент РФ № 1 495 693, G01 N 21/88. Способ обнаружения дефектов поверхности./П.А.Сорокин, М. М. Бабин и др. // 1989, -№ 6.
  84. Патент РФ № 1 239 568, G01N21/88. Способ обнаружения дефектов поверхности./П.А. Сорокин, А. С. Горелов, А.В. Космодемьянский// 1986,-№ 23.
  85. РИЛОЖЕНИЕ 1. ПАКЕТ ПРОГРАММ WAVSHOW 1.1. Модуль запуска приложенийrogram WavShow- ¦ses1. Forms,
  86. WavShowForm in 'WavShowForm.pas' {WavShowForm}-$R *.res}egin1. Application. Initialize-
  87. AppIication.CreateForm (TWavShowForm, WavShowForm)-1. Application. Run-nd.
  88. Библиотечный модуль объявления типов переменныхunit PTypes-interfacetype PChr=AChar- PByte=AByte- PWord=AWord- PShortInt=AShortInt- PSmallInt=ASmallInt- PInteger=AInteger- PCardinal=ACardinal- PReal=AReal- PExtended=AExtended- PBoolean=ABoolean-
  89. TBytes=arrayO.High (Cardinal) div SizeOf (Byte) div 2 l. of Byte- PBytes=ATBytes-
  90. TWords=arrayO.High (Cardinal) div SizeOf (Word) div 2 l. of Word- PWords=ATWords-
  91. TBooleans=arrayO.High (Cardinal) div SizeOf (Boolean) div 2 l. of Boolean- PBooleans=ATBooleans-
  92. TPChars=arrayO.High (Cardinal) div SizeOf (PChar) div 2 l. of PChar- PPChars=ATP Chars-
  93. TIntegers=arrayO.High (Cardinal) div SizeOf (Integer) div 2 l. of Integer- PIntegers=ATIntegers-
  94. TCardinals=arrayO.High (Cardinal) div SizeOf (Cardinal) div 2 l. of Cardinal: PCardinals=ATCardinals-
  95. TShortlnts=arrayO.High (Cardinal) div SizeOf (ShortInt) div 2 l. of Shortlnt- PShortInts=ATShortInts-
  96. TSmallInts=arrayO.High (Cardinal) div SizeOf (SmallInt) div 2 l. of Smalllnt- PSmallInts=ATSmallInts-
  97. TReals=array0. .High (Cardinal) div SizeOf (Real) div 2 l. of Real- PReals=ATReals-
  98. TExtendeds=arrayO.High (Cardinal) div SizeOf (Extended) div 2 l. of Extended PExtendeds=ATExtendeds-
  99. TPWords=array0.High (Cardinal) div SizeOf (Pointer) div 2 l. of AWord- PPWords=ATPWords-
  100. TPIntegers=arrayO.High (Cardinal) div SizeOf (Pointer) div 2 l. of Alnteger- PPIntegers=ATPIntegers-
  101. TPShortInts=arrayO.High (Cardinal) div SizeOf (Pointer) div 2 l. of AShortlnt- PPShortInts=ATPShortInts-
  102. TArrayOflnteger=array of Integer- TArrayOfPChar=array of PChar- TProcedureOfObject=procedure of object- TSetIntegerProcedure=procedure (Value:Int64) of object- TGetIntegerFunction=function:Int64 of object-mplementationend.
  103. Ш. З. Модуль с телом программыunit WavShowForm-interfaceuses
  104. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Registry, PTypes, Menus, Spin-type
  105. TWaveFormatEx=packed record wFormatTag: Word- nChannels: Word- nSamplesPerSec: DWORD- nAvgBytesPerSec-.DWORD- nBlockAlign: Word- wBitsPerSample: Word- cbSize: Word- end-
  106. TWave=class constructor Create- destructor Destroy-override- private fTitle: string- P. PBytes- PSize: Cardinal- PD: PSmallInts- PDSize: Cardinal- PDCount-.Cardinal-
  107. WavShowForm: TWavShowForm- implementation const
  108. SelfKey-SoftwareYWavShowY-
  109. Scales:array0., 6. of Real=(1,3.612,10,36.12,100,361.2,1000)
  110. CompressCaption- Compress'-
  111. MScalelndexCaption-MScale'-
  112. DScalelndexCaption-DScale'-1. OffsetCaption-Offset'-1. FilterCaption-Filter'-
  113. FilterEnabledCaption-FilterEnabled'-1. DDScaleCaption-DDScale'-
  114. MZeroScaleCaption-MZeroScale'-
  115. DZeroScaleCaption-DZeroScale'-
  116. MAmplificationCaption-MAmplification'-
  117. DAmplificationCaption-DAmplification'-$R *.dfm}
  118. PWaveFormatEx:ATWaveFormatEx- beginfOpenDialog. Title:=fTitle-if not fOpenDialog. Execute then Exit-fFileLabel.Caption:=ExtractFileName (fOpenDialog.FileName) —
  119. AssignFile (F, fOpenDialog. FileName)-try1. Reset (F, l) — try
  120. PSize:=FileSize (F) —. ReallocMem (P, PSize) —
  121. BlockRead (F, PA, PSize, nRead) — jP:=20−1. PDSize:=PCardinal (@P4.)A-1. PWaveFormatEx:[email protected] (jP, SizeOf (TWaveFormatEx)) —
  122. CompressValue:Integer- begin
  123. CompressSpinEdit.Value:-l-1. MAmComboBox. ItemIndex:=2-
  124. D AmComboBox. Itemlndex:=4−1. C>ffsetSpinEdit.Value:=0-
  125. FilterSpinEdit.Value:=160-
  126. DDScaleSpinEdit.Value:=64-
  127. MZeroScaleSpinEdit.Value:=10-
  128. DZeroScaleSpinEdit.Value:=10-try1. Reg-=TRegi stry. Create-
  129. Reg.RootKey:=HKEYCURRENTUSER-tryif Reg. OpenKeyReadOnly (SelfKey) then begin try try
  130. Reg.CloseKey- end- end- finally SetOffset- Reg. Free- end- except end- nd-rocedure TWavShowForm. Save-ar Reg: TRegistry-egin1. Reg: =TRegistry. Create-
  131. Reg.RootKey :=HKEYCURRENTUSER-tryif Reg. OpenKey (SelfKey, True) then begin try
  132. WaveM.Offset:=Abs (OffsetSpinEdit. Value) — WaveD. C)ffset:=0- endelse begin
  133. WaveD.Offset:=Abs (OffsetSpinEdit. Value) — WaveM. C)ffset:=0- end- InitDD: rocedure TWavShowForm. InitDD- arj: Integer- Deff: Real- DDScalerReal- egin
  134. DDScale:=DDScaleSpinEdit.Value/10- for j:=0 to Length (DD)-l do begin if WaveM.DXj.=0 then DD[j]: =255 else begin
  135. Deff:=DDScale*(WaveD.DXj./WaveM.DX[j]-l) if Deff>255 then Deff:=255- if Deff<0 then Deff:=0- DD[j]: =Round (Deff) — end- end-for j:=0 to Length (DDR)-l do begin if WaveM.DXj.=0 then DDR[j]: =99.9 else begin
  136. F:System.Text- j-.Integer- jS: Integer- S, SS: string-
  137. DDRMax, AbsDDRMax: Real- beginif WaveM. D=nil then Exit- if WaveD. D=nil then Exit- SaveDialog. Title:-Сохранить отношение.'- if not SaveDialog. Execute then Exit- AssignFile (F, SaveDialog. FileName) — try1. Rewrite (F) — try j:=0-
  138. S'.-Усиление зеркального канала: '+MAmComboBox.ItemsMAmComboBox.ItemIndex.+' dB'- Writeln (F, S) —
  139. S:-'Усиление диффузного канала: '+DAmComboBox.ItemsDAmComboBox.ItemIndex.+' dB1- Writeln (F, S) — Writeln (F) — AbsDDRMax:=0- repeat S:=" —
  140. DDRMax:=0- for jS:=0 to 19 do begin if DDRj.>DDRMax then DDRMax:=DDR[)]- SS:=' '+FloatToStrF (DDR[j], ffFixed, 4, l) — if Length (SS)<5 then SS:=StringOfChar (' ', 5-Length (SS))+SS- S:=S+SS- IncG)-if j=Length (DDR) then Break- end-
  141. S:=S+': Max = '+FloatToStrF (DDRMax, ffFixed, 4, i) — Writeln (F, S)-if DDRMax>AbsDDRMax then AbsDDRmax:=DDRMax- until j-Length (DDR) — Writeln (F) —
  142. Writeln (F,'Abs Max = '+FloatToStrF (AbsDDRMax, ffFixed, 4, l))-finally CloseFile (F) — end- except end- nd-rocedure TWavShowForm. SaveDS- arjjS: Integer- F: System. Text- FileName: string- SS, SD, S: string- eginif WaveM. D=nil then Exit-if WaveD. D=nil then Exit-
  143. SaveDialog.Titler-CoxpafffiTb данные (D, S).'-if not SaveDialog. Execute then Exit-
  144. Assi gnFile (F, SaveDialog. Fi leName)-try
  145. Rewrite (F) — try j:=0- repeat SS:-S:'- SD:-D:'-for jS:=0 to 19 do begin „if j ≥Length (DDR) then Break- S:=' '+IntToStr (Round (WaveM.DXj.)) — if Length (S)<3 then S:=StringOfChar (' ', 3-Length (S))+S SS:=SS+S-
  146. S: — '+IntToStr (Round (WaveD. DXj .)) — if Length (S)<3 then S:=StringOfChar (' ', 3-Length (S))+S SD:=SD+S- IncO) — end-
  147. Writeln (F, SS) — Writeln (F, SD) — Writeln (F)-until j≥Length (DDR) — finally CloseFile (F) — end- except end- end-procedure TWavShowForm. SetVisible- begin
  148. AmLabel.Visible:=VisibleMenu.Checked- MAmComboBox. Visible:=VisibleMenu.Checked- DAmComboBox. Visible:=VisibleMenu.Checked-
  149. WaveM.OpenDialog:=OpenDialog-
  150. WaveM.FileLabel:=MFileLabel-1. WaveM. PaintBox:=PaintBox-1. WaveM. Color :=clRed-
  151. WaveM.FilterSpinEdit:=FilterSpinEdit-
  152. WaveM.FilterCheckBox:=FilterCheckBox-
  153. WaveM.CompressSpinEdit:=CompressSpinEdit-1. WaveM. Polarity:=-l-
  154. WaveM.ZeroScaleSpinEdit:=MZeroScaleSpinEdit- WaveM. AmComboBox:=MAmComboBox- WaveM. Am0:=10-
  155. WaveM.ShowCheckBox:=MShowCheckBox-1. WaveD:=TWave.Create-1. WaveD-Title^T^H^yaHan'-
  156. WaveD.OpenDialog^OpenDialog-
  157. WaveD.FileLabel:=DFileLabel-
  158. WaveD.fPaintBox:=PaintBox-1. WaveD. Color:=clGreen-
  159. WaveD.FilterSpinEdit:=FilterSpinEdit-
  160. WaveD.FilterCheckBox:=FilterCheckBox-
  161. WaveD.CompressSpmEdit:=CompressSpinEdit-1. WaveD. Polarity:=+l-
  162. WaveD.ZeroScaleSpinEdit:=DZeroScaleSpinEdit- WaveD. AmComboBox:=DAmComboBox- WaveD. AmO:=100-
  163. WaveD. ShowCheckBox :=DSho wCheckBox-1. Self. lnit-1. DD:=nil-1. DDR:=nil-
  164. WaveD.InitD- InitDD- Draw- nd-rocedure TWavShowForm. MAmComboBoxChange (Sender: TObject) — egin
  165. VisibleMenu.Checked:=not VisibleMenu. Checked- SetVisible-rocedure TWavShowForin. SaveDSMenuClick (Sender: TObject)-egin1. SaveDS-nd-nd.
  166. Модуль, содержащий описание отображаемых оконbject WavShowForm: TWavShowForm1. ft = 711. Top =1121. Width = 7211. Height = 4391. Caption = 'Wav Show'1. Color = clBtnFace
  167. Caption = # 1053# 1077' '# 1079# 1072# 1075# 1088# 1091 # 1078# 1077# 1085 Font. Charset = DEFAULT CHARSET
  168. Font.Color = clGreen Font. Height = -11 Font .Name = 'MS Sans Serif Font. Style =. ParentFont = False endobject Label 1: TLabel Left = 73 Top = 308 Width = 64 Height = 13 Cursor = crHandPoint Alignment = taRightJustify
  169. Caption = #1059#1089#1080#1083#1077#1085#1080#1077', dB' endobject Panel: TPanel Left = 8. Top = 8 Width = 604 Height = 265 Bevellnner = bvLowered
  170. BevelOuter = bvLowered Color = clWhite TabOrder = 0. object PaintBox: TPaintBox Left = 2 Top = 2 Width = 600 Height = 261 Align = alClient OnPaint = PaintBoxPaint end endobject PageGroupBox: TGroupBox Left = 616 Top = 0 Width = 89 Height = 49
  171. Caption = #1057#1090#1088#1072#1085#1080#1094#1072 TabOrder = 1 • object PageSpinEdit: TSpinEdit Left = 8 Top = 16 Width = 73 Height = 22 MaxValue =100 MinValue = 0 TabOrder = 0 Value = 0
  172. OnChange = PageSpinEditChange end endobject FilterGroupBox: TGroupBox Left = 616 Top=168 Width = 89 Height = 65
  173. Caption = # 1060# 1080# 1083# 1100# 1090#1088 TabOrder = 2object FilterSpinEdit: TSpinEdit Left = 8 Top = 16 Width = 73 Height = 22 MaxLength = 10 MaxValue = 1000 MinValue = 1 TabOrder = 0 Value = 0
  174. OnChange = FilterSpinEditChange endobject FilterCheckBox: TCheckBox Left = 8
  175. Top = 40 Width = 73 Height =17
  176. Caption = #1042#1082#1083#1102#1095#1077#1085 TabOrder = 1
  177. OnClick = FilterCheckBoxClick end endobject OffsetGroupBox: TGroupBox Left = 616 Top=112 Width = 89 Height = 49
  178. Caption = #1057#1084#1077#1097#1077#1085#1080#1077 TabOrder = 3object OffsetSpinEdit: TSpinEdit Left = 8 Top =16 Width = 73 Height = 22 Max Value = 0 MinValue = 0 TabOrder = 0 Value = 0
  179. OnChange = OffsetSpinEditChange end endobject CompresGroupBox: TGroupBox Left = 616 Top = 56 Width = 89 Height = 49
  180. Caption = #1057#1078#1072#1090#1080#1077 TabOrder = 4object CompressSpinEdit: TSpinEdit Left = 8 Top = 16 Width = 73 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 0 Value = 0
  181. OnChange = CompressSpinEditChange end endobject ScaleGroupBox: TGroupBox Left = 536 Top = 280 Width = 169 Height = 97
  182. Caption = # 1052# 1072# 1089# 1096# 1090# 1072# 1073
  183. TabOrder = 5 object Label3: TLabel Left = 9 Top = 20 Width = 64 Height = 13
  184. Alignment = taRightJustify
  185. Alignment = taRightJustify
  186. Alignment = taRightJustify
  187. Caption = #1044#1077#1092#1077#1082#1090#1072':' endobject MZeroScaleSpinEdit: TSpinEdit Left 80 Top = 16 Width = 57 Height = 22 MaxValue = 500 MinValue = 0 TabOrder = 0 Value = 0
  188. OnChange = MZeroScaleSpinEditChange endobject DZeroScaleSpinEdit: TSpinEdit Left =80. Top = 40 Width = 57
  189. Height = 22 MaxValue = 500 MinValue = 0 TabOrder = 1 Value = 0
  190. OnChange = DZeroScaleSpinEditChange endobject DDScaleSpinEdit: TSpinEdit Left = 80 Top = 64 Width = 57 Height = 22 MaxValue = 500 MinValue = 0 TabOrder = 2 Value = 0
  191. OnChange = DDScaleSpinEditChange endobject MShowCheckBox: TCheckBox Left = 144 Top = 18 Width =17 Height =17 Checked = True State = cbChecked TabOrder = 3
  192. OnClick = MShowCheckBoxClick endobject DShowCheckBox: TCheckBox Left= 144 Top = 42 Width = 17 Height = 17 Checked = True State = cbChecked TabOrder = 4
  193. OnClick = DShowCheckBoxClick endobject RShowCheckBox: TCheckBox Left = 144 Top = 66 Width = 17 Height =17 Checked = True State = cbChecked TabOrder = 5
  194. OnClick = RShowCheckBoxClick end endobject MAmComboBox: TComboBox Left = 8 Top = 3041. Width = 57 Height = 21
  195. Style = csDropDownList ItemHeight = 13 Itemlndex = 0 TabOrder = 6 Text = '0'
  196. OnChange = MAmComboBoxChange Items. Strings = ('0' '10' '20' '30' '40' '50' '60') endobject DAmComboBox: TComboBox Left = 8 Top = 328 Width = 57 Height = 21
  197. Style = csDropDownList ' ItemHeight = 13 Itemlndex = 0 TabOrder = 7 Text = '0'
  198. Caption = #1057#1086#1093# 1088# 1072# 1085#1080# 1090# 1100' 1086#1090#1085#1086#1096#1077#1085#1080#1077'.' OnClick = SaveDDRMenuClick endobject SaveDSMenu: TMenuItem
  199. Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' #1076#1072#1085#1085#1099#1077 OnClick = SaveDSMenuClick endobject N2: TMenuItem Caption ='-' endobject VisibleMenu: TMenuItem
  200. П1.5. Модуль интерфейса настроекunit OptionsForm-interfaceuses
  201. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin-1. УРе
  202. Модуль, описывающий графический образ элементовbject OptionsForm: TOptionsForm Left = 211 Top = 223
  203. BorderStyle = bsSingle Caption = 'Waw Show' ClientHeight = 233 ClientWidth = 209 Color = clBtnFace
  204. Font.Charset = DEFAULTCHARSET1. Font. Color = clWindowText1. Font. Height = -11
  205. Font.Name = 'MS Sans Serif1. Font. Style = .1. OldCreateOrder = False1. OnShow = FormS how1. PixelsPerlnch = 961. TextHeight= 13object TimeCompressGroupBox: TGroupBox Left = 8 Top = 8 Width =193 Height = 65
  206. Caption = # 105 5# 1088# 1080# 1084# 1077# 1085# 1080# 1090# 1100 TabOrder = 1
  207. OnClick = ApplyButtonClick endobject CancelButton: TButton Left = 120 Top=192 Width = 751. Height = 25
  208. Caption = #1054#1090# 1084#1077#1085# 1072 TabOrder = 2
  209. OnClick = CancelButtonClick endobject ScaleGroupBox: TGroupBox Left = 8 Top = 80 Width = 193 Height = 105
  210. Caption = # 1052# 1072# 1089# 1096# 1090# 1072# 1073dB' TabOrder = 3object MirrScaleLabel: TLabel Left =17 ' Top = 24 Width = 64 Height = 13
  211. Alignment = taRightJustify
  212. Alignment = taRightJustify
  213. Style = csDropDownList ItemHeight = 13 Itemlndex = 0 TabOrder = 0 Text = '0' Items. Strings = ('0'18 310' '20' '30' •40' '50' '60') endobject DiffScaleComboBox: TComboBox Left = 96 Top = 56 Width = 81 Height = 21
  214. Style = csDropDownList ItemHeight = 13 Itemlndex = 0 TabOrder = 1 ' Text = '0'1.ems.Strings = ('0' '10' '20' '30' '40' '50' '60') end end end12,526 081 9 472 179 944 радиуса R40о I 1С!6,3 6,31. С> С)"б, 36,36,36,31. С>
  215. Неуказанные предельные отклонения Н14, h14, ±-1Т14/2. Выполнить в количестве 3 штук. Направление волокон продольное Использование материалов — заменителей не допускается.
  216. Образцы 1 и 2 выполнить из одного листа.-¦ -.г.“».i .-г----------
  217. Образец 1 Лит. Масса. Масштаб 1:2 Лист Листов
  218. Изм Лист Яедокум. Подп. Дата
  219. Разраб. Селиверстов Пров. Т.контр. Гл.копстр. И.контр. Утв. !
  220. Ст. 3 сп 5 ГОСТ 14 637-листовой12,5| I л < I1302601. Полировать 0,1 ««12 020
Заполнить форму текущей работой

На отлично!