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

Оптимизация исследования гетерогенных физико-химических систем

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

Апробация работы: и публикации. Основные результаты работы докладывались и обсуждались, на: 3, 4 и 5 Международных конференциях молодых учёных «Актуальные проблемы современной: науки» (Самара — 2002, 2003″ -. 2004) — семинарах СКВ-«Физико-химическийанализ и техническая кибернетика» (Самара 2002;2004 г. г.) — итоговой конференции Всероссийского конкурса на лучшие научные работы студентов… Читать ещё >

Оптимизация исследования гетерогенных физико-химических систем (реферат, курсовая, диплом, контрольная)

Содержание

  • Условные обозначения и сокращения
    • 1. 0. ОБЗОР ЛИТЕРАТУРЫ
    • 1. 1. Сущность комплексной методологии исследования многокомпонентных систем
    • 1. 2. Взаимосвязь и взаимовлияние развития инструментальных методов и методологии исследования фазовых диаграмм
      • 1. 2. 1. Визуально-политермический анализ и метод сечений
      • 1. 2. 2. Дифференциально-термический анализ и проекционно-термографический метод проф. A.G. Космынина
      • 1. 2. 3. Дифференциальная сканирующая калориметрия и- калориметрический метод проф. A.C. Космынина
    • 1. 3. Методы планирования и оптимизации эксперимента при исследовании фазовых диграмм. Моделирование фазовых комплексов
    • 1. 4. Метод моделирования характеристик тройных эвтектик по данным об элементах огранения систем низшей мерности Мартыновой-Сусарева
    • 1. 5. Выводы и постановка задачи исследования
    • 2. 0. ЭЛЕКТРОННЫЙ ГЕНЕРАТОР ФАЗОВЫХ ДИАГРАММ
    • 2. 1. Концепция электронного генератора фазовых диаграмм на основе метода Мартыновой — Сусарева
    • 2. 2. Создание баз данных и структура генерации систем
    • 2. 3. Программа пересчёта концентраций
    • 2. 4. Описание алгоритма моделирования по Мартыновой — Суса-реву
    • 2. 5. Формирование электронного отчёта
    • 2. 6. Запуск программы
    • 2. 7. Руководство пользователя
      • 2. 7. 1. Интерфейс программы
      • 2. 7. 2. Рекомендации по установке. фг
    • 2. 8. Апробация программы на эталонных трёхкомпонентных эвтектических системах
      • 2. 8. 1. Система К//С1, 804, >Ю
      • 2. 8. 2. Система Ы, Ыа, Бг // Р
      • 2. 8. 3. Результаты апробации
    • 2. 9. Оценка валидности метода компьютерного моделирования
    • 2. 10. Выводы по главе 2
    • 3. 0. ЭКСПЕРИМЕНТАЛЬНАЯ ЧАСТ
    • 3. 1. Инструментальные методы исследования и классификация используемых веществ
      • 3. 1. 1. Визуально — политермический анализ
      • 3. 1. 2. Аппаратура и методика дифференциального термического анализа и комплексного ДТА
      • 3. 1. 3. Рентгенофазовый анализ
    • 3. 2. Исследование погрешности определения состава и температуры эвтектики солевых систем
    • 3. 3. Моделирование характеристик эвтектик трёхкомпонентных солевых систем и их экспериментальное подтверждение
      • 3. 3. 1. СистемаЫа//Вг, Ш3, СИБ
      • 3. 3. 2. Система Ыа//Вг, Ш3, М0О
      • 3. 3. 3. СистемаЫа // Вг, СЫБ, СНзСОО
      • 3. 3. 4. Система Сс1, Ыа, РЬ // Вг
      • 3. 3. 5. Система Ма//В02,С1,Р
      • 3. 3. 6. Система Ыа // В02, С1, Б
    • 3. 4. Моделирование характеристик эвтектик трёхкомпонентных водно-солевых и органических систем как основы для разработки альтернативных топлив, и их экспериментальное подтверждение
      • 3. 4. 1. Система Ш^Оз — КИОз — СО (МН2)
      • 3. 4. 2. Система ЫН4Ш3 — КИОз — ИаЫОз
    • 3. 4. 3. Система СО (МН2)2 — КШз — КаЫ03. 96 *
  • 314. 4:. Система К, Ш4//Н0з-Н20:. 98!
    • 3. 4. 5. Система Ыа, ЫН4 // Ш3-Н
  • 3. 4.6. Система К, Ш //Шз-Н
    • 3. 5. Моделирование характеристик эвтектик: стабильных секущих треугольников четырёхкомпонентных взаимных систем- и их экспериментальное подтверждение
      • 3. 5. 1. Моделирование и идентификация древа- фаз четрёхкомпо-нентной взаимной системы Са, ВаУ/ Р, С1, М0О
      • 3. 5. 2. Исследование четырёхкомпонентной- взаимной-системы Ыа,
  • Са, Ва // Б- СГ
    • 3. 5. 3. Моделирование и расчёт эвтектических характеристик стабильных секущих треугольников древ фаз ряда четырёхкомпонентных взаимных систем
      • 3. 5. 3. 1. Стабильный секутций-треугольник КС1 — СаР2 — ВаР2 четырёхкомпонентной взаимной системы К, Са, Ва// Р, СП
      • 3. 5. 3. 2. Стабильный секущий треугольник МаР — СаР2 — К2 \Ю4 четырёхкомпонентнойвзаимной системы К, Са // Р, \Ю
      • 3. 5. 3. 3. Стабильный секущий треугольник ЫаР — КС1 — К04 четырёхкомпонентной взаимной системыМа, К // Р, С1- ^
    • 3. 6. Выводы по главе 3,
    • 4. 0. ЭФФЕКТИВНОСТЬ ПРИМЕНЕНИЯ ЭГ В ПРАКТИКЕ ФИЗИКО-ХИМИЧЕСКИХ ИССЛЕДОВАНИЙ
  • Ф
    • 4. 1. Хронометрирование временных ш трудовых затрат при исследовании диаграмм плавкости методом сечений по дан-нымвизуально — политермическим анализа
    • 4. 2. Хронометрирование временных и трудовых затрат при исследовании диаграмм плавкости методом? проекционное -термографическим методом проф. Космынина A.C. но данным ДТА
    • 4. 3. Хронометрирование временных и трудовых затрат при моделировании характеристик трёхкомпонентных эвтектик методом Мартыновой — Сусарева без применения компьютерных технологий. 12 8 v
    • 4. 4. Хронометрирование временных: и трудовых затрат при исследовании физико — химических- систем с помощью электронного генератора фазовых диаграмм
    • 4. 5. Сравнительный? анализ эффективности применения, различных методов ФХА в практике исследования трёхкомпонентных эвтектических физико — химических систем
    • 4. 6. Электронный генератор фазовых диаграмм как прототип справочников и научной литературы по фазовым диаграммам нового поколения
    • 4. 7. Области применения электронного генератора фазовых диаграмм
    • 4. 8. Пути развития идеологии электронного генератора фазовых диаграмм
    • 4. 9. Выводы по главе 4

Актуальность" проблемы. Работа посвящена оптимизации исследования гетерогенных физико-химических: систем! для? снижения? временных и материальных затрат на изучение их фазовых комплексов. Эта проблема решается путем совершенствования! методов моделирования ш экспериментального исследования систем с различными! типами химического взаимодействия" и числом компонентов, а также внедрения-современных компьютерных технологийРазработанная комплексная^ методология! исследованиямногокомпонентных систем (КМИМС) [1] позволяет, благодаря предложенным новым принципам и общему алгоритму на несколькопорядков снижать. наукоемкую? процедуру получения шеобходимойшнформациш по фазовым диаграммамш эффективно решать на их основе разнообразные задачи современного материаловедения. Однако ряд вопросов методологии остаетсянерешенным и требует своего развития.

Одним из: перспективных подходов к исследованию систем является совершенствование моделирования на основе развития метода Мартынсшой — Су-сарева [2−6]^ базирующегося на расчете характеристик эвтектик (температуры. и состава) по данным об элементах огранения.

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

Цель работы — получение новых данных по диаграммам плавкости трёх-компонентных эвтектических систем с использованием созданного электронного генератора фазовых диаграмм трехкомпонентных эвтектических систем?

Задачи исследования:

1. Анализ возможностей<�методов моделирования иэксперимента для> оптимизации изучения фазовых комплексов физико-химических систем.

2. Создание и реализация! концепции электронного генератора фазовых диаграмм длякомпьютерного моделирования = характеристик: трехкомпонентных эвтектических систем:

3- Апробациям компьютерного? моделирования I характеристик: эвтектик на эталонных трехкомпонентных эвтектических системах, определение погрешности метода и её причин- 4. Получение новых данных по эвтектическим характеристикам: ряда трехкомпонентных солевых систем. 5- Исследование фазовых диаграмм трёхкомпонентных систем-с: азото водородными ингредиентамидляразработки? альтернативных неуглеводородных энергоносителей?

6. Получение моделей стабильных секущих треугольников древ фаз че-тырёхкомпонентных взаимных систем-.

7. Сравнительный! анализ и оценка эффективности? предложенного?электронного генератора фазовых: диаграмм? относительносуществующих методов исследования физико-химических систем.

Методьи исследовании. Для решенияпоставленных задач? использовался комплекс аналитических (термодинамический! анализ, математическое и компьютерное моделирование, эконометрия) и/ экспериментальных методов физико-химического анализа (ВПА, ДТА, РФ А).

Научная новизна:

1. Впервые изучен ряд трехкомпонентных солевых эвтектических систем: Иа // Вг, ЫОз, С^- Ш11 Вг, Ш3, Мо04- Ш11 Вг, €N8, СН3СООСа, Иа, РЬ // ВгЫа // ВОг, С1, ИЫа // ВО2, С1, Б04, с помощью электронного генератора фазовых диаграмм.

2. Исследованы трёхкомпонентные системы с ингредиентами разрабатываемого альтернативного топлива: ЫН4ЫОз — КЖ)3 — СО (>Щ2)2, >Ш4ЫОзКМ03 -ЫаШз, СО (КН2)2 — КЖ)3 — КаШ3, КЖ)3 — Ш4Ш3 — Н20, КаШ3 — МН4Ш3 — Н20, КШ3 — - Н20.

3. Получены характеристики эвтектик секущих стабильных треугольников древ фаз четырёхкомпонентных взаимных систем: Са, Ва7/ Б, С1, Мо04- Иа, Са, Ва // ?, С1- К, Са, Ва // Б, С1- Иа, К, Са II Б, Ш4- Иа, КII С1, ЛУ04.

4. Предложена и реализована концепция электронного генератора фазовых диаграмм.

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

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

На защиту автор выносит: 1. Новые данные по эвтектическим характеристикам трехкомпонентных солевых и водно-солевых систем и ряда секущих стабильных треугольников древ фаз четырёхкомпонентных взаимных систем.

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

3. Оптимальный алгоритм: исследования: характеристик эвтектик трёхкомпонентных систем.

Апробация работы: и публикации. Основные результаты работы докладывались и обсуждались, на: 3, 4 и 5 Международных конференциях молодых учёных «Актуальные проблемы современной: науки» (Самара — 2002, 2003″ -. 2004) — семинарах СКВ-«Физико-химическийанализ и техническая кибернетика» (Самара 2002;2004 г. г.) — итоговой конференции Всероссийского конкурса на лучшие научные работы студентов по естественным, техническим наукам (проекты в области: высоких технологий) и инновационным: научно-образовательным е проектам (Москва, 2004 г.) — Всероссийской открытой конференции обучающихся «Юность, наука, культура» (Москва, 2005 г.) — научных семинарах на кафедрах СамГТУ «Прикладная математика и информатика», «Технологии литейных процессов» (Самара, 20 041 г.). По материалам диссертации опубликовано 27 статей и тезисов докладов.

Структура и объём работы. Диссертационная работа состоит из введения, четырёх разделов, выводов, списка литературы (217 наименований) и приложений. Общий объем работы составляет 163 страницы и приложения, содержит 41 таблицу и 66 рисунков.

ОБЩИЕ ВЫВОДЫ.

1. Впервые предложена и реализована? концепция электронного генератора фазовых диаграммпозволяющего автоматизировать процесс моделирования эвтектических характеристик трёхкомпонентных систем.

2. Апробация электронного генератора фазовых диаграмм на 22 эталонных трёхкомпонентных системах показала, что при достаточной точности вводимых данных об элементах о гранения, погрешность моделирования эвтектик не превышает экспериментальной — в среднем по составам не более 3%, по температуре — менее 2%.

3. С использованием электронного генератора впервыеизучен: ряд /грех-компонентных солевых эвтектических систем: № 7/ Вг, N03, СЫБЫа // Вг, Ы03, Мо04- Ыа // Вг, СЫБ, СН3СОРС4, №ЛРЬ // В?- ЫЯ /ГВХ%, .СПР- N3 // ВОг, С1, 304, полученыхарактеристики? эвтектик стабильных секущих треугольников древ"фаз четырёхкомпонентных взаимных солевых систем Са, Ва // Р, 01, Мо04- Са, Ва // Р, С1- КОа, Ва // Р, С1- Ыа, К, Са // Р, \Ю4- N3, К // Р, С1,04 и осуществлена их экспериментальная идентификация;

4. Получены эвтектические характеристики систем с ингредиентами разрабатываемого альтернативного неуглерод овод ородного топлива (совместно с ВостНИИ г Кемерово): Ш4Ш3 — КЫОэ — 00(ЫН2)2, МЩЫОз — КШ3 — №Ш3, СО (1ЧН2)2 — КЖ)3 — ИаШ3, КЖ>3 — ЫН4Ы03 — Н20, ЫаИОз — Ш4Ш3 — Н20, КШ3 — ИаЫОз — Н20.

5. Применение электронного генератора: фазовых диаграмм в практике исследования? трёхкомпонентных физико — химических систем возможно с проведением единичного подтверждающего эксперимента или без такового, т.к. погрешность моделирования температуры и состава эвтектик по сравнению с данными эксперимента в исследованных системах составляет менее 2,5%.

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

7. Важным достоинством электронного генератора фазовых диаграмм является широкая область его применения: на солевых, водно — солевых, органических и металлических системах. Это позволяет использовать его при разработке конкурентоспособных на мировом рынке технологий по созданию новых материалов. Применение электронного генератора фазовых диаграмм даёт возможность перейти к принципиально новому виду электронных справочников с самостоятельной генерацией данных, с использованием его в исследовательской практике и учебном процессе.

Показать весь текст

Список литературы

  1. A.C. О методологии экспериментального исследования многокомпонентных солевых систем. // Многофазные физико-химические системы. Новосибирск: Наука, 1980. — Вып. 4431 — С. 35 — 73.
  2. A.C. Принципы формирования, разработка и реализация общего алгоритма исследования-многокомпонентных систем. / Ред. журн- прикладн. химии. Л., 1984. — 46 с. — Деп. В ВИНИТИ 26.11.84. № 7540−84.
  3. А. Г. Вопросы- комбинаторной геометрии5 выпуклых полиэдров в приложении- к физико-химическому анализу многокомпонентных систем: Дис. канд. тех. наук. М., 1970. — 130 с.
  4. А. С. Проекционно-термографический метод исследования? гетерогенных равновесий- bi конденсированных многокомпонентных системах: Дис-. канд. хим. наук. Куйбышев, 1977. — 207 с.
  5. М.А. Исследование многокомпонентных систем с участием хлоридов и i молибдатов S-эл ементов: Дис. канд. хим. наук. Куйбышев, 1982.- 170с.
  6. .А. Топология многокомпонентных гетерофазных систем из молибдатов, вольфраматов и других солей щелочных металлов: Дис.докт.хим.наук. Нальчик, 2001. — 306с.
  7. U.E. Исследование химического взаимодействия в- пятикомпо-нентной взаимной системе из девяти солей Na, К, Ва, || F, Мо04, W04 конверсионным методом: Дис. канд. хим. наук. Куйбышев, 1976. -255с.
  8. А.И. Моделирование равновесного состояния смесей фаз в многокомпонентных физико химических системах: Автореф.. д-ра хим. наук. — Новосибирск, 2003. — 39 с.25- Домбровская Н. С. Безводные и солевые многокомпонентные системы:
  9. J солевых систем с комплексообразованием (фторид-хлоридный обмен):
  10. Дис. д-ра хим. наук. Ростов, 1969. — 311 с.
  11. И. Г. Планирование эксперимента для исследования многокомпонентных систем. М.: Наука, 1974. — 390 с.
  12. В.И., Первикова В. Н., Волков В. Я., Стратилатов Б. В. Применение ЭВМ" при статистической обработке экспериментальных данных по* нонвариантным точкам диаграмм состояния} солевых систем //
  13. Бергман AlF. Химия-расплавленных солей- Проблемы Урало Кузбасского комбината. И. // Труды июньской сессии АН СССР, 1932. — Л.: Изд-во АН СССР, 1933.- С. 370 -388:
  14. А.Г., Нужная Н. П. Физико химические основы изучения и использования соляных месторождений хлорид-сульфатного типа. — М-: АН СССР, 1951. — 231с.
  15. LeChatelier H. De L' action de la chaleur sur its argiles // Bull. Soc. Frans, mineral., 1887. — № 10. — P. 204 — 211.
  16. LeChatelier H. Sur la dissotiation du carbonate de chaux. // C. R. Acad. Sei.Г Paris: 1886. — № 2 Г. — P. 102.
  17. J-fi 2 т. / Под ред. Н.К. Воскресенской- М.-Л.: АН СССР, 1961. — Т. 1: Двойные системы.- 845с.
  18. Справочник по плавкости систем из безводных неорганических солей. В 2 т. / Под: ред. Н-К. Воскресенской. М.-Л.: АН СССР, 1961. — Т.2: Системы тройные и более сложные. — 585с.
  19. Диаграммы плавкости солевЕ>гх систем: Справочник: В 6 т. / Под ред. В. И. Посыпайко, Е. А. Алексеевой:. М.: Металлургия- 1977. — Ч. 1: Двойные системы с общим анионом. — 416 с. г 42. Диаграммы- плавкости солевых систем: Справочник: В 6 т. / Под ред.
  20. В.И. Посыпайко. М.: Металлургия, 1977. — 4. II: Двойные системы собщим анионом. 303 с.
  21. Диаграммы плавкости солевых систем: Справочник: В 6 т. / Под ред. В. И. Посыпайко, Е.А. Алексеевой- Н. А. Васина. М.: Металлургия, 1979. — Ч. Ш: Двойные системы с общим катионом: — 208 с.
  22. Диаграммы плавкости солевых систем: Справочник: В 6 т. / Под ред. В. И. Посыпайко, Е.А. Алексеевой- М. Химия, 1977. Ч IV: Тройные системы. — 324 с.
  23. Диаграммы плавкости солевых систем: Справочник: В 6 т. / Под ред. В. И. Посыпайко, Е.А. Алексеевой- М.: Химия, Л977. Ч V: Тройные взаимные системы. — 392 с.
  24. Диаграммы плавкости солевых систем: Справочник: В: 6 т. / Под: ред. В. И- Посыпайко, Е. А. Алексеевой. М.: Химия, 1977. Ч VI: Многокомпонентные системы. -216с.
  25. .Г. и др. Диаграммы плавкости хлоридных систем: Справочник./ Коршунов Б. Г., Сафонов В. В., Дробот Д. В. JI.: Химия, 1972. — 384 с.
  26. .Г. и др. Диаграммы плавкости галогенидных систем переходных элементов: Справочник. / Коршунов Б. Г., Сафонов В. В., Дробот Д. В. М.: Металлургия, 1977. — 248 с.
  27. .Г. и др. Фазовые равновесия в галогенидных системах: Справочник. / Коршунов Б. Г., Сафонов В. В., Дробот Д. В. М.: Металлургия, 1979. — 181 с.
  28. Мохосоев М. В: и др. Диаграммы состояния молибдатных и вольфрамат-ных систем: Справочник. / Мохосоев М. В., Алексеев Ф. П., Луцык В. И. -Новосибирск: Наука, 1978- 319с.
  29. И.Н., Проценко П. И., Ильясов H.H., Трунил A.C. Андрей Георгиевич Бергман. Некролог // Журн. неорг. химии, 1974. -Т. 19: Вып. 6. -С. 1684 — 1687.
  30. В.В. Физико-химический: анализ- систем с участием- фторидов,. хлоридов и сульфатов щелочных металлов,.таллия и свинца. Дис. канд. хим. наук. Ростов н/Д, 1967. — 275 с.
  31. Д.В. Физико-химические исследования фторид-хлоридных систем из щелочных и щёлочноземельных металлов. Дис. канд. хим. наук. Ростов н/Д, 1968. — 275 с.
  32. А.Н. Фазовые равновесия в тройных молибдатных оксидно-солевых системах и получение двущелочных молибденовых бронз. Иркутск: 1987.- 175 с.
  33. Л.Г., Аносов В. Я. Определение теплот дегидратации методом? кривых нагревания // Журн. общей химии. 1942. — № 12. — С. 30.
  34. КС. Избранные труды в Зт. М.: АН СССР, 1963. — ТЗ. — 567с.
  35. Е.В. Метод количественного термического анализа для исследования фазовых равновесий конденсированных систем: Дис. канд. хим. наук. Самара: 1999. — 104с.
  36. Н.С., Берг Л. Г., Лепешков H.H. Применение метода кривых нагревания к исследованию характера природных солей // Журн. прикл. химии. 1939. — Т.12. — № 4. — С. 525.
  37. Н.С. Новый прибор для записи кривых нагревания // Журн. русск. физ. хим. об — ва. — 1904. — Т.36. — С. 841−848.
  38. БергЛ.Г., Цуринов Г. Г. Пирометр Н.С. Курнакова. М.: Изд. АН СССР, 1942. 98 с.
  39. А. С. и др. Исследование фазовых равновесий конденсированных систем методом: высокотемпературной калориметрии: Научное издание. / Космынин A.C., Кирьянова Е. В., Трунин А. С Самара: 1999 -53с.
  40. ДА. Необходимое и достаточное число разрезов для построения моновариантных кривых в тройных и четверных системах. // Журн. физич. химии. 1940. — Т. 14. — С. 1498 — 1508.
  41. Д.А. Применение метода конод к построению моновариантных кривых в системах трёх- и четырёхкомпонентных эвтектических смесей с твёрдыми растворами. // Журн. физич. химии. 1941. — Т. 15. — С. 500 — 509.
  42. БергЛ.Г. Введение в термографию. М.: Наука, 1969. — 395 с.
  43. У. Термические методы анализа М.: Мир, 1978. — 526 с.
  44. В.П. Введение в термический анализ. Самара: 1996. — 270 с.
  45. Р.Л., Вавилов И. С., Лях О.Д. Термографические установки для проведения физико-химических исследований. // Журн. физич. химии. -1967. Т. 41. — Вып. 9. — С. 2399 — 2401.
  46. A.C., Дзуев А. Д., Бурлаков В.К и др. Быстродействующие установки ДТА // Тез. докл. республ. конф «Физ.хим. основы переработки минерального сырья в Киргизии». Фрунзе, 1975. — С. 125−127.
  47. A.C., Мощенский Ю. В., Космынин A.C. Установка диффенциаль-ного термического анализа ДТАП-1м: Инф. листок ЦНТИ № 162−31/77. -Куйбышев, 1977. С. 1−2.
  48. A.C., Мощенский Ю. В. Термоанализатор ДТАП-3: Инф. листок
  49. ЦНТИ № 487−78.- Куйбышев, 1978: С. 1 — 3.
  50. A.C., Мощенский Ю.В. Программно-регулирующее устройство
  51. ДТЛП-003: Инф. листок № 487−78 ЦНТИ. Куйбышев, 1978. — С. 1- 2.72: Л.с.776 225 СССР. Устройство для дифференциального термическогоанализа / В. Л. Вертоградский, А. С. Трунин, Ю. В. Мощенский и др.
  52. В.И., Трунин A.C., Космынин A.C., Штер Г, Е. Проекционно -термографический метод исследования тройных и тройных взаимных1. систем//Докл. ЛН СССР. 1976. — Т. 228. — № 4. — С. 811 -813.
  53. A.C., Космынин A.C. Проекционно термографический метод исследования гетерогенных равновесий? в конденсированных многокомпонентных системах. — Куйбышев: КПТИ, 1977. — 68с. — Деп в ВИНИТИ 12.04.77, № 1372−77.
  54. Т. Т. Исследование взаимодействия в- пятикомпонентной системе Na, К, Ca // F, М0О4, WO4: Дис. канд. хим. наук. Куйбышев, j 1979.-213 с.
  55. И.К. Исследование пятикомпонентной взаимной системы из хлоридов, молибдатов и вольфраматов натрия, калия и кальция. Дис.канд. хим. наук. Куйбышев, 1979. — 239 с.
  56. Л.М., Физико-химическое исследование пятикомпонентной системы взаимной системы Na, К, Ca // F, Cl, WO4 из девяти солей:"Ш
  57. Дис.канд. хим. наук. Куйбышев, 1981. — 238с:78:. Трунин A.C., Космынин: A.C., Петрова Д. Г. Исследование системы К, Ва // СЦ М0О4 проекционно-термографическим методом. // Украинский хим. журнал. 1980. — Т. 46. — № 1. — С. 39−43.
  58. Прогнозирование химического взаимодействия в системах из многих компонентов. / Посыпайко В. И., Тарасевич С. А., Трунин A.C., Космынин A.C. и др. М.: Наука, 1984. — 215 с.
  59. Г. О. Введение в теорию термического анализа. М.: Наука, 1964.- 232с.
  60. Егунов Я Я. Некоторые усовершенствования методики количественного термического анализа: Дис. канд. хим. наук. Казань, 1969. 146 с.
  61. Л.Г. Об измерении площадей на термограммах для количественных расчётов и определений теплот реакций // Докл. АН СССР. 1945. — № 9: — С. 672 — 675.
  62. НЛ., Архангельский Л. С. О некоторых вопросах методики термического анализа // Труды 5 Сов. по экспер. техн. минерологии и петрографии. М.: АН СССР, 1958. — С. 88- 96.
  63. H.A., Бессонов В. В. Бесконтактный метод количественного термического анализа и: его возможности. В сб. ст. «Теоретические И- экспериментальные исследования — диаграмм состояния * металлических систем». М.: Наука, 1969. — С. 183 — 186.
  64. Л. Г. Ясникова Т.Е. Термографическое определение тепловых эффектов полиморфных превращений // Журн. неорган, химии. 1966. -№ 9. — С. 886.
  65. Л.Г., Егунов В. П. Принципиальные основы расчёта тепловых эффектов методом дифференциально термического анализа // Журн. физич. химии. — 1969: — № 10: — С. 2602 — 2604.
  66. В.П., Хомская А. Г., Зимин Г.П: Калориметрия в термическом анализе:/ Тр. Всесоюзн. семинара по терм, анализу. Куйбышев, 1987. -С.59- 65.
  67. A.C., Кирьянова ЕВ, Трунин A.C. Калориметрический метод определения эвтектических точек в двухкомпонентных системах. // Журн. неорган, химии. 1999: — Т. 44. — № 2. — С. 280 -285.
  68. Е.В., Космынин A.C. Трунин A.C. Определение параметров эвтектических точек в тройных системах. // Ред. журн. прикладн. химии. -Спб., 1997. 15 с. — Деп. В ВИНИТИ 26.12.97, № 3797 — В97.
  69. Введение в калориметрию гетерогенных равновесий: Учеб. Пособие. / Космынин A.C., Кирьянова Е. В, Трунин A.C., Мощенский Ю. В. Самара: СамГТУ, 1997. -35 с.
  70. Ю.В. и др. Система термического анализа для калориметрических исследований: Научное издание. / Мощенский Ю. В., Трунин А. С., Космынин А. С. Самара: 1999. — 64с.
  71. Ю.В., Трунин А. С., Измалков А:Н. Сканирующие микрокалориметры? для физико-химического анализа // Тез. докл. VI11 Всесоюзна совещ. по физ.-хим. анализу. Саратов, 1991. — С. 46.
  72. А.С.№ 1 376 019 (СССР) Устройство для дифференциального термического анализа: / Мощенский Ю. В, Трунин А.С.
  73. Ю.В. Информационно-измерительная система термического анализа: Дис. канд. техн. наук.-Самара, 1998. -83с.95- Мощенский Ю. В., Трунин А. С. Приборы для термического анализа и калориметрии: Инф. листок № 464−89. Куйбышев: ЦНТИ, 1989. — 3 с.
  74. Пуанкаре Анри: О науке- М: Наука, 1990. 736с.
  75. .Я. К расчёту простейших диаграмм равновесия бинарных сплавов // ЖЭТФ. 1943. — Т.13. — № 11−12. — С.411 — 417.98- Палкин А. П. Взаимосвязь и- развитие тройных и четверных взаимных систем в расплавленном состоянии. Харьков: ХГУ, I960.- 338 с.
  76. Г. В., Романенко В. Н. Расчёт фазовых диаграмм? некоторых полупроводниковых систем // Изв. АН СССР: Металлургия и горное дело. 1964. — № 6. — С. 156- 1601
  77. В.М. Расчет концентраций нонвариантных точек в тройных солевых системах.// Журн. физ. химии. 1966. — Т. 40. — С. 912−917
  78. Л., Бернстейн X. Расчёт диаграмм состояния? с помощью ЭВМ: М.: Мир, 1972.- 326с.
  79. A.B., Василъкова ИВ: О"зависимости температура?- состав вдоль, эвтектических кривых составов тройных систем. Вывод уравнений- Расчёт эвтектических температур для ¡-тройных солевых систем. // Журн: физ. химии. 1971.- Т. 45.- С. 745, 1250.
  80. A.B., Василъкова И. В. Некоторые вопросы термодинамики тройных систем- // Вопросы-термодинамики гетерогенных систем и теории поверхностных явлений. JI.: Изд-во ЛГУ, 1973. Вып.1. С. 3 — 51, 97- 123.
  81. В.И., Кощеев Г. Г. Построение линий ликвидуса эвтектической системы Mg(P03)2 М0О3. / Рукопись ден. В Черкас. Отд. НИИТЭХим, № 430/75 Деп. 4 с.- цит. по РЖХ им, 1975, 13Б885.
  82. Прогнозирование химического взаимодействия в системах из многих компонентов. / Посыпайко В: И, Тарасевич С. А. и др. М.: «Наука», 1984.-215с.
  83. A.C., Лосева М. А., Еремеев Е. А., Лукиных В:А. Автоматизация расчета нонвариантных точек трех- и четырехкомпонентных систем // Ред. Журн. прикл. химии РАН. 1998. — 15 с. — Деи. в ВИНИТИ 14.05.98, № 1485−98.
  84. В.Д., Труним A.C., Куперман В. Д., Ефимова Г. А. Расчет тройных эвтектических систем по методу Сусарева-Мартыновой с использованием ЭВМ: // Журн. прикл. химии. 1982. — Т. 55. — Вып. 10. — С. 2237 -2241.
  85. Трунин А: С., Андреев Е. А, Юлина И В, Моргунова O.E. Система-карбамид вода. //Тр. 5-й Междун. конф. молодых ученых и студентов «Актуальные проблемы современной: науки». — 4:12: Физико-химический анализ. — Самара, 2004. — С. 139−141.
  86. A.C., Юдина И. В. Политерма кристаллизации системы сахарозавода. // Тр. 5-й Междун. конф. молодых ученых и студентов «Актуальные проблемы современной науки». Ч. 12: Физико-химический анализ. -Самара, 2004.-С. 146−148.
  87. В.Б. и др. Справочник растворимости в 3-х томах. / Коган В. Б., Фридман В. М., Кафаров В. В. М.-Л.: АН СССР, 1961.
  88. Термические константы веществ: Справочник в 26 т. / Под ред. Глушко В. П. и др. М.: АН СССР, 1968.
  89. Е.И. Упрощенный расчёт навесок компонентов при исследовании соляных систем методом плавкости или растворимости. // Изв. сектора физ. хим. анализа АН СССР. — 1955. — Т.26. — С. 91.
  90. A.C., Проскуряков В. Д. Расчёт многокомпонентных составов. // Ред. Журн. прикл. химии. Л., 1982. — 57 с. — Деп. в ВИНИТИ 3.11.82, № 5441- 82.
  91. A.C., Мощенская Е. Ю. Расчёт составов многокомпонентных систем. // Тр. 5-й Междун. конф. молодых ученых и студентов «Актуальные проблемы современной науки». 4.12: Физико-химический анализ. -Самара, 2004.-С. 162- 165.
  92. К. Аккумулятор знаний по химии. М.: Мир, 1985. — 65 с.
  93. Св-во об офиц регистрации программы? для ЭВМ1 «Моделирование нонвариантных точек трехкомпонентных эвтектических систем» № 2 005 611 159 от 19.05.2005./ Трунин А. С, Мощенская Е. Ю., Будкин A.B., Моргунова O.E., Климова М. В:
  94. А. Г, Кислова А. И., Посыпайко В. И. Исследование тройных систем из хлоридов, сульфатов и вольфраматов лития и калия. // Журн. общей химии. 1955- - Т.25. — вып.Г.- С. 12.
  95. В .Т., Бухалова Г. А. Тройные системы из фторида стронция и фторидов щелочных металлов. // Журн. неорган, химии. 1960. — Т 5. -Вып 4.-С. 925, С. 2061.
  96. H.H., Бергман А. Г. Диаграммы состояния тройных систем из хлоридов, фторидов и карбонатов калия и натрия. // Доклады АН СССР. 1940. — Т. XXVII. — № 9. — С. 967−969.
  97. П. И: II Уч. зап. ростовск. н/Д гос. унив., Тр. хим. фак. — 1951. -Вып. 5. С. 97.
  98. Г. А., Шегурова P.A., Ягубьян Е. С. Взаимодействие галогени-дов цезия в тройных системах // Журн. неорган, химии. 1973. — Т.18. -Вып. 9.-С. 2578.
  99. Бережная В Т., Бухалова Г. А. Четверная система из фторидов лития, натрия, 1 калия и стронция: Дис. канд. хим.наук. Ростов н/Д-, 1967. — 263 с.
  100. А.Г., Дергунов Е. П. Диаграмма плавкости системы LiF KF -NaF // Докл. АН СССР. — 1941. — T. XXXI. — № 8. — С. 752−753.
  101. А.Г., Санжаров А. А. Система Na // СОз, СЮ4, SO4. // Украинский? химии, журнал. Киев: АН Украинской ССР, «Наукова думка», 1970.- Т. 36.- Вып.4. — С. 348−349.
  102. А.Г., Труннн А. С., Гасаналиев А. М. Тройная система из хлорида, сульфата и пирофосфата натрия: // Журн.неорган.химии. 1968. — T. XIII.- Вып.12. С. 3399−3400.
  103. В. Т., Бухалова Г. А. Тройные системы из фторида стронция и фторидов щелочных металлов. // Журн. неорган, химии. i960.- Т 5. -Вып 4.-С. 925, 2061.
  104. А.Ф., Домбровская Н. С. Исследование плавкости четверной взаимной системы роданидов, хлоридов и сульфатов натрия и калия // Журн. неорган, химии. 1962. — Т. 7. — Выи.1. — С. 177.
  105. Г. А., Бережная В. Т., Бергман А. Г. Тройные системы из фторидов кальция, бария и щелочных металлов. // Журн. неорган, химии. -1961.-T. VI.-Вып. 10.-С. 2359−2363.
  106. Г. А., Сулайманкулов К., Бостанджиян А. К. Диаграмма плавкости системы их фторидов лития, натрия и кальция. // Журн. неорган, химии. 1959.-T. IV.-Вып.5.- С. 1138- 1140.
  107. Зейделъ А: Н. ошибки измерения физических величин. Л.: Наука, 1974. -108 с.
  108. А. С., Петрова Д. Г. Критический анализ температур плавления реперных веществ для6термоаналитических исследований- Куйбышев: КПтИ, 1977.- 8 с. — Деп. в ВИНИТИ 1977, № 751 — 77.
  109. Прибор для определения^температуры плавления типа ПТП1 / ЦИИИТЭ-приборостроения. М., 1971. — 11 с.
  110. A.C. и ф. Установка низкотемпературного визуально политермического анализа: Методич- разработка. / Трунин- A.C., Андреев Е. А., Климова М. В. — Самара, 2004- - 16 с.
  111. Н.П. и dp: Комплексный-термический? анализ. / Бурмист-рова Р1.П., Прибылов К. П, Савельев В. П. Казань: КГУ, 1981. — 109 с.
  112. Шестак Я: Теория термического анализа. М.:Мир, 1987. — 455 с.165- Картотека ASTM 4−0793
  113. О. И Z. anorg. Ch. 1911.- № 72. — P. 162.
  114. Lamplough F.E.E.Il Proceedings of the Cambridge Phylos. Soc. 1912. — № 16.-P. 193.
  115. F. С., Page R.A. U J. Soc. Chem. Ind. 1920. — T. 37. — P 39.
  116. Scholich К. II Neues Jahrb. Mineral., Geol., Palaontol., beil. Band. 1920. -№ 43. — P. 251 170- Sato T., Amano T. II Kinzoku no Kenkyu. 1934: -№ 11. — P. 5744.
  117. А.Г., Павленко С.П. II Докл. АН СССР. 1940. — № 27. — С. 970.
  118. И.Н., Сигида НЛ. Н Журн. неорган, химии. 1957. — Т.2: — С. 1119.173: Горячева В.77., Бергман А. Г., Кислова А. И. II Журн. неорган, химии. 1959.-Т. 4.- С. 2744.
  119. Tipton С. R: / Reaktor handbook materials. Second edition. N. Y, 1960. — P. 439!
  120. J. L. // Acta Ghem. Scand. 1965.- V.19. — № 3. — P. 638
  121. Matiasovsky K., Cakajdova I., Malinovsky M. И Chem. Zvesti. 1965. — V.19. -P. 513
  122. M.А., Вольхипа Т.Д. II Ученые зап. Мордовск. гос. ун та. Серия хим. наук. — 1971. — № 81. — С. 11.178: Химическая энциклопедия. В 3 т. М.: «БСЭ», 1992. — Т.З.
  123. Газета «Поиск» 2004. От 26 марта. — № 12(774).- С. 7.
  124. Менделеев ДМ Собр. соч: в 12 т. Л.-М.: АН СССР, 1949. — Т.9. — C.523L
  125. Пат. 2 230 917 (Россия) от 12.08.02 Способ получения- рабочего тела для* тепловых машин. / Макаров А. Ф., Долженко В. А., Трунин A.C. Запись в Госреестре 20.06.041
  126. А.Ф., Трунин A.C. Альтернативные азото-водородные топлива и окислители. // Известия Самарского научного центра РАН. Спец. выпуск «Химия и химическая технология». Самара, 2004: — С. 130−142.
  127. Актуальные проблемы современной науки". 4.12: Физико-химический анализ. — Самара- 2004. — С. 150−152.
  128. A.C., Моргунова O.E., Юлина И. В., Макаров А. Ф. Система К, Na// NO3 — Н20. // Тр. 5-й Международной конференции молодых ученых и студентов «Актуальные проблемы современной науки». 4.12: Физико-химический анализ. — Самара, 2004! — С. 160−161.
  129. O.E., Моргунов A.A. Об экономической эффективности научной деятельности. // Тр. 1-й: Международной конференции молодых ученых и студентов «Актуальные проблемы современной — науки». 4.5: Экономика. — Самара, 2000. — С. 48.
  130. А.Г., Трунин А. С., Казначеева К.Ф: Тройные системы из фторидов и пирофосфатов натрия и калия.// Журн. неорган, химии. 1967.- Т 12. -Вып 8. — С. 2214−2215.
  131. А.Г., Трунин A.C. Системы Na // CI, СЮ4, Р207 и К // Gl, Сг04, Р207. II Журн. неорган, химии. 1967.-Т 12.-Вып. 10. — С. 2868 — 2870.
  132. А.Г., Казначеева К. Ф., Трунин A.C. Система Na, К // CI, Р207. // Журн. неорган, химии. Т 12. — Вып.1 Г. — 1967. — С. 3175 — 3177.
  133. Бергман А: Г., Трунин A.C., Казначеева К. Ф. Четверная взаимная система из фторидов, хлоридов=и пирофосфатов * натрия и: калия. // Известия <, Сибирского отделения Академии наук СССР. Наука, Сибирское отделение.- 1967.-С. 37−42.
  134. А.Г., Трунин A.C. Диагональные сечения системы Na, К // F, С1- Р207. // Журн. неорган, химии. 1968. — Т 13. — Вып.6. — С. 1709- 1710.
  135. А.Г., Гасаналиев A.M., Трунин A.C. Система Na // В407, РОЗ, Р207. // Журн. неорган, химии. 1969. — Т 14. — Вып.6. — С.1681 — 1684.
  136. А.Г., Гасаналиев A.M., Трунин A.C. Тройная система Na // С1,
  137. S04, РОЗ. //Журн. неорган, химии. 1969. — Т 14. — Вып. 11. — С. 31 743 175.
  138. А.Г., Высоцкий В. М., Гасаналиев A.M., Трунин А. С. Система Na, Ca-// S04, РОЗ. // Журн. неорган, химии. 1970.- Т 15. -Вып.З. — С. 817 -819.
  139. Н.П., Лисов Н.И-, Трунин A.C., Штер Г. Е. О твердофазной реакции хлорида бария с сульфатом рубидия. // Журн. неорган, химии.1973.-Т 18.-Вып.З.-С. 1367- 1371.
  140. Н.П., Лисов И. И., Трунин A.C., Штер Г. Е. Твердофазные реакции между хлоридом бария и солями щелочных металлов. // Изв. ВУЗов. Сер. «Химия и химическая технология». 1973. — Т 16. — Вып. 9. -С. 1317- 1320.
  141. Н.И., Бурмистрова Н. П., Трунин A.C., Штер Г. Е. Термический анализ системы Cs, Ва // CI, S04. // Украинский химич. журнал.. Киев, 1974. — Т XL. Вып.6. — С. 603 — 607.
  142. В.И., Трунин A.C., Мифтахов Т. Т., Гасаналиев A.M., Гарку-шин И.К. Термический анализ системы Na, Ca // F, Мо04. // Украинский химич. журнал. Киев, 1976. — Т XLII. Вып. 7. — С. 687 — 691.
  143. А.С., Бухалова Г. А., Петрова Д. Г., Гаркушин И. К. Термический анализ системы Na // F, Gl, Мо04- // Журн. неорган химии. Т 21, вып. 9. 1976. G. 2506 -2510.
  144. A.C., Гаркушин И. К., Дацюк С. А. Термический анализ системы К, Ca // Мо04, W04. // Журн. неорган химии. Т 21, вып. 10. 1976. С. 2770 -2773.
  145. В.Т., Бухалова Г.А Четверная система из фторидов лития, натрия, калия и стронция. // Журн. неорган химии. Т 5, вып.9. I960. С. 2061−2070.
  146. ПосыпайкоВ.И, Трунин A.C., Космынин A.C., Штер Г. Е. Проекционно -термографический метод исследования тройных и тройных взаимных систем. // Докл. АН СССР. Т 228, № 4. 1976. С. 911 913.
  147. A.C., Васильченко JI.M. Термический анализ стабильного сечения системы проекционно термографическим методом. — Куйбышев: КПтИ. Деп. в ВИНИТИ, № 3388 — 76. 1976.
  148. А. С., Xumpoea JJ.M. Определение характеристик четверных эв-тектик проекционно термографическим методом. // Украинский химический журнал. Т XLIII, вып. 3. — Киев, 1977. С. 256 — 259.
  149. A.C., Космынин A.C. Определение характеристик моно- и нонва-риантных равновесий в четверных конденсированных системах проекционно — термографическим методом. ВИНИТИ. Люберцы: 1981. С. 33 — 47.
  150. Термограммы исследования аммиачной селитры 1ЧН4МОз марки «х.ч.» и «ч.» на калориметре ДСК-500 конструкции Ю.В. МощенскогоdT, oxc4.1 000 400 500 600' 700 800 900 1000 1100: 1200 = 1300 1400 1500 1600 t, ceк.
  151. Исследование NH4NO3 марки «х.ч.» на ДСК-5001. NH4N03 (чистый)-1200 -1 400 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 t, сек.
  152. Исследование NH4NO3 марки «ч.» на ДСК-500
  153. N3 С1, Сг04. Р207 11 16 556 К С1 Сг04, Р207 11 16 557 № || С1, 804, Р207 8 120
  154. Ыа || Б04, В407, Р207 22 330
  155. Иа|| В407, РОз, Р207 27 254
  156. Иа || С1, 804, РОз 6 90
  157. Ыа | Р. С1. Мо04 11 11 762 Ыа || Р, С1. Р207 5 93
  158. Ыа, К, Са, Ва Р 10 95 1251
  159. Ыа, К, Са, Ва | С1 11 123 1736
  160. В среднем 10,5 109 1493,51. Пятерные
  161. Ыа, К, Са, Ва Р, С1 33 345 4388
  162. Na2W04*(NaF)2- Na2W04*K2W04 Na2W04*(NaCl)2 17
  163. CaW04*CaF2- CaW04*CaCl2 CaW04*(KCl)2 258: (NaF)2*(NaCl)2 (NaF)2*(CaF2) — (NaF)2*Na2W04 21
  164. NaW04*(NaCl)2 Na2W04*CaW04 — Na2WO.,*(NaF)2 1610. (NaF)2*(KF)2*CaF2 (NaF)2*(KF)2*K2W04 -(NaF)2 * (KF)2 * (КС 1)2 1511. (NaF)2-(KF)2-CaF2 2412: K2Mo04 CaMo04 — BaMo04 1713- (KC1)2- CaMo04 BaCl2 13
  165. CaMo04*(KCl)2 CaMo04*BaCl2- CaMo04*CaCI2 31
  166. CaJVlo04*K2Mo04 CaMo04*BaMo04 — CaMo04*(KCl)2 19
  167. CaMo04 — (NaCl)? ВаМо04 1017. (NaCl), СаМо04 — ВаСЬ 16
  168. CaMo04*(NaCl)2 СаМо04*ВаМо04 — СаМо04*ВаС12 15
  169. CaMo04*(NaCl)2— СаМо04*ВаМо04 CaMo04*Na2Mo04 14
  170. СаМо04*СаС12 CaMo04*(NaCl)2- СаМо04*ВаСЬ 821. Ва // F. Cl. W04 581. В среднем 19
  171. Фрагмент листинга прграммыtype
  172. TDBaseType = // тип текущей БД
  173. DBaselKlA=l, //**" 1К//1А DBase2KlA = 2, //*** 2К// IA, 1К//2А DBase3KlA = 3, II*** ЖII1А, IK//ЗА DBase2K 2А = 4, //""• 2К//2А DBase3K2A = 5 II*** ЗК//2A, 2K//3 A) —
  174. TSmejMatrix = record // матрица смежности1. ems: array 1.14. ofarray[ 1.14 ] of boolean- end-
  175. TCoords = record // матрица координат Items: array 1. Л4. of TPoinr, end-
  176. TSkeletGraf = record // скелет графа
  177. VertexCount: integer, // количество вершин SmejMatrix: TSmejMatrix- //матрица смежности Coords: TCoords- // матрица координат end-
  178. TDBaseIKlARecord «record // тип записи БД DBase 1 K1 A
  179. FieldSystemName: string100.- // название (формула) системы FieldDeltaHF: strlng[ 100]- // AHf FieldDeltaGF: strlng[100]-//AGf Fields: string[100]- // S FieldT: string[100]- 111 FieldDeltaH: strlng[100]-//ДН FieldDeltaS: string[100]- // AS end-
  180. TDBase2K2ARecord = record // тип записи БД Dbase2K2A FieldSystemName, //название системы
  181. FieldDoubleOrGeteroConnections //двойные или гетеросоединенияstring200.- FieldSystemSkeletGraf: TSkeletGraf- II скелет end-
  182. TDBase2KlARecord = record // тип записи БД Dbase2Kl, А FieldSystemName, II название системы FieldObozn, II обозначение
  183. FieldTemperature, II температура °C FieldConsistEqualPercent, II состав экв. % FieldHardPhase II твердые фазы: string200.-end-const DBaseFileNames: array 1.5. of string = // имена файлов
  184. DBaselKlA.dat1, II*** IK II 1A
  185. DBase2K lA. daf, II*** 2K // 1A, IK // 2A
  186. DBase3KlA.dat', II*** ЗК // 1A, IK // ЗА
  187. T)Base2K2A.daf, II*** 2K//2A
  188. T)Base3K2A.daf //*¦» ЗК // 2A, 2K // ЗА
  189. AnionKationTableLength = 14- // длина таблицы валентностей анУкат. AnionKationValentnost: // таблица валентностей анУкат. array l.AnionKationTableLength, 1.3. of string" (('Li', •К'.Ч'), CNa', •K*,'l'). (ТС. 'K', '1'), CCa', 'K', *2'), ('Ba', -K'.T),
  190. CMg*. 'KM'), ('P. 'A', '1'), ('CI', 'A'.T), (W, 'A', T), (T, 'А', 'Г), (•N03', 'AT), ('S04', 'A', 1'), ('W04'f 'A', 1'), («МоСИ', 'A', T))-var
  191. CurrentDBaseType: TDBaseType = DBaselKJA- // тип текущей БД CurrentDBaseRecordsCount: integer 0- // кол.-во записей в текущей БД CuirentRecordlndex: integer = -1- // номер текущей записи
  192. DBaselKlARecord: TDBaselKl ARecord- // тек. запись для БД DBaselKlA DBaselKlAFiIe: file of TDBase 1 KlARecord- // имя набора данных БД DBaselKJ А
  193. DBase2K2ARecord: TDBase2K2ARecord- // тек. запись для БД Dbase2K2 А DBase2K2AFile: file of TDBase2K2ARecord- // имя набора данных БД Dbase2K2A
  194. DBase2KlARecord: TDBase2KlARecord- // тек. запись для БД Dbase2Kl, А DBase~2K~lAFile :file of TDBase2KlARecord-// имя набора данных БД Dbase2KlА
  195. DBase3Kt ARecord: TDBase2K2ARecord- // тек. запись для БД Dbase3Kl, А DBase~3Kl AFile: file of TDBase2K2ARecord- // имя набора данных БД Dbase3Kl Аunit ProgrDifferent- interfaceuses
  196. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Buttons, ExtCtrls, StdCtrls, Grids, DBGrids, DBCtrls, DB, DBTables, Grapf, Menus, Progr^About- const
  197. Shablon:array 1 .6,1 .6. of integer- ((1,1,1,0,1,0), (1,1,0,1,0,1), (1,0,1,1,1,1), (0,1,1,1,0,1), (1,0,0,0,1,1), (0,1,0,1,1,1))-type1. Menge = set of 1.11-
  198. Massiv = arrayfl. 1024. of Menge-
  199. Mas0tv = array1.1024,l.l 1. of integer-
  200. TForml = class (TForm) ToolBarPanel: TPanel- SpeedButtonl: TSpeedButton- SpeedButton2: TSpeedButton- SpeedButton3: TSpeedButton- GroupBoxl: TGroupBox- GroupBox2: TGroupBox- Panell: TPanel- DBGridl: TDBGrid-
  201. Private declarations} public1. Public declarations} end-var
  202. Forml: TForml- StringGrid 1: TStringGrid- DlinaRec: real- FIagJPaint: booIean-ij^^n, ButtonWidth, ButtonHeight, IndexMasBeginEl, IndexAnions, IndexKations: integer, 1. D, NumberD: integer-1. TekButton: TWinControl-
  203. MasBeginEl:array1.10. of string-
  204. MasEI:array1.10. of string-
  205. MatrSmeg:array 1. 11,1. 11 .of byte- Matr: array[ 1. 11,1. 11 ]of byte- RazmMatrici: integer- It MasTochekX, MasTochekY: anay[ 1 .50] of integer-
  206. TI x, T2x, T3x, T4x, T5x, T6x, T7x, T8x, T9x, T 10x, T39x, T95x, T35x, T4I0x, T46x, T! 06x: integer- Tly, T2y, T3y, T4y, T5y, T6y, T7y, T8y, T9y, T10y) T39y, T95y, T35y, T410y, T46y, T106y: integer-
  207. Tl 3x, T 12x, T24x, T34x, T56x, T57x, T68x, T78x: integer, T13y, T12y, T24y, T34y, T56y, T57y, T68y, T78y: integer- implementation$R DFM}procedure TFonnl. FonnShow (Sender. TObject)-var ijrinteger-begin1. N2. Checked:=true-
  208. ToolBarPanel.Height:=Form 1. ClientHeight div 23-
  209. GroupBox l. Top:= ToolBarPaneLHeight+3- GroupBoxl. Widths round ((Forml.ClientWidth-6)/l.5) — GroupBoxI. Height:13 Forml. ClientHeight-GroupBoxl.Top-3-
  210. GroupBox2.Left:= 3+GroupBoxl.Width+5- GroupBox2. Top:=» GroupBoxl. Top- GroupBox2. Width:= Forml. ClientWidth-GroupBox2.Lefl-3- GroupBox2. Height:= GroupBoxl. Height-1. Panel l. Left:= 3-
  211. Panel l. Top:= GroupBoxl. Top-
  212. Panel l. Width:= GroupBoxl. Width-6-
  213. Panell .Height:= round (GroupBox I. Height/2.2)-1. PaintBox 1 .Left:=0−1. PaintBox l. Top:=0-
  214. PaintBox 1. Widths Panell.Width-
  215. PaintBox 1. Height:=Panel 1. Height-1.bell.Left:= 3−1.bel I .Top:= Panel 1 .Top+Panel 1. Height+3- Labell. Width:= GroupBoxl. Width-6- Label 1. Height:=ToolBarPanel.Height-1. DBNavigatorl .Left:= 3-
  216. DBNavigator I .Top:= GroupBox2. Height-ToolBarPanel.Height- DBNavigator 1. Width:" GroupBox 1. Width-6- DBNavigator 1. Heights ToolBarPanel.Height-3−1. DBGridl. Left:= 3-
  217. DBGridl .Top:= Labell .Top+Label 1. Height+3- DBGridl. Width:= GroupBox I. Width-6-
  218. DBGridl.Heights GroupBoxl. Height-DBGridl.Top-DBNavigatorl.Height-3−1. Memol. Left:= 3−1. Memol. Top:= DBGridl. Top-
  219. Memol.Width:= GroupBox2. Width-6-
  220. Memo 1. Height:= GroupBox 1. Height-Memo 1 .Top-3-
  221. GroupBox3.Left:= 3- GroupBox3. Top:= GroupBox2. Top- GroupBox3. Width:= GroupBox2. Widtlw5- GroupBox3. Height:= Panel 1. Height-
  222. Button Width:=3 «TooIBarPaneLHeight- ButtonHeight:^ ToolBarPaneLHeight-
  223. Button9.Left:= (PaintBox 1. Width div 2KButtonWidth div 2) — Button9. Top:=i 3- Button9. Width:= ButtonWidth- Button9. Height:= ButtonHeight-
  224. Button 10. Left:= (PaintBox 1. Width div 2>(ButtonWidth div 2) — Button 10. Top:= PaintBoxl. Height-ButtonHeight-6- Button 10. Width:= ButtonWidth- ButtonlO. Height:= ButtonHeight-
  225. Button I .Left:= round (PaintBox I. Width/5>Button Width-3- Buttonl. Top:= (PaintBoxl.Height div 3> (ButtonHeight div 2) — Button l. Width:= ButtonWidth- Button 1. Height:® ButtonHeight-
  226. Button2.Left:= round (PaintBoxl .Width/5)-ButtonWidth-3- Button2. Top:= round (PaintBox 1. Height/1.5> (ButtonHeight div 2) — Button2. Width:= ButtonWidth- Button2. Height:= ButtonHeight-
  227. Button7.Left:=» PaintBox 1. Width-round (PaintBox 1. Width/5)+3-- Button7. Top:= (PaintBox 1. Height div3> (ButtonHeight div 2) — Button7. Width:= ButtonWidth- Button7. Height:=* ButtonHeight-
  228. Button8.Left:"= PaintBoxl. Width-round (PaintBox 1. Width/5)+3- Button8. Top:= round (PaintBox 1. Height/1.5> (ButtonHeight div 2) — Button8. Width:= ButtonWidth- Button8. Height:= ButtonHeight-
  229. DlinaRec:=PaintBoxl.Width-2*round (PaintBoxl. Width/5) —
  230. Button3.Left:= round (PaintBoxl.Width/5)+round (DlinaRec/3>ButtonWidth-3- Button3, Top:= PaintBoxl. Height div 3-ButtonHeight-3- Button3. Width:≥ ButtonWidth- Button3. Height:" ButtonHeight-
  231. Button4.Left:= round (PaintBoxl.Width/5)+round (DlinaRec/3)-ButtonWidth-3- Button4. Top:= Round (PaintBoxl.Height/1.5)+3- Button4. Width:= ButtonWidth- Button4. Heigfafc= ButtonHeight-
  232. Button5.Left:= round (PaintBoxl.Width/5)+round (DlinaRec/l .5)+3- Button5. Top:= PaintBoxl. Height div 3-ButtonHeight-3- Button5. Width:= ButtonWidth- Button5. Height:= ButtonHeight-
  233. Button6.Left:= round (PaintBox 1.'Width/5)+round (DlinaRec/1.5)+3- Button6. Top:= Round (PaintBox 1. Height/1.5)+3- Button6. Width:= ButtonWidth- Button6. Height:= ButtonHeight-
  234. SpeedButton 1. Enabled:=False-
  235. DlinaRec:=PaintBox I. Width-2*round (PaintBox I. Width/5) —
  236. Tlx:=roimd (PainlBoxl.Width/5)-Tly:=PaintBoxl.Height div 3- T2x:=Tlx-T2y:=Round (PaintBox 1. Height/1.5) — T3x:-Tound (PaintBoxl.Width/5)+Tound (DlinaRec/3)-T3y:=Tly- T4x:=T3x-T4y:=T2y-
  237. T5x:"=round (PaiiitBox 1. Width/5)+T0und (DlinaRec/1.5)-T5y-=T 1 y- T6x:=T5x-T6y:=T2y-
  238. T7x:~PaintBoxl.Width-round (PaintBoxl.Width/5)-T7y:=Tly- T8x:"T7x- T8y:=T2y-
  239. T9x:=PaintBoxl. Width div 2-T9y:=ButtonHeight+6- T 10x:=T9x-T 1 Oy:=Button 1O. Top-3-
  240. T39x:=(T3x+T9x) div 2- T39y:=(T3y+T9y) div 2- T95x:=(T9x+T5x) div 2- T95y:=(T9y+T5y) div 2- T35x:=(T3x+T5x) div 2- T35y:=(T3y+T5y) div 2-
  241. T410x:=(T4x+T10x) div 2- T410y:=(T4y+T10y) div 2- T46x:= (T4x+T6x) div 2- T46y:=(T4y+T6y) div 2- T106x:=(Tl0x+T6x) div 2- T106y:=KT10y+T6y) div 2-
  242. StringGridl.Left:-5- StringGrid 1 .Top:=20-
  243. StringGrid 1. Width:=GroupBox3 .Width-10- StringGridl. Height:=GroupBox3.Height-25-end-procedure TForml. PaintBoxlPaint (Senden TObject)-var ij: integer-procedure OpredPozLine (a, b: integer) — begin
  244. Forml.PaintBoxl.Canvas.Pen.Color := clBlue-
  245. Fonnl.PaintBoxl.Canvas.Pen.ColorclBlack- Fonnl.PaintBoxl.Canvas.Pen. Width2- with PaintBoxl. Canvas do Begin
  246. Rectangle (T 1 x, T 1 y, T8x, T8y) — //DlinaRec:=PaintBoxl.Width-2*round (PaintBoxl. Width/5) — MoveTo (T3x, T3y) — LineTo (T4x, T4y) —
  247. MoveTo (T5x, T5y) — LmeTo (T6x, T6y-1) —
  248. MoveTo (round (PaintBoxl.Width/5>fround (DlinaRec/3), PaintBoxl. Height div 3) — LineTo (PaintBoxl.Width div 2, ButtonHeight+6)-1.neTo (roiind (PaintBoxl.Width/5)+round (DIinaRec/l.5),(PaintBoxl.Height div 3)+i) —
  249. MoveTo (romd (PaintBoxl.Width/5)+TOund (DlinaRec/3)^ound (PaintBox I. Height/1.5)-1) — LineTo (PaintBoxl.Width div 2, ButtonlO. Top-3)-1.neTo (round (PaintBoxI.Width/5)+round (DlinaRec/!.5), Round (PaintBoxl .Height/1.5 И) — end-
  250. Перерисовка Диагоналей —' ^ «-1- 1 ¦ 1 1 1 -.¦¦•- - ^г-^—¦if FlagPaint=False then Begin
  251. Перерисовка D-соединениЙ.-.forj:=l toDdo for i:=l to D+6 doifMatrSmeg6+j, i.=l then OpredPozLine (j, i) —
  252. Button2.Caption := Table l. FielcfflyName ('Solir).AsString — Button8. Caption Table 1. FieldByName ('SoH'). AsString- Button lO. Caption := Table I. FieldByNameCSoli1). AsString-
  253. MasBeginEl2. := Table l. FieIdByName ('SoIi'). AsString- MasBeginEl[8] Table I. FieldByName ('Soli'). AsString- MasBeginEl[lO] Tab Iel. FieldByName (, Soli'). AsString- end-1. (TekButton=Button3) then begin
  254. Button3 .Caption :=¦ Table l. FieldByName ('Soli'). AsString- MasBeginEl3. Tablel. FieIdByNameCSoli')"AsString- end-1. (TekButton=Button4) then begin
  255. Button4.CaptionTable l. FieldByName ('Soli'). AsString- MasBeginEl4. :=¦ Table l. FieldByName ('Soli'). AsString- end-1. (TekButton=Button5) then begin
  256. Buttonf.Caption := Table l. FieldByName ('Soli'). AsString- MasBeginEl5. := Table l. FieldByNameCSoli'). AsString- end-1. (TekButton=Button6) then begin
  257. EirorDiagonKation, Em>rOiagonAnion:boolean- //--
  258. Number, Chet, Flag, RazMas, KolMengeOtveta: integer-1.dex Jczero, fl, Schet, Povtor, Line, FlagEmpty: integer,
  259. NomerSkobki, KoIOperac: integer-1. FlagMul, KolMenge: integer-1.gin, LoginHelp, OtvetEnd: Massiv-1. Otvef. MasOtv-procedure PoiscBD- var p: integer, begin
  260. Table2,Open- Table2. First-repeatif Element=Table2.Fields0. AsString then beginfor p:=l to IndexKations do if Element=Kationsp. then Begin1. FlagCopy:=True-break-end-if FlagCopy then FlagCopy:="False else begin
  261. KationsIndexKations.:BGIement-inc (IndexKations)-end-
  262. Element:=" — Simvoly:=" — end-if Element=Table2.FieIds 1. AsString then beginforp:=l to IndexAnions do ifElement=Anionsp.then begin1. FlagCopy:"=True-break-end-if FlagCopy then FlagCopy:=False else begin
  263. AnionsfIndexAnions.:=Element- inc (IndexAnions) — end- Element:-'- Simvoly:=" — end-
  264. Table2.Next- until Table2. EOF- Table2. Close- end-procedure ProgresClose- begin
  265. ProgressForm.Close- ProgressForm. Free- end-procedure Compile- var i, p, IndexOut:integer- begin1. dexAnions:=l- IndexKations:=l- ErrorDiagonKation:=False- ErrorDiagonAnion:=False- j:=0-
  266. FlagChisla:=False- Index0ut:=0- repeat
  267. ProgressForm.GaugelJ>rogress:=n*IndexProgres*8- Simvoly:="-ine (IndexOut) — inc (IndexProgres) — For i:"l to 8 do begin1. FlagChisla:=False-
  268. Sol:= MasBeginElIndexMasBeginEl.-if SimvolylO.-5» then j:*=0- forp:-l to 7 doifaSoim-IntToStripJJortSollil-'OoriSoUil-'O)then FlagChisIa:-True- ifSoli-l.=, 0' then FlagChisIa:=FaIse- if FlagChisla=False then begin-1. Simvolyj.:=Sol1.- inc (j) —
  269. Form 1. PaintBox 1 .Canvas.Pen.Color := clRed- Forml.PaintBoxl.Canvas.Pen. Width := 1- with PaintBox 1. Canvas do begin
  270. Проседуры для алгоритма выч. матрицы смежности Procedure Multi (BeginMenge:Massiv-RazMas:Integer- Var EndMenge: Massiv) — Var i j: Integer- Beginj := 1 -i:= 1 -fc= 1 -m:=0-lndex:= 1- FlagEmpty:=RazMas+1- Repeatif BeginMengeFlagEmpty. o[] then Begin
  271. For i:=l to RazMas do for j:=l to RazMas do Begin1. ((BeginMengei+m.o[J) and (BeginMenge[j+RazMas+mJo[])) then EndMenge[Index]: =BegmMenge[i+ra)+BeginMenge[j+Ra2Mas+m]- inc (Index)-end-1. End elsefor I:=0 to RazMas-l do Begin
  272. EndMengeIndex.:=EndMenge[Index]+BeginMenge[FlagEmpty-RazMas+i]- inc (Index) — FlagMul:=l- End- Inc (m, 4) — inc (FlagEmpty, RazMas*2) — Until FlagMul=l- KolMenge:=Index- FlagMul:=0- End-
  273. Procedure Zero (Index:integer- var EndMenge: Massiv)-1. Varm: Integer-1. Beginform:=l to Index do If EndMenge m. o[] then EndMenge [m]: =[J-
  274. Procedure GetOtvet (BeginMenge:Massiv-Index:integer-var EndOtvetrMasOtv) — Var ij: Integer- Begink:=l-for i:=l to Index do Beginforj:=l to RazmMatrici do if j in BeginMenge 1. then begin
  275. EndOtveti, k.:=j- incOc) — end- k:=l- end-1. End-1 1 1 1 1 .1. BEGIN
  276. Перенос значений из Shablona в MatrSmeg- for i:*=l to б do for j:=l to б do MatrSmegi j.:eShablon[i j]- Indexl:=l- Index2:=4- forj: el to 2 do beginfor i:=l to 3 do begins
  277. PaintLine (Index 1, Index2) — end-
  278. Table3.Next- until Table3? OF-
  279. Table3.Close- inc (lndexl, 2) — inc (Index2,2) — end- Indexl:-2- Index2:=3- end-
  280. Table4,Open- Table4. First- repeatif (((MasBegmElindexl.=Table4.Fields[0]. AsString) and (MasBeginEl[index2]=Table4.Fields[l]. AsString) and (MasBeginEl[index3]=Table4.Fields[2]. AsStrmg))1. ОГ'
  281. MasBeginElindexl .=Table4.Fields[0]. AsString) and 5 (MasBeginEl[index2]s*Table4JFields[2}.AsString)and (MasBegmEl[index3]="Table4.Fields[l]. AsString)))then begin
  282. Рисовать D-соединение inc (D) —
  283. MatrSmegIn2,In3 .:=0- MatrSmeg[In3,In2]: =0- MatrSmeg[6+D, In3]: =1- MatrSmeg[In3,6+D]: =l- MatrSmeg[6+D, In2]: = 1-
  284. MatrSmegIIn2,6+D.:=l- MatrSmegIn 1,6+D] 1- MatrSmeg[6+D Дп 1 j1- PaintLineD (Index 1) — //break- end-
  285. Table4.Next- until Table4. EOF- Table4. Close-end-
  286. Перенос Элементов из MasBeginEl в MasElfor i:=l to 6 do MasEl1.:-MasBeginEli.-
  287. Определение D-точек в квадратах---------------—--------
  288. Table4.0pen- Table4. First- repeatif (((MasElindexl."Table4.Fields[0]. AsString) and (MasEl[index2]=Table4.Fields[ 1 ]>AsString)and (MasEl[index3]"aTable4.Fields[2]. AsString)) or
  289. NumberD:=k- FlagD:=True- end-if FlagD=False then begin inc (D) —
  290. MasEl6+D. :=№-'('+ MasBeginEl[Index2]+'*'+MasBeginEl[Index3]+')'- end-
  291. FlagD:=False- Table4. Next-until Table4. E0F- Table4. Close-end-end-end-end-
  292. Вывод матрицы смежности на экран StringGridl, ColCount:~7+D- StringGridl. RowCount:=7+D-for i:=l to 7+D do for j:=l to 7+D do begin
  293. StringGridl.Cells0,i.:=IntToStr (i) — StringGridl. CelIs[i, 0]: =IntToStr (i) — StringGridl. Cells[ij]: =IntToStr (MatrSmeg[ij])-end-
  294. For i:=Line to RazmMatrici do Beginif MatrLine, i.=0 then Begin Flag:-1- { Writeln (Line, 4i)-1.ginNmnber.:°Login[Number] + [Line]-1.ginNumber+1. :=Login[Number+1 ] + 1.- End- End- inc (Line) — if FIag=I then Begin1. c (Number, 2)-1. Flag:=0−1. End-
  295. Until Line>RazmMatrici- Chet:=0- RazMas:=2- m:=0-n:=0-
  296. NomerSkoWd:x=round ((Number-1)/2) — KolOperac:=l- For to 5 do Begin1.((NomerSkobki≥3+n) and (NomerSkobki≤4+m)) then KolOperac:=i+l- inc (n, 2)-inc (m, 4) — End-
  297. Repeat inc (Chet) — if Odd (Chet) then Begin
  298. Multi (Login, RazMas, LoginHelp) — Zero (KolMenge, Login) — RazMas:=sqr (RazMas) — end Else Begin
  299. Multi (LoginHelp, RazMasvLogin) — Zero (KolMenge, LoginHelp) — RazMas:=sqr (Ra2Mas) — End-
  300. Until Chet=KoIOperac- IfLoginl. o (] then begin
  301. GetOtvet (Login, KolMenge, Otvet)-1. Zero (KolMenge, Login)-endelse GetOtvet (LoginHelp, KolMenge, Otvet)-kzero:=0- fl:=l-1. Schet:=0- {
  302. For i:=l to KolMenge do beginforj:=l to 11 do Begin if Otvetfij.<>0 then inc (kzero) — End-if kzero=^RazmMatrici-4) then begin inc (Schet)-for k:=l to (RazmMatrici-4) do Loginfl.:=Login[fl]+[Otvet[iJc]]- inc (fl) — end- kzero:=0-end-
  303. KolMengeOtveta:= 1- Fori:=l toSchetdo Beginfor j:=i+l to Schet do If LoginiHogin[j. then Povtor:=l- ifPovtorol then Begin
  304. Memo 1.Lines.add («) — For k:=l to RazmMatrici do if not (k in Login1.) then begin
  305. OtvetEndKolMengeOtveta.:=OtvetEnd[KolMengeOtveta] + [k]- II Memo 1. Lines[KolMengeOtveta-1 ] := // Memo 1. LinesfKolMengeOtveta-1 ]+lntToStr (k) —
  306. Memo 1. LinesKolMengeOtveta-1 .:°=Memo 1. Lines[KolMengeOtveta-1 ]+' '+MasEl[k]-
  307. Write (k,»)-} { Writelo-} end-inc (KolMengeOtveta)-end-1. Povtor.=0−1. End-
  308. MessageDlg ('3TO Bee !!! :)', mtlnformation, mbOk., 0) — End-' «' END-procedure TFonnl. SpeedButton4Click (Sender: TObject) — begin
  309. AboutForm:=TAboutForm.Create (self) — AboutForm. visible:=True- end-procedure TForm 1. SpeedButton2Click (Sender: TObject)-begin1. Close-end-procedure TFonnl. SpeedButton5Click (Senden TObject) — begin
  310. SpeedButtonl .Enabled:=FaIse-1. Button 1. Captions"-1. Button2. Caption:="-1. Button3. Captions"-1. Button4. Caption:-'-1. Button5. Caption:="-1. Button6. Caption:=M-1. Button7. Caption:="-1. Button8. Caption:="-1. Button9. Caption:="-1. ButtonlO. Caption:"" —
  311. StringGrid 1. visiblet-False- StringGridl. ColCount:=6- StringGrid 1. RowCount:=6- fori:»! to6do forj?"l to 6 do begin
  312. StrmgGridl.Cells0,i.:=" — StringGridl. Cells[i, 0]: =" — StringGridl. Cells[ij]: =!"-1. MasBeginElj.:=" — end-for i:=l to 6+D do forj:=l to 6+D do begin
  313. MatrSmegtij.:^- MasElO]: -«-end-
  314. VaIKat1.:=ValK- ValAnij.:=ValA- End-нанесение на Label-----procedure LabelCaption- var ij: integer, begin case KoIAn of 2^/3-Катиона for i:=l to 3 do for j:=l to 2 do beginif ((i= 1) andO=1 «then begin
  315. VaIentnost (Kt1., An (j., soI) — MasBeginElf 1 ]: =sol- LabelMasl]. Caption:=Sol- LabelMas[7]. Caption:=Sol- LabelMas[9]. Caption:=Sol-1.belStringl .:"=Sol- LabelString[7]: =Sol- LabelString[9]: =Sol- end-if ((i= 1) and (j=2))then begin
  316. Valentnost (Kt1., Anj., sol) — MasBeginEl[2]: =sol- LabelMas[2]. Caption:=Sol- LabelMas[8]. Caption:=Sol- LabelMas[l 0]. Captfon:=Sol- LabelString[2]: =SoI- LabelString[8]: =Sol- LabelString[l 0]: =SoI- end-if ((i=2)and (j=1))then begin
  317. Valentnost (Kt1., Anj.>sol)-1. MasBeginEl3.:=sol-1.belMas3.Caption:=Sol-1.belString3.:=Sol-end-if ((i=2)and (j=2))then begin
  318. Valentnost (Ktti., Anj], sol) — MasBeginEl[4]: =sol- LabelMas[4]. Caption:=Sol- LabelString[4]: =Sol- end-if ((i=3)and (j=l))then begin
  319. Valentnost (K.t1., Anj., sol) — MasBeginEI[5]: =sol- LabelMas[5]. Caption:=Sol- LabelString[5]: =Sol- end-if ((i=3)and (j=2))then begin
  320. Valentnost (Kt1., Anj., sol)-1. MasBeginEl6.:=sol-1.belMas6.Caption:=Sol-1.belString6.:=Sol-end-end- 37/2-KaTHOHafori:"=l to 2 do forj:=l to3 do beginif ((i-l)andG-l))then begin
  321. Vaientnost (Kt1.^nO., sol) — MasBeginEll]: =sol- LabelMas[l]. Caption:=Sol- LabelMas[7]. Caption:=Sol-1.belMas9.Caption:"=Sol- LabelString[l]: =Sol- LabelString[7]: *=Sol- LabelString[9]: =SoI- end-if ((i=2)and (j=l))then begin
  322. Valentnost (Kt1., Anj., sol) — MasBeginEl[2]: =sol- LabeIMas[2] .Caption:*=Sol- LabelMas[8]. Caption:-Sol- LabelMasf 10], Caption:=Sol- LabeIString[2]: «Sol- LabelString[8]: =Sol- LabelString[10]: «*Sol- end-if ((i=l)and (j=2))then begin
  323. Valentnost (Kt1., An|j., sol) — MasBeginEI3]: =sol- LabelMas[3], Caption:=Sol- LabelString[3]: =Sol- end-if ((i=2)and (j=2))then begin
  324. Valentnost (Kt1., Anj., sol) — MasBeginEl[4]: *=sol- LabelMas[4]. Caption:=Sol- LabelString[4]: =Sol- end-if ((i=l)andGts3))then begin
  325. Valentnost (Kt1., Anj., sol) — MasBeginEl[5]: =sol- LabelMas[5] .Caption:=Sol- UbelStringtSl^SoI- end-if ((i="2)and0=3))then begin
  326. Valentnost (Kt1., An|j., sol) — Ma$BeginEl6]: =sol- LabelMas[6]. Caption:=Sol- LabelString[6]: ="Sol- end- end-end-1. End-
  327. FlagAn:=true- K:=Index- Index:=l- end-end- KAn:=index- Kmtn:=K+KAn-l- end-end-procedure TypeD (S:string-L:integer) — var NumD, t: integer-
  328. FStar:=felse- fort:=l to Length (S) do if St.='*'then FStar.=tnie elseif FStar then S2:=S2 + St. else S1:=S1 + S[t]-1. S2:=S2+'*'+Sl- S1:=S-end-procedure SetlnMatrica- //создание матрицы var t, a, NumD:integer, FCompx: boolean- ztstring-
  329. NS:array1.3. of word- begin t:=0-
  330. NS1J:=0-NS[2.:=0-NS[3]: =0- NumD:=0- repeat inc (t) —
  331. MatrSmegNS[ 1 ., NS[2]]: = 1- MatrSmeg[NS[2], NS[3]]: = 1- MatrSmeg[NS[l], NS[3]]: =l-
  332. MatrSmegNS[l., NS[l]]: =I- MatrSmeg[NS[2], NS[2]]: =l- MatrSmeg[NS[3], NS[3]]: =l-
  333. Dlina:=round (PointXV2.-PointX[V 1 ])else Dlina:=round (PointXV2.-PointX[ V1 ]) —
  334. Q:=round (Dlina/(Kl+K2)) — if K1>K2 then DK. X:=Point XV1.+Q- if K1
  335. Verll.:=l-Vert2]: =2-Ver3]:=3-Ver[4]:=4- Caunt:=4- end- 2: begin
  336. Verl. :=3- Ver[2] :=4- Ver[3] :=5- Ver[4]: =6- Caunt:=4- end- 3: begin
  337. Verl.:=5-Ver[2]: =6-Ver[3]:=7-Ver[4]:=8- Caunt:=4- end- 4: begin
  338. Ver{l.:-3-Ver{2]: -5-Ver3]^9-Vert4]:-0−1. Caunt:"3-end-5:begin
  339. Verl.:=4-Ver[2]: =6-Vert3]:=10-Ver[4]:=0−1. Caunt:=3-end-end- KolD:-0-for t:=l to 5 do begin DKoopt. X:=0- DKoop[t]. Y:=0-end- t:=0- repeat inc (t)-if DCompIexL, t. o» then begin
  340. GetKfAndSaIt (DComplexL, t., SaItl, Salt2, Kfl, Kf2)-for a:» 1 to Caunt do // 4 вершины begin b:=a-
  341. While b
  342. CreateDKoop (Saltl, Salt2, Kfl, K?2,Vera., Ver[b], DKooptKolD]) — DComplexPnt[L, t]: =DKoop[KolD]- end-if ((Salt2=LabeIStringVer[a.]) and (Salt 1 =LabelString[ Ver[b]])) then begin inc (Ko!D) —
  343. Sf.:=S[f]+InvPomts[L, EP][j]-for a:=l to Caunt do for b:=l to3 do if Sb.=LabelMas[Ver[a]]. Caption then begin
  344. VKoopb.X:=PointX[Ver[a]]- VKoop[b]. Y:=PointY[Ver[a]]- end-forb:"lto3do if VKoopb. X-0 then begin r-SMifor a:=l to Length (Z) doif (Ztal^'OandCZta.^') then VKoopb]: =DKoop[StrToInt (Z[a])]-
  345. VKoopb.Y:=DKoop[StrToInt (Z[a])]---
  346. Cnvs.Pea.ColorclBlack- Cnvs.Brush.CoIor := clBlack- Cnvs. PeiL Width :"* 1- with Cnvs do Begin
  347. MoveTo (VKoopl .X, VKoop[ 1 J. Y) — LineTo (VKoop[2]. X, VKoop[2].Y) — LineTo (VKoop[3] .X, VKoop [3 ]. Y) — LineTo (VKoop[l ] JC, VKoop[l ]. Y) —
  348. CircIe (VKoop 1 ., 3, Cnvs) — Circle (VKoop[2], 3, Cnvs) — Circle (VKoopi3]f3,Cnvs)-end- end-:until EP=ConstMatr- end-procedure OutOnThePaintBoxVSek (L:integer-Cnvs:TCanvas)-: vart, a, b:integer- S: array1.2. of string- V: array[1.2] ofTPoint- begin
  349. V1.X:=0-V1.Y:=0-: V[2]. Xr=0-V[2].YH) — s[l]: ="-S[2]-=" — fort:*"l to 2 do if MasVSek[L, t]≤6 then begin
  350. VtJ J?:=PointX[MasVSek[L, t.]- V[t]. Y:=PointY[MasVSek[L, t]]- end-t:=0-repeatinc (t)-ifVt.X=0 then begin
  351. St.:=MasEndEl[MasVSek[L, t]]- for a:=l to 3 do for b:=l to 5 do if S[t]=DComplex[a, b] then V [t]: =DComplexPnt[a, b]- end-until t=2--
  352. CnvsJen-Color := clRed- // Cnvs.Brush.Color := clBlack- Cnvs.Pen. Width 1- with Cnvs do Begin
  353. MoveTo (Vl.JC, V[l]. Y) — LineTo (V[2]JC, V[2]. Y) — Cnvs.Pen.ColorclBlack- Circle (V[ip, Cnvs) — Circle (V[2], 3, Cnvs)-end-procedure DrawRazvertka (Cnvs:TCanvas) — begin <
  354. Cnvs.Pen.CoIor := cIBlack- Cnvs.Pen. Width2-r Cnvs. Brush-Colon-xlBtnFace- with Cnvs do Begin:
  355. MoveTo (PointXl ., РошЦУ[1 ])-- LmeTo (PointX[7], PointY[7]) — LineTo (PointX[8], PointY[8]) — LineTo (PointX[2], PointY[2]) — LineTo (PointX[ 1 ]^ointY[ 1]) — //Перегородки! MoveTo (PointX[3], PointY[3]) — LineTo (PointX[4]^ointY[4]) —
  356. MoveTo (PomtX5., PomtY[5])-- LineTo (PomtX[6]^omtY[6]-l) —
  357. Треугольники 1 ¦ 11 --•'•'•.
  358. MoveTo (PointX3., PointY[3]) — LineTo (PointX[9], Pomt Y[9])-- LineTo (PointX[5], Point~Y[5])--
  359. MoveTo (PointX4., PointiY[4])-- LineTo (PointX[ 10], PointY[ 10]) — LineTo (PointX[6], PointY[6])-end--end-:procedure StayPaintBox (P:integer)-: var?? integer,. xl, yl, x2, y2:integer- xx 1, yy 1, xx2, yy2:integer- begin:
  360. Form 1. ListBox 1 .Clear-,
  361. Forml .ListBox 1. visible:~False-, if LabelMasp.Font.CoIor=clBIack then1.belMasp.Font.Color.=clRed- LabelMas[p]. RePaint-case p of 9: begin
  362. Form 1. ListBox 1 .Left:-LabelMasp.Left+round (LabelMas[p]. Width/2)-Fonn 1. ListBox 1. Width- Forml. ListBoxl .Top:=LabelMas[p]. Top+LabelMas[p].Height+5- end-: 1,3: begin
  363. Forml.ListBoxI.Left:=LabelMasp.Left+LabelMas[p]. Width+5- Forml. ListBox 1 .Top:=LabelMas[p]. Top+LabelMas[p].Height+7- end- 2,4:begin *
  364. Forml.ListBoxlXeft:=LabelMasp.Left+LabelMas[p]. Width+5- Form I. ListBox I .Top:=LabelMas (p J. Top-Form I. ListBox 1 .Height-7-: end- 5,7:begin
  365. Forml .ListBox 1 .Left:=LabelMasp.Left-Form 1. ListBox I. Width-5- Forml.ListBoxl.Top:=LabelMas[p]. Top+LabelMas[p].Height+7-end- 6,8:begin
  366. Foiml.ListBoxl.Left:=LabelMasp.Left-Forml.ListBoxl.Width-5- Form 1. ListBox 1 .Top:=LabelMas[pj.Top-Form 1. ListBox 1 .Height-7- end- 10: begin
  367. FoImLLisШoxLLeft:=LabelMas (p.Left+round (LabelMasp]. Width/2)-Form 1. ListBox 1 .Width-
  368. Form 1. ListBox 1, visible:=Tnie- end-1. END. unitMatSmeg- inter&ceuses ProgrDifferent, procer, type
  369. FEmptylFlagMul, KolMenge, index: integer, // Otvet: MasOtv-1.gin, LoginHelp, OtvetEnd: Massiv- Matnairayl. l l, l.ll.of byte-
  370. Number^Iag, Line, RazMas, Chet, NomerSkobki, KolOperac: integer-
  371. KMIS, KMISHelp: MasKoiy/MaccuBu определяющие кокретное количество множеств в скобках
  372. Al, A2, A4,MasSekEl:Mas50Menge-
  373. A 1, InA2, InA4,KolSekEl, KolVSelc integer,
  374. MatrSmeg, MatrSmegHelp: Matrica-
  375. SurFace:anay1.5. of Menge-
  376. MasVSek:array1.50,1.2. of integer, implementation
  377. Procedure Multi (BeginMenge:Massiv-MISBegin:MasKol-
  378. Var EndMenge: Massiv-MISEnd:MasKol)-} Procedure Multi (BeginMenge:Massiv-MISBegin:MasKol-
  379. Var EndMenge: Massiv- var MISEnd: MasKol) — Var i j Jc, t: Integer- EMenge: Massiv- MgInSkob: MasKol- II MISEndrMasKol- // EndMenge: Massiv-1. Begin
  380. ZeroMenge (1024,EMenge) — ZeroInt (50,MgInSkob) — m:=0-lndex:=1 -FEmpty:=1- NomerSkobki:=0- Repeat k:=0-if MISBeginFEmpty+l.oO then begin
  381. EMenge1.:=.- Dec (MISEnd[k]) — end- inc (t) — end-end-m:=m+MgInSkobk.- until k=NomerSkobki-for i:=l to index do if EMenge1.o. then begininc (KolMenge) —
  382. EndMengeKolMenge.:=EMenge1.- end-1. KolMenge:=index- End-
  383. Procedure ZeroMenge (Index:integer- var EndMenge: Massiv)-1. Var m: Integer-1. Beginfor m:= 1 to Index do
  384. EndMenge m. o[] then EndMenge [m]: =[]-1. End-procedure ZeroInt (Index:integer, var EndKolMenge: MasKol)-var m: integer, 1. Beginfor m:=l to Index doif EndKolMengem. oO then EndKolMenge[m]: =0-end-
  385. A1 InA 1 .:=BeginMenge 1.- end-if Caunt=(RazmMatrici-Kompnst+1)then begin inc (InA2) —
  386. A2InA2.:=BeginMenge 1.- end-if Caunt-(RazmMatrici-Kotnpnst-1)then begin inc (InA4) —
  387. A4InA4.:-BeginMenge 1.- end-end-1. End-function InMenge (Ml, M2: Menge):boolean-var Eml, Em2: arrayl.ConstMatr. of integer-
  388. KMenMl, KMenM2, k, i: integer- beginif (Mlo.) and (M2o[]) then beginfor i:="l to RazmMatrici do begin1. EMl1.:=0-EM2i.:=0- end-
  389. ZeroMenge (1024,Login) — ZeroMenge (1024,LoginHelp) — ZeroInt (50,KMIS) — ZeroInt (50JCMISHelp) — Number.*! i-ine:»! -i:=l- Repeat
  390. For i:"Line to RazMat do BeginifMatrLine, i.-0 then Begin Fbg:-1- { WriteIn (Line,'-', i)-1.gin Number. :=Login [Number] + [Line]-1.ginNumber+1 .:=Login[Number+1 ] + 1.- End-
  391. End- inc (Line) — ifFlag=l then Begin1. c (Number, 2)-1. Flag:=0−1. End-
  392. Until Line>RazMat- Chet:=0- RazMas:=2- m:=0-n:=0-
  393. NomerSkobki:=round ((N umber-1)/2) — KolOperac:=l- For i:=l to 5 do Begin1. ((NomerSkobki≥3 +n) and (NomerSkobki≤4+m)) then KolOperac:=i+l- inc (rw2)-inc (m, 4) — End-for i:=l to NomerSkobki do KMIS1.:=2-
  394. Repeat inc (Chet) — ifOdd (Chet)then Begin
  395. MuIti (Login, KMIS, LoginHeIp, KMISHelp) — // Multi (Login, KMIS, KMISHelp) — ZeroMenge (KolMenge, Login) — ZeroInt (50,KMIS) — //RazMasz^qrCRazMas) — end Else Begin
  396. Multi (LoginHelp, KMlSHelp, Login, KMlS) —
  397. ZeroMenge (KolMenge, LoginHelp)-1. ZeroInt (50JCMISHelp)-1. RazMas:-sqr (RazMas)-1. End-until Chet=KolOperac-for i:=l to 50 do begin1. Alli.:-D-1. A21.:=U-1. A41.:=n-end-1. Loginl. o[] then begin
  398. MasVSekij.:=0- end- KolVSek:=0- KolSekEl:-=0- i:=0- repeat inc (i) — j:=0-while j≤InA2 do begin
  399. СотЬше:=0-Сго88:=Ц-М1 :=Ц- inc (j) —
  400. MasVSekKolVSek, l.:-Verl- MasVSek[KolVSek?]: =Vei2-end-end- end-end-end-
  401. Procedure RecursivProc (MgN:Menge) — var Verl, Ver2, ij:integer, MgN01d: Menge- FDehboolean- begin
  402. FDel:-False- MgN01d:=MgN- if MgNo. thenfor i:=l to KolVSek do begin ifiinMgNthen begin
  403. MgNr=MgN-1.- FDel:=Trae- end- if Fdel then begin
  404. DubIMatricay/Копия матрицы forj:=l to KolVSek do if (j in MgN) then begin
  405. Verl:=MasVSek|j, l.- Vei2:=MasVSek}, 2]- MatrSmegHelptVerl. Vetf]: «!- MatrSmegHelp[Ver2, Ver 1 ]: = 1- end-
  406. CalcMatrSmeg (MatrSmegHelp, Ra2inMatrici) — FDel:=false-if (A4l.o[])or (A2[l]o[]) then begin RecursivProc (MgN) — MgN:=MgN01d- endelsebeginforj:=l to KolVSek do if not (j in MgN) then begin
  407. MasVSeki, l.:=0- MasVSek[i, 2]: =0- end-1. Break- end-end- end- End-
  408. Procedure CoupingVSek- var MengeNum: Menge-i:integer, begin1. MengeNum:=Q-for i:"l to KolVSek do1. MengeNum^MengeNum+H.-
  409. RecursivProc (MengeNum) — End-procedure DublMatrica- var ij: integer, beginfor i:=l to RazmMatrici do for j:"l to RazmMatrici do
  410. MatrSmegHelptiJJ^MatrSmegtiJ.-end- end. unit ResDialg- interfaceuses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls-type
  411. TOKRightDlg ~ class (TForm) OKBtn: TButton- ListBoxl: TListBox-procedure OKBtnCIick (Senden TObject) — procedure FormClose (Senden TObject- var Action: TCIoseAction) — private
  412. Private declarations} - public
  413. Public declarations} end-, var-
  414. OKRightDlg: TOKRightDlg- implementation: {$R *.DFM}procedure TOKRightDlg. OKBtnClick (Senden TObject) — begin
  415. П.г<�тю(мюагсль{тф1Ъся/дарстве1мое: образовательное унрсэ1сдепиеЫЫ€шегопрофессит1альнб2т6бразовапия , Сш1арскиЩгосударстве7тый тех1ШческигТу1шверсигпет (Ш1) .•¦ '¦' .0-'. • 'ч'- *.- V.>.-. V •.. '•.-¦•'•-*'. .У,'
  416. Аитар (ь1)у Трупин Ллексат1др Сергеевич, Моще11ская Елена ЮрьевнаБудкин АлексейЪладкмирович- Моргунова Ольга Евгеньевна, Климова Марина Витальевна: (ЛЕГ).
  417. Заявка № 2 005 610 027 Дата поступления 17 января 2005 Г. Зарегистрировано п Реестре программ-для-ЭВМ 19 мая 2005 г.
  418. Руководитель Федеральной службы по интеллектуальной у собственности, патентам и товарным знакам1. Б. II- Симоновж ж ж ж ж ж ж ж ж ж ж ж ж ж ж ж к? ж ж ж ж к? ж ж ж ж ж ж ж ж жа• • • * • • • • • • «* • < • • ••V/• • •г • • «• • • •• • •* *
  419. Р Ер И СТ Р, А Ц И И Р A: ЗР, А Б О Т К И .-«• «№ 5180 .:¦ «» .:
  420. Н^стоящее.свидетедьство выдано на разработку: .•- .•:исследования четырехкомпонентных : — >• взаимных систем-), :регистрированную в Отраслевом фонде алгоритмов и программ.
  421. Дата.-регистрации: 19 сентября 2005 года- ,
  422. Авторы: Чуваков А. В., Лукиных В. А.,.Котлиров Н. В., Трунин А. С., КлимоваМ.В., Моргунова 0? E., Будкин А. В. 'технический:Х.'.
  423. Е.'ПКалипкецич A. IJ-, Га л книа:--:•' Дата выдачи C??. /0./C7(?f :г»
Заполнить форму текущей работой

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