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

ВВЕДЕНИЕ.

ГЛАВА 1.

ПРОБЛЕМА ДИАГНОСТИЧЕСКОГО МОНИТОРИНГА ТРАНСПОРТНЫХ СРЕДСТВ.

1Л. Анализ диагностического обеспечения отечественных средств технического диагностирования.

1.2. Постановка задачи исследований.

ГЛАВА 2.

ЛОГИКО-ФОРМАЛЬНЫЙ АНАЛИЗ ТРАНСПОРТНЫХ СРЕДСТВ КАК ОБЪЕКТОВ ДИАГНОСТИЧЕСКОГО МОНИТОРИНГА.

2Л. Транспортные средства и их общность как объектов диагностического мониторинга.

2.2. Представление транспортного средства в виде обобщенного объекта диагностического мониторинга.

2.3. Степень тяжести последствий отказа сборочной единицы и эксплуатационная безопасность транспортных средств.

ГЛАВА 3.

ФОРМАЛЬНОЕ ПРЕДСТАВЛЕНИЕ ТРАНСПОРТНОГО СРЕДСТВА КАК ОБЪЕКТА ДИАГНОСТИЧЕСКОГО МОНИТОРИНГА.

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

3.2. Математический аппарат обработки данных фактографической информации.

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

ГЛАВА 4.

ОРГАНИЗАЦИЯ ПРОЦЕДУРЫ ДИАГНОСТИЧЕСКОГО

МОНИТОРИНГА.

4.1. Определение моментов времени регистрации фактографической информации.

4.2. Алгоритм процедуры диагностического мониторинга.

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

4.4. Состав базового комплекта средств диагностического мониторинга.

ГЛАВА 5.

ПРИМЕРЫ ПРАКТИЧЕСКОГО ПРИМЕНЕНИЯ.

5.1. Диагностический мониторинг форсунки дизеля.

5.2. Диагностический мониторинг подшипникового узла 128 электродвигателя.

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

Дальнейшее вторжение человека в природную среду вследствие повышения скоростей транспортных средств, реализации новых принципов движения, совершенствование энергетических установок транспортных средств и практическая невозможность полного обеспечения их безопасности, выдвинуло в число первоочередных проблем разработку концепции и общей теории безопасности современных транспортных комплексов в рамках Федеральной целевой программы «Интеграция». Одним из основных вопросов программы является вопрос безопасности эксплуатации транспортных средств, как составляющей общей теории безопасности, что, в частности отмечается и в [1]. Эта составляющая определяется выбранным маршрутом движения, видом перевозимого груза, внешней обстановкой на пути следования (время движения, метеорологические условия, состоянием пути следования и т.д.), экологическими аспектами функционирования, количеством транспортных средств на пути следования и, самое главное, техническим состоянием транспортного средства. Каждое транспортное средство, будь то автомобиль, поезд, речное или морское судно и другие специфично по отдельным аспектам эксплуатационной безопасности, но все они имеют и одну общую составляющую прикладной части общей теории безопасности - информационная поддержка обслуживающего персонала. Система информационной поддержки, как комплекс технических средств, должна обеспечивать обслуживающий персонал всей необходимой и достаточной для целей управления транспортным средством информацией, которая при этом должна обладать наименьшей избыточностью. Первостепенное значение имеет информация о техническом состоянии транспортного средства, получаемая посредством бортовых средств технического диагностирования.

Средства технического диагностирования составляют ядро системы информационной поддержки обслуживающего персонала транспортного средства. Также они являются и составной частью системы управления транспортным средством. Поскольку управление подразумевает в общем случае изменение условий функционирования или параметров объекта, то для транспортного средства эффективность управления, а следовательно, и эксплуатационная безопасность будет определяться развитостью диагностического обеспечения, включающего комплекс взаимосвязанных правил, методов, алгоритмов и технических средств. В настоящее время диагностическое обеспечение базируется как на ранее выполненных основополагающих работах по технической диагностике, информационному контролю и управлению Гаскарова Д.В., Мозгалевского А.В., Николаева В.И., Пархоменко П.П., так и на более поздних работах Васильева В.В., Денисова А.А., Климова Е.Н., Мясникова Ю.Н., Попова С.А., Розенберга Г.Ш., Соболева Л.Г., Скороходова Д.А., Францева Р.Э. и др., посвященных отдельным вопросам автоматизации и алгоритмизации процедур диагностирования, информационного управления, технического диагностирования конкретного оборудования и анализа результатов диагностирования. В результате синтезированы развитые алгоритмы, позволяющие решать основные задачи технического диагностирования различных объектов: контроль технического состояния; поиск места и определение причин отказа (неисправности); прогнозирование технического состояния, а также задачи, связанные с принятием решения и ситуационным управлением. Данные алгоритмы использованы в отдельных специализированных средствах технического диагностирования отечественного производства.

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

Предлагаемая диссертация есть результат научных исследований автора и его участия в выполнении научно-исследовательских и договорных работ по теме «Диагноз» в Санкт-Петербургском Государственном Морском Техническом Университете и по программе МПС «Ресурсосбережение» в Закрытом Акционерном Обществе «Технические Системы и Технологии» в 1988-1999 г.г.

ЗАКЛЮЧЕНИЕ

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

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

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

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

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

5. Разработано в операционной среде Windows 95/98 программное обеспечение процедуры диагностического мониторинга, которое будет применено в серии новых приборов, разработанных в ЗАО "Технические Системы и Технологии". Ядром программного обеспечения является программа "Corsar", осуществляющая все необходимые расчетные и логические операции, связанные с диагностированием и прогнозированием технического состояния транспортного средства, что в результате снижает вероятность возникновения аварийных ситуаций в процессе эксплуатации.

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

Выполненные в диссертационной работе исследования могут быть использованы при диагностировании технологического оборудования в стационарной энергетике, химической промышленности, на трубопроводном транспорте и других отраслях народного хозяйства, а также при выполнении научно-исследовательских работ и в учебном процессе подготовки и переподготовки специалистов в области автоматизированного управления технологическими процессами. В настоящее время результаты диссертационной работы используются при чтении курса лекций по дисциплине «Управление работоспособностью элементов СЭУ» в СПб ГМТУ.

Частично результаты научно-исследовательской работы по теме диссертации отражены в технических отчетах ГМТУ с государственными регистрационными номерами общим объемом в 360 машинописных листов, из которых примерно треть авторские.

Основные положения диссертации представлены в следующих работах. Статьи:

1. Рогов С.Н., Баркова Н.А., Родионов Е.С. Оптимизация осевого поджатая подшипников качения в электромеханизмах / Труды ЖИ "Автоматизация судовых технических средств и электроэнергетического оборудования", JL: 1988.

2. Рогов С.Н, Баркова Н.А., Волкова Л.И. и др. Вибродиагностика подшипников качения роторных механизмов / Труды Гданьского политехнического института, ПНР, Гданьск, 1989.

3. Рогов С.Н., Баркова Н.А., Волкова Л.И. Сравнительный анализ методов вибродиагностики подшипников качения / Труды ЖИ "Автоматизация судовых технических средств и электроэнергетического оборудования", Л.: 1989.

4. Рогов С.Н., Барков А.В. Мониторизация и диагностирование машин и оборудования. Возможности и ограничения. Изд. АО ВАСТ, СПб: 1994.

5. Рогов С.Н., Ложко В.В. Новые информационные технологии мониторизации и диагностирования машин и оборудования для обеспечения промышленной и транспортной безопасности / Инновации, 5-6, 1999.

6. Рогов С.Н., Хруцкий О.В. Ложко В.В. Диагностический мониторинг технического состояния транспортных средств / Инновации, 7-8, 2000.

Тезисы докладов:

1. Рогов С.Н., Баркова Н.А., Коверзнев С.М. О локализации дефектов потокосодержащих механизмов / Тезисы докладов I Всесоюзной НТК, г. Каунас, 1986.

2. Рогов С.Н., Баркова Н.А., Кулиев С.А. Чувствительность судовых средств диагностирования по параметрам спектра огибающей случайных вибраций и шума / Тезисы докладов Всесоюзного семинара по диагностике, НТО им. акад. А.Н. Крылова, Л.: 1988.

145

3. Рогов С.Н., Баркова Н.А. Кулиев С.А. Точность измерения диагностических параметров при анализе спектров случайных вибраций и шума / Тезисы докладов II Всесоюзной НТК, г. Горький, 1988.

4. Rogov S., Barkova N., Volkova L. i ast.

Krytyczna ocena rozrych metod diagnostiki wibracy tozysk tocznych/ Тезисы докладов IX Международной школы-семинара "Diagnostyka'89", Rydzyna, Polska.

5. Rogov S., Barkova N., Volkova L. and ets. Comparison of the Different Diagnostic Methods of Roll-Bearings / Тезисы докладов V Международной конференции "Reliability & Quality control", Lugano, Switzerland, 1989.

Авторские свидетельства:

1. A.C. № 1516831 (СССР). Способ вибрационной диагностики механизмов (в соавторстве).

2. А.С. № 1522089 (СССР). Способ предотвращения аварийной ситуации сосудов давления (в соавторстве).

Копии авторских свидетельств и актов внедрения результатов диссертационной работы приведены в приложении.

Методические пособия:

1. Рогов С.Н., Осяев А.Т. Методика выполнения измерений при определении технического состояния подшипников качения при помощи виброакустического комплекса. МПС РФ, ВНИИ ЖТ, М.: 1998.

1. Белый О.В., Попов С.А., Францев Р.Э. Транспортные сети России. Изд. ИПТ РАН и СПГУВК, СПб, 1998, 147 с.

2. Техническая диагностика. Термины и определения. ГОСТ 20911-89.

3. Егоров И.В., Карасев В.А., Максимов В.П. Технические средства диагностирования газотурбинных двигателей летательных аппаратов / В кн. Технические средства диагностирования. Справочник. М.: Машиностроение, 1989, 672 с.

4. Васильев В.В., Гусев Ю.М., Иванов А.И. и др. Автоматический контроль и диагностика систем управления силовыми установками летательных аппаратов. М.: Машиностроение, 1989, 240 с.

5. Голуб Е.С., Мадорский Е.З., Розенберг Г.Ш. Диагностирование судовых технических средств. М.: Транспорт, 1993, 144 с.

6. Сыромятников В.Ф. Автоматика как средство диагностики на морских судах. Л.: Судостроение, 1979, 312 с.

7. Гурвич А.К., Кузьмина А.И., Цветков Н.И. и др. Технические средства диагностирования на железнодорожном транспорте / В кн. Технические средства диагностирования. Справочник. М.: Машиностроение, 1989, 672 с.

8. Индикатор ресурса подшипников ИРП-12. Инструкция по эксплуатации. ЗАО «МЕТКАТОМ», СПб, 2000.

9. Технология диагностики подшипников качения колесно-моторных блоков прибором ИРП-12. ЗАО «МЕТКАТОМ», СПб, 2000.

10. Индикатор состояния подшипников К-77ДМ. НПФ «Ресурс», СПб, 1999.

11. Барков А.В. Возможности нового поколения систем мониторинга и диагностики / http:// www.inteltek.com/russian/articles/metal/index.htm (по статье, опубликованной в журнале "Металлург", №11, 1998).

12. Барков А.В., Баркова Н.А., Азовцев А.Ю. Монторинг и диагностика роторных машин по вибрации. СПб: Изд. центр СПб ГМТУ, 2000, 159 с.

13. Александров А.А., Барков А.В., Баркова Н.А. и др. Вибрация и вибродиагностика судового электрооборудования. Л.: Судостроение, 1986, 276с.

14. Розенберг Г.Ш., Неелов Н.А., Голуб Е.С. и др. Экспертные системы технической диагностики «Вещун» / Судостроение, 1999, №6, с. 27-30.

15. Система «Дизель-Адмирал». НПК «Гарант», СПб, 2000.

16. Акустико-эмиссионный прибор «Прогноз-2». ЗАО «Контес», СПб, 1996.

17. Левин М.И. Современное состояние проблемы дизельной автоматики в зарубежной практике и отечественный опыт / Двигателестроение, 1999, №4, с. 28-31 и 2000, №1, с. 17-20.

18. Мозгалевский А.В., Калявин В.П. Системы диагностирования судового оборудования. Л.: Судостроение, 1987, 224 с.

19. Мозгалевский А.В„ Гаскаров Д.В. Техническая диагностика (непрерывные объекты). М.: Высшая школа, 1975, 207 с.

20. Соболев Л.Г. Операционные методы в задачах идентификации экспериментальных функций тренда / Автоматика и телемеханика, 1997, №2, с. 100-107.

21. Хруцкий О.В. Прогнозирование технического состояния функционально-самостоятельных элементов судовой энергетической установки / Диссертация на соискание ученой степени доктора технических наук, ГМТУ, СПб, 1996, 263 л.

22. Неразрушающий контроль рельсов при их эксплуатации и ремонте / Под ред. А.К. Гурвича. М.: Транспорт, 1982, 318 с.

23. Аринин И.Н. Техническая диагностика автомобилей. М.: Транспорт, 1981, 146 с.

24. Макаров Р.А. Технические средства диагностирования автомобильного транспорта / В кн. Технические средства диагностирования. Справочник. М.: Машиностроение, 1989, с. 330-378.

25. Маслов Б.В., Шуньгин Ю.А. Перспективы применения дизелей на судах морского флота / Дизелестроение, 1988, №8, с. 3-5.

26. Климов Е.Н. Управление техническим состоянием судовой техники. М.: Транспорт, 1985, 242 с.

27. Технические средства диагностирования: Справочник / Под общ. Ред. В.В. Клюева. М.: Машиностроение, 1988, 672 с.

28. Дорошко С.М. Контроль и диагностирование технического состояния газотурбинных двигателей по вибрационным параметрам. М.: Транспорт, 1984, 128 с.

29. Диагностирование состояния роторных машин по изменению параметров вибрации в процессе эксплуатации. Методические рекомендации МРМ-86-83. М.: Госстандарт, 1983, 28 с.

30. Лихачев В.Я., Васин А.С., Гликман Б.Ф. Техническая диагностика пневмагидравлических систем ЖРД. М.: Машиностроение, 1983, 203 с.

31. Месарович М., Мако Д., Такахара И. Теория иерархичесикх многоуровневых систем. М.: Мир, 1973, 344 с.

32. Прогностика. Терминология. М.: Наука, 1990, 54 с.

33. Николаев В.И., Брук В.М. Системотехника: методы и приложения. Л.: Машиностроение, 1985, 199 с.

34. Кубарев А.И. Надежность в машиностроении. М.: Изд. Стандартов, 1989, 224с.

35. Декабрун И.Е. Надежность и физика отказов / Измерения, контроль, автоматизация, 1986, №3 (59), с. 42.

36. Регель В.Р., Слуцкер А.И., Томашевский Э.В. Кинетическая природа прочности твердых тел. М.: Наука, 1974, 560 с.

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

38. Дробот Ю.Б., Лазарев A.M. Неразрушающий контроль усталостных трещин акустико-эмиссионным методом. М.: Изд. Стандартов, 1987, 128 с.

39. Башуров Б.П., Нечитайленко П.Ф., Бурчаков В.М. и др. Эксплуатация судовых насосов. М.: Транспорт, 1989, 272 с.

40. Макаров В.Г., Ситченко JI.C. Надежность трубопроводов судовых систем. Л.: ЛКИ, 1985, 118 с.

41. Мясников Ю.Н. Постановка задачи исследований энергетической установки как объекта технического диагностирования / Вопросы судостроения, 1979, вып. 17, с. 3-12.

42. Хруцкий О.В. Введение в надежность и техническую диагностику судовых систем. СПб, Изд. Центр СПбГМТУ, 1996, 84 с.

43. Никитин Е.А., Станиславский Л.В., Улановский Э.А. и др. Диагностирование дизелей. М.: Машиностроение, 1987, 224 с.

44. Голубкова М.А., Соколова Т.А., Чистов В.К. К вопросу об экспертной классификации объектов / Автоматизированные системы управления и синтез автоматизированных систем. М.: Советское радио, 1974, 364 с.

45. Бовбель Е.И. Данейко И.К., Изох В.В. Элементы теории информации. Минск, Изд. БГУ, 1974, 112 с.

46. Соболев Л.Г. Идентификация экспериментальных распределений. Л.: Изд. ЖИ, 1986, 106 с.

47. Суевалов Л.Ф. Справочник по расчетам судовых автоматических систем. Л.: Судостроение, 1989, 408 с.

48. Политехнический словарь. М.: П50 «Большая Российская энциклопедия», 1998, 656 с.

49. Волков Л.К., Ковалев Р.Н., Никифорова Г.Н. и др. Вибрация и шум электрических машин малой мощности. Л.: Энергия, 1979, 192 с.

50. Разработка технических средств и алгоритмов диагностирования подшипниковых узлов электрических машин. Технический отчет ЛГМТУ по теме II X - 286 - 89, 1994.

51. Бронштейн И.Н., Семендяев К.А. Справочник по математике. М.: Наука, 1967, 608 с.

52. Соболев Л.Г. Обработка результатов измерений в судостроении. Л.: Изд. ЖИ, 1983,47 с.

53. Соболев Л.Г., Хруцкий О.В. К вопросу обработки акустико-эмиссионных данных / Дефектоскопия, АН СССР, 1991, №9, с. 79-82.

54. Хруцкий О.В. Об одном методе аналитического прогнозирования технического состояния типовых узлов судовых энергетических установок. Л.: Судостроение, 1997, №1, с. 24-26.

55. Баркова Н.А. Современное состояние виброакустической диагностики машин. АО "Виброакустические Системы и Технологии", 1999, 26 с. /http:/www.inteltek.com/russian/articles/sovrsost/index.htm.

56. Исследование и разработка способов повышения долговечности теплообменных аппратов. Технический отчет по теме II 7 -3-Х- 100, гос. per. № 0186.0004058, ЖИ, 1988.

57. Одинцов В.А., Хруцкий О.В. Расчет тренда в задачах диагностирования судовых трубопроводов / Труды ЦНИИ МФ, Л.: Транспорт, 1989, вып. 288, с. 71-74.

58. Румшинский П.З. Математическая обработка результатов эксперимента. М.: Наука, 1971.

59. Новицкий П.В., Зограф И.А. Оценка погрешности результатов измерений. Л.: Энергоатомиздат, 1991, 304 с.

60. Волгин В.В., Каримов Р.Н. Оценка корреляционных функций в промышленных системах управления. М.:Энергия, 1979, 80 с.

61. Исследование проблем транспортных систем и совершенствования подготовки специалистов в области управления транспортными средствами и системами/ Технический отчет ИПТ РАН по ФЦП «Интеграция», 1998, 237 с.

62. Исследование принципиально новых направлений повышения безопасности транспортных систем и комплексов / Технический отчет ИПТ РАН, шифр 1-454-96, 1997, 130 с.

63. Биргер И.А. Техническая диагностика. М.: Машиностроение, 1978, 240 с.

64. Разработка средств технического диагностирования подшипниковых узлов электрических машин / Технический отчет по теме II-X-477-90, инв. № 06050691, ЛКИ, 1991.

65. Прасолин А.П., Смирнова Г.Ф., Артюхов В.Л. Комплекс бортовых систем управления высокоскоростного пассажирского электропоезда "Сокол"/ Вопросы проектирования подводных лодок, ЦКБ МТ "Рубин", 2000, выпуск 12, с. 196-204.

66. Кеба И.В. Диагностика авиационных газотурбинных двигателей. М.: Транспорт, 1980, 248 с.

67. Макаров Р.А., Соколов А.В. Диагностика строительных машин. М.: Стройиздат, 1984, 335 с.

68. Михлин В.М. Управление надежностью сельскохозяйственных машин. М.: Колос, 1984,333 с.

69. Баранников В.К. Диагностирование предаварийного состояния энергетического оборудования по изменению его основных характеристик / Судостроение, 1995, №1.

70. Максимов С.Е. Управление работоспособностью корабельного энергетического оборудования. ВВИМУ, г. Пушкин, 1994, 221 с.

71. Test System and VXI Products Catalog. Hewlett Packard Company, 1999.

72. Леныпин B.H. Новые информационно-измерительные технологии на базе стандарта VXI-bus (обзор). ЦАТИ, Москва, 1999, 19 с.

73. Цапенко М.П. Измерительные информационные системы. М.: Энергия, 1974, 320 с.

74. Хруцкий О.В. Информационные процессы в автоматизированных системах управления . СПб: Изд. Центр СПбГМТУ, 1998, 56 с.

75. Денисов А.А. Информационные основы управления. Л.: Энергоатомиздат, 1983,72 с.152

76. Моек Е., Штрикерт X. Техническая диагностика судовых машин и механизмов. JL: Судостроение, 1986, 232 с.

77. Дробот Ю.Б. и др. Акустическое контактное течеискание. М.: Машиностроение, 1989, 120 .

78. Карпов Л.Н. Надежность и качество судовых дизелей / Судостроение, 1975, №6, с. 72-76.

79. Кирякин А.В., Железная И.Л. Акустическая диагностика узлов и блоков РЭА. М.: Радио и связь, 1984, 192 с.

80. Тейлор . К. Идентификация дефектов подшипников с помощью спектрального анализа / Конструирование и технология машиностроения, 1978, №2.155program Dorabotka;uses Forms,

81. Unit 1 in 'Unit1.pas' {LNumber};$R *.RES}begin

82. Application.Initialize; //Application.CreateForm(TPasswordDlg, PasswordDlg);

83. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

84. StdCtrls, ExtCtrls, Grids, Menus, Buttons, Corsar, Corsl, Mask;type

85. Private declarations } public

86. Public declarations } end;procedure calculatel(XO:real}; procedure calculate2(); procedure calculate3 ();var1. Basic: TBasic;

87. NFP,n,KLXO,1X0,IP,Q,IOPT2,rmp,smp:integer;

88. RLQPR (N, T, X, FPX, XO, KLXO, 1, 1,0, 1X0) ; for i:=1 to N do FPY I . : =X (I ] ; end;2 : begin

89. RLQPR(N,T,X,XR,X0,KLXO,1,1,0,1X0); RLQPR(N,T,XR,FPX,XO,KLXO,1,1,0, 1X0); for I:=l to N do FPY1.:=X(I.; end;3 : begin1. RRN:=-RN;

90. RLQPR(N,T,X,FPX,XO,KLXO,RRN,1,2,1X0) for I:=1 to N do FPY1.:=XI.; end;4 : begin

91. RLQPR(N,T,X,FPX,XO,KLXO,-1,Q,2, 1X0); for I:=1 to N do FPY1.:=XI.; end;5 : beginfor I:=1 to N do FPX1.:=XI.; RLQPR(N,T,X,FPY,XO,KLXO,1, 1,2, 1X0); end;end;

92. SIA:=SIA+Sqr((X1.-R)/n); XTI.:=R; end; end;2 : beginif(A>=0.0) Then begin AR:=SQRT(A);for I:=1 to N do XR1. :=CH(AR*TI.) ; end else begin AR:=SQRT(-A);for I:=1 to N do XR1.:=C0S(AR*TI.) ; end;

93. REGR1(N,XR,X,C,SI2,SI,SU2,SU) ; SIA:=0.;for I:= 1 to N do begin R:=C*XR1.;

94. SIA:=SIA+Sqr((X1.-R)/n); XT I. : =R; end; end;3 : begin

95. RR:=RN-1.; for I:= 1 to N do begin R: =A*Pow(T1.,RN); XRI.:=(1+RR*R)/Sqr(1-R); end;

96. REGR1 (N, XR, X, C, SI2, SI, SU2, SU) ; for I:= 1 to N do begin R:=C*XR1.;

97. SIA:=SIA+Sqr((X1.-R)/n); XTI. :=R; ' end; end;4 : begin

98. RR:=(1.-Q)/Q; for I:= 1 to N do begin R:=A*T1.;

99. XR1.:=(1.+RR*R)/Sqr(l.-R); end;

100. REGR1(N,XR,X,C,SI2,SI,SU2,SU); SIA:=0.;for I:= 1 to N do begin R:=C*XR1.;

101. Basic.Memol.Lines.Text := Basic.Memol.Lines.Text+ format( 'XT.=B*EXP(A*T)'+#10#13+ 'B %15.7f'+#13#10+ 'A - %15.7f'+#10#13+

102. Коэффициент корреляции:%15.7f'+#13#10+

103. СКВО на фазовой плоскости функции-интегралы:% 15.7f'+#13#10 + 'СКВО аппроксимирующей функции: %15.7f',C, A, RKORR, SIGMA, SIA.); end;2 : begin1. TRAZR:=0;

104. Basic.Memol.Lines.Text := Basic.Memol.Lines.Text+format( 'XT.=B*CH(SQRT(A)*T)при a>0'+#13#10 + 'X[T]=B*COS(SQRT(-A)*T) при a<0'+#10#13+ 'B % 15.4 f'+#13#10+ 'A - % 15.4 f'+#10#13 +

105. Коэффициент корреляции:%15.4f'+#13#10+

106. СКВО на фазовой плоскости функции- двойные интегралы:%15.4f'+#13#10+ 'СКВО аппроксимирующей функции: %15.4f',C, A, RKORR, SIGMA, SIA.); end;3 : begin1. TRAZR:=Pow(A,(-1/RN));

107. Basic.Memol.Lines.Text := Basic.Memol.Lines.Text+ format( 'XT.=B*(1+(N-l)*A*TAN)/((1-А*ТЛЫ)Л2)'+#10*13+ 'В %15.4f'+#13#10+ •N - %15.4f'+#13#10+ 'A - %15.4f'+#10#13+

108. Коэффициент корреляции:%15.4f'+#13#10+

109. СКВО на фазовой плоскости L-интегралы степени N:% 15.2f'+#13#10 + 'СКВО аппроксимирующей функции: % 15.4f'+#13#10+ 'Точка разрыва функции: %15.4f', с, rn, a, rkorr, sigma, sia,trazr.); end;4 : begin1. TRAZR:=1/А;

110. Basic.Memol.Lines.Text := Basic.Memol.Lines.Text+format( 'XT.=B*((1+((Q-1)/Q)*A*T)/(1-A*T)A2'+#10#13+ •Q %d'+#13#10+ 'B - %15.7f'+#13*10+ 'A - %15.7f'+#10#13+

111. Коэффициент корреляции:%15.7f'+#13#10+

112. СКВО на фазовой плоскости Функции Q-интегралы:115.7f'+#13#10+ 'СКВО аппроксимирующей функции: %15.7f'+#13#10+ 'Точка разрыва функции: %15.7f', Q, С, A, RKORR, SIGMA, SIA,TRAZR.); end;5 : begin1. TRAZR:= 1/A;

113. Basic.Memol.Lines.Text := Basic.Memol.Lines.Text+format(

114. ХТ.=В0+В1/(1-A*T)л2'+#10#13+

115. Число усреднений: %d'+#13#10+1. BO %15.4f'+#13#10+•B1 %15.4f'+#13*10+1. A %15.4f'+#10#13+

116. Коэффициент корреляции:%15.4f'+#13#10+

117. СКВО на фазовой плоскости L-производные функции:% 15.4f' + #13#10 + 'СКВО аппроксимирующей функции: %15.4f'+#13#10+ 'Точка разрыва функции: %15.7f', IP, СО, CI, A, RKORR, SIGMA, SIA,TRAZR. ); end; {б : begin1. TRAZR:=0; '

118. Memol.Lines.Text := Memol.Lines.Text+format(

119. XT.=B0+B1*(Q+A*T)*EXP(A*T)'+#10113+1. Q %d'+#13#10+1. B0 %15 . 7f ' +#13#10 +1. B1 %15.7f'+#13#10+1. A %15.7f'+#10#13+

120. Коэффициент корреляции:%15.7f'+#13#10+

121. StringGridl.Cells1,0.:='t'; StringGridl.Cells[2,0]:='Yi'; StringGridl.Cells[3,0]:='Ys'; end;procedure TBasic.SpeedButtonlClick(Sender: TObject);1.bel 10;var i,j:integer;rrn,ar, si,si2,su,su2,rk,rr,r{,s,p,sum:real;} begin

122. Grafics.SpeedButtonl.Enabled:=true; Grafics.SpeedButton2.Enabled:=true; Memol.Lines.Clear;if (RadioGroupl.Itemlndex=-1) or (RadioGroup2.Itemlndex=-1) then MessageDlg('He указан X0 или фазовая плоскость1, mtError,mbOk.,0) else beginfl}

123. NFP:=RadioGroupl.Itemlndex+l;

124. OKBottomDlg.Labell.Caption:='Интегралы степени '+FloatToStr(RM); OKBottomDlg.Label2.Caption:='Новая степень (больше 0):'; OKBottomDlg.MaskEditl.Text:=FloatToStr(RN); if OKBottomDlg.ShowModal=mrOK thenbegin

125. RN:=StrToFloat(OKBottomDlg.MaskEdit1.Text) ; goto 10; end; end; end;4 :beginif MessageDlg(1 Будем оптимизировать?mtConfirmation, mbOk,mbCancel.,0)=mrOk then begin

126. OKBottomDlg.Labell.Caption:='Q = '+FloatToStr(Q); OKBottomDlg.Label2.Caption:='Новое Q :'; OKBottomDlg.MaskEditl.Text:=FloatToStr(Q); if OKBottomDlg.ShowModal=mrOK then begin

127. NFP:=RadioGroupl.Itemlndex+l; KLXO:=RadioGroup2.Itemlndex; if KLX0=2 then X0:=StrToFloat(Editl.Text); RN:=1; Q:=l; IP: = 1 ; // первая плоскость // начало

128. RLQPR(N,T,X,XR,X0,KLXO,1,1,0, 1X0); RLQPR(N,T,XR,FPX,XO,KLXO, 1, 1, 0, 1X0) ; for I:=l to N do FPY1.:=XI.; end;3 : begin

129. RLQPR(N,T,X,FPX,XO,KLXO,-RN,1,2,1X0); for I:=1 to N do FPY1.:=XI.; end;4 : begin

130. RLQPR(N,T,X,FPX,XO,KLXO,-1,Q, 2, 1X0) ; for I:=1 to N do FPY1.:=XI.; end;5 : beginfor I.:=l to N do FPX I . : =X 1. ; RLQPR(N, T,X,FPY,XO,KLXO,1,1,2,1X0); end; { 6 : begin

131. RLQPR(N,T,X,FPX,XO, KLXO,1,Q,1,1X0); RPR (N, T, FPX, FPY) ; end; }end;

132. REGRK(N,FPX,FPY,A,B,SIGMA,RKORR) ; Case iz ofbegin if(A>=0.0) then beginfor I:=1 to N do XR1.:=CH(sqrt(A)*TI.); end else beginfor I:=l. to N do XR I . : =COS ( sqrt (-A) *T [ I ] ) ; end;

133. REGR1(N,XR,X,C,SI2,SI,SU2,SU); SIA:=0.;for I:= 1 to N do begin1. R:=C*XR1.;

134. SIA:=SIA+Sqr((X1.-R)/n); end; end; begin RR:=RN-1.; for I:= 1 to N do begin1. R:=A*Pow(T1.,RN);

135. XR1.:=(1+RR*R)/Sqr(1—R); end;

136. REGR1(N,XR,X,C,SI2,SI,SU2,SU); for I:= 1 to N do begin1. R:=C*XR1.;1. SIA:=SIA+Sqr((X1.-R)/n);end; end;4 : begin

137. RR:=(1-Q)/Q; for I: = 1. to N do begin R:=A*T1. ;

138. XR I . : = (1+RR*R)/Sqr(l-R); end;

139. REGR1(N,XR,X,C,SI2,SI,SU2,SU); SIA:=0;for I:= 1 to N do begin R:=C*XR1.;

140. SIA:=SIA+Sqr((X1.-R)/n); end; end;5 : beginfor I:=1 to N do XR1.:=1./Sqr(1.-A*TI.); REGRK(N,XR,X,CI,CO,SI,RK); SIA:=0.;for I:= 1 to N do begin R:=C0+C1*XR1.; SIA:=SIA+Sqr((XI.-R)/n) ; end; end; { 6 : beginfor I:= 1 to N do begin R:=A*T1.;

141. XR1. : = (Q+R)*EXP(R) ; end;

142. RadioGroupl.Itemlndex:=rmp-l ; if abs(rkorrm)<0.707 then

143. MessageDlg('Требуется уточнение исходных данных',mtlnformation, mbOk.,0);end; End;procedure TBasic.OpenlClick(Sender: TObject);var i:integer;begin

144. Grafics.SpeedButtonl.Enabled:=false; Grafics.SpeedButton2.Enabled:=false;

145. Cells0,i.:=IntToStr(i); Cells[1,i]:=FloatToStr(T1.); Cells[2,i]:=FloatToStr(X[i]); end; end; end; end;procedure TBasic.N3Click(Sender: TObject); begin

146. T1.:=StrToFloat(StringGridl.Cells1, i.) ; X[i]:=StrToFloat(StringGridl.Cells[2, i]) ; {10: )end{1};

147. StringGridl.Options:=StringGridl.Options-goEditing. ;

148. SpeedButton2.Visible:=false; end;procedure TBasic.NewlClick(Sender: TObject);var i; integer;}begin

149. StringGridl.RowCount:=n+l;if StringGridl.RowCount<17 then StringGridl.RowCount:=17; if n>100 then

150. MessageDlg('Введите целое число',mtError,mbOk.,0) end;end;procedure TBasic.ReportlClick(Sender: TObject);var i .'integer ;begin

151. Grafics.Visible:=true; for i:=l to n do

152. Grafics.Chartl.Seriesl.AddXY(t1.,XT[i]); end;procedure TBasic.N4Click(Sender: TObject); var i:integer; begin

153. SaveDialogl.Filter: = 'Файлы с данными (*.dat) I *.dat'; SaveDialogl.Title:='Сохранить данные';if SaveDialogl.Execute then beginassignfile(fs,SaveDialogl.FileName); rewrite{f s);for i:=1 to n do writeln(fs,StrtoFloat(StringGridl.Cells1, i.), ' ',

154. StrToFloat(StringGridl.Cells2,i.));closefile(fs); end; end;procedure TBasic.SpeedButton3Click(Sender: TObject);var i:integer;begin

155. Grafics.Visible:=true; for i:=1 to n do Grafics.Series1.AddXY(t1.,Xi.,'clred) ; end;procedure TBasic.AutorslClick(Sender: TObject); begin

156. AboutBoxl.visible:=true; end;procedure TBasic.SpeedButton5Click(Sender: TObject); var BB,BB0,BB1: real; i:integer;

157. SI2, SI, SU2, SU, R, AR, RR, RK:real; Begincase NFP of 1,2,3,4: BB:=C; 5: begin

158. BBO:=C0; BB1:=C1 end; end;

159. TAboutBox = class(TForm) Panell: TPanel; Programlcon: TImage; Version: TLabel; OKButton: TButton; Label1: TLabel; Comments: TLabel;procedure OKButtonClick(Sender: TObject); private

160. Private declarations } public

161. Public declarations } end;var

162. AboutBox: TAboutBox; implementation {$R *.DFM}procedure TAboutBox.OKButtonClick(Sender: TObject); begin1. AboutBox.Close; end;end.

163. Unit Corsl; Interface Uses Corsar ;

164. Procedure RLQPR( VAR N: integer; VAR T,X,XS: TArr; VAR XO: real;

165. VAR KLXO: integer; RN,Q: real; KL: integer; VAR 1X0: integer ); Procedure RPR( VAR N: integer; VAR T,X,PR: TArr );

166. Procedure REGRK(VAR N:integer; VAR T,X:TArr;VAR A,B,SIGMA,RKORR: real Procedure REGR1(VAR N:integer; VAR T,X:TArr;

167. VAR A,SIGM2,SIGMA,SUMD2,SUMD: real); Procedure SLAUR(VAR A; VAR B: TArr; MI,NI: integer;

168. VAR AN; VAR BN: TCN; VAR M: integer; N: integer; VAR IND: integer ); Procedure LUMG1(VAR AN,BN; VAR N1,N,KL : integer);

169. FUNCTION CHL(A,T: real):real; FUNCTION SiHL(A,T: real):real; FUNCTION COSL(A,T: real):real; FUNCTION SINL(A,T: real):real; FUNCTION CH(X: real):real;1.plementation

170. Procedure RLQPR( VAR N: integer; VAR T,X,XS: TArr; VAR XO: real;

171. VAR KLXO: integer; RN,Q: real; KL: integer; VAR 1X0: integer );1.bel 1; VAR

172. R, S : real; i: integer; BEGINif 1X0=0 then begin S: =0 ; XS 1.:=0;if KLX0=0 then XO : = (X1. *T2.-X[2]*T[1])/(T[2]-T [1]); if KLX0=1 then X0:=X[1]/ 2; goto 1; end;}if KLX0=O then XO:=(X1.*T2.-X[2]*T[1])/(T[2]-T[1]);if KLX0=1 then X0:=Xl./2;

173. Procedure REGRK(VAR N: integer; VAR T,X: TArr;VAR A,B,SIGMA,RKORR: real); VAR i : integer;

174. ST, SX, STX, ST2, SX2, TSR, XSR, SUMD2, S : real;1. Begin

175. ST:=0.; SX:=0.; STX:=0.; •1. ST2:=0.; SX2:=0.;for i:= 1 to N do begin

176. ST;=ST+T1.; SX:=SX+Xi.; ST2:=ST2+sqr(T[i]); SX2:=SX2+sqr(X[i]); STX:=STX+T[i]*X[i]; end;1. TSR:=ST/N; XSR:=SX/N;

177. A: = (N*STX-ST*SX)/(N*ST2-ST*ST) ;1. В:=XSR-A*TSR;1. SUMD2: =0. ;for i:= 1 to N dobegin

178. S:=X1.-A*Ti.-B; SUMD2:=SUMD2+S*S ; end;

179. SIGMA:=SQRT(SUMD2/(N-l) ) ;

180. RKORR:=(STX-ST*SX/N)/SQRT((ST2-ST*ST/N)*(SX2-SX*SX/N));1. END;

181. Procedure REGR1( VAR N: integer; VAR T,X: TArr;

182. VAR A,SIGM2,SIGMA,SUMD2,SUMD: real);1.bel 1, 2; VAR i : integer;1. STX, ST2, S : real;1. Begin1. STX:=0.; ST2:=0 . ;for i:= 1■to N do begin

183. ST2:=ST2+Sqr(T1.); STX:=STX+TI.*X[I]; end;1. A: =STX/ST2;1. SUMD2:=0.;1. SUMD:=0.;for i:= 1 to N dobegin

184. S:=X1.-A*Ti.; SUMD:=SUMD+S; SUMD2:=SUMD2+S*S; end;

185. SIGM2:=SUMD2/(N-l); SIGMA:=SQRT(SIGM2);1. END;

186. Procedure LUMG1(VAR AN,BN; VAR N1,N,KL : integer); Label 1,2,3,4,5,6,

187. VAR NM1, К, I, II, L, J, IA, 12, KP1, Jl, J2, NN, IB, 1С, IAA : integer; E, G, T, S : real;1. Begin1. E:=0.0001; KL:=0;for K:=1 to N-l do begin G: =0 ;for I:= К to N do begin I1:=(K-l)*NI+I;if Round(ABS(TBytes(AN)II.)-ABS(G))<=0 then goto 1;1. = I;

188. G:=TBytes(AN)II.; 1: if Round(ABS(G)-E)>0 then goto 2;1. KL:=1; GOTO 6; end;2: if (L-K)<=0 then goto 3; for J:= К to N do begin IA:=(J-l)*NI; I1:=IA+K; 12:=IA+L;

189. T:=TBytes(AN)II. ; TBytes(AN)[II]:=TBytes(AN)[12]; TBytes(AN)[12]:=T; end;4: T:=TBytes(BN)KJ;

190. TBytes(BN)K.:=TBytes(BN)[L]; TBytes(BN)[L]:=T; 3: KP1:=K+1;for i:=KP1 to N do begin i1:=(К-1)* NI + i; T : =TBytes(AN) ±1./G; for J:= KP1 to N do begin IA:=(J-l)*NI; J1:=IA+I; J2:=IA+K;

191. TBytes(AN)Jl.:=TBytes(AN)[Jl]-T*TBytes(AN)[J2]; end;

192. TBytes(BN) 1.:=TBytes(BN) I.-T*TBytes(BN) [K] ; end; end;1. NN:=NI*(N-l)+N;

193. TBytes(BN)N.:=TBytes(BN)[N]/TBytes(AN)[NN]; for i:= 1 to N-l do begin1.:=NN-I; IB:=N-I; IC:=N; S: =0 ;

194. A:=(IB-1)*NI+IB; for K:= 1 to i do begin

195. S:=S+TBytes(AN)IA.*TBytes(BN)[1С]; IA:=IA-NI; 1С:=IC-1; end;

196. TBytes(BN)IB.:=(TBytes(BN)[IB]-S)/TBytes(AN)[IAA]; end;6: End;

197. Procedure SLAUR( VAR A; VAR B: TArr;

198. MI,NI: integer; VAR AN; VAR BN: TCN; VAR M: integer; N: integer; VAR IND: integer ) ;1.bel 1;

199. VAR i, K, Kl, J, MK1, MJ1, KJ, KL S : real;1. Begin IND:=0;integer;if (M-N)<0 then IND:=1 else if (M-N)=0 then beginfor i:= 1 to M do begin

200. K:=MI*(1-1); K1:=NI *(1-1);for J:= 1 to M do TBytes(AN)K1+j.:=TBytes(A)[K+j] end;for i:= 1 to M do BN1.:=BI.; endelse if (M-N)>0 then beginfor К:= 1 to N do begin

201. MK1:=MI*(K-l); for J:= 1 to N do begin1. MJl:=MI*(J-l); S:=0.;for i:= 1 to M do begin

202. S:=S+TBytes(A)MKl+i.*TBytes(A)[MJl+i]; end; KJ:=NI*(J-l)+K; TBytes(AN)[KJ]:=S; end; S : =0 ;for i:= 1 to M do begin

203. S:=S+TBytes(A)MKl+i.*B1.; end; BN[K]:=S; end;end;

204. MG1(AN,BN,NI, N, KL) ; if KL<>2 then IND:=2; END;

205. Procedure RPR( VAR N: integer;

206. VAR T,X,PR: TArr ) ; VAR N1, N2, I, II, IM1 : integer; Begin

207. SORT2(N,T,X); LAA у Cors2}

208. PR1. : = (X2.-X[1])/(T[2]-T[1]) + (X[3]-X[1])/(T[3]-T[l] )

209. X3.-X[2])/(T[3]-T[2]) ; N1:=N-1; . N2:=N-2;for i:= 2'to N1 do begin1.1:=I-1; II:=1+1;

210. PR1. : = (XI.-X[IM1])/(T[I]-T[IMl] ) + (X[II]-X[I]}/(T[II]-T[I])-(X[I1]-X[IM1])/(T[II]-T[IM1]) ;end;

211. PRN.:=(X[N]-X[N1])/(T[N]-T[Nl])+ (X[N]-X[N2])/(T[N]-T[N2] )-(X[N1]-X[N2])/(T[N1]-T[N2]) ;1. END;unit Graf;interfaceuses

212. WinTypes, WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

213. StdCtrls, ExtCtrls, TeEngine, TeeProcs, Chart, Series, Corsar, Buttons, main;type

214. Private declarations } public1. Public declarations }end;procedure SetCont ( N : Integer;X, Y, Y1 : TArr{; sX, sY, Syl : String );}var

215. Grafics.Seriesl.AddXY(t1.,Xi.,'',clred); end; }procedure TGrafics.ButtonlClick(Sender: TObject); begin

216. Private declarations } public

217. Public declarations } end;var

218. X:=С*ехр(А*Т); end; 2г beginif A>=0 then X:=C*ch(T*sqrt(A)); if A<0 then X:=C*cos(T*sqrt(-A)) ; end; 3: beginif t>Main.trazr then

219. MessageDlg(1К этому моменту объект выйдет за допустимые параметры',mtWarning,mbOk.,0) else

220. X:=С*(1+(N-l)*A*Pow(T,N))/sqr(l-A*Pow(T,N)); end; 4 : beginif t>Main.trazr then

221. MessageDlg('К этому моменту объект выйдет за допустимые параметры',mtWarning,mbOk.,0) else

222. X:=С*(1+(Q-l)/Q*A*T)/sqr(1-A*T) ; end; 5: beginif t>Main.trazr then

223. MessageDlg('К этому моменту объект выйдет за допустимые параметры',mtWarning,mbOk.,0) else

224. X:=С0+С1/sqr(1-А*Т); end; 6: begin

225. X:=C0+C1+(Q+A*T)*exp(A+T) ; end; end;1.bel2.Caption:='Выходной сигнал примет значение:'; end;1: begincase nfp of 1: begin

226. X: =ln(Т/С)/А; end; 2: beginend; 3: beginpsi:=2+(N-l)*A*C/T; Xps:=(psi+sqrt(sqr(psi)+4*C/T))/2; X:=Pow(Xps,N); end; 4: beginpsi : =2+(Q-l)*A*C/(T*Q); X:=(psi+sqrt(sqr(psi)+4*C/T))/2; end; 5: begin

227. X:=(1-sqrt((T-CO)/С))/А; end; 6: beginend; end(case;

228. Label2.Caption:='Выходной сигнал достигнет уровня:';1.bel5.Caption:='в момент:'; endbegin; end;

229. StringGridl.Cells0,i-1.:=' '; StringGridl.Cells[1,i-1]:=' '; end;case{l} RadioGroupl.Itemlndex of 0: beginif TRAZR=0 then begin

230. MessageDlg(1 На этой плоскости нет точки разрыва1,mtError, mbOk., RadioGroupl.Itemlndex:=1; end else X:=0.95*TRAZR; end; 1: begint:=StrToFloat(MaskEdit2.Text) ; case{2} nfp of 1: begin

231. X:=ln(t/C)/А; end; 2: beginend; 3: beginbb:=RN-l;cc:=C/t;aa:=((2+bb*cc)-sqrt(sqr(2+cc*bb)-4*(1-cc)))/2; X:=Pow((aa/A),1/RN); end; 4: beginbb:=(Q-l)/Q; cc:=C/t;aa:=((2+bb*cc)-sqrt(sqr(2+cc*bb)-4*(1-cc)))/2; X:=aa/A; end; 5: begin

232. X:=(1-sqrt(Cl/(t-C0)))/А; end; {6: beginend; } end{case2); end; end{easel}; Editl.Text:=format('%15.4f',X.); alpha:=100*sqrt. (1-sqr(rkorr))/2; Label 4.Caption:=format('% 15.4 f', [alpha]); Tpr:=X-X0;npr:=trunc(0.5+sqrt(0.25+2*Tpr*k));

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

234. Рабочие условия эксплуатации- Температура окружающего воздуха, °С.-20 + +40- Относительная влажность воздуха, %.30+90

235. Базаданны* "Конфигураций Изм^ра'мч Отчета Серена^ Вид * Cnpapra•/ С j

236. Наэеаниа Ядаар.чУа' | РелШйия1. SI'/

237. Кояфоевгь ?ito ин Мда>!И1ь Помлш»>ыаш10бъект гОбъект0109.02 10.28.3С ; 01.09.02 10:28:501. Г\ 1 Объект