Помощь в написании студенческих работ
Антистрессовый сервис

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

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

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

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

Содержание

  • 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 °C скорость старения СИ возрастает в 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. Создан метод повышения метрологической надежности средств НК ТФС материалов, учитывающий увеличение интенсивности их старения под воздействием тепловых процессов при тепловом взаимном влиянии элементной базы на изменение метрологических свойств проектируемых средств НК. В основу метода положена замена элементов с учетом значений их температурных коэффициентов на другие, позволяющая снизить воздействие температуры на изменение во времени значений исследуемой метрологической характеристики блока в целом. Кроме того, для снижения теплового взаимного влияния элементной базы на дрейф метрологической характеристики предложены конструктивные изменения в проектируемом блоке, в частности, установка дополнительных теплоотводов на соответствующие элементы блока.

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. Краткие тезисы докладов. Тамбов: Изд-во Тамб. гос. техн. ун-та, 2000 — С. 262−263.
  59. Д.А. Оценка метрологической исправности средств неразрушающего контроля теплофизических свойств материалов с учетом дестабилизирующих воздействий // Теплофизические измерения в начале XXI века:
  60. Тезисы докладов Четвертой международной теплофизической школы (24 28 сентября 2001 г.)/ Тамбов: Изд-во Тамб. гос. техн. ун-та, 2001. Ч. 1. — С. 174 175.
  61. Шиндяпин Д. А, Чернышова Т. И. Повышение метрологической надежности электронных измерительных средств с учетом воздействия температуры окружающей среды // Проектирование и технология электронных средств. -2002.-№ 10.-С. 10−13.
  62. Т.И., Селезнев A.B. Определение метрологической исправности и длительности межповерочных интервалов средств измерений // Контроль. Диагностика. 1999. № 7 (13) С. 7−9.
  63. .Ю., Горячева Г. А. и др. Вопросы качества радиодеталей." Москва: Советское радио, 1980 428 с.
  64. Г. Н., Семяшкин Э. М. Теплообмен в радиоэлектронных аппаратах.- Ленинград: Энергия, 1968 360 с.
  65. Г. Н. Тепломассообмен в радиоэлектронной аппаратуре.-М.: Высшая школа, 1984 г. 365с.
  66. Математическая статистика / Под ред. A.M. Длина. М.: Высш.шк., 1975. — 398с.
  67. A.B., Чернышова Т. И. Методика оценки метрологической надежности средств измерений // Труды ТГТУ. 1998. — Вып. 2. — С. 122−126.
  68. РМГ 29−99. ГСИ. Метрология. Основные термины и определения. -Минск, 2000. 28 с.
  69. О.Н., Петросян A.B. Вопросы качества электрорадиэле-ментов: Текст лекций. Таганрог: ТРТИ, 1985.- 38с.
  70. А.И., Нефедов A.B. Элементы схем бытовой радиоаппаратуры: Конденсаторы, резисторы: Справочник. М.: Радио и связь, 1995. — 272с.
  71. Диоды: Справочник / О. П Григорьев и другие. М.: Радио и связь, 1990. — 335с.
  72. Д.В., Королев Г. В., Громов И. С. Основы микроэлектроники: Учеб. Для техникумов по спец. «Производство изделий электроники». М.: Высш. шк., 1991 г. — 254 с.
  73. В.П. Исследование связи надежности различных групп электроизмерительных приборов с их конструктивными и технологическими особенностями: Афтореф. дисс. на соиск. учен, степени канд. техн. наук. Киев.
  74. В.Е. Теория вероятности и математическая статистика. Учеб. пособие для втузов. Изд. 5-е, перераб. и доп. М., «Высш. школа», 1977. 479 с. с илл.
  75. A.B., Койда А. Н. Вопросы проектирования систем диагностирования. Л.: Энергоатомиздат, Ленингр. отд-ние, 1985. — 112с.
  76. РМГ 29−99. ГСИ. Метрология. Основные термины и определения. -Минск, 2000. 28 с.
  77. Т.И., Чернышев В. Н. Методы и средства неразрушаю-щего контроля теплофизических свойств материалов. М.: Машиностроение 1. 2001.240 с.
  78. Интегральные микросхемы: Справочник / Б. В. Тарабрин, Л. Ф. Лунин, Ю. Н. Смирнов и др. Под ред. Б. В. Тарабрина, 2-е изд. испр. М.: Энергоатомиздат, 1985. — 528 с.
  79. Т.А., Зеленский A.B. Устройства функциональной электроники и электрорадиоэлементы. М.: Радио и связь, 1989. — 350 с.
  80. Д.В., Королев Г. В., Громов И. С. Основы микроэлектроники. М.: Высш. шк., 1991.-254 с.
  81. Г. Г., Панков Э. Д., Андреев А. Л., Польчиков Г. В. Источники и приемники излучения. СПб.: Политехника, 1991. — 240 с.
  82. В.Н., Чернышова Т. И. Математическое моделирование тепловых процессов при бесконтактных методах контроля качества материалов // Межвуз. сборник. М.: МИХМ, 1989. — С. 166−190.
  83. В.Н., Чернышова Т. И. Бесконтактный способ контроля теплофизических характеристик материалов и адаптивная система для его реализации // Теплофизика релаксирующих систем: Тез. докл. X Всесоюз. тепло-физ. школы Тамбов, 1990. — С. 104.
  84. Т.И., Чернышов В. Н. Моделирование тепловых процессов при бесконтактном определении теплофизических свойств материалов //
  85. Моделирование САПР, АСНИ и ГАП: Тез. докл. Всесоюз. конф. Тамбов, 1989. -С. 117−118.
  86. В.Н., Сысоев Э. В. Метод бесконтактного неразрушающего контроля теплофизических свойств материалов и готовых изделий // Контроль. Диагностика. 1999. — № 7 (13). — С. 28−30.
  87. В.Н., Сысоев Э. В. Бесконтактный адаптивный метод неразрушающего контроля теплофизических свойств материалов // Контроль. Диагностика. 2000. — № 2 (20). — С. 31−34.
  88. O.A. Метрологические основы теплофизических измерений. М.: Изд-во стандартов, 1972. — 155 с.
  89. Точность контактных методов измерения температуры / Под ред. А. И. Гордова М.: Изд-во стандартов, 1976. — 231 с.
  90. Т.И., Чернышов В. Н. Методы неразрушающего контроля теплофизических свойств для ограниченных в тепловом отношении тел. -Тамбов, 1985, 12 с.-Деп. в ВИНИТИ 1985, № 526 185.
  91. Т.И., Муромцев Ю. П., Чернышов В. Н. Импульсно-динамический метод неразрушающего контроля ТФС материалов и ИИС для его реализации // Материалы и уст-ва функциональной электроники: Межвуз. сборник науч. трудов. Воронеж, 1993. — С. 86−95.
  92. Т. И. Чернышов В.Н. Методы и средства неразрушающего контроля теплофизических свойств материалов. М.: Машиностроение, 2001.-240 с.
  93. A.c. 1 056 015 СССР, МКИ G01N 25/18. Способ определения теплофизических свойств материалов /Ю.А.Попов, В. В. Березин, В. М. Коростелев и др.- Заявл. 30.04.82- Опубл. 23.11.83, Бюл. № 43.
  94. A.c. 1 117 512 СССР, МКИ G01N 25/18. Способ определения ТФХ материалов / В. Н. Чернышов и др. № 3 629 652/18−25- Заявл. 29.06.83- Опубл. 7.10.84, Бюл. № 37. -6 с.
  95. A.c. 1 122 955 СССР, МКИ G01N 25/18. Способ определения ТФХ материалов / В. Н. Чернышов и др. № 3 610 914/18−25- Заявл. 29.06.83- Опубл. 7.11.84, Бюл. № 41.
  96. A.c. 1 140 565 СССР, МКИ G01N 25/18. Способ определения тепло-физических характеристик материалов / В. Н. Чернышов, Чернышова Т. И. -№ 3 612 879/24−25- Заявл. 29.06.83- Опубл.15.10.84., Бюл.№ 40.
  97. A.c. 1 124 209 СССР, МКИ G01N 25/18. Способ неразрушающего контроля ТФХ материалов и устройство для его осуществления / В. Н. Чернышов, Т. И. Чернышова № 3 549 461/18−25- Заявл. 9.02.83- Опубл. 15.11.84, Бюл. № 42.
  98. A.c. 1 122 955 СССР, МКИ G01N 25/18. Способ определения тепло-физических характеристик материалов / Т. И. Чернышова, В. Н. Чернышов -№ 3 610 914/18−25- Заявл. 29.06.83- Опубл. 7.11.84, Бюл. № 41.
  99. A.c. 1 117 512 СССР, МКИ G01N 25/18. Способ определения ТФХ материалов / Т. И. Чернышова, В. Н. Чернышов № 3 629 652/18−25- Заявл. 29.06.83- Опубл. 7.10.84, Бюл. № 37.
  100. A.c. 1 539 511 СССР, МКИ G01B 7/06. Способ неразрушающего контроля толщины пленочных покрытий / В. Н. Чернышов, Т. И. Чернышова, Л. Н. Малышев и др. № 431 950/25−28- Заявл. 26.10.87- Опубл. 30.01.90, Бюл. № 4.
  101. A.c. 1 663 428 СССР. МКИ G01B 21/08. Способ неразрушающего контроля толщины пленочного покрытия изделия / Т. И. Чернышова, В. Н. Чернышов, А. П. Пудовкин и др. № 4 419 124/28- 3аявл.03.05.88- Опубл. 15.07.91, Бюл. № 26
  102. MainForm in 'MainForm.pas' {Forml}, Maths in 'Maths.pas', MiscData in 'MiscData.pas'- {SR *.RES} begin
  103. Application.Initialize- Application. CreateForm (TForm 1, Form 1) — Application. Run- end.1. MainForm. pasunit MainForm-interfaceuses
  104. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs. StdCtrls, Buttons, Grids, ExtCtrls, Math, Mask, Maths, Gauges, TeeProcs, TeEngine, Chart, MiscData- type
  105. Private declarations } public
  106. 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-
  107. RTems: array of Double- // массив температур резисторов1. Cs: array of String-1. CNs: array of Double-1. CDs: array of Double-1. CTs: array of Double-
  108. CTems: array of Double- // массив температур конденсаторов function CalcKP (Mode: Integer): Double- end- var
  109. Forml: TForml- implementation {$R *.DFM}fimction TForml. CalcKP (Mode: Integer): Double-
  110. Ord (A) > 96) and (Ord (A) < 123)) then begin Sym := 1- endelse Sym := 2- end-//End IF end- // End FUNCTION
  111. FNToCh := Forml.MDl.Chsfi.- Exit-end- // End IFend- // End FOR FNToCh :='?'- end-//End FUNCTION
  112. Функция юзается в процедуре PolishConversion Функция, обратная предыдущей, она ставит в соответствие символу определенную функцию function ChToFN (A: Char): String- var i: Integer- beginfor i := 1 to 15 do beginif MDl.Chsfi. = A then begin
  113. ChToFN := MDl.FNsfi.- Exit-end- // End IF end- // End FOR ChToFN :='?'- end- // End FUNCTION // Процедура польского преобразования строки с формулой procedure PolishConversion (SrcStr: String- var Result: String) — var
  114. 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
  115. Result := Result + S + «- endelse // Символ не цифирь, значит это знак или переменная begin
  116. Если текущий символ (первый символ слова) латинская буква, то мы имеем дело с переменной либо именем функцииifSym (SrcStr1.) = 1 then begin
  117. Считываем все слово (оно может содержать и цифры, но тока // не в первой позиции) S :="-while ((Sym (SrcStr1.) = 0) or (Sym (SrcStri.) = 1) andi ≤ n)) do begin S := S + SrcStr1.- i:=i+l- end-
  118. Проверяем, является ли наше слово названием функции. А := FNToCh (S) — // Слово название функции if, А о'?' then begin
  119. Р := Prior (A) — // Приоритет функции по идее 4??? while (Top > 0) and (P ≤ Prior (StackTop.)) do begin
  120. Result := Result + ChToFN (StackTop.) +''- Top := Top -1- end-
  121. Top := Top + 1- StackfTop. := A- endelse // Слово имя переменной, просто добавляем ее к результату begin
  122. Result := Result + S + „- end- endelse // Текущий символ исходной строки не буква, не цифра, а знак +, — etc. begin
  123. Получаем приоритет этого знака Р := Prior (SrcStr1.) —
  124. Если знак не левый там какой-нибудь типа '%','$' и т. п. if Р о 255 then begin
  125. Result Result +, 0' + „- end-if SrcStrfi. = ')'then beginwhile (Top > 0) and (StackfTop. о '(') do begin
  126. Result := Result + ChToFN (StackTop.)+''- Top :=Top -1- end-
  127. Top := Top -1- if Top = -1 then begin
  128. 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
  129. Result:-ERROR!'- Top := 0-endelse begin
  130. Result:=Result+ChToFN (StackTop.)+''- end-1. Top:=Top-l-end- // End while Top > 0 do end-//End if Result о’ERROR!'then end- // End PROCEDURE
  131. Stack: array 1.1255. of Double- Top: Integer- Err: Boolean- A: Double- i: Integer- n: Integer- S: String- begin
  132. Начальная инициализация переменных Top := 0- Err := False- i := 1-n := Length (PStr) —
  133. Перебираем строку посимвольно while (i ≤ n) and (not (Err)) do begin1. Обнуляем строку S :=" —
  134. Top := Top + 1- // Инкремент указателя верха стека
  135. Пишем в последнюю ячейку массива число, получив его из нашей строки StackTop. := StrToFloat (S) — endelse // Если первый символ не цифра begin
  136. Если первый символ буква латинского алфавита, и при этом слово не является зарезервированным именем функции, то это слово представляет собой имя переменной if (Sym (Sl.) = 1) and (not isFn (s)) then begin
  137. Инкремент указателя верха стека Top := Top + 1-
  138. Пишем в стек значение переменной StackTop. := Value (S) — endelse // Теперь перебираем знаки begin
  139. Операция сложения if S = '+' then begin
  140. Забираем число из стека, А := StackfTop.-
  141. Декремент указателя вершины стека Тор :=Тор-1-
  142. Если в стеке еще остались числа if Тор > 0 then begin
  143. Складываем последний элемент в стеке и то число, которое мы только что оттуда забрали. В рез-те получается сложение двух последних эл-тов стека StackTop. := А + StackfTop] endelse begin
  144. Увеличиваем указатель вершины стека. То есть в стеке остается то же число без изменения на случай левогознака +
  145. Тор := Тор + 1- end- end else begin
  146. Операция вычитания if S ='-' then begin
  147. To же самое, что и в сложении, А := StackfTop.- Тор :=Тор-1- if Тор > О then begin
  148. Stack Top. := StackfTop] A- end else begin
  149. Меняем знак у числа в стеке Тор:=Тор+1- StackfTop. := -А- end- end else begin
  150. Операция умножения if S = '*' then begin A := StackfTop.- Top := Top-1-
  151. StackfTop. := A*StackTop]- end else begin
  152. Операция деления if S ='/' then begin
  153. A := StackfTop.- Top := Top-1-
  154. StackfTop. := StackTop]/A- end else begin
  155. Операция возведения в степеньif S =, Л'thenbegin
  156. A := StackfTop.- Top := Top-1-
  157. StackfTop. := Power (StackTop], A) — end else
  158. Остальные функции. 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
  159. StackfTop. := calcFn (S, StackfTop]) — endelse // В любом другом случае в исходной польской строке заначилась ОШИБКА!!! begin Err := TRUE- endend- end- end- end- end- end- end-
  160. Результат число, оставшееся в стеке EvaluatePolish := StackTop.- Err := (Тор<>1) — end- // End FUNCTION begin if Mode = 0 then begin1. Forml. PolStr :=" —
  161. PolishConversion (Forml .KPF, Forml. PolStr) — if Forml. PolStr = 'ERROR!' then CalcKP := -1 else CalcKP := 0- end else begin
  162. CalcKP := EvaluatePolish (Forml.PolStr) — end- end-procedure TForml. BitBtnlClick (Sender: TObject) — vari, j, k, 1, m: Integer-
  163. Delta: array 1. 1000. of Double-1. Rnns: array of Double-1. Cnns: array of Double-
  164. Kreal: Double- // Реальный коэф-т передачи
  165. Kideal: Double- // Идеальный коэф-т передачи1. FData: TextFile-1. FData2: TextFile-
  166. Считываем формулу для коэффициента передачи KPF := ComboBoxl .Text- if Trim (KPF) = „then begin
  167. Application.MessageBox ('He задан коэффициент передачи!', 'Ошибка!',
  168. MBJCONSTOP + MBOK + MBAPPLMODAL) — ComboBoxl. SetFocus- Exit- end-
  169. Вызываем функцию с параметром 0, чтобы преобразовать исходную формулу в польскую запись if CalcKP (O) = -1 then begin
  170. Application.MessageBox ('HeBepHO задан коэффициент передачи!', 'Ошибка!',
  171. MBJCONSTOP + MBOK + MBAPPLMODAL) — ComboBoxl. SetFocus- Exit- end-
  172. Устанавливаем длину динамических массивов соответственно введенному количеству резисторов SetLength (Rs, NumR) — SetLength (RNs, NumR) — SetLength (RDs, NumR) — SetLength (RTs, NumR) — SetLength (RTems, NumR) —
  173. Последовательно обрабатьтаем все записи таблицы резисторов, т. е. получаем значения ячеек и загоняем их в массивыend- // End TRY end- // End IF end- // End IF end- // End FOR
  174. Устанавливаем длину динамических массивов соответственно введенному количеству конденсаторов SetLength (Cs, NumC) — SetLength (CNs, NumC) — SetLength (CDs, NumC) — SetLength (CTs, NumC) — SetLength (CTems, NumC) —
  175. Последовательно обрабатываем все записи таблицы конденсаторов, т. е. получаем значения ячеек и загоняем их в массивыfor i := 1 to NumC do beginif Trim (StringGrid2.Rows1.Strings0.) о „then begin
  176. Записываем наименование элемента в массив Csi-1. := StringGrid2. Rows1.Strings[0]- // Если номинал задан правильно, записываем его в массив try
  177. CNsi-l. := StrToFloat (Trim (StringGrid2.Rows1.Strings[l]))*le-6 excepton EConvertError do begin
  178. Application.MessageBox ('HeBepHO задан номинал!', 'Ошибка!',
  179. MBJCONSTOP + MBOK + MBAPPLMODAL) — CurCell. Top := i- CurCell. Bottom := i- CurCell. Left := 1- CurCell. Right := 1- StringGrid2. Selection := CurCell- Exit- end- end-
  180. Если погрешность (отклонение) задано верно, записываем его в массив try
  181. CDsi-l. := StrToFIoat (Trim (StringGrid2.Rows1.Strings[2])) except on EConvertError do begin
  182. Application.MessageBox ('HeBepHO задана погрешность!', 'Ошибка!',
  183. 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
  184. CTsi-l. := StrToFloat (Trim (StringGrid2.Rows1.Strings[3])) excepton EConvertError do begin
  185. Application.MessageBox ('HeBepHo задан ТКЕ!', 'Ошибка!',
  186. 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
  187. CTemsi-l. := StrToFloat (Trim (StringGrid2.Rows1.Strings[4])) excepton EConvertError do begin
  188. Application.MessageBox ('HeBepHO задана температура конденсатора !',
  189. Application.MessageBox ('HeBepHo задан интервал!',
  190. Ошибка!', MBJCONSTOP + MBOK) — Editl. SetFocus- Exit- end- end-считываем количество интервалов try Numlnt := StrToInt (Edit2.Text) — excepton EConvertError do begin
  191. AppIication.MessageBox ('HeBepHO задано количество интервалов!',
  192. Ошибка!', MBJCONSTOP + MBOK) — Edit2. SetFocus- Exit- end- end-
  193. 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
  194. MD.VNfi. := Csi-NumR]- MD. VVfi] := CNs[i-NumR]- MDl. VNfi] := Cs[i-NumR]- MDl. VV1. := CNs[i-NumR]-
  195. Экшн при активизации формыprocedure TForml. FormActivate (Sender: TObject)-vari: Integer- begin
  196. 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
  197. StringGrid2.RowCount := 2- StringGrid2. Enabled := FALSE- for i := 0 to 3 do StringGrid2.Rowsl.Strings1. :=" — endelse StringGrid2. RowCount := NumC+1- end-
  198. Действия при выходе фокуса ввода из редактора с количеством резисторов В зависимости от введенного числа резисторов устанавливаем число строк в первой таблице (StringGridl) procedureTForml. Edit9Exit (Sender: TObject)-var i: Integer- begin try
  199. NumR := StrToInt (Edit9.Text) excepton EConvertError do begin
  200. Application.MessageBox ('HeBepHO задано количество резисторов!',
  201. Ошибка!', MBJCONSTOP and MBOK and MBAPPLMODAL) — Edit9. SetFocus () — Exit- end- end-if NumR < 0 then begin1. NumR := 0- end-if NumR = 0 then begin
  202. StringGridl .RowCount := 2- StringGrid 1. Enabled := FALSE- for i := 0 to 3 do StringGridl.Rowsl.Strings1. :=" — end else begin
  203. StringGridl.RowCount :=NumR+l- StringGridl. Enabled :=TRUE- end- end-
  204. NumC := StrToInt (EditlO.Text) excepton EConvertError do begin
  205. Application.MessageBox ('HeBepHO задано количество конденсаторов!',
  206. Ошибка!', MBJCONSTOP and MBOK and MB APPLMODAL) — EditIO. SetFocus () — Exit- end- end-if NumC < 0 then begin1. NumC := 0- end-if NumC = 0 then begin
  207. StringGrid2.RowCount := 2- StringGrid2. Enabled := FALSE- for i := 0 to 3 do StringGrid2.Rowsl.Strings1. :=" — end else begin
  208. StringGrid2.RowCount :=NumC+l- StringGrid2. Enabled := TRUE- end- end-
  209. Действия, выполняющиеся при создании формы procedure TForml. FormCreate (Sender: TObject) — var1. iFile: TextFile- RTempFunc: TextFile- RTimeFunc: TextFile-
  210. CTempFunc: TextFile- CTimeFunc: TextFile- TmpStr: String- i: Integer- begin
  211. MD := MiscDataC. Create- MD1 := MiscDataC. Create-
  212. Начинаем считывать данные из инишника (в случае наличия такового) и записываем эти данные в соотв-е элементы управления
  213. AssignFile (IniFile, 'model.ini') — if FileExists ('model.ini') then begin
  214. Reset (IniFile) — ReadLn (IniFile, TmpStr) — if StrToInt (Trim (TmpStr)) о 0 then beginfor i := 0 to StrToInt (Trim (TmpStr))-l do begin
  215. ReadLn (IniFile, TmpStr) — ComboBox 1.Items. Add (TmpStr) — end-
  216. ComboBoxl.Itemlndex := 0- end-
  217. Читаем интервал времени ReadLn (IniFile, TmpStr) — Edit 1. Text := TmpStr- // Читаем кол-во интервалов ReadLn (IniFile, TmpStr) — Edit2. Text := TmpStr- // Читаем время эксплуатации ReadLn (IniFile, TmpStr) — Edit5. Text := TmpStr-
  218. Читаем состояние чекбокса и выполняем соотв-е действия по включению/выключению элементов управления ReadLn (IniFile, TmpStr) — if TmpStr = '1' then begin
  219. CheckBoxl.Checked :=TRUE- Label 11. Visible := FALSE- Labell2. Visible := FALSE- Labell3. Visible := FALSE- StringGrid 1. ColCount := 3- StringGrid2. ColCount := 3- end else begin
  220. Читаем количество резисторов ReadLn (IniFile, TmpStr) — Edit9. Text := TmpStr- NumR := StrToInt (TmpStr) — if NumR = 0 then begin
  221. StringGridl.Enabled FALSE- StringGridl. RowCount := 2- end else begin
  222. StringGridl.Enabled := TRUE- StringGridl. RowCount := NumR+1- end-
  223. Читаем количество конденсаторов ReadLn (IniFile, TmpStr) — EditlO. Text := TmpStr- NumC := StrToInt (TmpStr) — if NumC = 0 then begin
  224. StringGrid2.Enabled := FALSE- StringGrid2. RowCount := 2- endelse begin
  225. StringGrid2.Enabled := TRUE- StringGrid2. RowCount :=NumC+2- end-
  226. Если количество резисторов не равно нулю, то считываем из файла построчно параметры резисторов if NumR о 0 then beginfor i := 1 to NumR do begin
  227. Если количество конденсаторов не равно нулю, то считываем из файла построчно параметры конденсаторов if NumC о 0 then beginfor i := 1 to NumC do begin
  228. Reset (RTempFunc) — if NumR о 0 then beginfor i := 1 to NumR do begin
  229. ReadLn (RTempFunc, MD. RTempFuncsi-l.) — MD1, RTempFuncs[i-1 ] := MD. RTempFuncs[i-l]- end- end- end-1. CloseFile (RTempFunc) —
  230. Считываем формулы влияния времени на каждый из резисторов AssignFile (RTimeFunc, 'rtimefunc.ini') — if FileExists ('rtimefunc.ini') then begin Reset (RTimeFunc) — if NumR о 0 then
  231. Вставляем строку из редактора комбобокса в первую позицию в списке ComboBoxl.ltems.lnsert (0, ComboBoxl. Text) —
  232. Проверяем, если количество элементов в списке стало больше 10, то удаляем 11-й элемент if ComboBoxl. Items. Count> 10 then begin
  233. Удаляем последний элемент из списка ComboBoxl.Items.Delete (10) — end-//End IF end- // End IF end- // End IF
  234. Пишем в файл количество элементов в комбобоксе WriteLn (IniFile, IntToStr (ComboBoxl .Items.Count)) —
  235. Если это количество не равно нулю, то пишем послед-но в файл элементы списка if ComboBoxl.Items.Count о 0 then beginfor i := 0 to ComboBoxl.Items.Count-1 do begin
  236. WriteLn (IniFile, ComboBox 1. Items1.) — end- // End FOR i end-
  237. Пишем в файл параметры конденсаторов if NumC о 0 then begin for i := 1 to NumC do begin
  238. Application.MessageBox ('HeBepHO задан интервал!',
  239. Ошибка!', MBJCONSTOP + MB JDK) — Editl. SetFocus- Exit- end- end-считываем количество интервалов try Numlnt := StrToInt (Edit2.Text) — excepton EConvertError do begin
  240. Application.MessageBox ('HeBepHO задано количество интервалов!'.
  241. Ошибка!', MBJCONSTOP + MB JDK) — Edit2. SetFocus- Exit- end- end-
  242. 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
  243. Application.MessageBox ('HeBepHo задан интервал!',
  244. Ошибка!', MBJCONSTOP + MB JDK) — Editl. SetFocus- Exit- end- end-считываем количество интервалов try Numlnt := StrToInt (Edit2.Text) — except on EConvertError do begin
  245. Application.MessageBox ('HeBepHO задано количество интервалов!',
  246. Ошибка!', MBJCONSTOP + МВОК) — Edit2. SetFocus- Exit- end- end-
  247. NumEl: Integer- // количество элементов i, j: Integer- sum: Double- sign: Integer-
  248. Els: array of Double- // массив для варьированных номиналов
  249. MOs: array of Double- // массив для матожиданий
  250. SKOs: array of Double- // массив для СКО эл-тов
  251. MOns: array of Double- // массив для модифиц-х (?) матожиданий
  252. SKOns: array of Double- // -//- CKO
  253. Ass: array of Double- // Массив для промежуточных перемнных, А Bss: array of Double- // Массив для промежуточных перемнных В Fs: array of array of Double- tmpVal: Double-
  254. DeltaT := 20 Temp- TempAffectR := Rp*(l+TKR*DeltaT) — end-
  255. DeltaT := 20 Temp- TempAffectC := Cp*(l+TKE*DeItaT) — end-
  256. Ord (A) > 96) and (Ord (A) < 123)) then begin Sym := 1- endelse Sym := 2- end-//End IF end- // End FUNCTION
  257. Функция юзаетея в процедуре PolishConversion Функция ставит в соответствие определенной функции определенный символ и возвращает его function FNToCh (FuncName: String): Char- var i: Integer-
  258. FNs: array 1.15. of String- Chs: array [1.15] of Char- begin
  259. Функция юзаетея в процедуре PolishConversion Функция, обратная предыдущей, она ставит в соответствие символу определенную функцию function ChToFN (A: Char): String- var i: Integer-
  260. FNs: array 1.15. of String- Chs: array [1.15] of Char- begin
  261. FNsl. :='+'- FNs[2] :='-'- FNs[3] :='/'- FNs[4] := '*'-
  262. 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-
  263. A := FNToCh (S) — if A<>'?' then begin1. P := Prior (A)-while (Top > 0) and (P ≤ Prior (StackTop.)) do begin
  264. Result := Result + ChToFN (StackTop.) + ''- Top := Top -1- end-
  265. Top := Top + 1- StaekfTop. := A- end else begin
  266. Result := Result + S + „- end- end else begin P := Prior (SrcStr1.) — if P о 255 then begin
  267. Result := Result + '0' + ''- end-if SrcStrfi. =')' then beginwhile (Top > 0) and (StackfTop. о'(') do begin
  268. Result := Result + ChToFN (StackTop.)+''- Top := Top 1- end-
  269. Top :=Top 1- if Top = -1 then begin
  270. Result := 'ERROR!'- i :=n+ 1- end- end else begin if SrcStr1. о'(' then beginwhile (Top > 0) and (P ≤ Prior (StackTop.)) do begin
  271. Result := Result + ChToFN (StackTop.) + ''- Top :=Top-1- end- end-
  272. 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
  273. Result:='ERROR!'- Top := 0- end else begin
  274. Result:=Result+ChToFN (StackTop.)+''- end-
  275. Value :=-11 111- end-//End FUNCTION
  276. Stack: array 1. 1255. of Double- Top: Integer- Err: Boolean- A: Double- i: Integer- n: Integer- S: String- begin
  277. Начальная инициализация переменных Top := 0- Err := False- i := 1-n := Length (PStr) —
  278. Перебираем строку посимвольно while (i ≤ n) and (not (Err)) do begin1. Обнуляем строку S :=" —
  279. Считываем в эту строку слово из исходной польской строки while (i ≤ n) and (PStr1. о „) do begin S := S +PStri.- i := i+1- end-i := i + 1- // Пропускаем пробел
  280. Если первый символ считанного слова цифра, то это слово — число if Sym (Sl.) = 0 then begin
  281. Top := Top + 1- // Инкремент указателя верха стека Пишем в последнюю ячейку массива число, получив его из нашей строки
  282. StackTop. := StrToFloat (S) — endelse // Если первый символ не цифра begin
  283. Если первый символ буква латинского алфавита, и при этом слово не является зарезервированным именем функции, то это слово представляет собой имя переменной if (Sym (Sl.) = 1) and (not isFn (s)) then begin
  284. Инкремент указателя верха стека Top := Top + 1-
  285. Пишем в стек значение переменной Stack Тор. := Value (S) — endelse // Теперь перебираем знаки begin
  286. Операция сложения if S ='+' then begin
  287. Забираем число из стека, А := StackfTop.-
  288. Декремент указателя вершины стека Тор := Тор-1-
  289. Если в стеке еще остались числа if Тор > 0then begin
  290. Складываем последний элемент в стеке и то число, которое мы только что оттуда забрали В рез-те получается сложение двух последних эл-тов стека StackfTop. := А + StackTop] end else begin
  291. Увеличиваем указатель вершины стека То есть в стеке остается то же число без изменения на случай левогознака +
  292. Тор := Тор + 1- end- end else begin
  293. Операция вычитания ifS = '-' then begin
  294. To же самое, что и в сложении1. А := StackTop.-1. Тор :=Тор-1-if Тор > Оthenbegin
  295. StackfTop. := StackfTop] A- end else begin
  296. Меняем знак у числа в стеке Тор:=Тор+1- StackfTop. := -А- end- end else begin1. Операция умноженияif S = '*'thenbegin
  297. A := StackfTop.- Top := Top-1-
  298. StackfTop. := A*StackTop]- end else begin
  299. Операция деления if S ='/' then begin
  300. A := StackfTop.- Top := Top-1-
  301. StackfTop. := StackTop]/A- end else begin
  302. И Операция возведения в степень if S = w then begin A := StackfTop.- Top := Top-1-
  303. StackfTop. := Power (StackTop], A) — end else
  304. Остальные функции. 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
  305. Stack Top. := calcFn (S, Stack[Top]) — endelse // В любом другом случае в исходной польской строке заначилась ОШИБКА!!! begin
  306. Err := TRUE- end end- end- end- end- end- end- end-
  307. Результат число, оставшееся в стеке EvaluatePolish := StackTop.- Err := (Topol) — end- // End FUNCTION begin1. Randomize-
  308. Находим количество элементов (по кол-ву эл-тов массива) NumEl := Length (Noms) —
  309. Выделяем память под массив для модифицированных номиналов элементов (в пределах погрешности)
  310. SetLength (Els, NumEl) — // Цикл по строкам то есть по отдельным элементам for j := 0 to NumEl-1 do begin Elsjj. := Nomsj]-
  311. В соответствии с типом элемента прогоняем полученные номиналы через соотв-е процедуры, имитирующие влияние времени и температуры. case ElType of0: begin // резистор
  312. Учитываем воздействие времени // Elsj. := 1000*TimeAffectR (Els[j]/1000) — // OLD
  313. PolishConversion (MD.RTimeFuncsj., polStr) — Els[j] := EvaluatePolish (polStr) —
  314. Учитываем воздействие температуры в случае „ненормальных“ // условий эксплуатации if not (Length (Tks) = 0) then begin
  315. Elsj. := TempAffectR (Els[j], Tks[j], Tems[j]) — // tmpVal := Value ('R'+IntToStr (j+l))-1. MD.VVj. := Els[j]-
  316. PolishConversion (MD.RTempFuncsj., polStr) —
  317. ElsJj. := EvaluatePolish (polStr)-1. MD.VVO. := tmpVal-end- // End IF end- // End CASE OF1: begin // конденсатор
  318. Учитываем воздействие времени // Elsj. := 1000*TimeAffectC (Els[j]/l ООО) —
  319. PolishConversion (MD.CTimeFuncsj., polStr) — Els[j] := EvaluatePolish (polStr) —
  320. Учитываем воздействие температуры в случае „ненормальных“ условий эксплуатации if not (Length (Tks) = 0) then begin
  321. Elsj. := TempAffectC (Els[j], Tks[j], TemsO]) — // tmpVal := Value ('C'+IntToStr (j+l))-1. MD.VVO. :=ElsO]-
  322. PolishConversion (MD.CTempFuncsj., polStr) —
  323. MOsj. := Els[j]- end- // End FOR j // Вычисляем CKO SetLength (SKOs, NumEl) — for j := 0 to NumEl-1 do begin
  324. 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
  325. MOnsD. := M0sj]/1000- // заменил на 1000
  326. SKOnsfj. := SKOsj]/sqrt (1000) — // по числу циклов Fi MOns[j] := MOs[j]- SKOnsO] := SKOsO]/sqrt (1000) — end- // End FOR j
  327. Находим значения, А и В для всех эл-тов
  328. SetLength (Ass, NumEl) — SetLength (Bss, NumEl) — for j := 0 to NumEl-1 do begin
  329. MiscDataC = class (TObject) public
  330. 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
  331. Application.MessageBox ('HeBepHO задана длина блока!',
  332. Ошибка!', MBJCONSTOP + MB JDK) — Edit2. SetFocus- Exit- end- end-
  333. UnitLength := UnitLength/1000- // в метрах try UnitWidth := StrToInt (Edit5.Text) — except on EConvertError do begin
  334. Application.MessageBoxCHeeepHo задана ширина блока!',
  335. Ошибка!', MBJCONSTOP + MB JDK) — Edit5. SetFocus- Exit- end- end-
  336. UnitWidth := UnitWidth/1000- // в метрах try UnitHeight -= StrToInt (Edit3.Text) — excepton EConvertError do begin
  337. Application.MessageBox ('HeBepHO задана высота блока!',
  338. Ошибка!', MBJCONSTOP + MB JDK) — Edit3. SetFocus- Exit- end- end-
  339. UnitHeight := UnitHeight/1000- // в метрах try PlateLength := StrToInt (Editl.Text) — excepton EConvertError do begin
  340. Application.MessageBox ('HeBepHO задана длина платы!',
  341. Ошибка!', MBJCONSTOP + MB JDK) — Editl. SetFocus- Exit- end- end-
  342. PlateLength := PlateLength/1000- // в метрах try PlateWidth := StrToInt (Edit4.Text) — except on EConvertError do begin
  343. Application.MessageBoxCHeeepHo задана ширина платы!',
  344. Ошибка!', MBJCONSTOP + MB JDK) — Edit4. SetFocus- Exit- end- end-
  345. Application.MessageBox ('HeBepHO задана температура окружающей среды!',
  346. Ошибка!', MBJCONSTOP + MB JDK) — Edit6. SetFocus- Exit- end- end-
  347. AssignFile (FData, 'eltable.txt')-try Reset (FData)-excepton EInOutError do begin
  348. Application.MessageBox ('He найден файл eltable. txt! Задайте'+ 'параметры платы!', 'Ошибка!', MBJCONSTOP + МВОК) — BitBtnl. SetFocus- Exit- end- end-if EOF (FData) then begin
  349. Application.MessageBox ('aKr eltable. txt не содержит данных! Задайте'+ 'параметры платы!',
  350. Ошибка!', MBJCONSTOP + МВОК) — BitBtnl. SetFocus- Exit- end-
  351. ReadLn (FData, NumEl) — ReadLn (FData, PlateHeight) — SetLength (ElLengths, NumEl) — SetLength (ElWidths, NumEl) — SetLength (ElDiams, NumEl) — -
  352. SetLength (ElHeights, NumEl) — SetLength (ElPowers, NumEl) — SetLength (EIXns, NumEl) — SetLength (ElYns, NumEl) — for i := 1 to NumEl do begin
  353. 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) —
  354. Вычисляем площадь крышки (дна) кожуха Sv := UnitLength*UnitWidth- Sn := Sv-
  355. Площадь боковой пов-ти корпуса Sb := UnitHeight*2*(UnitLength+UnitWidth) — // Площадь поверхности УНЗ в области 1 и 3 Szl := PlateLength*PlateWidth- Sz3 := Szl- // Зазор
  356. 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)*
  357. SigA := 23.*(UnitLength-2.*Delta)*(UnitHeight-2.*Delta) — Vk := 10- tk := Vk+Temp- tm := (tk+Temp)/2-
  358. Albk := GetA™*Power (((tk-Temp)/UnitHeight), ¼) —
  359. Alvk := L3*GetA™*Power (((tk-Temp)/UnitWidth), ¼) —
  360. Alnk := 0.7*GetA™*Power (((tk-Temp)/UnitWidth), ¼) —
  361. All := GetBlack (CaseBlacklD)* I *GetF (tk, Temp)-1. Alv := Alvk + All-1. AIn := Alnk + All-1. Alb := Albk + All-
  362. SigK := Alv*Sv + Aln*Sn + Alb*Sb- PI := SigK*(tk Temp) — tzl := Temp + Pl*(l/SigA+l/SigK) — end-
  363. Finalize (ElLengths) — Final ize (EIWidths) — Finalize (ElDiams) — Finalize (ElHeights) — Finalize (ElPowers) — Finalize (ElXns) — Finalize (ElYns) — end-
  364. Saving dialog fields on exitprocedure TForml. FormCloseQuery (Sender: TObject- var CanClose: Boolean) — var1. FData: TextFile- begin
  365. AssignFile (FData, 'tempras.ini')-1. Rewrite (FData) —
  366. WriteLn (FData, Edit2. Text) —
  367. WriteLn (FData, Edit5. Text) —
  368. WriteLn (FData, Edit3. Text) —
  369. WriteLn (FData, Editl. Text) —
  370. Reading dialog field from ini-file on startup procedure TForml. FormActivate (Sender- TObject) — var
  371. FData: TextFile- tmpstr: String- begin
  372. AssignFile (FData, 'tempras.ini') — try Reset (FData) — except on EInOutError do begin Exit- end- end-if EOF (FData) then begin1. Exit- end-
  373. RadioButton 1. Checked := TRUE- RadioButton2. Checked = FALSE- end
  374. Гистограммы частот значений математического ожидания тъ метрологической характеристики преобразователя напряжение-частота
  375. До замены в момент времени t=20 000 час.
  376. D'-IMn^intDl^mmO^ CDCDCDCDCDCDCDCDCDCDt— т— О. О О сз CD о cd о о о о. о о о“ о о о“ о о“ а“ о“ о“ о“ о"1. Г—
  377. СЭ CD CD СЭ CD О CD о о CD сэ“ о» о" о" CD- CD о" о"1.UniOTfliilBNIDOlDi-CMCNCNICMCMCNCNCNOTJCO о CD О G> О О CD CD 0 01. Q о о, а а о" q а" а" о"
  378. Асимметрия распределения Ду =-0,274- эксцесс распределения ?^=0,102.
  379. После замены в момент времени t=23 500 час.
  380. О CD CD CD CD CD О CD CD CD CD CD 0 CD CD 0 CD CD CD CD CD CD CD О CD
  381. CD CD o" cd" о о cd" cd" cd" cd" cd" cd" cd"wcnifl^mm'-rj^iON со ст> т— сч ¦sf1. Ol CM CO CO CO
  382. CD CD CD 0 CD CD CD 0 0 0 CD CD CD О О О
  383. CD" CD CD" о" CD CD" CD* CD~ o" izj" о" o" CD CD о" o"1.le
  384. Асимметрия распределения As =-0,193- эксцесс распределения Ек =0,110.
  385. Гистограммы частот значений математического ожидания тъ метрологической характеристики УПТ
  386. До замены в момент времени 1=16 000 час.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
  387. Асимметрия распределения А8 -0,097- эксцесс распределения ?^=-0,142.
  388. После замены в момент времени 1=25 000 час. оосэоооооооооооооооооооооо~оо~о"сэо~о~гш8
  389. Асимметрия распределения А8 =-0,087- эксцесс распределения Ек =-0,131.
  390. Гистограммы частот значений математического ожидания ть метрологической характеристики АИП
  391. До замены в момент времени 1=22 400 час.64 ¦
  392. Асимметрия распределения А3 =-0,209- эксцесс распределения Ек =0,204.
  393. После замены в момент времени 1=24 000 час. г1ГЭ
  394. Асимметрия распределения А5 =-0,198- эксцесс распределения Ек =0,210.
  395. Гистограммы частот значений математического ожидания тъ метрологической характеристики входного каскада
  396. Асимметрия распределения А3 =0,117- эксцесс распределения Ек =-0,099.
  397. После замены в момент времени 1=25 200 час.
  398. Асимметрия распределения А5 =-0,097- эксцесс распределения Ек =0,143.
Заполнить форму текущей работой

Сессия? Спокойно!