автореферат диссертации по электротехнике, 05.09.03, диссертация на тему:Электротехнический комплекс с перестраиваемой структурой для питания двигательной нагрузки

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

2.1. Математическая модель.

2.2. Результаты исследований ОППС радиальной структуры.

2.3. Экспериментальные исследования.

2.4. Сравнительный анализ ОППС радиальной и канонической структуры. выводы по главе 2. глав аз. электротехнический комплекс с переменной величиной коммутирующей емкости.

3.1. Структурная организация.

3.2. Математическая модель.

3.3. Результаты исследования. выводы по главе 3. глав а4. электротехнический комплекс с перестраиваемой структурой для питания двигательной нагрузки.

4.1. Математическая модель.

4.2. Результаты исследования.

4.3. Результаты исследования групповой двигательной нагрузки.

4.4. Алгоритм перестройки сети при изменении нагрузки.

4.5. Исследование электротехнического комплекса с учетом динамики звена постоянного тока.

4.6. Исследование работы электротехнического комплекса с регулированием производительности двигателя по измеряемому параметру. выводы по главе 4.

Актуальность работы

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

Одним из путей решения этой проблемы является использование электротехнических комплексов с перестраиваемой структурой для питания двигательной нагрузки, построенных на базе вентильных преобразователей частоты[78,83,84,12,26,27,28,29,35,41,42,44,47,53]. В этой связи возрастают требования к технико-экономическим показателям модулей в составе электропривода, что приводит к исследованию новых схем с улучшенными свойствами и характеристиками [9,97,109]. Создание комплексов для питания двигательной нагрузки большой мощности или группы совместно работающих электродвигателей требует решения целого комплекса проблем, одной из которых является обеспечение параллельной работы модулей в режиме генерации активной мощности. При этом первоочередной является задача пропорционального распределения выходной мощности между агрегатами[2,3,108,113].

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

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

В [28,29,48,53,54,104,105,106,107] исследована работа комплекса тиристорных преобразователей, в которой компенсацию избыточной реактивной мощности коммутирующих конденсаторов осуществляют переводимые в режим генерации реактивной мощности преобразовательные модули. Такие компенсаторы представляют собой выпрямительно-реакторные мосты, основным недостатком которых является сравнительно невысокое быстродействие. Если нагрузка носит резко переменный характер и величина перепадов нагрузки значительна (АВ>0.3, где АВ=ВГВ2, ВьВ2 - коэффициенты загрузки), то наблюдается существенное снижение угла запирания тиристоров и возрастает вероятность срыва инвертирования. В литературе такая организация параллельной работы преобразовательных модулей получила название канонической структуры [51,52].

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

В настоящее время на предприятиях газовой промышленности регулирование производительности насосов происходит с помощью 5 установленной на выходе насоса заслонки или перепускного клапана, который возвращает излишки продукта на вход насоса или «емкость-источник продукта». В обоих случаях насос работает на номинальных оборотах и тратит мощность на преодоление сопротивления заслонки или на совершение нулевой работы. КПД таких насосов очень низкий и зависит от текущего расхода. Следующим этапом на пути к повышению КПД установок на базе асинхронных двигателей является использование преобразователей частоты (ПЧ). В настоящее время получили определенной распространение приводы с использование автономных инверторов напряжения, но по сравнению с инверторами тока элементы, на которых они построены (ЮВТ-модули) имею большее внутреннее сопротивление по сравнению с тиристорами, и как следствие большие потери, которые растут с увеличением мощности установки. В тоже время использование методов управления ЮВТ-модулям, повышающих повысить качество кривой выходного напряжения приводит к дополнительному удорожанию комплекса. В дополнение к вышесказанному следует отметить, что на ответственных производствах потребность в резервировании влечет установку двух комплексов построенных на автономных инверторах. Эффективно устранить вышеперечисленные недостатки можно путем использования преобразовательной сети. Преимуществами использования преобразовательной сети являются: снижение затрат на резервирование (по сравнению со 100%), снижение установленной мощности за счет распределения токов и эффективность при работе на резкопеременную нагрузку в связи с возможность перестройки состава комплекса. Предлагаемый электротехнический комплекс для питания двигательной нагрузки позволяет решить проблемы экономии ресурса установленного электрооборудования, экономии электроэнергии, стабилизирует КПД всей установки и позволяет отказаться от дополнительного технологического оборудования (заслонок, клапанов и т.д.). На данный момент такие электротехнические комплексы предполагается использовать в системах управления на установках 6 комплексной подготовки газа(УКПГ) Заполярного, Берегового и Ен-Яхинского газонефтеконденсатных месторождений. Применение электротехнических комплексов с перестраиваемой структурой для питания двигательной нагрузки оправдано при необходимость точного управления расходом, а также ответственностью технологического процесса. К примеру, на УКПГ Сеноманской залежи Берегового месторождения использовано частотное управление группой совместно работающих насосов подачи метанола в шлейфы кустов газовых скважин. Метанол используется в роли ингибитора для предотвращения гидратообразования в трубопроводах шлейфа. Необходимый расход метанола зависит от текущих параметров газа: давление, температура, расход. Производительность насосов подачи метанола расчитывается и задается информационно-управляющей системой УКПГ.

Цель работы и задачи исследования

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

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

1. Создание математической модели радиальной сети.

2. Теоретические и экспериментальные исследования радиальной сети в составе электротехнического комплекса.

3. Оценка адекватности модели.

4. Создание математической модели перестраиваемого электротехнического комплекса.

5.Разработка алгоритма управления перестраиваемым электротехническим комплексом в зависимости от изменения параметров нагрузки. 7

6. Исследование особенностей комплекса при работе на одиночную и групповую двигательную нагрузку.

7. Разработка комплекса программ для моделирования:

• оперативно перестраиваемой преобразовательной сети (ОГТПС) радиальной структуры;

• 01Л 1С с переменной коммутирующей емкостью;

• электротехнического комплекса с перестраиваемой структурой для питания двигательной нагрузки.

Методы исследования

Для выполнения работы потребовалось использование матричной алгебры, дифференциального и интегрального исчислений, динамического и объектно-ориентированного программирования, численного моделирования и методов экспериментального исследования.

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

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

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

2. Проведено исследование электромагнитных процессов в ПЭК при питании двигательной нагрузки. Определены режимы запуска двигателя и условия устойчивой работы комплекса. Исследованы процессы в радиальной сети при ее работе на групповую двигательную нагрузку (ГДН).

3. Проведены экспериментальные исследования радиальной преобразовательной сети, доказавшие адекватность модели. 8

4. Создан программный комплекс для моделирования и расчета ПЭК.

Основные положения, защищаемые автором

1 .Структурная организация ПЭК на базе радиальной преобразовательной сети.

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

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

4 Результаты теоретических и экспериментальных исследований ПЭК радиальной структуры.

Практическая ценность работы

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

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

3. Предложен алгоритм перестройки электротехнического комплекса при изменении величины и характера нагрузки.

4. Определены режимы запуска двигателя и условия устойчивой работы комплекса. 9

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

Реализация результатов

Результаты исследований, проведенных в данной диссертационной работе, были использованы в Институте проблем точной механики и управления РАН (г.Саратов) для разработки систем станочного электропривода на повышенных частотах, а также для регулирования производительности насосов перекачки метанола на установке комплексной подготовки газа Берегового, Заполярного и Ен-Яхинского газонефтеконденсатных месторождений.

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

Основные результаты работы были представлены:

1. На 3-ей МНТК «Методы и средства управления технологическими процессами » (г. Саранск, 1999г);

2. Ежегодной конференции профессорско-преподавательского состава Саратовского Государственного Технического Университета.

3. На конференции в Институте проблем точной механики и управления РАН «Проблемы точной механики и управления» 2002г.

Структура и объем работы

Диссертация состоит из введения, четырех глав с выводами, заключения и списка литературы из 124 источников, изложена на 118 страницах машинописного текста, включая 81 рисунок, 2 таблицы.

Выводы по главе 4

Из всего выше сказанного в главе 4, можно сделать выводы:

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

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

3 Проведены исследования работы электропривода на базе ОППС радиальной структуры.

4 Приведен алгоритм управления электроприводом на базе ОППС. Выбран критерий управления составом модулей в сети по минимальным потерям электроэнергии.

5 Использование в комплексе частотного электропривода сети радиальной структуры, делает эту систему оперативно перестраиваемой при резких изменениях величины и характера двигательной нагрузки. В то же время использование преобразователей в роли вторичного источника электропитания двигателя позволяет регулировать производительность электропривода с помощью частоты, что приводит к экономии электроэнергии и ресурса установленного двигательного оборудования. К примеру, до настоящего времени на предприятиях газовой промышленности регулирование производительности насосов происходило с помощью установленных на выходе насоса заслонки или перепускного клапана, который возвращал излишки продукта на вход насоса или «емкость-источник продукта». В обоих

115" случаях насос работает на номинальных оборотах и тратит мощность на преодоление сопротивления заслонки или на совершение нулевой работы. КПД таких насосов очень низкий и зависит от текущего расхода. Предлагаемая система электроснабжения частотного электропривода позволяет решить следующие проблемы:

1. Энергосбережения;

2. Уменьшает затраты на резервирование (по сравнению со 100% резервированием АИТ);

3. Уменьшает мощность установленного электрооборудования;

4. Повышает КПД частотного электропривода;

116

В заключение следует отметить некоторые выводы из проведенных исследований:

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

Сетевая концепция построения электропривода позволяет обеспечить требуемый уровень надежности значительно меньшими (в 1,5-1,8 раз) аппаратными затратами по сравнению со 100% резервированием единичного преобразовательного модуля той же мощности.

2. Получены формулы, описывающие динамические возможности исследуемого комплекса при его перестройке в зависимости от параметров нагрузки.

Проведенные исследования показали следующее:

117

• радиальная сеть по сравнению с канонической имеет в среднем в 1,5 раза меньшую установленную мощность вентильного комплекта;

• обладает в 4-5 раз большей коммутационной устойчивостью, что делает эффективным ее использование для питания существенно-переменной и высоко динамичной двигательной нагрузки;

• неканонические ОППС допускают мгновенную перестройку их структуры, сохраняя при этом практически постоянным угол запирания вентилей, что обеспечивает высокие динамические возможности сетей.

3. Показано, что использование группы паралельно работающих последовательно-параллельных инверторов тока для построения привода позволяет повысить технико-экономические показатели сетей. Это достигается тем, что с каждым модулем связывается своя часть последовательной емкости. Поэтому при переводе модуля из режима инвертирования в резерв или режим компенсации отключается от нагрузки и соответствующая часть коммутирующих конденсаторов. Это приводит к уменьшению в 1,5-2 раза величины токов компенсации для режимов холостого хода и близких к нему (В <0,1) и в 2-3 раза увеличивает жесткость внешней характеристики по сравнению с компенсированным параллельным автономным инвертором тока и сетями с неизменяемой величиной коммутирующей емкости.

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

118

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

119'

1. Автономные инверторы / Под ред. Г. В. Чалого.—Кишинев: Штиинца, 1974.—336 с.

2. Адамия Г.Г. К вопросу распределения нагрузок между параллельно работающими инверторами // Электроэнергетика и автоматика. Выпуск 15.- Кишинев: Изд-во "Штиница", 1973.

3. Адамия Г.Г., Билинкис П.Г., Чванов В.А. Распределение нагрузок между параллельно работающими инверторами // Электротехническая промышленность. Преобразовательная техника, N 17, 1971.

4. Адамия Г.Г., Чванов В.А. Принципы построения систем, содержащих параллельно работающие автономные инверторы // Материалы семинара по кибернетике. Часть 1. Динамика систем управления,- Кишинев: Изд-во "Штиница", 1975.

5. Акивис М.А., Гольдберг В.В. Тензорное исчисление. -М.: Наука, 1969. -352с.

6. Антонов И.М., Гагарина О.Г., Глебов Б.А. Оптимизация параметров многомодульной системы ИВЭП // Электротехника.-1993.-№11.-С.53-57.

7. Антонов И.М., Глебов Б.А. Надежность системы электропитания, состоящей из однотипных преобразовательных ячеек // Тр. МЭИ. 1986.№92.С.123-127.

8. Артеменко М.Е. Улучшение массагабаритных показателей однотактных преобразователей напряжения // Тез. доклад. 4 Всесоюз. науч. техн. конф. "Пробл. преобразовательной техники". -Киев, 1987. -Ч. 6.-С. 17-19.

9. Ю.Артюхов И.И., Митяшин Н.П., Серветник В.А., Томашевский Ю.Б. Стратегия адаптивного управления многоканальными источниками питания // Распределенные информационно управляющие системы,- Саратов: Изд-во Сарат. ун-та, 1988,- С.210.

10. Артюхов И.И.,Томашевский Ю.Б., Серветник В.А. Тиристорные преобразователи частоты с перестраиваемой структурой // Вопросы преобразовательной техники и частотного электропривода. Межвуз. науч. сб.- Саратов: Сарат. политехи, ин-т, 1985,- С.47-53.

11. Адамия Г.Г. Типовые структурные схемы агрегатов бесперебойного питания // Электротехническая промышленность. Преобразовательная техника. Выпуск 6(113), 1973.-С.19-21.

12. Бару AJi, Шинднес Ю.Л,// Преобразователи частоты для электроприводов большой мощности/СИСТЕМИ ЕЛЕКТРОЖИВЛЕННЯ ЕЛЕКТРОТЕХН1ЧНИХ УСТАНОВОК I КОМПЛЕКС1В/ Техшчна електродинамша Кип?-1999 с. 113-114

13. Бедфорд Б., Хофт Р. Теория автономных инверторов / Перевод с англ.- М.: Энергия, 1969.-280с.

14. Бенгина Т.Н., Чванов В.А. Анализ режимов автономного инвертора при внешних несимметричных коротких замыканиях // Электротехническая промышленность. Преобразовательная техника. Выпуск 3(140), 1982,- С.1-3.

15. Беркович Е.И., Зуев А.И., Иоффе Ю.С., Мотыль А.П. Параллельная работа преобразователей частоты для индукционного нагрева // Электрическая промышленность. Преобразовательная техника. Выпуск 11. 1973.

16. Бородин Н.И. Структурная схема при параллельной работе непосредственных преобразователей частоты // Полупроводниковые преобразователи электрической энергии,-Новосибирск, 1983.- С.94-103

17. Бородин Н.И., Подъяков Е.А., Харитонов С.А. Статический режим параллельной работы двух НПЧ // Преобразовательная техника.- Межвуз. научн. сб. НЭТИ,- Новосибирск, 1979.-С.101-112.

18. Булатов О.Г., Олещук В.И. Автономные тиристорные инверторы с улучшенной формой выходного напряжения.— Кишинев: Штиинца, 1980.— 115 с.12 i

19. Вентильные преобразователи переменной структуры / Тонкаль В.Е., Руденко B.C. Жуйков В.Н. и др.- Киев: Наук, думка, 1989.- 336с.

20. Видакас Ю.А., Грузенберг З.В., Писарев А.А., Шмелева Г.В. Вопросы устойчивости стабилизированного автономного инвертора тока к внешним коротким замыканиям // Труды ВНИИ электромеханики. Выпуск 77,- М., 1985.- С.68-79.

21. Волков И.В., Губаревич В.Н., Исаков В.Н., Кабан В.П. Принципы построения и оптимизация схем индуктивно-емкостных преобразователей. Киев: Наук, думка, 1981. - 176 с.

22. Глазенко Т.А. Полупроводниковые преобразователи в электроприводах постоянного тока.—Л.: Энергия, 1973.—304 с.

23. Глазенко Т.А., Гончаренко Р.Б. Полупроводниковые преобразователи частоты в электроприводах.— Л.: Энергия, 1969.— 184 с.

24. Голембиовский Ю. М., Суманеев Г. Э. Модель комплекса тиристорных преобразователей с учетом звена постоянного тока. / / Вопросы преобразовательной техники и частотного электропривода: Межвуз. научн. сб. Саратов : Сарат. политехи, ин - т, 1992. -С.35-42.

25. Голембиовский Ю.М Вопросы теории преобразователей частоты с дросселями передачи в цепях переменного тока // Материалы к XXXII научн.-техн. конф. СПИ. -Саратов, 1969.-С.18-19.

26. Голембиовский Ю.М Теория и расчет трехдроссельной схемы преобразователя частоты инверторно-переключающего режима с полной коммутирующей емкостью/ /Материалы к XXX научн. -техн. конференции / СПИ.-Саратов, 1967. -С.50-55.

27. Голембиовский Ю.М. Адаптивные сети на базе инверторов напряжения. Proceedings of the 4-th 1С " Unconventional Electromechanical and Electrical Systems St.Petersburg, Russia.-1999.-v.3.-P. 1063-1068.122

28. Голембиовский Ю.М. Математическая модель для расчета вентильного преобразователя частоты при различных режимах его работы //Теория и технические средства управления : Научные труды, вып. 59/СПИ.-Саратов,1973.-С.94-98.

29. Голембиовский Ю.М. Модель для управления комплексом тиристорных преобразователей // Вопросы преобразовательной техники и частотного электропривода: Межвуз. научн. сб. Саратов : СПИД985.-С.35-39.

30. Голембиовский Ю.М. Неканонические структуры оперативно перестраиваемых преобразовательных сетей // Техшчна електродинамка,- 1998г. Спец. випуск 2.-Т1.-С.217-220.

31. Голембиовский Ю.М. Синтез и моделирование оперативно перестраиваемых преобразовательных сетей. 4-th International conference on actual problems of electronic instrument engineering proceedings, Novosibirsk, Russia.-1998.-v.7.- P. 25 -30.

32. Голембиовский Ю.М. Тензорные модели многомостовых оперативно перестраиваемых преобразовательных сетей // Проблемы преобразовательной техники:Тез.докл. V Всесоюзной научн.-техн.конф./АН УССР,-Киев,1991.-Ч.-С.243-245.

33. Голембиовский Ю.М. Управление группой преобразователей частоты, работающих на общую сеть. -Деп. В Информ-прибор 04.11.88, №4402-пр88.

34. Голембиовский Ю.М., Бортников Ю.В. Преобразовательная сеть радиальной структуры // Вопросы преобразовательной техники, частотного электропривода и управления : Межвуз. научн. сб. Саратов : СГТУ, 1998.-С.89-98.

35. Голембиовский Ю.М, Бортников Ю.В. Радиальная сеть тиристорных преобразователей с изменяемой величиной коммутирующей емкости//Проблемы точной механики и управления:Сборник научных трудов,Саратов:РАН ИПТМУ 2002-С.207-211

36. Голембиовский Ю.М, Бортников ЮД Исследование динамических характеристик электропривода на базе радиальной сети// Сборник научных трудов,Саратов:РАН ИПТМУ 2002123

37. Голембиовский Ю.М., Голембиовский Д.Ю. Функциональное диагностирование комплекса тиристорных преобразователей с радиальной структурой // Методы и системы технической диагностики :Межвуз. научн. сб., вып. 13 /СГУ.-Саратов,1990.-С.146-150.

38. Голембиовский Ю.М., Пятибратов С.Б. Алгоритм оперативной оптимизации структуры перестраиваемого тиристорного комплекса // Системы управления производственными процессами : Межвуз. сб. научн. тр. /НПИ.- Новочеркасск, 1989.-С.44-49.

39. Голембиовский Ю.М., Пятибратов С.Б., Гаврилов A.B. Моделирование радиальной сети тиристорных преобразователей // Вопросы преобразовательной техники и частотного электропривода:Межвуз. научн. сб. Саратов : СПИ,1991.-С.25-31.

40. Голембиовский Ю.М., Суманеев Г.Э. Модель комплекса тиристорных преобразователей с учетом звена постоянного тока.// Межвуз. научн. сб. Саратов : СПИ.,1992.С.35-42.

41. Голембиовский Ю.М., Суманеев Г.Э. Тензорный подход к моделированию сложных вентильных систем // Распределенные информационно-управляющие системы: Сб. трудов / Изд-во Сарат. Ун-та.-Саратов, 1988.-С.134-136.

42. Голембиовский Ю.М., Суманеев Г.Э., Бортников Ю.В. Сравнительный анализ оперативно перестраиваемых сетей тиристорных преобразователей // Межвуз. научн. сб. Саратов : СГТУ,1999.-С.57-64.

43. Гончаров Ю.П., Секара Ю.Д. Ток короткого замыкания в инверторе напряжения с фильтром, содержащим насыщающийся реактор // Электротехническая промышленность. Преобразовательная техника. Выпуск 3, 1977,- С.12-15.

44. Горбань A.B. Аналитическое проектирование целенаправленных систем: оптимизация и проектирование систем по частям // Теория автоматизир. проектирования,— 1979,—Вып. 1,—С. 53—60.

45. Грабовецкий Г.В., Зиновьев Г.С.,Семенов В.В. Энергетический баланс как основа классификации вентильных преобразователей частоты//Сб.трудов Новосибирского электротехнического ин-та. Преобразовательная техника.-1968.-Кн1 .-153с.

46. Джюджи Д., Пелли Б. Силовые полупроводниковые преобразователи частоты: Теория, характеристики, применение. М.: Энергоиздат, 1983. - 400 с.

47. Егоров В.Н. Корженевский-Яковлев О.В. Цифровое моделирование систем электропривода,- JL: Энергоатомиздат, Ленингр. отд-е, 1986. -186с.

48. Жежеленко И.В., Рабинович Н.Л., Божко В.М. Качество электроэнергии на промышленных предприятиях,- Киев: Техника, 1981.- 160с.

49. Жуйков В.Я., Сучик В.Е., Денисюк С.П. Структурный синтез преобразователей с минимальным числом ключевых элементов//Техн. электродинамика.—1984.— № 2.— С. 41—44.

50. Жуйков В.Я., Сучик В.Е., Денисюк С.П. Структурный синтез электронных схем с идеальными ключами по графу изменения состояний // Известия вузов СССР. Радиоэлектроника,— 1982,—№ 3,—С. 39—44,

51. Зиновьев Г.С. Основы преобразовательной техники.-Новосибирск : НЭТИ, 1971.-4.1.-102с ; ч.2.-80с ; 1975.-ч.З.-92с ; 1981 .-ч.4-115с.125"

52. Зиновьев Г.С. Прямые методы расчета энергетических показателей вентильных преобразователей- Новосибирск : Изд-во Новосиб.ун-таД 990.-218с.

53. Зиновьев Г.С. Структурные схемы вентильных преобразователей// Преобразовательная техника: Сб.научн.трудов /НЭТИ,- Новосибирск, 1972.-С.64-71.

54. Кантер И.И. Статические преобразователи частоты, -Саратов:Изд-во Сарат. Унта, 1966.-392с.

55. Кантер И.И., Голембиовский Ю.М., Мазин Б.А. Трехфазный мостовой полупроводниковый преобразователь частоты//Электротехника,-1963.-С.64-68.

56. Кантер И.И. Преобразовательные устройства в системах электроснабжения.-Саратов: Изд-во Сарат. ун-та, 1989.- 260с.

57. Кантер И.И. Статические преобразователи частоты,- Саратов: Изд-во Сарат. унта, 1966,- 406с.

58. Кантер И.И., Голембиовский Ю.М Учет влияния конденсатора фильтра на работу преобразователя частоты инверторного режима //Научные сообщения XXIX Н.-Т.К./СПИ,-Саратов, 1969.-С. 113.

59. Кантер И.И., Голембиовский Ю.М. Вопросы теории преобразователя частоты на основе трехдроссельной схемы // Расчет гофрированных мембран, элементов и систем автоматики :Научн. тр., вып.43 /СПИ.-Саратов,1969.-С.98-102.

60. Кантер И.И., Голембиовский Ю.М. Тиристорный преобразователь для частотного управления асинхронным электроприводом // Электротехника.-1969.-№11.-С. 10-14.

61. Кантер И.И., Голембиовский Ю.М., Томашевский Ю.Б. Система управления вентильным энергетическим комплексом повышенной частоты // Вопросы преобразовательной техники и частотного электропривода : Межвуз. научн. сб. Саратов: СПИ,1981 С.28-43.126

62. Кантер И.И., Резчиков А.Ф. Метод исследования динамики вентильных преобразователей частоты, нагруженных на асинхронные двигатели. // Известия вузов «Электричество» 1968, №10.С.

63. Кантер И.И., Резчиков А.Ф. Структурные схемы вентильных преобразователей частоты с явным звеном постоянного тока // Расчет элементов и систем автоматики: Научные труды СПИ, 1969,- вып. 43.С.

64. Козначенко В.Ф., Миколаенко В.П., Кудряшов A.A. Микроконтроллерная система управления преобразователями частоты для объектно-ориентированных электроприводов насосов и вентиляторов// Электротехника.-1995.-№7.-С.29-33.127

65. Коннел А.Дж.Мак. Введение в тензорный анализ,- М.:-Физматгиз, 1963.-412с.

66. Копылов И.П. Математическое моделирование электрических машин. М.: Высш. шк., 1987.-248 с.

67. Крон Г. Применение тензорного анализа в электротехнике /Пер. с англ,-М.:Гостехиздат. 195 5.-250с.

68. Крон Г. Тензорный анализ сетей. -М.:-Советское радио, 1978. 719с.

69. Лабунцов В.А., Ривкин Г.А., Шевченко Г.И. Автономные тиристорные инверторы. -М.: Энергия, 1967. -160 с.

70. Ланкастер П. Теория матриц /Пер. с англ.-М.:Наука, 1982. -272с.

71. Маевский O.A. Энергетические показатели вентильных преобразователей.- М.: Энергия, 1978,- 320с.

72. Мустафа Г.М. Анализ по частям электрических цепей с идеальными ключами // Электричество.—1980,—№ П.—С. 39—44.

73. Петров А.Е. Тензорная методология в теории систем,- М.: Радио и связь, 1985,152с.

74. Полупроводниковые выпрямители / Под ред. Ф.И. Ковалева и Г.П.Мостковой.-М.: Энергия, 1978,- 448с.

75. Раскин Л.Я. Расчет стабилизированного параллельно последовательного инвертора тока с улучшенным использованием конденсаторов // Электротехника, N 9, 1987.-С.55-59.

76. Режимы работы трехдроссельной схемы полупроводникового преобразователя частоты/ И.И. Кантер, Ю.М. Голембиовский // Тез.докл. Третьей Всесоюзной межвуз. конф. по теории и методам расчета нелинейных электрических цепей и систем.Ташкент,1967.-С.18.

77. Розанов Ю.К. Параллельная работа преобразователей постоянного тока // Электротехника, N 4, 1982,- С.37-39.

78. ЮО.Розанов Ю.К. Полупроводниковые преобразователи со звеном повышенной частоты.-М.: Энергоатомиздат, 1987.- 184с.

79. Слипченко В.Г., Табарный В.Г. Машинные алгоритмы и программы моделирования электронных схем.— Киев : Техника, 1976. — 160 с.

80. Ю2.Смородинов В.В., Беркович Е.И. Параллельная работа ТПЧ для индукционного нагрева// Труды УАИ. Вып. 48, сб.З,- Уфа, 1973.

81. Сокольников И.С. Тензорный анализ. М.:Наука, 1971.-373с.

82. Суманеев Г.Э. Статические и динамические характеристики комплекса преобразователей частоты, работающих на общую сеть // Вопросы преобразовательной128техники и частотного электропривода: Межвуз.научн.сб,- Саратов:Сарат.политехн.ин-т, 1990. С.63-70.

83. Супронович Г. Улучшение коэффициента мощности преобразовательных установок / Пер. с польск.- М.: Энергоатомиздат, 1985.- 136с.

84. Тензорная методология в теории электропривода переменного тока / H.JI. Архангельский, Б.С. Курнышев, С.К. Лебедев, A.A. Фильченков // Изв. вузов. Электромеханика.-1993, № 1.-С.66-74.

85. Толстов Ю.Г. Выбор схемы мощных тиристорных реобразователей // Тиристорные преобразователи,- М.: Наука, 1970,- С.2-18.

86. Тонкаль В.Е., Мельничук А.П., Новосельцев A.B., Дыхненко Ю.И. Полупроводниковые преобразователи модуляционного типа с промежуточным звеном повышенной частоты. -Киев: Наук, думка, 1981. -252 с.

87. Тонкаль В.Е., Новосельцев A.B., Стрелков М.Т. Оптимизация силовых полупроводниковых преобразователей // Оптимизация схем и параметров устройств преобразовательной техники: Сб. науч. тр. Киев:Наук. думка.-1983,С,3-13.

88. Пб.Тонкаль В.Е., Новосельцев A.B., Черных Ю.К. Оптимизация параметров автономных инверторов,— Киев: Наук, думка, 1985. — 220 с.

89. Фрезер Р., Дункан В., Коллар J1. Теория матриц и ее приложения к дифференциальным уравнениям и динамике.— М. : Изд-во иностр. лит., 1950.— 440 с.

90. Чиженко И.М., Руденко B.C., Сенько В.И. Основы преобразовательной техники. -М.: Высшая школа, 1974. -430 с.

91. Щербаков Б.Ф., Русских A.A. Механизм распределения активных нагрузок параллельно работающих инверторов тока // Электротехническая промышленность. Преобразовательная техника. Вып. 4, Информэлектро, М., 1974.

92. А.С. 1119140 СССР, Н 02 М 5/27. Групповой преобразователь частоты / И.И. Артюхов, Н.П. Митяшин // Открытия. Изобретения.-1984.-№38.

93. A.C. 126763 СССР, Н 02 М 5/44. Групповой преобразователь частоты / И.И. Артюхов, Ю.Б. Томашевский, В.А. Серветник // Открытия. Изобретения.-1986.-№40.

94. А.С. 1394376 СССР, Н 02 М 7/725. Устройство для управления группой из п объединенных по выходу тиристорных преобразователей / И.И. Кантер, Ю.М. Голембиовский и др.// Открытия. Изобретения.-1988.-№17.

95. A.C. 1432698 СССР, Н 02 М 7/48. Групповой преобразователь частоты / И.И. Артюхов, Ю.Б. Томашевский, В.А. Серветник// Открытия. Изобретения.-1988.-№39.

96. А.С. 1436236 СССР, Н 02 М 5/44. Групповой преобразователь частоты / И.И. Артюхов, Ю.Б. Томашевский, В.А. Серветник // Открытия. Изобретения.-1988.-№41.

97. A.c. 896724 СССР, МКИ Н 02 М 7/515. Групповой преобразователь / И.И. Кантер, Н.П. Митяшин, И.И. Артюхов, С.Ф. Степанов и др. (СССР). Бюл. N 1. // Открытия. Изобретения.- 1982.

98. А.С. 896724 СССР, Н 02 М 7/515. Групповой преобразователь / И.И. Кантер, Н.П. Митяшин, И.И. Артюхов, С.Ф. Степанов и др. // Открытия. Изобретения.-1982.-№1.

99. A.C. 1815773 (Россия). Сеть тиристорных преобразователей./Ю.М. Голембиовский, Г.Э. Суманеев, С.Б. Пятибратов, Ю.Е. Емельянов. Опубл. В Б.И.988. № 17.ж>

100. ДОЧЕРНЕЕ ОТКРЫТОЕ АКЦИОНЕРНОЕ ОБЩЕСТВО1. ВНИПИГАЗДОБЫЧА

101. ОТКРЫТОГО АКЦИОНЕРНОГО ОБЩЕСТВА «газпром»рИВ Россия, 410760, г.Саратов, ул.Сакко и Ванцетти,1.O 9001pjnicj.p Тел: (845 2)-74-33-23 Факс: (845 2) 74-30-171. PC*1. ЙС0901Й

102. E-mail: box@vnipigaz.gazprom.ru

103. УТВЕРЖДАЮ Плюральный директор1. В.И.Милованов, » ноябрь 2002 г.1. АКТоб использовании результатов кандидатской диссертационной работы

104. Бортникова Юрия Викторовича

105. Технических предложений по выполнению регулирования производительности насосов подачи метанола на кусты газовых скважин.

106. Методик расчета и моделирования перестраиваемых электротехнических комплексов (ПЭК) для питания двигательной нагрузки.

107. Эскизных проектов регулируемого частотного электропривода на базе (ПЭК).

108. Рекомендаций по подбору параметров (ПЭК).

109. Использование указанных результатов позволяет повысить эффективность работы насосной установки в целом; сократить затраты на проведение опытно-конструкторских работ и натурных испытаний.

110. Председатель комиссии Члены комиссии1. Т.А. Асанов1. B.М. Мокроусов1. C.К. Мрочек1. Program MotorModel;1. Uses

111. Crt,Dos,Graph,Objects,App,Drivers,Menus,Views,Memory, Dialogs,StdDlg,MsgBox,Val e,uVar,uMatr; {$1 sys2.pas} TypepHintStatusLine = "tHintStatusLine; tHintStatusLine = Object(tStatusLine)

112. MyApp : tMyApp; MyEvent : tEvent;tEvent)1. Virtual Virtual Virtual

113. String,-var Color : Byte) ;1. Procedure Proglnit; Begin1.itialParam;

114. MyState.sPeriodModeling : =1 ; End;

115. Сохранение параметров систем^.'1. Восстановление параметров1. Файл Работа с файлами';

116. Параметры Ввод параметров системы'; '

117. Моделирование Запуск.Продолжение

118. Графики Выбор параметров вывода';

119. С^1+Г6 Установка параметров, заданных по

120. Е6 Изменение параметров системы';1. Е9 Запуск моделирования';

121. Ctrl+F9 Продолжение прерванного

122. Выбор графиков для построения';

123. Hint : = ' Выбор параметров вывода

124. Shift+F6 Установить параметры системы по

125. Alt+F6 Изменить параметры системы

126. Выбор цвета для Выбор цвета для Выбор цвета для Выбор цвета для Выбор цвета для1. Выбор цвета Выбор цвета

127. Выбор цвета для Напряжение нагрузки'; Напряжение на тиристоре'; Амплитудное значение напряжения на тиристрре' Напряжение на последовательных конденсаторах?; Ток нагрузки'; \

128. Выбор Выбор Hint : = ' Выбор Выбор Выбор Hint :='

129. Ввод времени ожидания до очистки экрана и. Ввод число шагов дифференцирования методом •1."

130. Hint:='Выбор графиков мгновенных 1 : Hint:='Выбор графиков мгновенных Hint:='Выбор графиков средних

131. ЧЕРНЫЙ'; СИНИЙ'; ЗЕЛЕНЫЙ' ГОЛУБОЙ' КРАСНЫЙ' РОЗОВЫЙ'hcColor+бhcColor+7hcColor+8hcColor+9hcColor+10hcColor+11hcColor+12hcColor+13hcColor+14hcColor+15

132. Hint:= Цвет : КОРИЧНЕВЫЙ';

133. Hint:= Цвет : СЕРЫЙ (СВЕТЛЫЙ)';

134. Hint:= Цвет: СЕРЫЙ (ТЕМНЫЙ)';

135. Hint:= Цвет: СИНИЙ (СВЕТЛЫЙ)';

136. Hint:= Цвет: ЗЕЛЕНЫЙ (СВЕТЛЫЙ)

137. Hint:= Цвет: ГОЛУБОЙ (СВЕТЛЫЙ)

138. Hint:= Цвет: КРАСНЫЙ (СВЕТЛЫЙ)

139. Hint: = Цвет : РОЗОВЫЙ (СВЕТЛЫЙ)1. Hint:= Цвет : ЖЕЛТЫЙ';1. Hint:= Цвет : БЕЛЫЙ';1. Else Hint1. End;1. End;

140. Constructor tMyApp.Init; Begin Inherited Init; Proglni t; End;

141. Procedure tMyApp.SetDelay; Var С : Word; В : Word; S : String; Begin1. Str(MyState.sDelay,S);

142. С:=InputBox(' ', 'Введите задержку в секундах: If C=cmOk then begin Val(S,B,C) ;

143. C=0 then MyState.sDelay:=B*10;1. End; End;1. S, 3)

144. Procedure tMyApp.SelectUt; Var1. DataRec : Record1. SelectUt : Word; End;

145. Dig : PDialog; R : TRect; Control, Labi, C : Word; Begin1. R.Assign(23,51. Histry : PView;55,14) ;

146. New(Dlg, Init(R, 'Выбор тиристора для Ut')); R.Assign(6,2,27,4);

147. Control := New(pRadioButtons, Init(R, NewSItem('1' 2 '

148. NewSItem( NewSItem( NewSItem( NewSItem( NewSItem(1. Nil) )))))) )

149. DataRec.SelectUt:=MyState.sSelectUt-1; С : =ExecuteDialog(Dig,@DataRec) ;

150. C=cmOk then MyState.sSelectUt:=DataRec.SelectUt+1; End;

151. Procedure tMyApp.SetCountStep; Var С : Word; В : Word; S,St : String; F : Boolean; Begin Repeat F:=True;

152. Str((MyState.sCountStep div 60),S); Str(MyState.sCountStep,St);

153. С:=InputBox('Установлено '+St+' шагов дифференцирования' дифференцирования: ' , S , 2 ) ; If C=cmOk then begin Val(S,В,C) ;

154. C=0 then MyState.sCountStep:=B*60 else F:=False;1. End; Until F=True; End;

155. Procedure tMyApp.SelectGraph;1. Var1. DataRec : Record

156. SelectGraph : Word; SelectGraph2 : Word; SelectGraphl : Word; End;1. Dig : PDialog; R : TRect;

157. Control, Labi, Histry : PView; С : Word; Begin1. R.Assign(8,2,50,22) ;

158. New(Dig, Init(R, 'Выбор графиков')); R.Assign(3,3,39,7) ;

159. NewSItem('hcNoContext',Ni1)))))))))))))))))))); Control".HelpCtx := hcSelectGraph; Dig".Insert(Control); R.Assign(10, 2,30,3);

160. Control := New(pStaticText, Init(R, 'Мгновенные значения')) DlgA.Insert(Control);1. R.Assign(7,8,36,11) ;

161. Control := New(pCheckboxes, Init(R, NewSItem('Ikl5', NewSItem('Ik22', NewSItem('Ik23', NewSItem('Ik24', NewSItem('Ik2 5', NewSItem('Id2', NewSItem('Id3', NewSItem('Id4', NewSItem('Id5', NewSItem('SelectGraph',

162. NewSItem('hcNoContext',Nil))))))))))))); Control".HelpCtx := hcSelectGraph; Dig".Insert(Control);

163. R.Assign(3,12, 39, 15) ; Control := New(pCheckboxes, Init(R, NewSItem('Ull', NewSItem('U12', NewSItem('U13', NewSItem(1Icl', NewSItem('Ic2', NewSItem('Ic3 NewSItem('Ut', NewSItem('Und' , NewSItem('Ind', NewSItem('Ids', NewSItem('Uta' ,

164. NewSItem('Beta',Nil)))))))))))))); Dig".Insert(Control); R.Assign(7,17,19,19) ;

165. Control New(PButton, Init(R, '~0~k', cmOK, bfDefault)); Dig".Insert(Control); R.Assign (23,17,35,19) ;

166. Control := New(PButton, Init(R, '~C~ancel', cmCancel, bfNori Dig".Insert(Control);

167. Dig".SelectNext(False); DataRec.SelectGraph:=MyState.sGraphSelect; DataRec.SelectGraphl:=MyState.sGraphSelectl; DataRec.SelectGraph2:=MyState.sGraphSelect2;

168. С:=ExecuteDialog(Dig, @DataRec) ; If C=cmOk then begin

169. MyState.sGraphSelect:=DataRec.SelectGraph; MyState.sGraphSelectl:=DataRec.SelectGraphl; MyState.sGraphSelect2:=DataRec.SelectGraph2; End ; End;

170. Procedure tMyApp.SelectGrOptions; Var

171. Dialog : pDialog; R : tRect; P : pCluster; С : Word; Begin1. R.Assign(15,6,66,19) ;

172. Dialog:=New(pDialog,Init (R, 'Выбор параметров вывода')); With Dialog" do begin R.Assign(2,2,49,9); P:=New(pCheckBoxes,Init(R,

173. MyState.sShowPhase then PA.Value:=(РЛ.Value or 1);

174. MyState.sShowPeriod then P".Value:=(PA.Value or 2);

175. MyState.sBeta then Pn.Value:=(PA.Value or 4);1. Рл.Value or 8);1. Рл.Value or 16);1. P".Value or 3 2);

176. Value : = (Рл.Value or 64)0~k',cmOk,bfDefault))); ~C~ancel',cmCancel,bfNormal))

177. MyState.slgrid then P".Value If MyState.sUgrid then P".Value If MyState.sBgrid then P".Value If MyState.sFlagDelay then Insert(P);

178. P. Assign (11, 10, 24, 12) ; Insert(New(pButton,Init(R,' R.Assign(26, 10, 39,12) ; Insert(New(pButton,Init (R, ' SelectNext(False); End;

179. Dispose(Dialog,Done); End;

180. Procedure tMyApp.InitParam; Var1. С : Word; Begin

181. С : =MessageBox(AC'Вы хотите установить'+#13 + #10 +

182. ЛС'параметры по умолчанию' ?',Nil,mfConfirmation+mfNoButton+mfYesButton) If C=12 then begin

183. MyState:=Default; Proglnit; { ChangeMatrData;}1. End; End ;

184. Procedure tMyApp.ChangeParam; Var1. DataRec : Record1. PeriodCnt : String5.;1.cl Bscl Uscl Stpl :

185. String6.; String[6]; String[6]; String[5];

186. StpU : String5.; SclB : String[5]; End; Dig : PDialog; R : TRect;

187. Control,Labi, Histry : PView; PerCnt,Stpl,StpU,SclB : plnputLine; pPerCnt,pStpI,pStpU,pSclB : pRangeValidator; С : Word; Begin1. R.Assign(7,6,73,18) ;

188. New(Dig, Init(R, 'Параметры вывода')); R.Ass ign(2 4,2,33,3);

189. Control := New(plnputLine, Init(R, 6)); Dig".Insert(Control); R.Assign(3,3,20,4);1.bi := New(pLabel, Init(R, 'Масштаб по ~т~оку:', Control)); Dig".Insert(Labi); R.Assign(21,4,33, 5) ;

190. Control := New(plnputLine, Init(R, 6)); Dig".Insert(Control); R.Assign(3,4,21,5);1.bi := NewfpLabel, Init(R, 'Масштаб по ~В~загр:', Control)); Dig".Insert(Labi); R.Assign(26,5,33,6);

191. Control := New(plnputLine, Init(R, 6)); Dig".Insert!Control); R.Assign(3,5,26,6);1.bi := New(pLabel, Init(R, 'Масштаб по ~н~апряжению:', Control)) Dig".Insert(Labi); R.Assign(41,2,57 , 3) ;

192. Control := New(pStaticText, Init(R, 'Масштабная сетка')); Dig".Insert(Control); R.Assign(48,3,63,4);

193. Stpl := New(plnputLine, InitfR, 5)); Dig".Insert(Stpl);1. R.Assign(35,3,48,4);1.bi := New(pLabel, Init(R, 'Шаг по т~о~ку:', Stpl)); Dig".Insert(Labi); R.Assign(54 , 4,63,5) ;

194. StpU := New(plnputLine, Init(R, 5)); Dig".Insert(StpU);1. R.Assign(35,4,54,5);1.bi := New (pLabel, Init(R, 'Шаг по н~а~пряжению': ' , StpU) ) ; Dig".Insert(Labi); R.Assign(55,5,63,6);

195. SclB := New(plnputLine, InitfR, 5));1. Dig".Insert(SclB) ;

196. R.Assign(3 5,5 , 55 , 6 ) ;1.bi := New(pLabel, Init(R, 'Масштаб по угл зап: ' , SclB) ); Dig".Insert(Labi); R.Assign(15,8,27,10) ;

197. Control := New(PButton, Init(R, '~0~k', cmOK, bfDefault)) ; Dig".Insert(Control); R.Assign(40,8,52,10);

198. Control := New(PButton, Init(R, '-C-ancel', cmCancel, bfNormal));

199. Dig".Insert(Control); Dig".SelectNext(False); With DataRec do begin j'

200. Str(MyState.sPeriodCounter,PeriodCnt) ; i

201. Str (MyState . slscale : 8 : 5 , Iscl) ; ''

202. Str(MyState.sBscale:5:2,Bscl); Str(MyState.sUscale:8:5,Uscl); Str(MyState.sStepI:4:0,Stpl); Str(MyState.sStepU:4:0,StpU); Str(MyState.sScaleb:8:5,SclB); End;

203. С:=ExecuteDialog(Dig,@DataRec); If C=cmOk then With DataRec do begin

204. Val(PeriodCnt,MyState.sPeriodCounter,С);

205. Val(Isc1,MyState.slscale,C);

206. Val(Bscl,MyState.sBscale,C); Val(Uscl,MyState.sUscale,C); Val(Stpl,MyState.sStepI,C); Val(StpU,MyState.sStepU,C); Val(SclB,MyState.sScaleb,C); End; End;

207. Procedure tMyApp.SaveParam;1. Var

208. StateFile : tStateFile; D: PFileDialog; FileName: PathStr; С : Word; L : Byte; Begin GetDir(0,FileName); L:=Length(FileName);

209. FileNameL.='\' then FileName[0]:=Chr(L-l); FileName:=FileName+'\*.prm'; D:=New(pFileDialog,Init(FileName,'Сохранение параметров','-N-ame',fdOkButton,100)); If ValidView(D)<>Nil then begin

210. D" .Options:=D".Options or ofBuffered; If Desktop".ExecView(D)ocmCancel then begin

211. D".GetFileName(FileName); End ;1. Dispose(D, Done); End ;

212. Assign(StateFile,FileName); {$1-}

213. Rewrite(StateFile); {$1 + }

214. IOResultoO then begin С:=MessageBox(#13+#10+"C'Ошибка создания файла',Nil,mfError+mfCancelButton) Exit; End ; {$!-}

215. Write(StateFile,MyState); {$1+1

216. IOResultoO then begin С:=MessageBox(#13+#10+"c'Ошибка записи файла',Nil,mfError+mfCancelButton); Exit; End;1. Close(StateFile); End;

217. Procedure tMyApp.LoadParam; Var

218. StateFile : tStateFile; D: PFileDialog; FileName: PathStr; С : Word;

219. TempState : tState; L : Byte; Begin.

220. GetDir ( 0 , FileName ) ; i'1. =Length (FileName) ; ' | :.

221. FileName L. = '\ ' then FileName [ 0 ]: =Chr (L-l) ; ''

222. FileName:=FileName+'\*.prm';

223. D:=New(pFileDialog,Init(FileName,'Восстановление параметров 1, '-n-ame' ,fdOpenButton,100)) ; If ValidView(D)<>Nil then begin

224. DA.Options:=DA.Opt ions or ofBuffered; If Desktop".ExecView(D)ocmCancel then begin

225. Da.GetFileName(FileName); End;1. Dispose(D, Done); End;

226. Assign(StateFile,FileName); {$1-}1. Reset(StateFile); {$1+}

227. IOResultoO then begin С:=MessageBox(#13+#10+~C'Ошибка открытия файла',Nil,mfError+mfCancelButton); Exit; End; {$1-}

228. Read(StateFile,TempState); {$1+}

229. IOResultoO then begin С:=MessageBox(#13+#10+~C1 Ошибка чтения файла',Nil,mfError+mfCancelButton); Exit; End ;

230. MyState:=TempState; Proglnit; { ChangeMatrData;} Close(StateFile); End;

231. Procedure tMyApp.ChangeSysParam; var1.p:Byte; 1., 1. Rn:Real; 1. DataRec : record

232. Edl : String10. {Inputline}

233. Ed2 : String10. {Inputline}

234. Ed3 : String10. {Inputline}

235. Ed4 : String10. {Inputline}

236. Ed5 : String10. {Inputline}1.l : String10. {Inputline}12 : String10. {Inputline}13 : String10. {Inputline}14 : String10. {Inputline}15 : String10. {Inputline}

237. Rdl : String10. {Inputline}

238. Rd2 : String10. {Inputline}

239. Rd3 : String10. {Inputline}

240. Rd4 : String10. {Inputline}

241. Rd5 : String10. {Inputline}

242. Rkl2 String10.; (Inputline

243. Rkl3 : String10. ;' {Inputline}1. R.Assign(6,3,16,4) ;1. R.Assign(6,4,16,5) ;

244. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(1,4,6,5);1.bi := New(PLabel, Init(R, 'Ed3 ', Control)) Dig".Insert(Labi);1. R.Ass ign(6,5,16,6) ;

245. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(1,5,6,6) ;1.bi := New(PLabel, Init(R, 'Ed4 ', Control)) Dig".Insert(Labi);1. R.Assign(6,6,16,7);

246. Control := New(PInputLine, InitfR, 10)); Dig".Insert(Control);1. R.Assign(1,6,6,7);1.bi := New(PLabel, Init(R, 'Ed5 ', Control)) Dig".Insert(Labi);1. R.Assign(6,7,16,8) ;

247. Control := New(PInputLine, InitfR, 10)); Dig".Insert(Control);1. R.Ass ign(1,7,6,8) ;1.bi := New(PLabel, Init(R, 'Ldl ', Control)) Dig".Insert(Labi);1. R.Assign(6,8,16,9);

248. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(1,8,6,9);1.bi := New(PLabel, Init(R, 1Ld2 Control)) Dig".Insert(Labi);1. R.Assign(6,9,16,10) ;

249. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(1,9,6,10);1.bi := New(PLabel, Init(R, 'Ld3 ', Control)) Dig".Insert(Labi);1. R.Assign(6,10,16,11);

250. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(1,10, 6, 11) ;1.bi ;= New(PLabel, Init(R, 'Ld4 ', Control)) Dig" . Insert (Labi) ,•1. R.As s i gn(21,2,31,3) ;

251. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(16,2, 21,3) ;1.bi := New(PLabel, Init(R, 'Rdl ', Control)) Dig".Insert(Labi);1. R. Assign(21,3,31,4) ;

252. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control) ;1. R.Assign(16,3,21,4) ;1.bi := New(PLabel, Init(R, 'Rd2 ', Control)) Dig".Insert(Labi);1. R.Assign(21,4,31,5) ;

253. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(16 , 4,21,5);1.bi := New(PLabel, Init(R, 'Rd3 ', Control)) Dig".Insert(Labi);1. R.Assign(21, 5,31,6);

254. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control) ;1. R.Assign(16,5,21,6) ;1.bi := New(PLabel, Init(R, 'Rd4 ', Control)) Dig".Insert(Labi);1. R.Assign(21,6,31,7);

255. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control) ;1. R.Assign(16 , 6,21,7) ;1.bi := New(PLabel, Init(R, 'Rd5 ', Control)) Dig".Insert(Labi) ;1. R.Assign(21,7,31,8) ;

256. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(16,7,21,8) ;1.bi := New(PLabel, Init(R, 'Rkl2', Control)) Dig".Insert(Labi);1. R.Assign(21,8,31,9);

257. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(16,8,21,9);1.bi := New(PLabel, Init(R, 'Rkl3', Control)) Dig".Insert(Labi);1. R.Assign(21,10,31, 11) ;

258. Control := New(PlnputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(16,10,21,11) ;1.bi := New(PLabel, Init(R, 'Rkl5', Control)) Dig".Insert(Labi);1. R.Assign(21,11,31,12) ;

259. Control := New(PlnputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(16,11,21,12 ) ;1.bi := New(PLabel, Init(R, 'Rk22', Control)) Dig".Insert(Labi);1. R.Assign(36,2,46,3) ;

260. Control := New(PlnputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(31,2,36,3);1.bi := New(PLabel, Init(R, 'Rk23', Control)) Dig".Insert(Labi);1. R.Assign(36,3,46,4);

261. Control := New(PlnputLine, Init(R, 10)); Dlg".Insert(Control);1. R. Assign(31,3,36,4) ;1.bi := New(PLabel, Init(R, 'Rk24', Control)) Dig".Insert(Labi);1. R.Assign(36,4,46,5);

262. Control := New(PlnputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(31,4,3 6,5);1.bi New(PLabel, Init(R, 1Rk25', Control)) Dig".Insert(Labi);1. R.Assign(36,5,46,6) ;

263. Control := New(PlnputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(31,5,36,6);1.bi := New(PLabel, Init(R, 'Cpsl', Control)) Dig".Insert(Labi);1. R.Assign(36,6,46,7) ;

264. Control := New(PlnputLine, Init(R, 10)); Dig".Insert(Control) ;1. R.Assign(31,6,36,7) ;1.bi := New(PLabel, Init(R, 'Cps2', Control)) Dig".Insert(Labi);1. R.Assign(36,8,46,9) ;

265. Control := New(PInputLine, Init(R, 10)); Dig".Insert)Control) ;1. R.Assign(31,8,3 6,9);1.bi := New (PLabel, In'it(R, ' Cprl ' , Control)) Dig".Insert(Labi);1. R.Assign(36,9,46,10);

266. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(31,9,36,10) ;1.bi := New(PLabel, Init(R, 'Cpr2', Control)) Dig".Insert(Labi);1. R.Assign(36,10,46,11);

267. Control := New(PInputLine, InitfR, 10)); Dig".Insert(Control);1. R.Assign(31,10,36,11);1.bi := New(PLabel, Init(R, 'Cpr31, Control)) Dig".Insert(Labi);1. R.Assign(36,11,46,12) ;

268. Control := New(PInputLine, Init(R, 15)); Dig".Insert(Control);1. R.Assign(31,11,36,12);1.bi := New(PLabel, Init(R, 'Lkl2', Control)) Dig".Insert(Labi);1. R.Assign(51,2,61,3);

269. Control := New(PInputLine, InitfR, 15)); Dig".Insert(Control);1. R.Assign < 46,2,51,3);1.bi := New(PLabel, Init(R, 'Lkl3', Control)) Dig".Insert(Labi);1. R.Assign(51,3,61,4);

270. Control := New(PInputLine, Init(R, 15)); Dig".Insert(Control);1. R.Assign(46,3,51,4);1.bi New(PLabel, InitfR, 'Lkl4', Control)) Dig".Insert(Labi);1. R.Assign(51,4,61, 5) ;

271. Control := New(PInputLine, Init(R, 15)); DlgA.Insert(Control);

272. R.Assign(46 , 6 , 51, 7) ;1.bi := New(PLabel, Init(R, 'Lk23', Control)); DlgA.Insert(Labi);1. R.Assign(51,7,61,8);

273. Control := New(PInputLine, Init(R, 15)); DlgA.Insert(Control);1. R.Assign(46, 7,51,8);1.bi := New(PLabel, Init(R, 'Lk24', Control)); DlgA.Insert(Labi);1. R.Assign(51,8,61,9) ;

274. Control := New(PInputLine, Init(R, 15)); DlgA . Insert (Control;1. R.Assign(46,8,51,9) ;1.bi := New(PLabel, Init(R, 'Lk25', Control)); DlgA.Insert(Labi);1. R.Assign(51,9,61,10);

275. Control := New(PInputLine, Init(R, 10)); DlgA.Insert(Control);1. R.Assign(46,9,51,10);1.bi := New(PLabel, Init(R, 'Rnl ', Control)); DlgA.Insert(Labi);

276. R.Assign(51, 10, 61, 11) ;

277. Control := New(PInputLine, Init(R, 10)); DlgA.Insert(Control) ;1. R.Assign(46,10,51,11) ;1.bi := New(PLabel, Init(R, 'Rn2 Control)); DlgA.Insert(Labi);1. R.Assign(51,11,61,12) ;

278. Control := New(PInputLine, Init(R, 10)); DlgA.Insert(Control);

279. R.Assign(46, 11, 51, 12) ;1.bi := New(PLabel, Init(R, 'Rn3 ', Control)); DlgA.Insert(Labi);1. R.Assign(16,13,28,15);

280. Control := New(PButton, Init(R, '~0~k', cmOk, bfDefault)); DlgA.Insert(Control);1. R.Assign(36,13,48,15) ;

281. Control := New(PButton, Init(R, '-C-ancel', cmCancel, bfNormal)) DlgA.Insert(Control);

282. DlgA.SelectNext(False); With DataRec do begin

283. Str (MyState. sEd. Dta 1,1. : 5 :1, Edl) „• Str(MyState.sEd.Dta[2,1]:5:1,Ed2);

284. Val(Lkl2,MyState.sLk2.Dta3,3.,C); Val{Lkl2,MyState.sLk2.Dta[4,4],C); Val(Lkl2,MyState.sLk2.Dta[5,5],C); Val(Cpsl,MyState.sCpos.Dta[ 1, 1],C) ; Val (Cpsl,MyState.sCpos.Dta[2,2],C); Val(Cpsl,MyState.sCpos.Dta[3,3],С);

285. Val(Cprl,MyState.sCpar.Dta1,1.,C);

286. New(Dig, Init(R, 'продолжение'));1. R.Assign(7,2,17,3) ;

287. Control := New(PlnputLine, InitfR, 10)); Dig".Insert(Control);1. R.Assign(2,2,7,3);1.bi := New(PLabel, Init(R, 'dB2 ', Control)) Dig".Insert(Labi);1. R.Assign(7,3,17,4);

288. Control := New(PlnputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(2,3,7,4);1.bi := New(PLabel, Init(R, 'dB3 ', Control)) Dig".Insert(Labi);1. R.Assign(7,4,17,5);

289. Control := New(PlnputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(2,4,7,5);1.bi := New(PLabel, Init(R, 'dB4 ', Control)) Dig".Insert(Labi);1. R.Assign(7,5,17,6);

290. Control := New(PlnputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(2,5,7,6);1.bi := New(PLabel, Init(R, 'dB5', Control)); Dig".Insert(Labi);1. R.Assign(7,6,17,7) ;

291. Control := New(PlnputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(2,6,7,7);1.bi := New(PLabel, Init(R, 'dEdl', Control)) Dig".Insert(Labi);1. R.Assign(7,8,17,9);

292. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(2,8,7,9);1.bi := New(PLabel, Init(R, 'dEd3', Control)) Dig".Insert(Labi);1. R.Assign(7,9,17,10) ;

293. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(2 , 9,7,10);1.bi := New(PLabel, Init(R, 'dEd4' , Control)) Dig".Insert(Labi);1. R.Assign(23, 2, 33, 3) ;

294. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(18,2,23,3) ;1.bi := New(PLabel, Init(R, 'Lnl ', Control)) Dig".Insert(Labi);1. R.Assign(23 ,3,33,4) ;

295. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(18,3,23,4);1.bi := New(PLabel, Init(R, 'Ln2 ', Control)) Dig".Insert(Labi);1. R.Assign(23 ,4,33,5) ;

296. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(18,4 ,23,5) ;1.bi New(PLabel, Init(R, ' Ln3 ', Control)) Dig".Insert(Labi);1. R.Ass ign(23,5,33,6) ;

297. Control := New(PInputLine, Init(R, 10)); Dig".Insert(Control);1. R.Assign(18,5,23,6);1.bi := New(PLabel, Init(R, 'CosF', Control)) Dig".Insert(Labi);1. R.Assign(23 ,6,33,7) ;

298. Control := New(PInputLine, Init(R, 10) DlgA.Insert(Control);;1. R.Assign(18,8,23,9) ;1.bi := New(PLabel, Init(R, 'dEd5', Control)); Dig".Insert(Labi);1. R.Assign(4,11,16,13) ;

299. Control := New(PButton, Init(R,1. DlgA.Insert(Control);

300. R.Assign(19,11,31,13) ; Control := New(PButton, Init(R, DlgA.Insert(Control) ;1. R.Assign(4,13,16,15);

301. Control := New(PButton, Init(R,1. DlgA.Insert(Control) ;-0~k', cmOk, bfDefault));-C~ancel', cmCancel, bfNormal))1 3arp', cmYes, bfNormal));

302. Dig".SelectNext( With DataRecl Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState. Str(MyState.

303. MyState.sF*MyState.sCpar.dta1,1.);

304. MyState.scosphi:=MyState.sR.dta1 Л./Sqrt(Sqr(2*Pi*MyState.sF*MyState.sL.dta[1,1] )+Sqr(MyState.sR.dta[1,1])); End;

305. C=cmYes then With DataRecl do begin Val(dEdl.MyState.sdEd.Dta 1,1.,C) ; Val{dEd2,MyState.sdEd.Dta[2,1],C);

306. Val(dEd3, MyState.sdEd.Dta3,1. ,C); !

307. Val(dEd4,MyState.sdEd.Dta4,1.,C); 1

308. Val(dEd5,MyState.sdEd.Dta5,1.,C); j

309. Val (dBeta2, MyState. sdBeta. Dta 2, 1. ,C) ; j". j

310. Val (dBeta3.MyState.sdBeta.Dta3,1.,C); ;. . I

311. Val(dBeta4,MyState.sdBeta.Dta4,1.,С); ' T' !

312. Val(dBeta5,MyState.sdBeta.Dta5,1.,C); i |

313. Val (cosF, MyState . scosphi , C) ; '1. Val(F,MyState.sF,С); 1

314. Val(В,MyState.sB,C); Rn : =MyState.scosphi/(2* Pi*MyState.sF*MyState.sB*MyState.sCpar.Dta1,1.); Ln:=Sqrt(1

315. Sqr(MyState.scosphi))/(Sqr(2*Pi*MyState.sF)*MyState.sB*MyState.sCpar.Dta1,1.); For lop:=1 to 3 do Begin MyState.sL.Dta[lop,lop]:=Ln; MyState.sR.Dta[lop,lop]:=Rn; end; End; End;1. Procedurevar

316. DataRec Mode2 Mode3 Mode4 Mode 5 end;var1. Dig : PDialog; R : TRect;

317. Control, Labi, Histry : PView; С : Word; Begin1. R.Assign(15,3,61,19) ;

318. New(Dig, Init(R, 'Режим работы сети')); R.Assign(5,3,22,6) ;

319. Control := New(pRadioButtons, Init(R, NewSItem('~И~нвертор', NewSItem(1~Р~езерв', NewSItem('-К-омпенсатор',Nil)))));1. Dig".Insert(Control);1. R.Assign(28,2,37,3);tMyApp.SelectShem;record

320. Word; {Radiobuttons} Word; {Radiobuttons} Word; {Radiobuttons} Word; {Radiobuttons}i i•г;;i- | i i1.bi := New(pLabel, Init(R, 'Модуль ~3', Control)); Dig".Insert(Labi) ;1. R.Assign(5,8,22,11) ;

321. Control := New(PButton, Init(R, '~0~k'r cmOK, bfDefault)); Dig".Insert(Control) ;1. R.Assign(25,13,37,15) ;

322. Control := New(PButton, Init(R, '~C~ancel', cmCancel, bfNormal)); Dig".Insert(Control) ;

323. Procedure tMyApp.SetSysParam; Var1. С : Word; Begin

324. С:=MessageBox("С'Вы хотите установить'+#13+#10+

325. ЛС'состояние по умолчанию ?',Nil,mfConfirmation+mfNoButton+mfYesButton) If C=12 then begin1. Proglnit; End; End;

326. Procedure tMyApp.SetGrColor;1. Var1. DataRec : Record1. SelectColor : Word; End;

327. Dig : PDialog; R : TRect; Control, Labi, С : Word; Begin1. R.Assign(18,3,57,17) ;

328. New(Dig, Init(R, 'Выбор цвета для графика '+GrName)) R.Assign(3,2,36,10);

329. NewSItem('hcColor',Nil)))))))))))))))))))) ; Control".HelpCtx:=hcColor; Dig".Insert(Control); R.Assign(5,11,17,13); Control := New(PButton, Init(R, Dig" .Insert (Control) ; R.Assign(22,11,34,13) ; Control := New(PButton, Init(R, Dig".Insert(Control);

330. Dig".SelectNext(False); DataRec.SelectColor:=Color; С:=ExecuteDialog(Dig,@DataRec); If C=cmOk then Color:=DataRec.SelectColor; End;-0~k', cmOK, bfDefault));-C-ancel'cmCancel, bfNormal))

331. Procedure tMyApp.RestoreSystem; Var

332. MyEvent : tEvent; Begin Redraw;

333. MyEvent.What:=evCommand; MyEvent.Command:=cmMenu; MyEvent.InfoPtr:=Nil; PutEvent(MyEvent); Asmmov ax,OOOlh int 33h End; End;

334. Procedure tMyApp.HandleEvent; Var EX : Word;

335. Begin { Escape,Cansel 11 Yes - 12 No - 13 Ok - 1

336. Event.Command=cmQuit Then Begin

337. Mod2:=MyState.sMode2 Mod3:=MyState.sMode3 Mod4:=MyState.sMode4 Mod5:=MyState.sMode5 RestoreCrtMode; RestoreSystem;1. End; Begin1.itialGraph; Zagr:=False; Contin:=True; ChangeMatr; Main;

338. Mod2:=MyState.sMode2 Mod3:=MyState.sMode3 Mod4:=MyState.sMode4 Mod5:=MyState.sMode5 Res toreCrtMode; RestoreSystern;1. End; Begin1.itialGraph; InitialParam; Contin:=False; ChangeMatr; FunFromB;

339. Close(FilterFile); RestoreCrtMode; RestoreSystem;1. End; Begin1.itialGraph; Viewer;

340. RestoreCrtMode; RestoreSystem;

341. SetGrColor('Id2',MyState SetGrColor('Id3' , MyState

342. Else Exit; ClearEvent(Event) End;1. End;1. End;

343. SetGrColor('Und',MyState.sUnd) ,MyState.sUt); ,MyState.sUta) ,MyState.slnd) .MyState.slds)

344. SetGrColor('Ut SetGrColor('Uta SetGrColor( SetGrColor(1.d Ids

345. SetGrColor('Ull',MyState.sUll) SetGrColor('U12',MyState.sUl2) SetGrColor('U13 SetGrColor('Icl SetGrColor('Ic2 SetGrColor('Ic31. SetCountStep; SelectUt;

346. Procedure tMyApp.InitMenuBar; Var

347. R : tRect; Begin GetExtent(R); R.В.Y:=R.A.Y+1;

348. MenuBar:=New(pMenuBar,Init(R,NewMenu( " ■

349. Newl tern ( ' ~Ё~ ' , ' ' , kbAl tSpace , cmAbout, hcAbout, NewSubMenu('~Ф~айлhcFile,NewMenu(

350. Newltem('~С~охранить параметры системы','F2',kbF2,cmSaveParam,hcSaveParam,-В~осстановить параметры системы ' , ' F3 ' , kbF3 , cmLoadParam, hcLoadParajri,

351. Выхо~д~','Alt+X',kbAltX,cmQuit,hcQuit,

352. Newltem( NewLine( Newltem( Nil)) ) ) ) ,

353. NewSubMenu('~П~араметры',hcParams,NewMenu(

354. Newltem('~И~зменить параметры системы', 'F6' , kbF6,cmChangeParam,hcChangeParam, NewLine(

355. Newltem('И~з~менить состояние системы',1Alt+F6',kbAltF6,cmChangeSysParam,hcChangeSysParam, NewLine(

356. Newltem('~В~ыбор режима работы сети','',kbNoKey,cmSelectShem,hcSelectShem, Newltem( ' ~В~ыбор тиристора' , ' ' , kbNoKey, cmSelectUt, hcNoCo'ntext, NewLine(

357. Newltem('Вво~д~ шага дифференцирования','',kbNoKey,cmSetCountStep,hcSetCountStep, Nil))))))))),

358. NewSubMenu('-М-оделирование',hcModeling,NewMenu( Newltem('~С~тарт','F9',kbF9,cmStart,hcStart,

359. Newltem('~3~ависимость Пдейст(Взагр) ','F8',kbF8,cmDiagrZagr,hcStart, Newltem('~П~родолжить моделирование','Ctrl+F9',kbCtrlF9,cmContinue,hcCont' Nil)))),

360. NewSubMenu('~Г~рафики',hcGraphs,NewMenu(

361. Newltem('~В~ыбор графиков','',kbNoKey,cmGrSelect,hcGrSelect,

362. Newltem('Вы-6-op параметров вывода','',kbNoKey,cmGrOptions,hcGrOptions,

363. NewSubMenu('Выб~о~р цвета графика',hcSetColor,NewMenu(

364. NewSubMenu('Ток -Id-',0,NewMenu(

365. Newltem('Фаза -1-' , ' ' ,kbNoKey,cmChangelcl,hcChangelcl, Newltem('Фаза -2-' , ' ' ,kbNoKey,cmChangeIc2,hcChangeIc2 , Newltem(1 Фаза ~3~' , ' ' ,kbNoKey,cmChangeIc3,hcChangeIc3,Nil) )) ) , NewSubMenu('Ток ~Ik~',heIk,NewMenu(

366. NewSubMenu('Напряжение -Uf-',hcUf,NewMenu(

367. Newltem('Фаза -1-','',kbNoKey,cmChangeUfl,hcChangeUfl, Newltem('Фаза —2 — ' , ' ',kbNoKey,cmChangeUf2,hcChangeUf2, Newltem('Фаза -3-','',kbNoKey,cmChangeUf3,hcChangeUf3,Nil)))), NewSubMenu('Напряжение ~Ul~',hcUl,NewMenu(

368. Newltem('Фаза ~2~','Фаза 1',kbNoKey,cmChangeUll,hcChangeUll, Newltem('Фаза ~3~','Фаза 2',kbNoKey,cmChangeU12,hcChangeU12, Newltem('Фаза -1-','Фаза 3',kbNoKey,cmChangeU13,hcChangeU13,Nil)))) NewSubMenu('Напряжение -Un-',hcUn,NewMenu(