автореферат диссертации по обработке конструкционных материалов в машиностроении, 05.03.06, диссертация на тему:Метод и технические средства автоматизированного мониторинга металлоконструкций грузоподъемных кранов

ВВЕДЕНИЕ.

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. Эффективность алгоритмов рефлектометрического контроля усталостных повреждений поверхности.

Выводы.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

9. На основе экспериментальных данных получена регрессионная модель, позволяющая оценить остаточный ресурс диагностируемого образца. No=0,.12343 + 0,.20419 ■ 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. Патент РФ №2170923, G01N21/88, G01BU/30. Способ диагностики работоспособности металлоконструкций./П. А. Сорокин, B.C. Дронов, Г.В. Селиверстов, А.В. Григорьев // 2001,- №20.

77. Патент РФ №2142622, G01N21/88. Способ обнаружения дефектов поверхности./П.А.Сорокин, Е.Н. Будкина, А.А. Колясников, Г.В. Селиверстов // 1999, №34.

78. Патент РФ №2140076, G01N29/14, 3/46. Способ акустического контроля трещиностойкости изделий./Е.Б. Мокрицкая, Н.А. Семашко, Б.Я. Мокрицкий, О.М. Вахрушев // 1999, №29.

79. Патент РФ №1750342, G01B7/I6. Способ контроля трещинообразования./Л.Н. Екименков, Л.М. Певзнер, Г.Е. Дядченко, А.Л. Екименков // 1994, №2.

80. Патент РФ №2077046, G01N3/00. Способ определения повреждаемости нагруженного материала./В.А. Петров // 1997, -№10.

81. Патент РФ №2165612, G01N21/88. Способ обнаружения дефектов поверхности./П.А. Сорокин, Г.В. Селиверстов, // 2001, -№11.101. "Патент РФ №1659796, G01N21/88. Устройство для обнаружения дефектов поверхности./П.А.Сорокин, И.А. Клусов и др. // 1991, -№24.

82. Патент РФ №835209, G01N21/88. Фотоэлектронное устройство обнаружения дефектов поверхности./П.А.Сорокин, B.C. Котляров// 1981,-№17.

83. Патент РФ №1495693, G01 N 21/88. Способ обнаружения дефектов поверхности./П.А.Сорокин, М.М.Бабин и др. // 1989, -№6.

84. Патент РФ №1239568, 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:=@PjP.;1.c(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'18310' '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,526081 9472179944 радиуса 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 ГОСТ 14637-листовой12,5| I л < I1302601. Полировать 0,1 ""12020