Метод и технические средства автоматизированного мониторинга металлоконструкций грузоподъемных кранов
Диссертация
Значительное количество грузоподъемных кранов, находящихся в эксплуатации в России, к настоящему времени выработали нормативный срок и их эксплуатация продлевается на основании проводимых обследований с целью определения возможности их дальнейшей эксплуатации. При проверке состояния металлических конструкций на практике в основном применяют визуальные методы обнаружения дефектов. Как известно… Читать ещё >
Содержание
- 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. Эффективность алгоритмов рефлектометрического контроля усталостных повреждений поверхности
- Выводы
Список литературы
- Акустическая эмиссия и ее применение для неразрушающего контроля в ядерной энергетике / Под ред. К. Б. Вакара. М: Атомиздат, 1980. — 214 с.
- Афанасьев Н.Н. Статистическая теория усталостной прочности металлов. Киев.: Изд. АНУССР, 1953. — 128 с.
- Басс Ф.Г., Фукс И. М. Рассеяние волн на статистически неровной поверхности. М.: Наука, 1972. — 424 с.
- Болотин В.В. Статистические методы в строительной механике. -М.: Стройиздат, 1965. -279 с.
- Болотин В.В. Ресурс машин и конструкций. М.: Машиностроение, 1990. — 623 с.
- Вершинский А.В. Технологичность и несущая способность крановых металлоконструкций. М.: Машиностроение, 1984. -167 с.
- Владимиров В.В. Физическая природа разрушения металлов. -М.: Металлургия, 1984. 280 с.
- Вояченко В.Н. Контроль качества сварных конструкций. М.: Машиностроение, 1986. — 152 с.
- Гиренко B.C., Касаткин С. Б. Развитие пластической деформации в вершине трещиноподобных дефектов // Автоматическая сварка. 1976,-№ 8.-С. 72−73.
- Гмурман В.Е. Теория вероятностей и математическая статистика. Учеб. пособие для втузов. Изд. 5-е, перераб. и доп. М.: Высшая школа, 1977. — 479.
- Головин С.А., Пушкар А. Микропластичность и усталость металлов. М.: Металлургия, 1980, — 240 с.
- Горицкий В.М., Терентьев В. Ф. Структура и усталостное разрушение металлов. М.: Металлургия, 1980. — 208 с.
- Горохов Е.В., Карпенко Н. Т. Повышение долговечности металлических конструкций мостовых кранов. Киев — Донецк: Вишашк., 1986.- 145 с.
- Гохберг М.М. Металлические конструкции подъемно -транспортных машин. Изд. 3-е, допол. и переработ. Л.: Машиностроение. Ленингр. отделение, 1976. — 456 с.
- Грешнов В.М., Лавриненко Ю. А. Напалков А.В. Прогнозирование разрушения металлов в процессе холодной пластической деформации // Пробл. Прочности. 1999. — № 1. -С. 76−85.
- Диагностирование грузоподъемных машин / В. И. Сероштан, Ю. С. Огарь, А. И. Головин и др.: Под ред. В. И. Сероштана, Ю. С. Огаря. -М.: Машиностроение, 1992. 192 с.
- Дронов B.C., Сорокин П. А., Селиверстов Г. В. Технология структурного мониторинга состояния металлоконструкций грузоподъемных кранов // Сб. науч. трудов ведущих ученых технологического факультета. Тула: ТулГУ, 2000. — С. 143 — 147.
- Иванова B.C. Усталостное разрушение металлов. М.: Металлургия, 1963. — 272 с.
- Иванова B.C., Орлов Л. Г., ТерентьевВ.Ф. и др. ФММ- 1972. т. 33, вып. № 3,-С. 627 -633.
- Иванова B.C., Терентьев В. Ф. Природа усталости металлов. М.: Металлургия, 1975. — 456 с.
- Иванова B.C., Шанявский А. А. Количественная фрактография. Усталостное разрушение. Челябинск: Металлургия, 1988. -400 с. машин и конструкций на прочность и долговечность: Справочник. М.: Машиностроение, 1985. — 224 с.
- Коллинз Д. Повреждение материалов в конструкциях. Анализ, предсказание, предотвращение: Пер. с англ. М.: Мир, 1984. -624 с.
- Колясников А. А. Автоматизированный контроль дефектов поверхности деталей методом анализа дисперсий. Автореф. дис. на соиск. уч. степ, к-та техн. наук. Тула: ТулГУ, 2001.
- Концевой Е.М., Розеншейн Б. М. Ремонт крановых металлоконструкций. -М.: Машиностроение, 1979. 206 с.
- Кох П. И. Климат и надежность машин. М.: Машиностроение, 1981.- 175 с.
- Коцаньда С. Усталостное разрушение металлов. М.: Металлургия, 1976. — 456 с.
- Коцаньда С. Усталостное растрескивание металлов. М.: Металлургия, 1990. — 623 с.
- Красовский А.Я. Физические основы прочности. Киев: Наукова думка, 1977.- 140 с.
- Кучин А.А., Обрадович К. А. Оптические приборы для измерения шероховатой поверхности. Л.: Машиностроение, 1981. — 197 с.
- Лебедев А.А., Чаусов Н. Г., Богинич И. О., Недосеко С. А. Комплексная оценка повреждаемости материала при пластическом деформировании // Пробл. Прочности. 1996. -№ 5.-С. 23 -30.
- Лебедев А.А., Чаусов Н. Г., Богинич И. О. Модель накопления повреждаемости в металлических материалах при сложном напряженном состоянии // Пробл. Прочности. 1997. — № 3. — С. 55 -63.
- Махутов Н.А. Деформационные критерии разрушения и расчет элементов конструкций на прочность. М.: Машиностроение, 1981.-272 с.
- Махутов Н.А., Бурак М. И., Гаденин М. М. Механика малоциклового разрушения. М.: Наука, 1986. — 264 с.
- Махутов Н.А., Зацаринный В. В., Базарас Ж. Л. Статистические закономерности малоциклового разрушения. М.: Наука, 1989. -252 с.
- Махутов Н.А., Зацаринный В. В., Новиков В. А. Исследования возникновения и распространения трещин малоцикловой усталости в зонах концентрации напряжений в статическом аспекте // Завод, лаб. 1983. — № 4. — С. 68 — 73.
- Махутов Н.А., Веретимус Н. К. Исследования полей накопления повреждений при циклическом нагружении // Завод, лаб. 2000. -№ 8.-С. 46−49.
- Микляев П.Г., Нешпор Г. С., Кудряшов В. Г. Кинетика разрушения. М.: Металлургия, 1979. — 279 с.
- Нейбер Г. Концентрация напряжений. М., Л.: ОГИЗ, 1947. -204 с.
- Панасюк В.В. Механика квазихрупкого разрушения материалов. Киев: Наук, думка, 1991. — 416 с.
- Петерсон Р. Коэффициенты концентрации напряжений. Графики и формулы для расчета конструктивных элементов на прочность. -М.: Мир, 1977.-302 с.
- Поля деформаций при малоцикловом нагружении. Серенсен С. В., Шнейдерович P.M., Махутов Н. А. и др. М.: Наука, 1979. -276 с.
- Прикладные вопросы вязкости разрушения: Пер. с англ. / Под ред. Дроздовского Б. А. М.: Мир, 1968. — 552 с.
- Пугачев B.C. Теория вероятностей и математическая статистика. -М.: Наука, 1979.-321 с.
- Пустовой В.Н. Диагностирование металлоконструкций портовых перегрузочных машин. М.: Транспорт, 1987. — 176 с.
- Расчёты машиностроительных конструкций методом конечных элементов: Справочник / В. И. Мяченков, В. П. Мальцев, В. П. Майборода и др.- Под общ. ред. В. И. Мяченкова, М.: Машиностроение, 1989−520с.
- Рахин В.А., Мошкарев Г. Н. Долговечность и устойчивость сварных конструкций строительных и дорожных машин. М.: Машиностроение, 1984. — 232 с.
- Рачев X., Стефанова С. Справочник по коррозии: Пер. с болг. -М.: Мир, 1982.-520 с.
- Савин Г. Н. Распределение напряжений около отверстий. Киев: Наукова думка, 1968. — 887 с.
- Савин Г. Н., Тульчий В. И. Справочник по концентрации напряжений. Киев: В.Ш., 1976. — 410 с.
- Салмина Е.М. Системотехническое проектирование оптикоэлектронных сканирующих систем автоматического контроля поверхности. Автореф. дисс. на соиск. уч. степ, к-та техн. наук. Н.: НЭТИ, 1982.
- Сборник нормативных и справочных документов по безопасной эксплуатации грузоподъемных машин: В 2 т. Т. 1. / B.C. Котельников, Н. А. Шишков, П. И. Стеценко, A.M. Горлин. М.: НПО ОБТ, 1995.-464 с.
- Сборник нормативных и справочных документов по безопасной эксплуатации грузоподъемных машин: В 2 т. Т. 2. / B.C. Котельников, Н. А. Шишков, П. И. Стеценко, A.M. Горлин. М.:1501. НПО ОБТ, 1995.-378 с.
- Селиверстов Г. В., Сорокин П. А. Высокопроизводительный оптический метод контроля дефектов поверхности // Автоматизация и современные технологии. 2001. — № 8. — С. 14 -16.
- Серенсен С.В., Когаев В. П., Шнейдерович P.M. Несущая способность и расчеты на прочность деталей машин. М.: Машиностроение, 1975. — 317 с.
- Сероштан В.И., Марьенко О. С. Оценка остаточного ресурса крановых металлоконструкций по условию сопротивления усталости // Подъемно транспортные машины: Изв. Тульского государственного университета. — Тула: ТулГУ, 2001. — С. 174 — 180.
- Сорокин П.А. Корреляционный способ в автоматизированной дефектоскопии поверхности штампованных деталей // Безлюдные роторные и гибкие технологии. Тула: ТулПИ, 1987. С. 49−57.
- Сорокин П.А., Селиверстов Г. В., Колясников А. А. Способ автоматизированной диагностики металлоконструкций грузоподъемных кранов // Автоматизация и современные технологии. -2001. -№ 1. С. 5 -7.
- Сорокин П.А., Селиверстов Г. В. Способ оценки усталостного повреждения металлоконструкций, подвергаемых циклическому нагружению // BicH. Схщноукр. держ. ун-ту. 2000. — № 6(28). -С. 133 — 137.
- Сорокин П.А., Чистяков B.JI. Оптические способы обнаружения и классификация дефектов поверхности изделий // ВОТ. Серия 13. Комплексная автоматизация производства и роторные линии. М.: ЦНИИинформации. 1990. — № 11. — С. 28 — 38.
- Сосновский JI.A. Статистическая механика усталостного разрушения. Мн.: Наука и техника, 1987.-288с.
- Стеклов О.И. Прочность сварных конструкций в агрессивных средах. М.: Машиностроение, 1979. — 200 с.
- Степнов М.Н. Статистическая обработка результатов механических испытаний. -М.: Машиностроение, 1972. 232 с.
- Степнов М.Н. Статистические методы обработки результатов механических испытаний: Справочник. М.: Машиностроение, 1985.-232 с.
- Теория когерентных изображений / П. А. Бакут, В. И. Мандросов, И. Н. Матвеев и др.- под ред. Н. Д. Устинова. М.: Радио и связь, 1987.-264 с.
- Терентьев В.Ф., Махутов Н. А., Пойда В. Г. и др. Проблемы прочности 1969. — № 3. — С. 59−63.
- Топорец А.С. Оптика шероховатой поверхности. Л.: Машиностроение, 1988. — 191 с.
- Трощенко В.Т. Деформирование и разрушение металлов при многоцикловом нагружении. Киев: Наукова думка, 1981. -342 с.
- Трощенко В.Т. Усталость и неупругость металлов. Киев: Наук, думка, 1972. — 268 с.
- Фролов П.Т., Петров И. В., Балаховский М. С., Сергеев В. П., Мартынов В. Д. Эксплуатация и испытания строительных машин.- М.: Высшая школа, 1970. 392 с.
- Хейвуд Р.Б. Проектирование с учетом усталости. М.: Машиностроение, 1969. — 504 с.
- Херцберг Р.В. Деформация и механика разрушения конструкционных материалов: Пер. с англ. / Под ред. Бернштейна M. J1., Ефименко С. П. М.: Металлургия, 1989. -576 с.
- Циклические деформации и усталость металлов. В 2 т. Т.1. Малоцикловая и многоцикловая усталость металлов / Трощенко В. Т., Хамаза Л. А., Покровский В. В. и др. Под ред. Трощенко В. Т. -Киев: Наук, думка, 1985. -216 с.
- Школьник JI.M. Методика усталостных испытаний: Справочник.- М.: Металлургия, 1978. 304 с.
- Шнейдерович P.M. Прочность при статическом и повторно-статическом нагружениях. М.: Машиностроение, 1968. — 340 с.
- Ярема С .Я., Красовский А. Я., Осташ О. П. и др. Развитие усталостного разрушения в листовой малоуглеродистой стали при комнатной и низкой температурах // Пробл. Прочности. -1977.-№ 3.-С. 21−26.
- Патент РФ № 2 170 923, G01N21/88, G01BU/30. Способ диагностики работоспособности металлоконструкций./П. А. Сорокин, B.C. Дронов, Г. В. Селиверстов, А. В. Григорьев // 2001, — № 20.
- Патент РФ № 2 142 622, G01N21/88. Способ обнаружения дефектов поверхности./П.А.Сорокин, Е. Н. Будкина, А. А. Колясников, Г. В. Селиверстов // 1999, № 34.
- Патент РФ № 2 140 076, G01N29/14, 3/46. Способ акустического контроля трещиностойкости изделий./Е.Б. Мокрицкая, Н. А. Семашко, Б. Я. Мокрицкий, О. М. Вахрушев // 1999, № 29.
- Патент РФ № 1 750 342, G01B7/I6. Способ контроля трещинообразования./Л.Н. Екименков, Л. М. Певзнер, Г. Е. Дядченко, А. Л. Екименков // 1994, № 2.
- Патент РФ № 2 077 046, G01N3/00. Способ определения повреждаемости нагруженного материала./В.А. Петров // 1997, -№ 10.
- Патент РФ № 2 165 612, G01N21/88. Способ обнаружения дефектов поверхности./П.А. Сорокин, Г. В. Селиверстов, // 2001, -№ 11.101. «Патент РФ № 1 659 796, G01N21/88. Устройство для обнаружения дефектов поверхности./П.А.Сорокин, И. А. Клусов и др. // 1991, -№ 24.
- Патент РФ № 835 209, G01N21/88. Фотоэлектронное устройство обнаружения дефектов поверхности./П.А.Сорокин, B.C. Котляров// 1981,-№ 17.
- Патент РФ № 1 495 693, G01 N 21/88. Способ обнаружения дефектов поверхности./П.А.Сорокин, М. М. Бабин и др. // 1989, -№ 6.
- Патент РФ № 1 239 568, G01N21/88. Способ обнаружения дефектов поверхности./П.А. Сорокин, А. С. Горелов, А.В. Космодемьянский// 1986,-№ 23.
- РИЛОЖЕНИЕ 1. ПАКЕТ ПРОГРАММ WAVSHOW 1.1. Модуль запуска приложенийrogram WavShow- ¦ses1. Forms,
- WavShowForm in 'WavShowForm.pas' {WavShowForm}-$R *.res}egin1. Application. Initialize-
- AppIication.CreateForm (TWavShowForm, WavShowForm)-1. Application. Run-nd.
- Библиотечный модуль объявления типов переменныхunit PTypes-interfacetype PChr=AChar- PByte=AByte- PWord=AWord- PShortInt=AShortInt- PSmallInt=ASmallInt- PInteger=AInteger- PCardinal=ACardinal- PReal=AReal- PExtended=AExtended- PBoolean=ABoolean-
- TBytes=arrayO.High (Cardinal) div SizeOf (Byte) div 2 l. of Byte- PBytes=ATBytes-
- TWords=arrayO.High (Cardinal) div SizeOf (Word) div 2 l. of Word- PWords=ATWords-
- TBooleans=arrayO.High (Cardinal) div SizeOf (Boolean) div 2 l. of Boolean- PBooleans=ATBooleans-
- TPChars=arrayO.High (Cardinal) div SizeOf (PChar) div 2 l. of PChar- PPChars=ATP Chars-
- TIntegers=arrayO.High (Cardinal) div SizeOf (Integer) div 2 l. of Integer- PIntegers=ATIntegers-
- TCardinals=arrayO.High (Cardinal) div SizeOf (Cardinal) div 2 l. of Cardinal: PCardinals=ATCardinals-
- TShortlnts=arrayO.High (Cardinal) div SizeOf (ShortInt) div 2 l. of Shortlnt- PShortInts=ATShortInts-
- TSmallInts=arrayO.High (Cardinal) div SizeOf (SmallInt) div 2 l. of Smalllnt- PSmallInts=ATSmallInts-
- TReals=array0. .High (Cardinal) div SizeOf (Real) div 2 l. of Real- PReals=ATReals-
- TExtendeds=arrayO.High (Cardinal) div SizeOf (Extended) div 2 l. of Extended PExtendeds=ATExtendeds-
- TPWords=array0.High (Cardinal) div SizeOf (Pointer) div 2 l. of AWord- PPWords=ATPWords-
- TPIntegers=arrayO.High (Cardinal) div SizeOf (Pointer) div 2 l. of Alnteger- PPIntegers=ATPIntegers-
- TPShortInts=arrayO.High (Cardinal) div SizeOf (Pointer) div 2 l. of AShortlnt- PPShortInts=ATPShortInts-
- TArrayOflnteger=array of Integer- TArrayOfPChar=array of PChar- TProcedureOfObject=procedure of object- TSetIntegerProcedure=procedure (Value:Int64) of object- TGetIntegerFunction=function:Int64 of object-mplementationend.
- Ш. З. Модуль с телом программыunit WavShowForm-interfaceuses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Registry, PTypes, Menus, Spin-type
- TWaveFormatEx=packed record wFormatTag: Word- nChannels: Word- nSamplesPerSec: DWORD- nAvgBytesPerSec-.DWORD- nBlockAlign: Word- wBitsPerSample: Word- cbSize: Word- end-
- TWave=class constructor Create- destructor Destroy-override- private fTitle: string- P. PBytes- PSize: Cardinal- PD: PSmallInts- PDSize: Cardinal- PDCount-.Cardinal-
- WavShowForm: TWavShowForm- implementation const
- SelfKey-SoftwareYWavShowY-
- Scales:array0., 6. of Real=(1,3.612,10,36.12,100,361.2,1000)
- CompressCaption- Compress'-
- MScalelndexCaption-MScale'-
- DScalelndexCaption-DScale'-1. OffsetCaption-Offset'-1. FilterCaption-Filter'-
- FilterEnabledCaption-FilterEnabled'-1. DDScaleCaption-DDScale'-
- MZeroScaleCaption-MZeroScale'-
- DZeroScaleCaption-DZeroScale'-
- MAmplificationCaption-MAmplification'-
- DAmplificationCaption-DAmplification'-$R *.dfm}
- PWaveFormatEx:ATWaveFormatEx- beginfOpenDialog. Title:=fTitle-if not fOpenDialog. Execute then Exit-fFileLabel.Caption:=ExtractFileName (fOpenDialog.FileName) —
- AssignFile (F, fOpenDialog. FileName)-try1. Reset (F, l) — try
- PSize:=FileSize (F) —. ReallocMem (P, PSize) —
- BlockRead (F, PA, PSize, nRead) — jP:=20−1. PDSize:=PCardinal (@P4.)A-1. PWaveFormatEx:[email protected] (jP, SizeOf (TWaveFormatEx)) —
- CompressValue:Integer- begin
- CompressSpinEdit.Value:-l-1. MAmComboBox. ItemIndex:=2-
- D AmComboBox. Itemlndex:=4−1. C>ffsetSpinEdit.Value:=0-
- FilterSpinEdit.Value:=160-
- DDScaleSpinEdit.Value:=64-
- MZeroScaleSpinEdit.Value:=10-
- DZeroScaleSpinEdit.Value:=10-try1. Reg-=TRegi stry. Create-
- Reg.RootKey:=HKEYCURRENTUSER-tryif Reg. OpenKeyReadOnly (SelfKey) then begin try try
- Reg.CloseKey- end- end- finally SetOffset- Reg. Free- end- except end- nd-rocedure TWavShowForm. Save-ar Reg: TRegistry-egin1. Reg: =TRegistry. Create-
- Reg.RootKey :=HKEYCURRENTUSER-tryif Reg. OpenKey (SelfKey, True) then begin try
- WaveM.Offset:=Abs (OffsetSpinEdit. Value) — WaveD. C)ffset:=0- endelse begin
- WaveD.Offset:=Abs (OffsetSpinEdit. Value) — WaveM. C)ffset:=0- end- InitDD: rocedure TWavShowForm. InitDD- arj: Integer- Deff: Real- DDScalerReal- egin
- DDScale:=DDScaleSpinEdit.Value/10- for j:=0 to Length (DD)-l do begin if WaveM.DXj.=0 then DD[j]: =255 else begin
- 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
- F:System.Text- j-.Integer- jS: Integer- S, SS: string-
- 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-
- S'.-Усиление зеркального канала: '+MAmComboBox.ItemsMAmComboBox.ItemIndex.+' dB'- Writeln (F, S) —
- S:-'Усиление диффузного канала: '+DAmComboBox.ItemsDAmComboBox.ItemIndex.+' dB1- Writeln (F, S) — Writeln (F) — AbsDDRMax:=0- repeat S:=" —
- 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-
- S:=S+': Max = '+FloatToStrF (DDRMax, ffFixed, 4, i) — Writeln (F, S)-if DDRMax>AbsDDRMax then AbsDDRmax:=DDRMax- until j-Length (DDR) — Writeln (F) —
- 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-
- SaveDialog.Titler-CoxpafffiTb данные (D, S).'-if not SaveDialog. Execute then Exit-
- Assi gnFile (F, SaveDialog. Fi leName)-try
- 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-
- S: — '+IntToStr (Round (WaveD. DXj .)) — if Length (S)<3 then S:=StringOfChar (' ', 3-Length (S))+S SD:=SD+S- IncO) — end-
- Writeln (F, SS) — Writeln (F, SD) — Writeln (F)-until j≥Length (DDR) — finally CloseFile (F) — end- except end- end-procedure TWavShowForm. SetVisible- begin
- AmLabel.Visible:=VisibleMenu.Checked- MAmComboBox. Visible:=VisibleMenu.Checked- DAmComboBox. Visible:=VisibleMenu.Checked-
- WaveM.OpenDialog:=OpenDialog-
- WaveM.FileLabel:=MFileLabel-1. WaveM. PaintBox:=PaintBox-1. WaveM. Color :=clRed-
- WaveM.FilterSpinEdit:=FilterSpinEdit-
- WaveM.FilterCheckBox:=FilterCheckBox-
- WaveM.CompressSpinEdit:=CompressSpinEdit-1. WaveM. Polarity:=-l-
- WaveM.ZeroScaleSpinEdit:=MZeroScaleSpinEdit- WaveM. AmComboBox:=MAmComboBox- WaveM. Am0:=10-
- WaveM.ShowCheckBox:=MShowCheckBox-1. WaveD:=TWave.Create-1. WaveD-Title^T^H^yaHan'-
- WaveD.OpenDialog^OpenDialog-
- WaveD.FileLabel:=DFileLabel-
- WaveD.fPaintBox:=PaintBox-1. WaveD. Color:=clGreen-
- WaveD.FilterSpinEdit:=FilterSpinEdit-
- WaveD.FilterCheckBox:=FilterCheckBox-
- WaveD.CompressSpmEdit:=CompressSpinEdit-1. WaveD. Polarity:=+l-
- WaveD.ZeroScaleSpinEdit:=DZeroScaleSpinEdit- WaveD. AmComboBox:=DAmComboBox- WaveD. AmO:=100-
- WaveD. ShowCheckBox :=DSho wCheckBox-1. Self. lnit-1. DD:=nil-1. DDR:=nil-
- WaveD.InitD- InitDD- Draw- nd-rocedure TWavShowForm. MAmComboBoxChange (Sender: TObject) — egin
- VisibleMenu.Checked:=not VisibleMenu. Checked- SetVisible-rocedure TWavShowForin. SaveDSMenuClick (Sender: TObject)-egin1. SaveDS-nd-nd.
- Модуль, содержащий описание отображаемых оконbject WavShowForm: TWavShowForm1. ft = 711. Top =1121. Width = 7211. Height = 4391. Caption = 'Wav Show'1. Color = clBtnFace
- Caption = # 1053# 1077' '# 1079# 1072# 1075# 1088# 1091 # 1078# 1077# 1085 Font. Charset = DEFAULT CHARSET
- 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
- Caption = #1059#1089#1080#1083#1077#1085#1080#1077', dB' endobject Panel: TPanel Left = 8. Top = 8 Width = 604 Height = 265 Bevellnner = bvLowered
- 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
- 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
- OnChange = PageSpinEditChange end endobject FilterGroupBox: TGroupBox Left = 616 Top=168 Width = 89 Height = 65
- 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
- OnChange = FilterSpinEditChange endobject FilterCheckBox: TCheckBox Left = 8
- Top = 40 Width = 73 Height =17
- Caption = #1042#1082#1083#1102#1095#1077#1085 TabOrder = 1
- OnClick = FilterCheckBoxClick end endobject OffsetGroupBox: TGroupBox Left = 616 Top=112 Width = 89 Height = 49
- 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
- OnChange = OffsetSpinEditChange end endobject CompresGroupBox: TGroupBox Left = 616 Top = 56 Width = 89 Height = 49
- 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
- OnChange = CompressSpinEditChange end endobject ScaleGroupBox: TGroupBox Left = 536 Top = 280 Width = 169 Height = 97
- Caption = # 1052# 1072# 1089# 1096# 1090# 1072# 1073
- TabOrder = 5 object Label3: TLabel Left = 9 Top = 20 Width = 64 Height = 13
- Alignment = taRightJustify
- Alignment = taRightJustify
- Alignment = taRightJustify
- 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
- OnChange = MZeroScaleSpinEditChange endobject DZeroScaleSpinEdit: TSpinEdit Left =80. Top = 40 Width = 57
- Height = 22 MaxValue = 500 MinValue = 0 TabOrder = 1 Value = 0
- OnChange = DZeroScaleSpinEditChange endobject DDScaleSpinEdit: TSpinEdit Left = 80 Top = 64 Width = 57 Height = 22 MaxValue = 500 MinValue = 0 TabOrder = 2 Value = 0
- OnChange = DDScaleSpinEditChange endobject MShowCheckBox: TCheckBox Left = 144 Top = 18 Width =17 Height =17 Checked = True State = cbChecked TabOrder = 3
- OnClick = MShowCheckBoxClick endobject DShowCheckBox: TCheckBox Left= 144 Top = 42 Width = 17 Height = 17 Checked = True State = cbChecked TabOrder = 4
- OnClick = DShowCheckBoxClick endobject RShowCheckBox: TCheckBox Left = 144 Top = 66 Width = 17 Height =17 Checked = True State = cbChecked TabOrder = 5
- OnClick = RShowCheckBoxClick end endobject MAmComboBox: TComboBox Left = 8 Top = 3041. Width = 57 Height = 21
- Style = csDropDownList ItemHeight = 13 Itemlndex = 0 TabOrder = 6 Text = '0'
- OnChange = MAmComboBoxChange Items. Strings = ('0' '10' '20' '30' '40' '50' '60') endobject DAmComboBox: TComboBox Left = 8 Top = 328 Width = 57 Height = 21
- Style = csDropDownList ' ItemHeight = 13 Itemlndex = 0 TabOrder = 7 Text = '0'
- Caption = #1057#1086#1093# 1088# 1072# 1085#1080# 1090# 1100' 1086#1090#1085#1086#1096#1077#1085#1080#1077'.' OnClick = SaveDDRMenuClick endobject SaveDSMenu: TMenuItem
- 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
- П1.5. Модуль интерфейса настроекunit OptionsForm-interfaceuses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin-1. УРе
- Модуль, описывающий графический образ элементовbject OptionsForm: TOptionsForm Left = 211 Top = 223
- BorderStyle = bsSingle Caption = 'Waw Show' ClientHeight = 233 ClientWidth = 209 Color = clBtnFace
- Font.Charset = DEFAULTCHARSET1. Font. Color = clWindowText1. Font. Height = -11
- 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
- Caption = # 105 5# 1088# 1080# 1084# 1077# 1085# 1080# 1090# 1100 TabOrder = 1
- OnClick = ApplyButtonClick endobject CancelButton: TButton Left = 120 Top=192 Width = 751. Height = 25
- Caption = #1054#1090# 1084#1077#1085# 1072 TabOrder = 2
- OnClick = CancelButtonClick endobject ScaleGroupBox: TGroupBox Left = 8 Top = 80 Width = 193 Height = 105
- Caption = # 1052# 1072# 1089# 1096# 1090# 1072# 1073dB' TabOrder = 3object MirrScaleLabel: TLabel Left =17 ' Top = 24 Width = 64 Height = 13
- Alignment = taRightJustify
- Alignment = taRightJustify
- 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
- 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. С>
- Неуказанные предельные отклонения Н14, h14, ±-1Т14/2. Выполнить в количестве 3 штук. Направление волокон продольное Использование материалов — заменителей не допускается.
- Образцы 1 и 2 выполнить из одного листа.-¦ -.г.“».i .-г----------
- Образец 1 Лит. Масса. Масштаб 1:2 Лист Листов
- Изм Лист Яедокум. Подп. Дата
- Разраб. Селиверстов Пров. Т.контр. Гл.копстр. И.контр. Утв. !
- Ст. 3 сп 5 ГОСТ 14 637-листовой12,5| I л < I1302601. Полировать 0,1 ««12 020