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

Введение.

1 АНАЛИЗ ПРОБЛЕМЫ ОЦЕНКИ И ПОВЫШЕНИЯ МЕТРОЛОГИЧЕСКОЙ НАДЕЖНОСТИ. ПОСТАНОВКА ЗАДАЧИ ИССЛЕДОВАНИЯ.

1.1 Общая характеристика проблемы метрологической надежности и ее состояния.

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

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

1.2.2 Методы повышения метрологической надежности средств измерений.

1.3 Постановка задачи оценки и повышения метрологической надежности средств НК ТФС материалов и выявление наиболее перспективных путей ее решения.

Выводы.

2 ТЕОРЕТИЧЕСКОЕ ИССЛЕДОВАНИЕ ОСНОВНЫХ ПОЛОЖЕНИЙ МЕТОДОВ ПОВЫШЕНИЯ МЕТРОЛОГИЧЕСКОЙ НАДЕЖНОСТИ

СРЕДСТВ НК ТФС МАТЕРИАЛОВ.

2.1 Метод повышения метрологического ресурса средств НК ТФС материалов с учетом взаимного влияния элементной базы.

2.1.1 Определение элементов, оказывающих максимальное воздействие на изменение во времени значений метрологической характеристики.

2.1.2 Ранжирование выделенных элементов по направлению воздействия на изменение метрологической характеристики.

2.1.3 Замена выделенных элементов в схеме блока.

2,2 Метод повышения метрологической надежности средств НК ТФС материалов с учетом теплового взаимного влияния элементной базы.

2.2.1 Общие положения.

2.2.2 Подбор элементной базы аналоговых блоков средств НК ТФС материалов.

2.2.2.1 Замена выделенных элементов с учетом функций старения их параметров.

2.2.2.2 Замена выделенных элементов с учетом их температурных коэффициентов.

2.2.3 Изменение теплового режима работы элементов.

Выводы.

3 ОБОБЩЕННАЯ МЕТОДИКА ОЦЕНКИ И ПОВЫШЕНИЯ МЕТРОЛОГИЧЕСКОЙ НАДЕЖНОСТИ ПРИ ПРОЕКТИРОВАНИИ СРЕДСТВ НК ТФС МАТЕРИАЛОВ С УЧЕТОМ ВЗАИМНОГО ВЛИЯНИЯ ЭЛЕМЕНТНОЙ БАЗЫ.

3.1 Общие положения.

3.2 Оценка и прогнозирование состояния метрологических характеристик блоков средств НК ТФС материалов.

3.3 Повышение метрологической надежности средств НК ТФС материалов.

Выводы.

4 ПОВЫШЕНИЕ МЕТРОЛОГИЧЕСКОЙ НАДЕЖНОСТИ СРЕДСТВ НК ТФС МАТЕРИАЛОВ НА ЭТАПЕ ИХ ПРОЕКТИРОВАНИЯ С

ИСПОЛЬЗОВАНИЕМ РАЗРАБОТАННОЙ МЕТОДИКИ.

4.1 Повышение метрологической надежности средств, реализующих контактные методы НК ТФС материалов.

4.1.1 Оценка и повышение метрологического ресурса аналогоимпульсного преобразователя.

4.1.2 Оценка и повышение метрологического ресурса преобразователя напряжение - частота.

4.1.3 Оценка и повышение метрологического ресурса усилителя постоянного тока с автоматическим выбором нуля.

4.2 Повышение метрологической надежности средств, реализующих бесконтактные методы НК ТФС материалов.

4.3 Проверка гипотезы о нормальном распределении значений метрологической характеристики.

Выводы.

Одной из важнейших характеристик качества средств измерений (СИ) является метрологическая надежность. Задачи оценки и повышения метрологической надежности СИ являются актуальными в измерительной технике, особенно при проектировании средств неразрушающего контроля (НК) теплофизиче-ских свойств (ТФС) материалов.

Актуальность темы исследования.

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

В настоящее время среди различных групп СИ, наиболее эффективно используемых в промышленности в качестве измерительно-вычислительных средств, широкое применение получили средства НК ТФС материалов, характеризующиеся разнообразием выполняемых функций, экономичностью и позволяющие реализовывать достаточно сложные алгоритмы измерения. Алгоритмическая, структурная и конструктивная сложность средств, реализующих методы НК ТФС материалов, ставит актуальным вопрос обеспечения необходимого уровня их метрологической надежности.

Для средств НК ТФС материалов наиболее значимым показателем метрологической надежности является метрологический ресурс, оцениваемый временем пересечения реализаций нестационарного случайного процесса изменения во времени метрологической характеристики границ поля допуска.

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

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

Температура является фактором, определяющим процесс старения СИ в целом, так как в зависимости от нее в той или иной степени меняется скорость большинства процессов, протекающих в материалах и деталях приборов. Известно, что при повышении температуры от 20 до 40 °С скорость старения СИ возрастает в 1,4 - 1,6 раза. Поэтому именно температура окружающей среды является доминирующим внешним фактором, определяющим показатели метрологической надежности.

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

Связь с государственными программами и НИР.

Диссертационная работа выполнялась в рамках реализации следующих государственных программ: программы Минвуза РФ "Комплексные системы измерений, контроля и испытаний в народном хозяйстве" на 1998-2000 г.г.; программы министерства образования РФ "Инновации высшей школы и введение интеллектуальной собственности в хозяйственный оборот", раздел "Инновационные научно-технические проекты" на 2000 г.; программы Минпромнауки РФ по финансированию научных исследований и экспериментальных разработок на возвратной основе, проект "Создание микропроцессорных приборов оперативного неразрушающего контроля термосопротивления многослойных строительных конструкций с пенополиуретановыми теплозащитными покрытиями", шифр "Теплогидрощит" на 2001-2002 г.г.

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

Достижение поставленной цели связано с необходимостью решения следующих задач.

1. Разработка метода повышения метрологической надежности средств НК ТФС материалов с учетом взаимного влияния элементной базы.

2. Разработка метода повышения метрологической надежности средств НК ТФС материалов с учетом теплового взаимного влияния элементной базы.

3. Разработка обобщенной методики оценки и повышения метрологической надежности при проектировании средств НК ТФС материалов с учетом схемотехнического и теплового взаимного влияния элементной базы.

4. Проведение экспериментальных исследований основных теоретических положений и рекомендаций методики оценки и повышения метрологической надежности средств НК ТФС материалов с учетом взаимного влияния элементной базы.

Методы и методики исследования базируются на использовании теории вероятностей и математической статистики, теплообмена в радиоэлектронных средствах, методах экстраполяции и интерполяции, статистического моделирования, а также результатов выполнения научно-исследовательских работ на базе кафедр "Автоматизированные системы и приборы" и "Криминалистика и информатизация правовой деятельности" Тамбовского государственного технического университета (ТГТУ) и межвузовской лаборатории "Теплофизиче-ские измерения и приборы", регионального отделения "Российское общество по неразрушающему контролю и технической диагностике (РОНКТД)", а также ряда промышленных и научно-исследовательских организаций.

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

На основе предложенных методов разработана обобщенная методика оценки и повышения метрологической надежности средств НК ТФС материалов с учетом схемотехнического и теплового взаимного влияния элементной базы, позволяющая оценить метрологический ресурс аналоговых блоков средств НК ТФС материалов, дать рекомендации по повышению метрологического ресурса исследуемых блоков соответствующей заменой элементной базы. Разработанная методика позволяет повысить не менее чем на 20-7-25% метрологическую надежность средств НК ТФС материалов в целом.

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

- на основе предложенных методов, один из которых защищен патентом РФ на изобретение, разработана обобщенная методика оценки и повышения метрологической надежности при проектировании средств НК ТФС материалов с учетом взаимного влияния элементной базы;

- разработанная обобщенная методика внедрена в практику проектирования средств НК ТФС материалов.

Личный вклад автора.

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

Апробация работы.

Основные научные и практические результаты исследований по теме диссертаций докладывались на V научной конференции ТГТУ (Тамбов, 2000 гг.), Международной научно-технической конференции "Проектирование и эксплуатация электронных средств" (Казань, 2000 г.), IV Международной теп-лофизической школе "Теплофизические измерения в начале XXI века" (Тамбов, 2001 г.), VI и VII научных конференциях ТГТУ (Тамбов, 2001, 2002 гг.), XV Международной научной конференции "Математические методы в технике и технологиях" (Тамбов, 2002 г.).

Структура работы.

Диссертация содержит введение, 4 главы, заключение и приложения, изложенные на 191 странице машинописного текста, 27 рисунков и 12 таблиц. Список использованных источников включает 111 наименований.

Основные результаты диссертационной работы заключаются в следующем.

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

2. Предложен метод повышения метрологического ресурса аналоговых блоков средств НК ТФС материалов, заключающийся в замене элементов, оказывающих доминирующее влияние на метрологическую надежность средства НК на другие, с такими свойствами изменения во времени их параметров, чтобы суммарное воздействие элементов на результирующую метрологической характеристики максимально компенсировалось.

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

123

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

5. Экспериментальная проверка предложенной обобщенной методики повышения метрологической надежности на типовых блоках измерительного канала средств НК ТФС материалов, реализующих контактные и бесконтактные методы измерений, показала, что ее применение позволяет повысить метрологический ресурс аналоговых блоков средств НК ТФС материалов, а значит и метрологическую надежность всего исследуемого средства НК не менее чем на 20 %.

ЗАКЛЮЧЕНИЕ

1. Мельницкая И.В. Оценка срока службы электроизмерительных приборов по данным испытаний и эксплуатационный статистики // Вопросы надежности электроизмерительных приборов. — М., 1965.- С. 59-67.

2. Мандельштам С.М. Информационная надежность // Труды Ленинградского института авиационного приборостроения. 1966. - Вып. 48. - С. 102-109.

3. Абдуладзе И.В. Мандельштам С.Н. Метрологическая надежность // Измерительная техника. 1975. - № 2. - С. 29-30.

4. Иванов Б.С. Свечарник Д.В. Связь между точностью и надежностью некоторых теплоэнергетических приборов // Измерительная техника. -1970.-№5.-С. 76-78.

5. Мельницкая Ж.С. Новицкий П.В. Об основных эксплуатационных показателях качества средств измерений // Приборы и системы управления. -1973.-№5.-С. 16-17.

6. Абуладзе И.В., Мандельштам С.М. Метрологическая надежность// Измерительная техника.-1975.-№2.-с.29-3 0.

7. Бердичевский Б.Е. Вопросы обеспечения надежности радиоэлектронной аппаратуры при разработке. М.: Советское радио, 1977. - 384с.

8. Екимов A.B. Ревяков М.И. Надежность средств измерительной техники. Л.: Энергоатомиздат, 1986.-208 с.

9. Богданов Г.П. Метрологическое обеспечение и эксплуатация измерительной техники. М.: Энергия, 1990. - 328 с.

10. Гаскаров Д.В., Голинкевич Т.А., Мозгалевский A.B. Прогнозирование технического состояния и надежности радиоэлектронной аппаратуры. М.: Сов. Радио. - 1974.- 223с.

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

12. Фридман А.Э. Теория метрологической надежности средств измерений // Измерительная техника. 1991. - №11. - С. 3-10.

13. Фридман А.Э. Прогнозирование распределений погрешностей средств измерений // Измерительная техника. 1986. - №6. - С. 10-11.

14. Фридман А.Э. Метрологическая надежность средств измерений и определение межповерочных интервалов // Метрология. 1991. - №9. - С. 5261.

15. Фридман А.Э. Оценка метрологической надежности измерительных приборов и многозначных мер // Измерительная техника. 1993. - №5. - С. 7-10.

16. Новицкий П.В., Зограф И.А., Лабунец В.С. Динамика погрешностей средств измерений. Л.: Энергоатомиздат, 1990. - 192 с.

17. Мельницкая Ж.С. Теоретическое и экспериментальное исследование процесса старения электроизмерительных приборов / Автореф. дис. на со-иск. учен, степени канд. техн. наук, 1970.- 16с. (Ленинградский политехнический институт).

18. Геликман Б.Ю., Горячева Г.А., Кристалинский Л.Л., Стальбовский В.В. Вопросы качества радиодеталей. М.: Советское радио, 1980.- 352с.

19. Савченко Г.В. Зависимость погрешности измерительного устройства от времени эксплуатации // Измерительная техника. 1970. - №1. - С. 17-19.

20. Новицкий П.В. Методика нормирования оценки и контроля метрологической надежности электроизмерительных приборов // Метрология. 1977. -№2. - С. 10-11.

21. Кондрашкова Г.А. Количественная оценка нестабильности погрешности электронных измерительных устройств // Стандарты и качество. 1967. -№5.-С. 23-24.

22. Рябинов М.Н. Кондрашкова Г.А. Бачманов H.A. К оценке надежности геофизической аппаратуры с учётом постепенных отказов // Геофизическая аппаратура. 1970. - Вып. 42. - С. 165-168.

23. Методика: Обеспечение надежности на этапе проектирования. Прогнозирование стабильности и оценка серийнопригодности аналоговых устройств. Государственных комитет стандартов Совета Министров СССР. М. -1976.-43 с.

24. Бедова Е.М. и др. Исследование долговечности аналоговых устройств, обладающих высокой надежностью // Труды Всесоюзного научно-исследовательского института электроизмерительных приборов. 1973. - №16. -С. 148-155.

25. Васильева H.H., Пантелеев A.A. О долговременной стабильности метрологических характеристик измерительных информационных систем // Труды Ленинградского политехнического института им. М.И. Калинина. 1975. -№342.-С. 10-11.

26. Петров В.А. Оценка метрологической безотказности средств измерений в условиях превалирующих внешних воздействий // Измерительная техника. 1992. -№12. - С. 20-21.

27. Батова Г.П. Звягинцев A.M. Статистический метод оценки стабильности аналоговых приборов контроля и регулирования по результатам экспериментальных исследований // Труды НИИТП. 1974. - Вып. 81. - С. 12-20.

28. Балакирева С.Д. Екимов A.B. Определение и адаптивная корректировка межповерочных интервалов измерительных приборов и систем // Метрология. 1991. - №9. - С. 35-46.

29. Батова Г.П., Звягинцев A.M. Статистический метод оценки стабильности аналоговых приборов контроля и регулирования по результатам экспериментальных исследований// Труды НИИТП.- 1974.-Вып.81.-е. 12-20.

30. Егоров С.А., Андреев A.A. Прогнозирование технического состояния наземных средств управления и измерений// Измерительная техника.-1996.-№9.-с.13-15.

31. Екимов A.B., Макаров Ю.М., Ревяков М.И. Прогнозирование и обеспечение надежности средств измерений с учетом явных и скрытых отказов// Измерительная техника.-1990.-№6.-с.З-4.

32. Звягинцев A.M. Метод прогнозирования метрологической надежности (стабильности) измерительных устройств по результатам экспериментальных исследований// Качество и надежность. М.: ЦНИИТЭИ приборострое-ния.-1977.-Вып.5.-с. 18-20.

33. Новицкий П.В., Екимов A.B., Зограф И.А. Методика нормирования, оценки и контроля метрологической надежности электроизмерительных приборов и др.// Метрология.-1977.-№2.-с.9-25.

34. Петров В.А. Оценка метрологической безотказности средств измерений в условиях превалирующих внешних воздействий// Измерительная техника.- 1992.-№ 12.-С.20-21.

35. Редькина В.П. Исследование связи надежности различных групп электроизмерительных приборов с их конструктивными и технологическими особенностями: Афтореф. дисс. на соиск. учен, степени канд. техн. наук. Киев.

36. Фридман А.Э. Прогнозирование распределений погрешностей средств измерений// Измерительная техника.-1986.-№6.-с. 10-11.

37. Богданофф Д., Козин Ф. Вероятностные модели накопления повреждений. М.: Мир, 1989. - 427с.

38. Давыдов П.С. Техническая диагностика радиоэлектронных устройств и систем. М.: Радио и связь, 1988. - 256с.

39. Купер Дж., Макгиллем К. Вероятностные методы анализа сигналов и систем: Пер. с англ. / Под ред. В.Т. Горяинова. М.: Мир, 1989. - 376с.

40. Мозгалевский A.B., Гаскаров Д.В. Техническая диагностика: Непрерывные объекты. M.: Высшая школа, 1975.- 206с.

41. Переверзев Е.С. Надежность и испытания технических систем / АН УССР, Ин-т техн. механики. Киев: Наук. Думка, 1990 - 326с.

42. Переверзев Е.С., Чумаков Л.Д. Параметрические модели отказов и методы оценки надежности технических систем. Киев: Наукова думка, 1989. -182с.

43. Коваленко И.Н., Наконечный А.Н. Приближенный расчет и оптимизация надежности / АН УССР. Ин-т кибернетики им. В.М. Глушкова. Киев.: Наук, думка, 1989.- 181с.

44. Огарков М.А. Методы статистического оценивания параметров случайных процессов. -М.: Энергоатомиздат, 1990.- 206с.

45. Павлов И.В. Статистические методы оценки надежности сложных систем по результатам измерений. М.: Радио и связь, 1982. - 168с.

46. Соболь И.М. Метод Монте-Карло. М.: Наука, 1985. - 78 с.

47. Мищенко C.B., Цветков Э.И. Чернышова Т.И. Метрологическая надежность измерительных средств- М.: Машиностроение, 2001. 96 с.

48. Чернышова Т.И. Разработка и исследование методики прогнозирования состояния метрологических характеристик аналоговых блоков информационно-измерительных систем в процессе эксплуатации: Дис. канд. техн. наук. Л., 1979. - 189 с.

49. Рекомендация Госстандарта МИ 2247-93. "ГСИ. Метрология. Основные термины и определения." СПб.: ВНИИМ им. Д.И. Менделеева, 1994. -60 с.

50. Арутюнов В.О., Козлов Б.А., Татиевский А.Б., Фридман А.Э. Проблема и специфика надежности измерительных устройств // Измерительная техника.-1969. -№3. С. 9-13.

51. Борисов Ю.П., Чиликин В.М. Моделирование радиосистем методом информационного параметра: Учеб. пособие / Моск. энерг. ин-т. Изд-во МЭИ, 1990.- 120с.

52. Интегральные микросхемы: Справочник / Б.В. Тарабрин, Л.Ф. Лунин, Ю.Н. Смирнов и др.; Под ред. Б.В. Тарабрина, 2-е изд., испр. М.: Энергоатомиздат, 1985. - 528с.

53. Корн Г., Корн Т. Справочник по математике (для научных работников и инженеров). М.: Наука, 1984. - 831с.

54. Северцев H.A. Надежность сложных систем в эксплуатации и отработке. М.: Высш.шк., 1989. - 431с.

55. Козлов В.П., Станкевич A.B. Методы неразрушающего контроля при исследовании теплофизических характеристик твердых материалов // Инж. физ. журн. 1984. - Т47, N2. - С. 250-255.

56. Статистические методы для ЭВМ / Под ред. К.Энслейна. М.: Наука, 1986.-439с.

57. Назаров Н.Г., Архангельская Е.А. Современные методы и алгоритмы обработки измерений и контроля качества продукции. М.: Издательство стандартов, 1995.- 163с.

58. Шиндяпин Д.А, Чернышова Т.И., Селезнев A.B. Влияние внешних дестабилизирующих факторов на метрологическую надежность аналоговых блоков микропроцессорных измерительных систем // V научная конференция.

59. Краткие тезисы докладов. Тамбов: Изд-во Тамб. гос. техн. ун-та, 2000 - С. 262-263.

60. Шиндяпин Д.А. Оценка метрологической исправности средств неразрушающего контроля теплофизических свойств материалов с учетом дестабилизирующих воздействий // Теплофизические измерения в начале XXI века:

61. Тезисы докладов Четвертой международной теплофизической школы (24 28 сентября 2001 г.)/ Тамбов: Изд-во Тамб. гос. техн. ун-та, 2001. Ч. 1. - С. 174175.

62. Шиндяпин Д.А Метод оценки и повышения метрологического ресурса измерительных средств // VII научная конференция: Пленарные доклады и тезисы стендовых докладов. Ч. 1. Тамбов: Изд-во Тамб. гос. техн. ун-та, 2002 -С. 288.

63. Шиндяпин Д.А, Чернышова Т.И. Повышение метрологической надежности электронных измерительных средств с учетом воздействия температуры окружающей среды // Проектирование и технология электронных средств. -2002.-№10.-С. 10-13.

64. Чернышова Т.И., Селезнев A.B. Определение метрологической исправности и длительности межповерочных интервалов средств измерений // Контроль. Диагностика. 1999. №7 (13) С. 7-9.

65. Геликман Б.Ю., Горячева Г.А. и др. Вопросы качества радиодеталей." Москва: Советское радио, 1980 428 с.

66. Дульнев Г.Н., Семяшкин Э.М. Теплообмен в радиоэлектронных аппаратах.- Ленинград: Энергия, 1968 360 с.

67. Дульнев Г.Н. Тепломассообмен в радиоэлектронной аппаратуре.-М.: Высшая школа, 1984 г. 365с.

68. Математическая статистика / Под ред. A.M. Длина. М.: Высш.шк.,1975. - 398с.

69. Селезнев A.B., Чернышова Т.И. Методика оценки метрологической надежности средств измерений // Труды ТГТУ. 1998. - Вып. 2. - С. 122-126.

70. РМГ 29-99. ГСИ. Метрология. Основные термины и определения. -Минск, 2000. 28 с.

71. Негоденко О.Н., Петросян A.B. Вопросы качества электрорадиэле-ментов: Текст лекций. Таганрог: ТРТИ, 1985.- 38с.

72. Аксенов А.И., Нефедов A.B. Элементы схем бытовой радиоаппаратуры: Конденсаторы, резисторы: Справочник. М.: Радио и связь, 1995. - 272с.

73. Диоды: Справочник / О.П Григорьев и другие. М.: Радио и связь,1990. - 335с.

74. Игумнов Д.В., Королев Г.В., Громов И.С. Основы микроэлектроники: Учеб. Для техникумов по спец. "Производство изделий электроники". М.: Высш. шк., 1991г. - 254 с.

75. Редькина В.П. Исследование связи надежности различных групп электроизмерительных приборов с их конструктивными и технологическими особенностями: Афтореф. дисс. на соиск. учен, степени канд. техн. наук. Киев.

76. Гмурман В.Е. Теория вероятности и математическая статистика. Учеб. пособие для втузов. Изд. 5-е, перераб. и доп. М., «Высш. школа», 1977. 479 с. с илл.

77. Мозгалевский A.B., Койда А.Н. Вопросы проектирования систем диагностирования. Л.: Энергоатомиздат, Ленингр. отд-ние, 1985. - 112с.

78. РМГ 29-99. ГСИ. Метрология. Основные термины и определения. -Минск, 2000. 28 с.

79. Чернышова Т.И., Чернышев В.Н. Методы и средства неразрушаю-щего контроля теплофизических свойств материалов. М.: Машиностроение 1. 2001.240 с.

80. Интегральные микросхемы: Справочник / Б.В. Тарабрин, Л.Ф. Лунин, Ю.Н. Смирнов и др. Под ред. Б.В. Тарабрина, 2-е изд. испр. М.: Энергоатомиздат, 1985. - 528 с.

81. Рычина Т.А., Зеленский A.B. Устройства функциональной электроники и электрорадиоэлементы. М.: Радио и связь, 1989. - 350 с.

82. Игумнов Д.В., Королев Г.В., Громов И.С. Основы микроэлектроники. М.: Высш. шк., 1991.-254 с.

83. Ишанин Г.Г., Панков Э.Д., Андреев А.Л., Польчиков Г.В. Источники и приемники излучения. СПб.: Политехника, 1991. - 240 с.

84. Чернышев В.Н., Чернышова Т.И. Математическое моделирование тепловых процессов при бесконтактных методах контроля качества материалов // Межвуз. сборник. М.: МИХМ, 1989. - С. 166-190.

85. Чернышов В.Н., Чернышова Т.И. Бесконтактный способ контроля теплофизических характеристик материалов и адаптивная система для его реализации // Теплофизика релаксирующих систем: Тез. докл. X Всесоюз. тепло-физ. школы Тамбов, 1990. - С. 104.

86. Чернышова Т.И., Чернышов В.Н. Моделирование тепловых процессов при бесконтактном определении теплофизических свойств материалов //

87. Моделирование САПР, АСНИ и ГАП: Тез. докл. Всесоюз. конф. Тамбов, 1989. -С. 117-118.

88. Чернышов В.Н., Сысоев Э.В. Метод бесконтактного неразрушающего контроля теплофизических свойств материалов и готовых изделий // Контроль. Диагностика. 1999. - № 7 (13). - С. 28-30.

89. Чернышов В.Н., Сысоев Э.В. Бесконтактный адаптивный метод неразрушающего контроля теплофизических свойств материалов // Контроль. Диагностика. 2000. - № 2 (20). - С. 31-34.

90. Сергеев O.A. Метрологические основы теплофизических измерений. М.: Изд-во стандартов, 1972. - 155 с.

91. Точность контактных методов измерения температуры / Под ред. А.И.Гордова М.: Изд-во стандартов, 1976. - 231 с.

92. Чернышова Т.И., Чернышов В.Н. Методы неразрушающего контроля теплофизических свойств для ограниченных в тепловом отношении тел. -Тамбов, 1985, 12 с.-Деп. в ВИНИТИ 1985, №526185.

93. Чернышова Т.И., Муромцев Ю.П., Чернышов В.Н. Импульсно-динамический метод неразрушающего контроля ТФС материалов и ИИС для его реализации // Материалы и уст-ва функциональной электроники: Межвуз. сборник науч. трудов. Воронеж, 1993. - С. 86-95.

94. Чернышова Т.И. Чернышов В.Н. Методы и средства неразрушающего контроля теплофизических свойств материалов. М.: Машиностроение, 2001.-240 с.

95. A.c. 1056015 СССР, МКИ G01N 25/18. Способ определения теплофизических свойств материалов /Ю.А.Попов, В.В.Березин, В.М.Коростелев и др.; Заявл. 30.04.82; Опубл. 23.11.83, Бюл. №43.

96. A.c. 1117512 СССР, МКИ G01N 25/18. Способ определения ТФХ материалов / В.Н.Чернышов и др. №3629652/18-25; Заявл. 29.06.83; Опубл. 7.10.84, Бюл. №37. -6 с.

97. A.c. 1122955 СССР, МКИ G01N 25/18. Способ определения ТФХ материалов / В.Н.Чернышов и др. №3610914/18-25; Заявл. 29.06.83; Опубл. 7.11.84, Бюл. №41.

98. A.c. 1140565 СССР, МКИ G01N 25/18. Способ определения тепло-физических характеристик материалов / В.Н.Чернышов, Чернышова Т.И. -№3612879/24-25; Заявл. 29.06.83; Опубл.15.10.84., Бюл.№40.

99. A.c. 1124209 СССР, МКИ G01N 25/18. Способ неразрушающего контроля ТФХ материалов и устройство для его осуществления / В.Н.Чернышов, Т.И.Чернышова №3549461/18-25; Заявл. 9.02.83; Опубл. 15.11.84, Бюл. №42.

100. A.c. 1122955 СССР, МКИ G01N 25/18. Способ определения тепло-физических характеристик материалов / Т.И.Чернышова, В.Н.Чернышов -№3610914/18-25; Заявл. 29.06.83; Опубл. 7.11.84, Бюл. №41.

101. A.c. 1117512 СССР, МКИ G01N 25/18. Способ определения ТФХ материалов / Т.И.Чернышова, В.Н.Чернышов №3629652/18-25; Заявл. 29.06.83; Опубл. 7.10.84, Бюл. №37.

102. A.c. 1539511 СССР, МКИ G01B 7/06. Способ неразрушающего контроля толщины пленочных покрытий / В.Н.Чернышов, Т.И.Чернышова, Л.Н.Малышев и др. №431950/25-28; Заявл. 26.10.87; Опубл. 30.01.90, Бюл. №4.

103. A.c. 1663428 СССР. МКИ G01B 21/08. Способ неразрушающего контроля толщины пленочного покрытия изделия / Т.И.Чернышова, В.Н.Чернышов, А.П.Пудовкин и др. №4419124/28; 3аявл.03.05.88; Опубл. 15.07.91, Бюл. №26

104. MainForm in 'MainForm.pas' {Forml}, Maths in 'Maths.pas', MiscData in 'MiscData.pas'; {SR *.RES} begin

105. Application.Initialize; Application.CreateForm(TForm 1, Form 1); Application.Run; end.1. MainForm.pasunit MainForm;interfaceuses

106. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs. StdCtrls, Buttons, Grids, ExtCtrls, Math, Mask, Maths, Gauges, TeeProcs, TeEngine, Chart, MiscData; type

107. Private declarations } public

108. Public declarations } MD : MiscDataC; MD1 : MiscDataC; PolStr : String; NumR : Integer; NumC : Integer; KPF : String; Rs : array of String; RNs : array of Double; RDs : array of Double; RTs : array of Double;

109. RTems : array of Double; // массив температур резисторов1. Cs : array of String;1. CNs : array of Double;1. CDs : array of Double;1. CTs : array of Double;

110. CTems : array of Double; // массив температур конденсаторов function CalcKP(Mode : Integer): Double; end; var

111. Forml: TForml; implementation {$R *.DFM}fimction TForml.CalcKP (Mode : Integer): Double;

112. Ord(A) > 96) and (Ord(A) < 123)) then begin Sym := 1; endelse Sym := 2; end;//End IF end; // End FUNCTION

113. FNToCh := Forml.MDl.Chsfi.; Exit;end; // End IFend; // End FOR FNToCh :='?'; end;//End FUNCTION

114. Функция юзается в процедуре PolishConversion Функция, обратная предыдущей, она ставит в соответствие символу определенную функцию function ChToFN(A : Char): String; var i: Integer; beginfor i := 1 to 15 do beginif MDl.Chsfi. = A then begin

115. ChToFN := MDl.FNsfi.; Exit;end; // End IF end; // End FOR ChToFN :='?'; end; // End FUNCTION // Процедура польского преобразования строки с формулой procedure PolishConversion(SrcStr : String; var Result: String); var

116. Stack : array 1.255. of Char; Top : Integer; i : Integer; n : Integer; P : Integer; S : String; A : Char; beginn := Length(SrcStr); Top := 0; Result :="; i:=l;while i <= n do begin

117. Result := Result + S + "; endelse // Символ не цифирь, значит это знак или переменная begin

118. Если текущий символ (первый символ слова) латинская буква, то мы имеем дело с переменной либо именем функцииifSym(SrcStr1.) = 1 then begin

119. Считываем все слово (оно может содержать и цифры, но тока // не в первой позиции) S :=";while ((Sym(SrcStr1.) = 0) or (Sym(SrcStri.) = 1) andi <= n)) do begin S := S + SrcStr1.; i:=i+l; end;

120. Проверяем, является ли наше слово названием функции. А := FNToCh(S); // Слово название функции if А о'?' then begin

121. Р := Prior(A); // Приоритет функции по идее 4.????????while (Top > 0) and (P <= Prior(StackTop.)) do begin

122. Result := Result + ChToFN(StackTop.) +''; Top := Top -1; end;

123. Top := Top + 1; StackfTop. := A; endelse // Слово имя переменной, просто добавляем ее к результату begin

124. Result := Result + S + "; end; endelse // Текущий символ исходной строки не буква, не цифра, а знак +,- etc. begin

125. Получаем приоритет этого знака Р := Prior(SrcStr1.);

126. Если знак не левый там какой-нибудь типа '%','$' и т.п. if Р о 255 then begin

127. Result Result +,0' + "; end;if SrcStrfi. = ')'then beginwhile (Top > 0) and (StackfTop. о '(') do begin

128. Result := Result + ChToFN(StackTop.)+''; Top :=Top -1; end;

129. Top := Top -1; if Top = -1 then begin

130. Result := 'ERROR!'; i :=n+ 1; end;end // END if SrcStrfi. =')' then else begin if SrcStrfi] <>'(' then beginwhile (Top > 0) and (P <= Prior(StackTop.)) do begin

131. Result:-ERROR!'; Top := 0;endelse begin

132. Result:=Result+ChToFN(StackTop.)+''; end;1. Top:=Top-l;end; // End while Top > 0 do end;//End if Result о'ERROR!'then end; // End PROCEDURE

133. Stack : array 1.1255. of Double; Top : Integer; Err : Boolean; A : Double; i : Integer; n : Integer; S : String; begin

134. Начальная инициализация переменных Top := 0; Err := False; i := 1;n := Length(PStr);

135. Перебираем строку посимвольно while (i <= n) and (not (Err)) do begin1. Обнуляем строку S :=";

136. Top := Top + 1; // Инкремент указателя верха стека

137. Пишем в последнюю ячейку массива число, получив его из нашей строки StackTop. := StrToFloat(S); endelse // Если первый символ не цифра begin

138. Если первый символ буква латинского алфавита, и при этом слово не является зарезервированным именем функции, то это слово представляет собой имя переменной if (Sym(Sl.) = 1) and (not isFn(s)) then begin

139. Инкремент указателя верха стека Top := Top + 1;

140. Пишем в стек значение переменной StackTop. := Value(S); endelse // Теперь перебираем знаки begin

141. Операция сложения if S = '+' then begin

142. Забираем число из стека А := StackfTop.;

143. Декремент указателя вершины стека Тор :=Тор-1;

144. Если в стеке еще остались числа if Тор > 0 then begin

145. Складываем последний элемент в стеке и то число, которое мы только что оттуда забрали. В рез-те получается сложение двух последних эл-тов стека StackTop. := А + StackfTop] endelse begin

146. Увеличиваем указатель вершины стека. То есть в стеке остается то же число без изменения на случай левогознака +

147. Тор := Тор + 1; end; end else begin

148. Операция вычитания if S ='-' then begin

149. To же самое, что и в сложении А := StackfTop.; Тор :=Тор-1; if Тор > О then begin

150. Stack Top. := StackfTop] A; end else begin

151. Меняем знак у числа в стеке Тор:=Тор+1; StackfTop. := -А; end; end else begin

152. Операция умножения if S = '*' then begin A := StackfTop.; Top := Top-1;

153. StackfTop. := A*StackTop]; end else begin

154. Операция деления if S ='/' then begin

155. A := StackfTop.; Top := Top-1;

156. StackfTop. := StackTop]/A; end else begin

157. Операция возведения в степеньif S =,Л'thenbegin

158. A := StackfTop.; Top := Top-1;

159. StackfTop. := Power(StackTop],A); end else

160. Остальные функции. if ((S='sin') or (S='cos') or (S-tg1) or (S='ctg') or (S- arcsin') or (S='arccos') or (S-ln1) or (S='log') or (S='exp')) then begin

161. StackfTop. := calcFn(S, StackfTop]); endelse // В любом другом случае в исходной польской строке заначилась ОШИБКА!!! begin Err := TRUE; endend; end; end; end; end; end; end;

162. Результат число, оставшееся в стеке EvaluatePolish := StackTop.; Err := (Тор<>1); end; // End FUNCTION begin if Mode = 0 then begin1. Forml.PolStr :=";

163. PolishConversion(Forml .KPF, Forml .PolStr); if Forml.PolStr = 'ERROR!' then CalcKP := -1 else CalcKP := 0; end else begin

164. CalcKP := EvaluatePolish(Forml.PolStr); end; end;procedure TForml.BitBtnlClick(Sender: TObject); vari, j, k, 1, m : Integer;

165. Delta : array 1. 1000. of Double;1. Rnns : array of Double;1. Cnns : array of Double;

166. Kreal : Double; // Реальный коэф-т передачи

167. Kideal: Double; // Идеальный коэф-т передачи1. FData : TextFile;1. FData2 : TextFile;

168. Считываем формулу для коэффициента передачи KPF := ComboBoxl .Text; if Trim(KPF) = " then begin

169. Application.MessageBox('He задан коэффициент передачи!', 'Ошибка!',

170. MBJCONSTOP + MBOK + MBAPPLMODAL); ComboBoxl .SetFocus; Exit; end;

171. Вызываем функцию с параметром 0, чтобы преобразовать исходную формулу в польскую запись if CalcKP(O) = -1 then begin

172. Application.MessageBox('HeBepHO задан коэффициент передачи!', 'Ошибка!',

173. MBJCONSTOP + MBOK + MBAPPLMODAL); ComboBoxl.SetFocus; Exit; end;

174. Устанавливаем длину динамических массивов соответственно введенному количеству резисторов SetLength(Rs, NumR); SetLength(RNs, NumR); SetLength(RDs, NumR); SetLength(RTs, NumR); SetLength(RTems, NumR);

175. Последовательно обрабатьтаем все записи таблицы резисторов, т.е. получаем значения ячеек и загоняем их в массивыend; // End TRY end; // End IF end; // End IF end; // End FOR

176. Устанавливаем длину динамических массивов соответственно введенному количеству конденсаторов SetLength(Cs, NumC); SetLength(CNs, NumC); SetLength(CDs, NumC); SetLength(CTs, NumC); SetLength(CTems, NumC);

177. Последовательно обрабатываем все записи таблицы конденсаторов, т.е. получаем значения ячеек и загоняем их в массивыfor i := 1 to NumC do beginif Trim(StringGrid2.Rows1.Strings0.) о " then begin

178. Записываем наименование элемента в массив Csi-1. := StringGrid2.Rows1.Strings[0]; // Если номинал задан правильно, записываем его в массив try

179. CNsi-l. := StrToFloat(Trim(StringGrid2.Rows1.Strings[l]))*le-6 excepton EConvertError do begin

180. Application.MessageBox('HeBepHO задан номинал!', 'Ошибка!',

181. MBJCONSTOP + MBOK + MBAPPLMODAL); CurCell.Top := i; CurCell.Bottom := i; CurCell.Left := 1; CurCell.Right := 1; StringGrid2.Selection := CurCell; Exit; end; end;

182. Если погрешность (отклонение) задано верно, записываем его в массив try

183. CDsi-l. := StrToFIoat(Trim(StringGrid2.Rows1.Strings[2])) except on EConvertError do begin

184. Application.MessageBox('HeBepHO задана погрешность!', 'Ошибка!',

185. MBJCONSTOP + MB JDK + MBAPPLMODAL); CurCell.Top := i; CurCell.Bottom := i; CurCell.Left := 2; CurCell.Right := 2; StringGrid2.Selection := CurCell; Exit; end; end;if not CheckBoxl.Checked then begin try

186. CTsi-l. := StrToFloat(Trim(StringGrid2.Rows1.Strings[3])) excepton EConvertError do begin

187. Application.MessageBox('HeBepHo задан ТКЕ!', 'Ошибка!',

188. MBJCONSTOP + MB JDK + MBAPPLMODAL); CurCell.Top := i; CurCell.Bottom := i; CurCell.Left := 3; CurCell.Right :=3; StringGrid2.Selection := CurCell; Exit; end;end; // End TRY tiy

189. CTemsi-l. := StrToFloat(Trim(StringGrid2.Rows1.Strings[4])) excepton EConvertError do begin

190. Application.MessageBox('HeBepHO задана температура конденсатора !',

191. Application.MessageBox('HeBepHo задан интервал!',

192. Ошибка!', MBJCONSTOP + MBOK); Editl.SetFocus; Exit; end; end;считываем количество интервалов try Numlnt := StrToInt(Edit2.Text); excepton EConvertError do begin

193. AppIication.MessageBox('HeBepHO задано количество интервалов!',

194. Ошибка!', MBJCONSTOP + MBOK); Edit2.SetFocus; Exit; end; end;

195. MD.VN1. := Rsi.; MD.VV[i] := RNs[i]; MDl.VNfi] :=Rs[i]; MDl.VV[i] := RNs[i]; end;for i := NumR to (NumR+NumC-1) do begin

196. MD.VNfi. := Csi-NumR]; MD.VVfi] := CNs[i-NumR]; MDl.VNfi] := Cs[i-NumR]; MDl.VV1. := CNs[i-NumR];

197. Экшн при активизации формыprocedure TForml.FormActivate(Sender: TObject);vari: Integer; begin

198. StringGridl.RowCount := 2; StringGridl.Enabled := FALSE; for i := 0 to 3 do StringGridl.Rowsl.Strings1. :="; endelse StringGridl.RowCount := NumR+1; if NumC = 0 then begin

199. StringGrid2.RowCount := 2; StringGrid2.Enabled := FALSE; for i := 0 to 3 do StringGrid2.Rowsl.Strings1. :="; endelse StringGrid2.RowCount := NumC+1; end;

200. Действия при выходе фокуса ввода из редактора с количеством резисторов В зависимости от введенного числа резисторов устанавливаем число строк в первой таблице (StringGridl) procedureTForml.Edit9Exit(Sender: TObject);var i: Integer; begin try

201. NumR := StrToInt(Edit9.Text) excepton EConvertError do begin

202. Application.MessageBox('HeBepHO задано количество резисторов!',

203. Ошибка!', MBJCONSTOP and MBOK and MBAPPLMODAL); Edit9.SetFocus(); Exit; end; end;if NumR < 0 then begin1. NumR := 0; end;if NumR = 0 then begin

204. StringGridl .RowCount := 2; StringGrid 1 .Enabled := FALSE; for i := 0 to 3 do StringGridl.Rowsl.Strings1. :="; end else begin

205. StringGridl.RowCount :=NumR+l; StringGridl.Enabled :=TRUE; end; end;

206. NumC := StrToInt(EditlO.Text) excepton EConvertError do begin

207. Application.MessageBox('HeBepHO задано количество конденсаторов!',

208. Ошибка!', MBJCONSTOP and MBOK and MB APPLMODAL); EditIO.SetFocus(); Exit; end; end;if NumC < 0 then begin1. NumC := 0; end;if NumC = 0 then begin

209. StringGrid2.RowCount := 2; StringGrid2.Enabled := FALSE; for i := 0 to 3 do StringGrid2.Rowsl.Strings1. :="; end else begin

210. StringGrid2.RowCount :=NumC+l; StringGrid2.Enabled := TRUE; end; end;

211. Действия, выполняющиеся при создании формы procedure TForml.FormCreate(Sender: TObject); var1.iFile: TextFile; RTempFunc: TextFile; RTimeFunc: TextFile;

212. CTempFunc : TextFile; CTimeFunc: TextFile; TmpStr : String; i : Integer; begin

213. MD := MiscDataC.Create; MD1 := MiscDataC.Create;

214. Начинаем считывать данные из инишника (в случае наличия такового) и записываем эти данные в соотв-е элементы управления

215. AssignFile(IniFile, 'model.ini'); if FileExists('model.ini') then begin

216. Reset(IniFile); ReadLn(IniFile, TmpStr); if StrToInt(Trim(TmpStr)) о 0 then beginfor i := 0 to StrToInt(Trim(TmpStr))-l do begin

217. ReadLn(IniFile, TmpStr); ComboBox 1 .Items. Add(TmpStr); end;

218. ComboBoxl.Itemlndex := 0; end;

219. Читаем интервал времени ReadLn(IniFile, TmpStr); Edit 1.Text := TmpStr; // Читаем кол-во интервалов ReadLn(IniFile, TmpStr); Edit2.Text := TmpStr; // Читаем время эксплуатации ReadLn(IniFile, TmpStr); Edit5.Text := TmpStr;

220. Читаем состояние чекбокса и выполняем соотв-е действия по включению/выключению элементов управления ReadLn(IniFile, TmpStr); if TmpStr = '1' then begin

221. CheckBoxl.Checked :=TRUE; Label 11.Visible := FALSE; Labell2.Visible := FALSE; Labell3.Visible := FALSE; StringGrid 1 .ColCount := 3; StringGrid2.ColCount := 3; end else begin

222. Читаем количество резисторов ReadLn(IniFile, TmpStr); Edit9.Text := TmpStr; NumR := StrToInt(TmpStr); if NumR = 0 then begin

223. StringGridl.Enabled FALSE; StringGridl.RowCount := 2; end else begin

224. StringGridl.Enabled := TRUE; StringGridl .RowCount := NumR+1; end;

225. Читаем количество конденсаторов ReadLn(IniFile, TmpStr); EditlO.Text := TmpStr; NumC := StrToInt(TmpStr); if NumC = 0 then begin

226. StringGrid2.Enabled := FALSE; StringGrid2.RowCount := 2; endelse begin

227. StringGrid2.Enabled := TRUE; StringGrid2.RowCount :=NumC+2; end;

228. Если количество резисторов не равно нулю, то считываем из файла построчно параметры резисторов if NumR о 0 then beginfor i := 1 to NumR do begin

229. Если количество конденсаторов не равно нулю, то считываем из файла построчно параметры конденсаторов if NumC о 0 then beginfor i := 1 to NumC do begin

230. Reset(RTempFunc); if NumR о 0 then beginfor i := 1 to NumR do begin

231. ReadLn(RTempFunc, MD.RTempFuncsi-l.); MD1 ,RTempFuncs[i-1 ] := MD.RTempFuncs[i-l]; end; end; end;1. CloseFile(RTempFunc);

232. Считываем формулы влияния времени на каждый из резисторов AssignFile(RTimeFunc, 'rtimefunc.ini'); if FileExists('rtimefunc.ini') then begin Reset(RTimeFunc); if NumR о 0 then

233. Вставляем строку из редактора комбобокса в первую позицию в списке ComboBoxl.ltems.lnsert(0, ComboBoxl.Text);

234. Проверяем, если количество элементов в списке стало больше 10, то удаляем 11-й элемент if ComboBoxl. Items.Count> 10 then begin

235. Удаляем последний элемент из списка ComboBoxl .Items.Delete( 10); end;//End IF end; // End IF end; // End IF

236. Пишем в файл количество элементов в комбобоксе WriteLn(IniFile, IntToStr(ComboBoxl .Items.Count));

237. Если это количество не равно нулю, то пишем послед-но в файл элементы списка if ComboBoxl.Items.Count о 0 then beginfor i := 0 to ComboBoxl .Items.Count-1 do begin

238. WriteLn(IniFile, ComboBox 1 .Items1.); end; // End FOR i end;

239. Пишем в файл параметры конденсаторов if NumC о 0 then begin for i := 1 to NumC do begin

240. Application.MessageBox('HeBepHO задан интервал!',

241. Ошибка!', MBJCONSTOP + MB JDK); Editl.SetFocus; Exit; end; end;считываем количество интервалов try Numlnt := StrToInt(Edit2.Text); excepton EConvertError do begin

242. Application.MessageBox('HeBepHO задано количество интервалов!'.

243. Ошибка!', MBJCONSTOP + MB JDK); Edit2.SetFocus; Exit; end; end;

244. Texpl := IntTexpl * Numlnt; Edit5.Text := FormatFloat('0', Texpl); end;procedure TForml .Edit2Exit(Sender: TObject); var1.tTexpl, Numlnt, Texpl: Integer; beginсчитываем интервал try IntTexpl := StrToInt(Editl.Text); excepton EConvertError do begin

245. Application.MessageBox('HeBepHo задан интервал!',

246. Ошибка!', MBJCONSTOP + MB JDK); Editl.SetFocus; Exit; end; end;считываем количество интервалов try Numlnt := StrToInt(Edit2.Text); except on EConvertError do begin

247. Application.MessageBox('HeBepHO задано количество интервалов!',

248. Ошибка!', MBJCONSTOP + МВОК); Edit2.SetFocus; Exit; end; end;

249. NumEl: Integer; // количество элементов i, j : Integer; sum : Double; sign : Integer;

250. Els : array of Double; // массив для варьированных номиналов

251. MOs : array of Double; // массив для матожиданий

252. SKOs : array of Double; // массив для СКО эл-тов

253. MOns : array of Double; // массив для модифиц-х(?) матожиданий

254. SKOns : array of Double; // -//- CKO

255. Ass : array of Double; // Массив для промежуточных перемнных А Bss : array of Double; // Массив для промежуточных перемнных В Fs : array of array of Double; tmpVal: Double;

256. DeltaT := 20 Temp; TempAffectR := Rp*(l+TKR*DeltaT); end;

257. DeltaT := 20 Temp; TempAffectC := Cp*(l+TKE*DeItaT); end;

258. Ord(A) > 96) and (Ord(A) < 123)) then begin Sym := 1; endelse Sym := 2; end;//End IF end; // End FUNCTION

259. Функция юзаетея в процедуре PolishConversion Функция ставит в соответствие определенной функции определенный символ и возвращает его function FNToCh(FuncName : String): Char; var i: Integer;

260. FNs : array 1.15. of String; Chs : array [1.15] of Char; begin

261. Функция юзаетея в процедуре PolishConversion Функция, обратная предыдущей, она ставит в соответствие символу определенную функцию function ChToFN(A : Char): String; var i: Integer;

262. FNs : array 1.15. of String; Chs : array [1.15] of Char; begin

263. FNsl. :='+'; FNs[2] :='-'; FNs[3] :='/'; FNs[4] := '*';

264. Result ;= Result + S + "; end else beginifSym (SrcStr1.) = 1 then begin S := "•while'((Sym(SrcStr1.) = 0) or (Sym(SrcStri.) = 1) and (i <= n)) dobegin S := S + SrcStr1.; i :=i+ 1; end;

265. A := FNToCh(S); if A<>'?' then begin1. P := Prior(A);while (Top > 0) and (P <= Prior (StackTop.)) do begin

266. Result := Result + ChToFN(StackTop.) + ''; Top := Top -1; end;

267. Top := Top + 1; StaekfTop. := A; end else begin

268. Result := Result + S + "; end; end else begin P := Prior(SrcStr1.); if P о 255 then begin

269. Result := Result + '0' + ''; end;if SrcStrfi. =')' then beginwhile (Top > 0) and (StackfTop. о'(') do begin

270. Result := Result + ChToFN(StackTop.)+''; Top := Top 1; end;

271. Top :=Top 1; if Top = -1 then begin

272. Result := 'ERROR!'; i :=n+ 1; end; end else begin if SrcStr1. о'(' then beginwhile (Top > 0) and (P <= Prior(StackTop.)) do begin

273. Result := Result + ChToFN(StackTop.) + ''; Top :=Top-1; end; end;

274. Top :=Top+ 1; StackfTop. := SrcStrfi]; end; end; i := i + 1; end; end;end; //END WHILE if Result о'ERROR!'thenbeginwhile Top > 0 do beginif (StackfTop. ='(') or (StackTop] =')') then begin

275. Result:='ERROR!'; Top := 0; end else begin

276. Result:=Result+ChToFN(StackTop.)+''; end;

277. Value :=-11111; end;//End FUNCTION

278. Stack : array 1. 1255. of Double; Top : Integer; Err : Boolean; A : Double; i : Integer; n : Integer; S : String; begin

279. Начальная инициализация переменных Top := 0; Err := False; i := 1;n := Length(PStr);

280. Перебираем строку посимвольно while (i <= n) and (not (Err)) do begin1. Обнуляем строку S :=";

281. Считываем в эту строку слово из исходной польской строки while (i <= n)and (PStr1. о ") do begin S := S +PStri.; i := i+1; end;i := i + 1; // Пропускаем пробел

282. Если первый символ считанного слова цифра, то это слово - число if Sym(Sl.) = 0 then begin

283. Top := Top + 1; // Инкремент указателя верха стека Пишем в последнюю ячейку массива число, получив его из нашей строки

284. StackTop. := StrToFloat(S); endelse // Если первый символ не цифра begin

285. Если первый символ буква латинского алфавита, и при этом слово не является зарезервированным именем функции, то это слово представляет собой имя переменной if (Sym(Sl.) = 1) and (not isFn(s)) then begin

286. Инкремент указателя верха стека Top := Top + 1;

287. Пишем в стек значение переменной Stack Тор. := Value(S); endelse // Теперь перебираем знаки begin

288. Операция сложения if S ='+' then begin

289. Забираем число из стека А := StackfTop.;

290. Декремент указателя вершины стека Тор := Тор-1;

291. Если в стеке еще остались числа if Тор > 0then begin

292. Складываем последний элемент в стеке и то число, которое мы только что оттуда забрали В рез-те получается сложение двух последних эл-тов стека StackfTop. := А + StackTop] end else begin

293. Увеличиваем указатель вершины стека То есть в стеке остается то же число без изменения на случай левогознака +

294. Тор := Тор + 1; end; end else begin

295. Операция вычитания ifS = '-' then begin

296. To же самое, что и в сложении1. А := StackTop.;1. Тор :=Тор-1;if Тор > Оthenbegin

297. StackfTop. := StackfTop] A; end else begin

298. Меняем знак у числа в стеке Тор:=Тор+1; StackfTop. := -А; end; end else begin1. Операция умноженияif S = '*'thenbegin

299. A := StackfTop.; Top := Top-1;

300. StackfTop. := A*StackTop]; end else begin

301. Операция деления if S ='/' then begin

302. A := StackfTop.; Top := Top-1;

303. StackfTop. := StackTop]/A; end else begin

304. И Операция возведения в степень if S = w then begin A := StackfTop.; Top := Top-1;

305. StackfTop. := Power(StackTop],A); end else

306. Остальные функции. if ((S='sin') or (S-cos1) or (S—tg') or (S-ctg') or (S-arcsin') or (S-arccos') or (S—In1) or (S='log') or (S-exp')) then begin

307. Stack Top. := calcFn(S, Stack[Top]); endelse // В любом другом случае в исходной польской строке заначилась ОШИБКА!!! begin

308. Err := TRUE; end end; end; end; end; end; end; end;

309. Результат число, оставшееся в стеке EvaluatePolish := StackTop.; Err := (Topol); end; // End FUNCTION begin1. Randomize;

310. Находим количество элементов (по кол-ву эл-тов массива) NumEl := Length(Noms);

311. Выделяем память под массив для модифицированных номиналов элементов (в пределах погрешности)

312. SetLength(Els, NumEl); // Цикл по строкам то есть по отдельным элементам for j := 0 to NumEl-1 do begin Elsjj. := Nomsj];

313. В соответствии с типом элемента прогоняем полученные номиналы через соотв-е процедуры, имитирующие влияние времени и температуры. case ElType of0 : begin // резистор

314. Учитываем воздействие времени // Elsj. := 1000*TimeAffectR(Els[j]/1000); // OLD

315. PolishConversion(MD.RTimeFuncsj., polStr); Els[j] := EvaluatePolish(polStr);

316. Учитываем воздействие температуры в случае "ненормальных" // условий эксплуатации if not (Length(Tks) = 0) then begin

317. Elsj. := TempAffectR(Els[j], Tks[j], Tems[j]); // tmpVal := Value('R'+IntToStr(j+l));1. MD.VVj. := Els[j];

318. PolishConversion(MD.RTempFuncsj., polStr);

319. ElsJj. := EvaluatePolish(polStr);1. MD.VVO. := tmpVal;end; // End IF end; // End CASE OF1 : begin // конденсатор

320. Учитываем воздействие времени // Elsj. := 1000*TimeAffectC(Els[j]/l ООО);

321. PolishConversion(MD.CTimeFuncsj., polStr); Els[j] := EvaluatePolish(polStr);

322. Учитываем воздействие температуры в случае "ненормальных" условий эксплуатации if not (Length(Tks) = 0) then begin

323. Elsj. := TempAffectC(Els[j], Tks[j], TemsO]); // tmpVal := Value('C'+IntToStr(j+l));1. MD.VVO. :=ElsO];

324. PolishConversion(MD.CTempFuncsj., polStr);

325. MOsj. := Els[j]; end; // End FOR j // Вычисляем CKO SetLength(SKOs, NumEl); for j := 0 to NumEl-1 do begin

326. SKOsj. := Els[j]*Devs[j]*0.01/3; end;//End FOR j // Вычисляем новые значения для матожиданий и СКО SetLength(MOns, NumEl); SetLength(SKOns, NumEl); for j := 0 to NumEl-1 do begin

327. MOnsD. := M0sj]/1000; // заменил на 1000

328. SKOnsfj. := SKOsj]/sqrt( 1000); // по числу циклов Fi MOns[j] := MOs[j]; SKOnsO] := SKOsO]/sqrt(1000); end; // End FOR j

329. Находим значения А и В для всех эл-тов

330. SetLength(Ass, NumEl); SetLength(Bss, NumEl); for j := 0 to NumEl-1 do begin

331. MiscDataC = class (TObject) public

332. GetF := 5.67*(Power(((tl+273)/100), 4) Power((t2+273)/100,4))/(tl-t2); end; begintry UnitLength := StrToInt(Edit2.Text); except on EConvertError do begin

333. Application.MessageBox('HeBepHO задана длина блока!',

334. Ошибка!', MBJCONSTOP + MB JDK); Edit2.SetFocus; Exit; end; end;

335. UnitLength := UnitLength/1000; // в метрах try UnitWidth := StrToInt(Edit5.Text); except on EConvertError do begin

336. Application.MessageBoxCHeeepHo задана ширина блока!',

337. Ошибка!', MBJCONSTOP + MB JDK); Edit5.SetFocus; Exit; end; end;

338. UnitWidth := UnitWidth/1000; // в метрах try UnitHeight ;= StrToInt(Edit3.Text); excepton EConvertError do begin

339. Application.MessageBox('HeBepHO задана высота блока!',

340. Ошибка!', MBJCONSTOP + MB JDK); Edit3.SetFocus; Exit; end; end;

341. UnitHeight := UnitHeight/1000; // в метрах try PlateLength := StrToInt(Editl.Text); excepton EConvertError do begin

342. Application.MessageBox('HeBepHO задана длина платы!',

343. Ошибка!', MBJCONSTOP + MB JDK); Editl.SetFocus; Exit; end; end;

344. PlateLength := PlateLength/1000; // в метрах try PlateWidth := StrToInt(Edit4.Text); except on EConvertError do begin

345. Application.MessageBoxCHeeepHo задана ширина платы!',

346. Ошибка!', MBJCONSTOP + MB JDK); Edit4.SetFocus; Exit; end; end;

347. Application.MessageBox('HeBepHO задана температура окружающей среды!',

348. Ошибка!', MBJCONSTOP + MB JDK); Edit6.SetFocus; Exit; end; end;

349. AssignFile(FData, 'eltable.txt');try Reset(FData);excepton EInOutError do begin

350. Application.MessageBox('He найден файл eltable.txt! Задайте'+ 'параметры платы!', 'Ошибка!', MBJCONSTOP + МВОК); BitBtnl.SetFocus; Exit; end; end;if EOF(FData) then begin

351. Application.MessageBox('<J>aKr eltable.txt не содержит данных! Задайте'+ 'параметры платы!',

352. Ошибка!', MBJCONSTOP + МВОК); BitBtnl.SetFocus; Exit; end;

353. ReadLn(FData, NumEl); ReadLn(FData, PlateHeight); SetLength(ElLengths, NumEl); SetLength(ElWidths, NumEl); SetLength(ElDiams, NumEl); ;

354. SetLength(ElHeights, NumEl); SetLength(ElPowers, NumEl); SetLength(EIXns, NumEl); SetLength(ElYns, NumEl); for i := 1 to NumEl do begin

355. Read(FData, ElLengthsi-l.); Read(FData, ElWidths[i-l]); Read(FData, ElDiams[i-l]); Read(FData, ElHeights[i-l]); Read(FData, ElPowers[i-l]); Read(FData, ElXns[i-l]); Readln(FData, ElYns[i-l]); end;1. CloseFile(FData);

356. Вычисляем площадь крышки (дна) кожуха Sv := UnitLength*UnitWidth; Sn := Sv;

357. Площадь боковой пов-ти корпуса Sb := UnitHeight*2*(UnitLength+UnitWidth); // Площадь поверхности УНЗ в области 1 и 3 Szl := PlateLength*PlateWidth; Sz3 := Szl; // Зазор

358. S1 i := S1 i + (PI*Power(ElDiamsi-l., 2)/4); end; end;hi := hli*Sli/Ssh;h3 := (hli/NumEl+PlateHeight)-UnitHeight/2; // Площадь пов-ти внутренней части кожуха Ski := 2*hI*(UnitLength+UnitWidth-4*Delta)+(UnitLength-2*Delta)*

359. SigA := 23.*(UnitLength-2.*Delta)*(UnitHeight-2.*Delta); Vk := 10; tk := Vk+Temp; tm := (tk+Temp)/2;

360. Albk := GetA(tm)*Power(((tk-Temp)/UnitHeight), 1/4);

361. Alvk := L3*GetA(tm)*Power(((tk-Temp)/UnitWidth), 1/4);

362. Alnk := 0.7*GetA(tm)*Power(((tk-Temp)/UnitWidth), 1/4);

363. All := GetBlack(CaseBlacklD)* I *GetF(tk, Temp);1. Alv := Alvk + All;1. AIn := Alnk + All;1. Alb := Albk + All;

364. SigK := Alv*Sv + Aln*Sn + Alb*Sb; PI := SigK*(tk Temp); tzl := Temp + Pl*(l/SigA+l/SigK); end;

365. Finalize(ElLengths); Final ize(EIWidths); Finalize(ElDiams); Finalize(ElHeights); Finalize(ElPowers); Finalize(ElXns); Finalize(ElYns); end;

366. Saving dialog fields on exitprocedure TForml.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var1. FData: TextFile; begin

367. AssignFile(FData, 'tempras.ini');1. Rewrite(FData);

368. WriteLn(FData, Edit2.Text);

369. WriteLn(FData, Edit5.Text);

370. WriteLn(FData, Edit3.Text);

371. WriteLn(FData, Editl.Text);

372. Reading dialog field from ini-file on startup procedure TForml.FormActivate(Sender; TObject); var

373. FData : TextFile; tmpstr: String; begin

374. AssignFile(FData, 'tempras.ini'); try Reset(FData); except on EInOutError do begin Exit; end; end;if EOF(FData) then begin1. Exit; end;

375. RadioButton 1.Checked := TRUE; RadioButton2.Checked = FALSE; end

376. Гистограммы частот значений математического ожидания тъ метрологической характеристики преобразователя напряжение-частота

377. До замены в момент времени t=20000 час.

378. D'-IMn^intDl^mmO^ CDCDCDCDCDCDCDCDCDCDt— т— О. О О сз CD о cd о о о о. о о о" о о о" о о" а" о" о" о" о"1. Г—

379. СЭ CD CD СЭ CD О CD о о CD сэ" о" о" о" CD- CD о" о"1.UniOTfliilBNIDOlDi-CMCNCNICMCMCNCNCNOTJCO о CD О G> О О CD CD 0 01. Q о о а а о" q а" а" о"

380. Асимметрия распределения Ду =-0,274; эксцесс распределения £^=0,102.

381. После замены в момент времени t=23500 час.

382. О CD CD CD CD CD О CD CD CD CD CD 0 CD CD 0 CD CD CD CD CD CD CD О CD

383. CD CD o" cd" о о cd" cd" cd" cd" cd" cd" cd"wcnifl^mm'-rj^iON со ст> т— сч ■sf1. Ol CM CO CO CO

384. CD CD CD 0 CD CD CD 0 0 0 CD CD CD О О О

385. CD" CD CD" о" CD CD" CD* CD~ o" izj" о" o" CD CD о" o"1.le

386. Асимметрия распределения As =-0,193; эксцесс распределения Ек =0,110.

387. Гистограммы частот значений математического ожидания тъ метрологической характеристики УПТ

388. До замены в момент времени 1=16000 час.0,013 0,014 0,016 0,017 0,019 0,020 0,022 0,023 0,025 0,026 0,028 0,029 0,031 0,032 0,034 0,035 0,014 0,015 0,017 0,018 0,020 0,021 0,023 0,024 0,026 0,027 0,028 0,030 0,031 0,033 0,034

389. Асимметрия распределения А8 -0,097; эксцесс распределения £^=-0,142.

390. После замены в момент времени 1=25000 час.оосэоооооооооооооооооооооо~оо~о"сэо~о~гш8

391. Асимметрия распределения А8 =-0,087; эксцесс распределения Ек =-0,131.

392. Гистограммы частот значений математического ожидания ть метрологической характеристики АИП

393. До замены в момент времени 1=22400 час.64 ■

394. Асимметрия распределения А3 =-0,209; эксцесс распределения Ек =0,204.

395. После замены в момент времени 1=24000 час.г1ГЭ

396. Асимметрия распределения А5 =-0,198; эксцесс распределения Ек =0,210.

397. Гистограммы частот значений математического ожидания тъ метрологической характеристики входного каскада

398. Асимметрия распределения А3 =0,117; эксцесс распределения Ек =-0,099.

399. После замены в момент времени 1=25200 час.

400. Асимметрия распределения А5 =-0,097; эксцесс распределения Ек =0,143.