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

оценку научной и научно-технической результативности выполненных работ.

5.1 Расчет плановой себестоимости

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

с точки зрения пользователя данного ПО;

с позиций использования ресурсов и их оценки;

выполнение требований на программное изделие.

Оценка качества программного изделия с точки зрения пользователя определяется необходимым на стадии функционирования объемом оперативной памяти ЭВМ, затратами машинного времени, пропускной способностью каналов передачи данных. Оценка качества программного изделия на стадии его создания включает определении трудоемкости создания ПО, времени разработки и стоимости его создания.

Исходя из этого при создании ПО для разработки автоматизированных систем различного назначения, технико-экономические расчеты должны содержать:

определение трудоемкости создания ПО;

расчет затрат на создание программного изделия;

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

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

Трудоемкость разработки ПО можно рассчитать по формуле:

где to - затраты на подготовку и описание поставленной задачи, чел.-ч;

tи - затраты труда на исследование алгоритма решения задачи, чел.-ч;

ta - затраты труда на разработку блок-схемы алгоритма, чел.-ч;

tп - затраты труда на программирование по готовой блок-схеме, чел.-ч;

tотл - затраты труда на отладку программы на ЭВМ, чел.-ч;

tд - затраты труда на подготовку документации по задаче, чел.-ч.

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

Условное число операторов в программе:

где q - предполагаемое число операторов (q=500);

c- коэффициент сложности программы, который определяет относительную сложность программ задачи по отношению к типовой задаче, сложность которой принята равной единице (c=1.4);

p - коэффициент коррекции программы, который определяет в ходе ее разработки увеличение объема работ за счет внесения изменений в алгоритм или программу. Величина p находится в пределах 0.05...0.1, что соответствует внесению 3...5 коррекций, влекущих за собой переработку 5...10 % готовой программы (p=0.1).

Q=500*1.4*(1+0.1)=770

Затраты труда на подготовку и описание поставленной задачи: to = 10 чел.-ч

Затраты труда на изучение описания задачи определяются с учетом уточнения описания и квалификации программиста по формуле:

где B - коэффициент увеличения затрат труда вследствие недостаточности описания задачи, чел.-ч (B=1.4);

K - коэффициент квалификации программиста, определяемый в зависимости от стажа работы по данной специальности (K=1.0);

Затраты труда на разработку алгоритма решения задачи:

Затраты труда на составление программы по готовой блок-схеме:

Затраты труда на отладку программы на ЭВМ:

Затраты на подготовку документации по задаче:

Где tдр - трудоемкость подготовки материалов к рукописи;

tдо - трудоемкость редактирования, печати и оформления.

Полная средняя трудоемкость разработки программы:

Трудоемкость разработки ПО:

Затраты на создание программного изделия Kпо включают в себя затраты на заработную плату исполнителей программы З_зп и стоимость машинного времени, необходимого для отладки программы на ЭВМ Змв:

Заработная плата исполнителей определяется по формуле:



где t - общая трудоемкость разработки ПО;

Спр - средняя часовая заработная плата программиста (основная и дополнительная) с отчислениями на социальное страхование, грн/ч (Спр=0.352 грн/ч).

Стоимость машинного времени, необходимого для отладки программы на ЭВМ:

где tотл - трудоемкость отладки программы на ЭВМ;

См - стоимость машино-часа ЭВМ, грн/ч (См=0.30 грн).

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

Определение стоимости основных материалов спроектированной аппаратуры:

№ п/п	Наименование материала	Единица измерения	Цена за единицу, грн.	Норма расхода на 1 изделие	Стоимость материала на 1 изделие, грн.
1. 2.	Провод Припой	м кг	0.90 2.00	50 0.1	45 0.20
	Итого				45.20

Для определения окончательного значения стоимости основных материалов необходимо из общей стоимости материалов вычесть стоимость реализуемых отходов (2% от Змоб) и прибавить стоимость транспортно-заготовительных расходов (2-4 % от Змоб):

З_м=45.2-45.20.02+45.20.04=46.1 грн

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

№ п/п	Наименование, тип, номинал	Кол-во, штук	Цена за ед., грн	Сумма, грн
1.	Металлический каркас	1	2.00	2.00
2.	Наборное поле	1	3.80	3.80
3.	Боковая стенка	2	1.60	3.20
4.	Передняя стенка	1	2.80	2.80
5.	Панель управления	1	5.50	5.50
6.	Прозрачный экран	1	8.00	8.00
7.	Светодиоды	2	0.15	0.30
8.	Выпрямитель	1	4.00	4.00
9.	Подставка	1	1.00	1.00
10.	Резистор МЛТ-0.5	15	0.05	0.75
11.	Конденсатор К50-6	11	0.20	2.20
12.	Микросхема К590КН6	1	0.15	0.15
13.	Микросхема К555АП6	1	0.15	0.15
14.	Микросхема К1113ПВ1	1	0.90	0.90
15.	Микросхема КР1816ВЕ51	1	2.30	2.30
16.	Оптрон АОТ128Б	3	0.40	1.20
17.	Диод КД522Б	8	0.05	0.40
18.	Разъем СН064-64р-24-2	2	0.80	1.60
19.	Кнопка	2	0.30	0.60
	Итого			40.85

Затраты на комплектующие изделия определяются прибавлением к полученной сумме транспортно-заготовительных расходов (2-4% от Зкоб):

З_к=40.85+40.850.03=42.08 грн

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

Основная заработная плата рабочих, занятых изготовлением спроектированной аппаратуры, рассчитывается по укрупненному методу:

где У_з - удельный вес основной заработной платы рабочих в заводской себестоимости аналога, %;

Ум - удельный вес стоимости основных материалов и комплектующих изделия в заводской себестоимости аналога, %.

Запроектированная аппаратура будет изготавливаться на другом предприятии, следовательно ее себестоимость можно определить по формуле:

где Рц - цеховые расходы в процентах;

Ро - общезаводские расходы в процентах.

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

где Р_вн - внепроизводственные расходы предприятия, %.

Дополнительная заработная плата рассчитывается по формуле:

Отчисления на социальное страхование:

Накладные расходы:

Результаты расчетов плановой себестоимости НИР помещены в таблицу

№ п/п	Статьи затрат	Сумма, грн
1.	Материалы	40.85
2.	Спецоборудование для научных работ	-
3.	Основная заработная плата	850.00
4.	Дополнительная заработная плата	85.00
5.	Отчисления на социальное страхование	345.95
6.	Расходы на служебные командировки	-
7.	Затраты по работам, выполняемым сторонними организациями	-
8.	Прочие прямые расходы	45.00
9.	Накладные расходы	1122.00
	Плановая себестоимость	2488.8

5.2 Определение договорной цены НИР и плановой прибыли

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

Плановая прибыль рассчитывается по формуле:

где Ц_д - договорная цена НИР;

С_пл - плановая себестоимость НИР.

Договорная цена фундаментальных и поисковых НИР, а также прикладных НИР, для которых по объективным причинам рассчитать экономический эффект невозможно, может быть установлена по формуле:

Где ФЗП=З_о+З_д - заработная плата работников, непосредственно участвующих в выполнении НИР;

Н_р - нормативная рентабельность, %;

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

Плановая прибыль:

П=2722.55-2488.8=233.75 грн

6. ОХРАНА ТРУДА

6.1 Анализ условий труда, опасных и вредных производственных факторов

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

Меры безопасности труда должны предусматриваться при проектировании, строительстве, изготовлении и вводе в действие объектов и оборудования.

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

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

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

6.2 Выбор и обоснование мероприятий для создания безопасных условий труда

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

Основное питание ПЭВМ и периферийных устройств в ОГЭ осуществляется от трехфазной сети частотой 50 Гц, напряжением 380/220 В. Для питания отдельных устройств используются однофазные сети как переменного, так и постоянного тока с напряжением от 5 до 380 В.

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

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

Трехфазные сети переменного тока могут работать как с изолированной, так и с заземленной нейтралью. В таких сетях напряжением до 1000 В защита персонала осуществляется занулением, являющимся преднамеренным электрическим соединением с нулевым защитным проводником металлических нетоковедущих частей, которые могут оказаться под напряжением (ГОСТ 12.1.009-76). Это превращает любое замыкание на корпус в короткое замыкание, при котором срабатывает максимальная токовая защита, отключая поврежденную установку от сети.

Первое требование правил устройства электроустановок (ПУЭ) в отношении зануления:

проводимости фазных и нулевых защитных проводников должны быть такими, чтобы при замыкании на корпус выполнялось отношение Iкз >= 3 Iн ближайшей плавкой вставки;

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

Второе требование ПУЭ заключается в том, чтобы выполнялось условие rн =< 2 rф.

Обычно первое требование выполняется автоматически, и задача организации зануления сводится к правильному выбору сопротивления нулевого проводника. Сечение медного или алюминиевого защитного проводника в этом случае должно быть не менее 50% сечения фазного проводника. Для стальных проводников следует использовать таблицы, приведенные в ПУЭ и содержащие удельные сопротивления для различных значений Iз.

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

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

Специфическая опасность электроустановок: токоведущие проводники, корпуса стоек ЭВМ и прочего оборудования, оказавшегося под напряжением в результате повреждения (пробоя) изоляции, не подают каких-либо сигналов, которые предупреждают человека об опасности. Реакция человека на электрический ток возникает лишь при протекании последнего через тело человека. Исключительно важное значение для предотвращения электротравматизма имеет правильная организация обслуживания действующих электроустановок, проведения ремонтных, монтажных и профилактических работ. При этом под правильной организацией понимается строгое выполнение ряда организационных и технических мероприятий и средств, установленных действующими Правилами технической эксплуатации электроустановок потребителей и правила техники безопасности при эксплуатации электроустановок потребителей (ПТЭ и ПТБ потребителей) и Правила установки электроустановок (ПУЭ). В зависимости от категории помещения необходимо принять определенные меры, обеспечивающие достаточную электробезопасность при эксплуатации и ремонте электрооборудования. Так, в помещениях с повышенной опасностью электроинструменты, переносные светильники должны быть выполнены с двойной изоляцией или напряжение питания их не должно превышать 42 В. В особо опасных же помещениях напряжение питания переносных светильников не должно превышать 12 В. Работы без снятия напряжения на токоведущих частях и вблизи них, работы проводимые непосредственно на этих частях или при приближении к ним на расстояние менее установленного ПЭУ. К этим работам можно отнести работы по наладке отдельных узлов, блоков. При выполнении такого рода работ в электроустановках до 1000 В необходимо применение определенных технических и организационных мер, таких как:

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

работа в диэлектрических перчатках или стоя на диэлектрическом коврике;

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

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

В соответствии с ПТЭ и ПТВ потребителям и обслуживающему персоналу электроустановок предъявляются следующие требования :

лица, не достигшие 18-летнего возраста, не могут быть допущены к работам в электроустановках;

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

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

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

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

При эксплуатации ЭВМ, как правило, применяется боковое естественное освещение. В тех случаях, когда одного естественного освещения не хватает, устанавливается совмещенное освещение. При этом дополнительное искусственное освещение применяется не только в темное, но и в светлое время суток.

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

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

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

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

Рациональная планировка помещения, размещение оборудования является важным фактором, позволяющим снизить шум при существующем оборудовании ЭВМ.

Таким образом для снижения шума создаваемого на рабочих местах внутренними источниками, а также шума, проникающего извне следует :

ослабить шум самих источников (применение экранов, звукоизолирующих кожухов);

снизить эффект суммарного воздействия отраженных звуковых волн (звукопоглощающие поверхности конструкций );

применять рациональное расположение оборудования;

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

6.3 Инструкция по охране труда, при монтаже и эксплуатации системы

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

6.3.2 Корпус устройства сбора информации при эксплуатации должен быть надежно заземлен через крепление к стойке.

6.3.3 При техническом обслуживании (ремонте) узлов системы температура жала паяльника при лужении и пайке микросхем должна быть не более + 260' С , а время пайки не должно превышать 5 сек. Жало паяльника необходимо заземлить. При пайке обязательно применение мер защиты корпусов микросхем и транзисторов от попадания флюса и припоя.

6.3.4 Напряжение питания электропаяльника не должно превышать 36 В, а мощность не более 40 Вт.

6.4 Расчет искусственного освещения

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

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

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

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

Расчет освещения методом коэффициента использования выполняется по формуле:

(6-1)

где Ф - необходимый световой поток ламп в каждом светильнике, лм;

Е - нормативная минимальная освещенность, лк, определяется по таблице 3.10 [ ];

k - коэффициент запаса, выбирается по таблице 3.13 [ ];

S - освещаемая площадь, кв м;

z - коэффициент минимальной освещенности, величина которого находится в пределах от 1.1 до 1.5 (при оптимальных отношениях расстояния между светильниками к расчетной высоте для ламп накаливания и ДРЛ z=1.15 и для люминесцентных ламп z=1.1);

N - число светильников в помещении;

- коэффициент использования светового потока.

Принимаем:

Е=300 лк; k=1.5; z=1.1

Для освещения помещения применяем газоразрядные лампы.

Освещаемая площадь помещения определяется по формуле:

(6-2)

где S - освещаемая площадь, кв м;

A - длина помещения, м;

B - ширина помещения, м.

S=5*3=15 кв м

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

(6-3)

принимается по таблице 3.14 [ ] в зависимости от типовой кривой силы света светильника. Для люминесцентных ламп при косинусоидальной типовой кривой выбираем а = 1.4.

Находим расчетную высоту подвеса по следующей формуле:

(6-4)

Где H - высота помещения, м;

- высота свеса светильника (от перекрытия), м;

- высота рабочей поверхности над полом, м.

Принимаем:

H=3 м, =0.7 м, =0.8 м.

h=3-0.7-0.8=1.5 м

Расстояние между светильниками определяем из формулы (6-3):

(6-4)

L=1.4*1.5=2.1 м

Определяем количество светильников для установки в помещении:

(6-5),

Для определения коэффициента использования находим индекс помещения i:

(6-6),

Где A и B - соответственно длина и ширина помещения, м;

h - расчетная высота подвеса, м.

Полученное значение i округляем до ближайшего табличного значения и принимаем i=1.5.

По таблице 3.15 [ ] оцениваем коэффициенты отражения поверхностей помещения: потолка - , стен - , рабочей поверхности - . Принимаем:

=70%, =50%, =30%

По полученным значениям i и по таблице 3.16 [ ] определяем величину коэффициента использования светового потока для выбранного светильника.

Выбираем светильник типа ПВЛМ - Д, для которого =73%.

По формуле (6-1) определяем необходимый световой поток ламп в каждом светильнике:

По таблице 3.20 [ ] выбираем необходимую лампу. Тип выбранной лампы - ЛХБЦ40-4. В светильнике будут установлены две таких лампы.

Краткие технические данные лампы ЛХБЦ40-4:

мощность - 40 Вт;

напряжение - 103 В;

световой поток после 100 ч горения - 2000 лм.

6.5 Противопожарная защита

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

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

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

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

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

Для большинства помещений, где размещены ЭВМ, установлена категория пожарной опасности В.

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

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

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

Газовые огнетушители применяются для тушения жидких и твердых веществ, а также электроустановок, находящихся под напряжением.

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

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

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

SUMMARY

The electric drives for such machinery as pumps, compressors, conveyers, etc. occupy the intermediate position between the high dynamic and low dynamic drives. The existing automatic control systems do not satisfy with all requirements presented to such drives. Therefore it is proposed the alternating current electric drive with improved power parameters.

Principles of the work of the alternating current electric drive with improved power parameters is based on the maintenance of a constant corner between generalized vectors of the stator current and rotor flux that provides work of an engine in the field of nominal mode with the maximum values of efficiency and capacity factor (cos j).

Induction Motor Automatic Control System is intended for regulation of rotor speed by change of voltage and stator field frequency values. In comparison with existing AC electric drives the designed system has the number of advantages: absence of mechanical gauges (tachometers, position detectors, etc.) makes the system cheaper, increases its reliability and improves the dynamic characteristics; the regulation of phase flux values in function from load permits to obtain essential economy of the electric power (especially when motor works in the range of small loads); the maintenance of relative sliding constancy permits to obtain the hard mechanical characteristics.

СПИСОК ЛИТЕРАТУРЫ

К.П.Ковач, И.Рац. Переходные процессы в машинах переменного тока. М. Л.: Госэнергоиздат, 1963, 744 стр.

Эпштейн И. И. Автоматизированный электропривод переменного тока. - М.: Энергоиздат, 1982 - 192 c., ил.

Шипачев В.С. Высшая математика: Учеб. для немат. спец. вузов / Под ред. акад. А. Н. Тихонова. - 2 - е изд., стер. - М.: Высш. шк., 1990. - 479 с., ил.

Асинхронные двигатели серии 4А: Справочник / А. Э. Кравчик, М. М. Шлаф, В. И. Афонин, Е. А. Соболенская. - М.: Энергоиздат, 1982. - 504 с., ил.

В. Л. Грузов, Ю. А. Сабинин. Асинхронные маломощные приводы со статическими преобразователями. Л.: "Энергия", 1970, 136 с.

Turbo Pascal Version 5.5 Object - Oriented Programming Guide. -Borland International, 1989

Dutton F. Turbo Pascal Toolbox. - SYBEX, 1988

Токарев Б. Ф. Электрические машины. Учеб. пособие для вузов. - М: Энергоатомиздат, 1990: - 642 с.: ил.

Цифровые и аналоговые интегральные микросхемы: Справочник / С. В. Якубовский, Л. И. Ниссельсон, В. И. Кулешова и др.; Под ред. С. В. Якубовского. - М.: Радио и связь, 1989. - 496 с.: ил.

Полупроводниковые БИС запоминающих устройств. Под ред. А. Ю. Гордонова и Ю. А. Дьякова. - М.: Радио и связь, 1986. - 360 с.

Булгаков А. А. Частотное управление асинхронным двигателем - М.: Энергоиздат, 1982. - 216 c.

Бойко В.А., Голинько В. И., Фрундин В. Е. Методические указания по выполнению раздела "Охрана труда и окружащей среды" в дипломных проектах студентов специальностей 0303, 0606, 0628 /ДГИ. - Днепропетровск, 1986. - 50 с.

Ю.Г.Сибаров, Н.Н.Сколотнев. Охрана труда в вычислительных центрах. - М: Машиностроение, 1985

Липаев В.В., Потапов А. И. Оценка затрат на разработку программных средств. - М.: Финансы и статистика, 1988. - 224 c.: ил.

Боэм Б. У. Инженерное проектирование программного обеспечения.: Пер. с англ. - М.: Радио и связь. 1985. - 512 c.

Методические указания по составлению экономической части дипломного проекта для студентов специальностей "Автоматика и управление в технических системах" (21.01) и "Электропривод и автоматизация промышленных установок и технологических комплексов" (21.05) / Сост.: В. Д. Тулупий, А. В. Давидайтис, И. В. Шереметьева. - Днепропетровск: ДГИ, 1992. - 52 c.

Сандлер А. С., Гусяцкий Ю. М. Тиристорные инверторы с широтно - импульсной модуляцией. - .: Энергия, 1968 - 96 с.

Кривицкий С. О., Эпштейн И. И. Динамика частотно - регулируемых электроприводов с автономными инверторами. - М.: Энергия, 1970. - 150 c.

ПРИЛОЖЕНИЯ

Обозначение	Наименование	Примечание
	документация
	Текст программы	Текст программы с комментариями
	Описание программы	Описание, назначение и характеристика программы
	Руководство оператора

Программа расчета векторной диаграммы асинхронного двигателя program lw(lw);

uses crt,dos,graph,im_tpu;

const {Параметры "Г-образной схемы замещения}

p=2; {Число полюсов}

P2n=75; {Номинальная мощность, кВт}

U1n=220; {Номинальное фазное напряжение, В}

KPDn=0.925; {Номинальный КПД}

Cosn=0.89; {Номинальный Cos(f)}

Sn=0.016; {Номинальное относительное скольжение, о.е.}

Smax=0.1; {Критическое относительное скольжение, о.е.}

J=0.6; {Момент инерции ротора, кг*м^2}

X0=4.6; {Сопротивление взаимоиндукции, о.е.}

R1=0.037; {Активное сопротивление статора, о.е.}

X1=0.1; {Индуктивное сопротивление статора, о.е.}

R2=0.017; {Активное сопротивление ротора, о.е.}

X2=0.16; {Индуктивное сопротивление ротора, о.е.}

R2p=0.036; {Пусковое сопротивление ротора, о.е.}

Mn=9550*P2n/(3e3/p*(1-Sn));{Номинальный момент, н*м}

Mmin=1*Mn; {Значение минимального момента, н*м}

Mmax=2.5*Mn; {Значение критического момента, н*м}

type StringSwitche=(ST11,ST12,ST13,ST14,ST15,ST16,ST17,DATA1,DATA2,

ST21,ST22,ST23,ST24,ST25,ENDT1,ENDT2);

var t,dt,U1a,U1b,M,A1,A2,K1,K2,L11,L21,L1,L2,L0,W1,EndT,SpeedScale,

I0a,I0b,I1a,I1b,I21a,I21b,KPD,CosF,I1,I21,W0,Psi1,Psi2,Psi0,s,I0,

I1n,X1t,R1t,X0t,R2t,X2t,R2pt,Smin:real;

RepeatNumber,CurrentNumber,CurrentRepeat,i,k,Ms,Uss,PsiAlpha,IsAlpha

IsPsirAlpha,PsisRAngle,UssAbsoluteAngle,PsirRAngle,IsRAngle,IrsRAngle,

PsioRAngle,Fs:integer;

x,f,h,f1,f2,f3,f4:array[1..5] of real;

StringKPD,StringPsiAlpha,StringIsAlpha,StringIsPsirAlpha,StringCurrW,

StringAlphaRasch,StringIs,StringCosF, VectorString,VectorString0:string;

color:word;

Result:text;

Пересчет паспортных данных в абсолютные единицы "Т"-образной схемы

procedure ReCalculation;

var b:real;

begin

I1n:=P2n*1e3/(3*U1n*Cosn*KPDn); {Номинальный фазный ток}

X1t:=2*X1*X0/(X0+Sqrt(Sqr(X0)+4*X1*X0))*U1n/I1n;

R1t:=R1*X1t/X1; {Сопротивления статора, Ом}

X0t:=X0*U1n/I1n;{Сопротивление взаимоиндукции, Ом}

R2t:=R2*U1n/I1n;

X2t:=X2*U1n/I1n;{Сопротивления ротора, Ом}

R2pt:=R2p*U1n/I1n;

b:=R1/R2*Smax;

Smin:=Smax/Mmin*((1+b)*Mmax-b*Mmin+SqRt((1+b)*(Mmax-Mmin)*((1-b)*Mmin+(1+b)*Mmax)));

end;

Дифференциальные уравнения АД в двухфазной системе координат (a,b), неподвижной относительно статора

procedure Right_Part;

begin

if s>smin then A2:=(R2t+(R2pt-R2t)*(S-Smin)/(1-Smin))/L21

else A2:=R2t/L21;

U1a:=Uss*cos(W1*t);

U1b:=Uss*sin(W1*t);

f[1]:=U1a-A1*x[1]+A1*K2*x[3];

f[2]:=U1b-A1*x[2]+A1*K2*x[4];

f[3]:=A2*(K1*x[1]-x[3])-x[5]*x[4];

f[4]:=A2*(K1*x[2]-x[4])+x[5]*x[3];

M:=3/2*p*L0/(L1*L11)*(x[2]*x[3]-x[1]*x[4]);

f[5]:=p/J*(M-Ms);

S:=(W1-x[5])/W1;

end;

Модифицированный метод Рунге-Кутта 4-го порядка

procedure Runge;

begin

for k:=1 to 5 do h[k]:=x[k];

Right_Part;

for k:=1 to 5 do

begin

f1[k]:=f[k];

x[k]:=h[k]+f1[k]*dt/2;

end;

Right_Part;

for k:=1 to 5 do

begin

f2[k]:=f[k];

x[k]:=h[k]+f2[k]*dt/2;

end;

Right_Part;

for k:=1 to 5 do

begin

f3[k]:=f[k];

x[k]:=h[k]+f3[k]*dt;

end;

Right_Part;

for k:=1 to 5 do

begin

f4[k]:=f[k];

x[k]:=h[k]+(f1[k]+2*f2[k]+2*f3[k]+f4[k])/6*dt;

end;

end;

Инициализация графики

procedure Init_Graph;

var GraphDriver,GraphMode:integer;

i:integer;

color:word;

begin

GraphDriver:=0;

DetectGraph(GraphDriver,GraphMode);

if GraphMode>1 then GraphMode:=1;

InitGraph(GraphDriver,GraphMode,'e:\tp\bgi');

color:=GetMaxColor;

TextMode(1);

Writeln;

Writeln(' Graph Initialisate And ',GraphErrorMsg(GraphResult));

Writeln;

Writeln(' Use: GraphMode - ',GetModeName(GraphMode));

Writeln(' GraphDriver - ',GetDriverName);

Writeln;

Writeln(' The Number Of Using Colors :',GetMaxColor);

for i:=1 to 4 do Writeln;

Writeln(' Параметры АД:');

Writeln;

Writeln(' As =',A1:6,' Ar =',A2:6);

Writeln(' Ks =',K1:6,' Kr =',K2:6);

Writeln(' Ls`=',L11:6,' Lr`=',L21:6);

for i:=1 to 7 do Writeln;

Writeln(' Press Any Key To Continue');

pausa;

SetGraphMode(GraphMode);

end;

Процедура подготовки к цифровому моделированию по паспортным данным двигателя

procedure Prepeare;

var HelpVariable:integer;

begin

W1:=2*Pi*Fs;W0:=W1/p;

L0:=1.5*X0t/W1;L1:=X1t/W1;L2:=X2t/W1;

L1:=L1+L0;L2:=L2+L0;

K2:=L0/L2;K1:=L0/L1;

L11:=L1-sqr(L0)/L2;L21:=L2-sqr(L0)/L1;

A1:=R1t/L11;A2:=R2t/L21;

for HelpVariable:=1 to 5 do

begin

f[HelpVariable]:=0;

x[HelpVariable]:=0;

end;

end;

Процедура расчета угов векторов

procedure AngleDefinition;

begin

UssAbsoluteAngle:=AbsoluteAngle(U1a,U1b);

PsisRAngle:=AbsoluteAngle(x[1],x[2])-UssAbsoluteAngle;

if PsisRAngle<0 then PsisRAngle:=360+PsisRAngle;

PsirRAngle:=AbsoluteAngle(x[3],x[4])-UssAbsoluteAngle;

if PsirRAngle<0 then PsirRAngle:=360+PsirRAngle;

IsRAngle:=AbsoluteAngle(I1a,I1b)-UssAbsoluteAngle;

if IsRAngle<0 then IsRAngle:=360+IsRAngle;

IrsRAngle:=AbsoluteAngle(I21a,I21b)-UssAbsoluteAngle;

if IrsRAngle<0 then IrsRAngle:=360+IrsRAngle;

PsioRAngle:=AbsoluteAngle(I0a,I0b)-UssAbsoluteAngle;

if PsioRAngle<0 then PsioRAngle:=360+PsioRAngle;

end;

procedure OutStringSum;

begin

VectorString:=VectorString+VectorString0+'¦';

end;

Функция, выдающая строку таблицы out - данных

function GetVectorString(Number:StringSwitche):string;

begin

Case Number of

ST11 :GetVectorString:='+----------------------------------------------------------------------------+';

ST12 :GetVectorString:='¦ ¦ ¦ ¦ ¦ ¦ ¦ Uss ¦ Psis ¦';

ST13 :GetVectorString:='¦ ¦ ¦ ¦ ¦ ¦ +--------------------+-------------¦';

ST14 :GetVectorString:='¦ Fs ¦ Ms ¦ Wv ¦ S ¦ Effi-¦cos(F)¦ ¦ Angle ¦ ¦ ¦';

ST15 :GetVectorString:='¦ ¦ ¦ ¦ ¦ciency¦ ¦Module+------------- Module¦RAngle;

ST16 :GetVectorString:='¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦absol.¦relat.¦ ¦ ¦';

ST17 :GetVectorString:='+------+------+------+------+------+------+------+------+------+------+------¦;

DATA1:begin

VectorString:='¦';Str(Fs:6,VectorString0);OutStringSum;

Str(Ms:6,VectorString0);OutStringSum;

Str(x[5]/p:6:2,VectorString0);OutStringSum;

Str(s:6:3,VectorString0);OutStringSum;

Str(KPD:6:3,VectorString0);OutStringSum;

Str(CosF:6:3,VectorString0);OutStringSum;

Str(Uss:6,VectorString0);OutStringSum;

Str(UssAbsoluteAngle:6,VectorString0);OutStringSum;

VectorString0:=' 0 ';OutStringSum;

Psi1:=sqrt(sqr(x[1])+sqr(x[2]));

Str(Psi1:6:4,VectorString0);OutStringSum;

Str(PsisRAngle:6,VectorString0);OutStringSum;

GetVectorString:=VectorString;

end;

ENDT1:GetVectorString:='+----------------------------------------------------------------------------+';

ST21 :GetVectorString:='+---------------------------------------------------------------------------+';

ST22 :GetVectorString:='¦ Psir ¦ Is ¦ Irs ¦ Psio ¦ Power ¦ ¦';

ST23 :GetVectorString:='+-------------+-------------+-------------+-------------+------------- M ';

ST24 :GetVectorString:='¦Module¦RAngle¦Module¦RAngle¦Module¦RAngle¦Module¦RAngle¦ Full ¦Utilit¦ ¦';

ST25 :GetVectorString:='+------+------+------+------+------+------+------+------+------+------+------¦';

DATA2:begin

Psi2:=sqrt(sqr(x[3])+sqr(x[4]));Psi0:=I0*L0;

Str(Psi2:6:4,VectorString0);VectorString:='¦';OutStringSum;

Str(PsirRAngle:6,VectorString0);OutStringSum;

Str(I1:6:2,VectorString0);OutStringSum;

Str(IsRAngle:6,VectorString0);OutStringSum;

Str(I21:6:2,VectorString0);OutStringSum;

Str(IrsRAngle:6,VectorString0);OutStringSum;

Str(Psi0:6:4,VectorString0);OutStringSum;

Str(PsioRAngle:6,VectorString0);OutStringSum;

Str(0.003*Uss/sqrt(2)*I1:6:2,VectorString0);OutStringSum;

Str(0.003*Uss/sqrt(2)*I1*CosF:6:2,VectorString0);OutStringSum;

Str(M:6:2,VectorString0);OutStringSum;

GetVectorString:=VectorString;

end;

ENDT2:GetVectorString:='+----------------------------------------------------------------------------+'

end

end;

Процедура, рисующая векторную диаграмму

procedure DrawVectorDiagram;

var CenterX,CenterY,Max,Kx:real;

Xk,Yk:word;

begin

GetAspectRatio(Xk,Yk);Kx:=Yk/Xk;

CenterY:=GetMaxY/2;Max:=(GetMaxY-150)/2;CenterX:=2/3*GetMaxX-10;

PutVector(CenterX,CenterY,Max,90,GetMaxColor,'Uss');

PutVector(CenterX,CenterY,Max,90+IsRAngle,GetMaxColor*0.9,'Is');

PutVector(CenterX,CenterY,Max*I21/I1,90+IrsRAngle,GetMaxColor*0.88,'Irs');

PutVector(CenterX,CenterY,Max,90+PsisRAngle,GetMaxColor*0.8,'Psis');

PutVector(CenterX,CenterY,Max*Psi2/Psi1,90+PsirRAngle,GetMaxColor*0.75,'Psir');

PutVector(CenterX,CenterY,Max*Psi0/Psi1,90+PsioRAngle,GetMaxColor*0.65,'Psio');

end;

procedure SolveDiagram;Forward;

Процедура выхода из программы

procedure quit;

begin

Write(Result,GetVectorString(ENDT1));Writeln(Result,GetVectorString(ENDT2));

Close(Result);GraphDefaults;CloseGraph;Halt;

end;

Процедура анализа скэн - кода

procedure PressKeyAnalysis;

var p:char;

begin

p:=chr(0);

if KeyPressed=True then

Case ReadKey of

'V','v':SolveDiagram;

'M','m':begin

Ms:=NumberInput('Момент');

SolveDiagram;

end;

U','u':begin

Uss:=round(NumberInput('Напряжение')*sqrt(2));

SolveDiagram;

end;

W','w':begin

Write(Result,GetVectorString(DATA1));

Writeln(Result,GetVectorString(DATA2));

SolveDiagram;

end;

P','p':begin

SetActivePage(1);SetVisualPage(0);

SetViewPort(0,100,300,204,True);ClearViewPort;

SetViewPort(0,0,GetMaxX,GetMaxY,True);

TextOut(80,148,0.9,'Печать:');

TextOut(0,164,0.75,'1 - печать графика скорости');

TextOut(0,180,0.87,'2 - печать векторной диаграммы');

SetVisualPage(1);

Repeat p:=ReadKey;

Until (p='1') or (p='2');

Case p of

1':begin

SetActivePage(0);SetVisualPage(0);

CopyToPRN;

end;

2':begin

SetActivePage(1);SetVisualPage(1);

CopyToPRN;

end

end;

SolveDiagram;

end;

Q','q':quit

else

SetColor(GetMaxColor);

SetVisualPage(0);

end

end;

Процедура расчета векторной диаграммы

procedure SolveDiagram;

begin

SetVisualPage(0);SetActivePage(1);

SetViewPort(0,0,GetMaxX,GetMaxY,True);SetBkColor(Black);ClearViewPort;SetColor(GetMaxColor);

AngleDefinition;

{формирование} OutTextXY(0,0,GetVectorString(ST11));OutTextXY(0,8,GetVectorString(ST12));

{ заголовка } OutTextXY(0,16,GetVectorString(ST13));OutTextXY(0,24,GetVectorString(ST14));

{ первой } OutTextXY(0,32,GetVectorString(ST15));OutTextXY(0,40,GetVectorString(ST16));

{ таблицы } OutTextXY(0,48,GetVectorString(ST17));

{вывод данных} OutTextXY(0,56,GetVectorString(DATA1));

{конец табл.1} OutTextXY(0,64,GetVectorString(ENDT1));

{конец табл.2} OutTextXY(0,GetMaxY-8,GetVectorString(ENDT2));

{вывод данных} OutTextXY(0,GetMaxY-16,GetVectorString(DATA2));

{формирование} OutTextXY(0,GetMaxY-24,GetVectorString(ST25));OutTextXY(0,GetMaxY-32,GetVectorString(ST24));

{ заголовка } OutTextXY(0,GetMaxY-40,GetVectorString(ST23));OutTextXY(0,GetMaxY-48,GetVectorString(ST22));

{ таблицы2 } OutTextXY(0,GetMaxY-56,GetVectorString(ST21));

DrawVectorDiagram;

TextOut(56,100,0.9,'КЛАВИАТУРА:');TextOut(0,116,0.75,'V - векторная диаграмма');

TextOut(0,132,0.87,'W - запись результатов в файл');TextOut(0,148,0.65,'M - изменить момент на валу');

TextOut(0,164,0.6,'U - изменить напряжение');TextOut(0,180,0.4,'P - печать результатов моделирования');

TextOut(0,196,0.8,'Q - выход в систему');

SetVisualPage(1);SetActivePage(0);

end;

Процедура моделирования пуска асинхронного двигателя

procedure Model;

begin

RepeatNumber:=round(EndT/(dt*640));

SpeedScale:=GetMaxY/(3*W0);

for CurrentNumber:=0 to 640 do

begin

for CurrentRepeat:=1 to RepeatNumber do

begin

Runge;

I1a:=x[1]/L11-K2/L11*x[3];

I1b:=x[2]/L11-K2/L11*x[4];

I1:=sqrt(sqr(I1a)+sqr(I1b));

I21a:=x[3]/L21-K1/L21*x[1];

I21b:=x[4]/L21-K1/L21*x[2];

I21:=Sqrt(sqr(I21a)+sqr(I21b));

I0a:=I1a+I21a;I0b:=I1b+I21b;

I0:=sqrt(sqr(I0a)+sqr(I0b));

t:=t+dt;

PutPixel(CurrentNumber,round(GetMaxY/2-SpeedScale*x[5]/p),color);

end;

PutPixel(CurrentNumber,round(GetMaxY/2-SpeedScale*x[5]/p),color);

SetActivePage(0);

PsiAlpha:=AbsoluteAngle(I0a,I0b)-AbsoluteAngle(x[3],x[4]);

IsPsirAlpha:=AbsoluteAngle(I1a,I1b)-AbsoluteAngle(x[3],x[4]);

IsAlpha:=AbsoluteAngle(U1a,U1b)-AbsoluteAngle(I1a,I1b);

CosF:=cos(IsAlpha*Pi/180);

if (Uss*I1)<>0 then KPD:=abs(M*Fs*4*Pi/(3*p*Uss*I1));

Str(Uss:5,StringPsiAlpha);Str(IsAlpha,StringIsAlpha);

Str(KPD:5:3,StringKPD);Str(IsPsirAlpha,StringIsPsirAlpha);

Str(s:6:4,StringAlphaRasch);Str(x[5]/p:5:1,StringCurrW);

Str(I1:6:2,StringIs);Str(CosF:4:2,StringCosF);

SetViewPort(184,20,240,30,False);ClearViewPort;SetViewPort(304,20,368,30,False);ClearViewPort;

SetViewPort(400,20,472,30,False);ClearViewPort;SetViewPort(576,20,638,30,False);ClearViewPort;

SetViewPort(184,40,248,50,False);ClearViewPort;SetViewPort(296,40,368,50,False);ClearViewPort;

SetViewPort(400,40,472,50,False);ClearViewPort;SetViewPort(576,40,638,50,False);ClearViewPort;

SetViewPort(0,0,GetMaxX,GetMaxY,True);

OutTextXY(192,20,StringPsiAlpha);OutTextXY(312,20,StringIsAlpha);

OutTextXY(408,20,StringKPD);OutTextXY(584,20,StringIsPsirAlpha);

OutTextXY(192,40,StringAlphaRasch);OutTextXY(312,40,StringCurrW);

OutTextXY(408,40,StringIs);OutTextXY(584,40,StringCosF);

PressKeyAnalysis;

end;

end;

Процедура формирования заголовка файла

procedure FileHead;

begin

Assign(Result,'lw.res');

Rewrite(Result);

Writeln(Result,GetVectorString(ST11));Writeln(Result,GetVectorString(ST12));

Write(Result,GetVectorString(ST13));Writeln(Result,GetVectorString(ST21));

Write(Result,GetVectorString(ST14));Writeln(Result,GetVectorString(ST22));

Write(Result,GetVectorString(ST15));Writeln(Result,GetVectorString(ST23));

Write(Result,GetVectorString(ST16));Writeln(Result,GetVectorString(ST24));

Write(Result,GetVectorString(ST17));Writeln(Result,GetVectorString(ST25));

end;

Основная программа

begin

ReCalculation;

ClrScr;Writeln;

TextColor(10);WriteLn(' Программа расчета и вывода векторной диаграммы А.Д.');

TextColor(12);Writeln(' Для IBM PC/XT/AT/PS-2 с ОЗУ экрана 256/512 Кб');

for i:=0 to 4 do Writeln;TextColor(15);

Write('Введите время окончания работы двигателя: ');Readln(EndT);

Write('Введите частоту питающей сети (Гц): ');Readln(Fs);

t:=0;dt:=1e-4;Ms:=0;Uss:=round(310*Fs/50);

FileHead;Prepeare;Init_Graph;TextMode(2);

SetActivePage(0);SetVisualPage(0);

Scale(1.5*W0,-1.5*W0,EndT,'t,c','W,рад/с');

SetColor(round(GetMaxColor*0.7));

OutTextXY(66,8,'Программа расчета векторной диаграммы и некоторых параметров А.Д.');

SetColor(round(GetMaxColor*0.9));

OutTextXY(112,20,'PsiAlpha:');OutTextXY(240,20,'IsAlpha:');

OutTextXY(368,20,'KPD:');OutTextXY(496,20,'IsPrAlpha:');

OutTextXY(96,40,'RelSkRasch:');OutTextXY(256,40,'CurrW:');

OutTextXY(376,40,'Is:');OutTextXY(536,40,'CosF:');

SetViewPort(0,0,GetMaxX,GetMaxY,True);

color:=GetMaxColor;SetColor(color);

Model;

Quit;

end.

ИСХОДНЫЙ ТЕКСТ МОДУЛЯ СЕРВИСНЫХ ПРОЦЕДУР И ФУНКЦИЙ

Unit Im_tpu;

Interface

uses graph,dos,crt,printer;

type string4=string[4];

procedure pausa;

procedure Scale(Ymax,Ymin,Tmax:real;XText,YText:string);

function AbsoluteAngle(AComponent,BComponent:real):integer;

procedure PutVector(Xb,Yb,MVector,AVector,Col:real;Name:string4);

function NumberInput(What:string):integer;

procedure TextOut(X,Y:integer;Col:real;TextString:string);

procedure CopyToPRN;

function Sgn(v:real):integer;

function DefTime:string;

procedure TimeOut;

procedure PrintPausa;

Implementation

Пауза до первой нажатой клавиши

procedure pausa;

begin

Repeat Until ReadKey<>#0

end;

{ Вывод на экран системы координат }

procedure Scale(Ymax,Ymin,Tmax:real;XText,YText:string);

var Ybeg,Ystep,Tstep,t1:real;

ScaleGrad:string;

Col:word;

SDrawX,SDrawY,HelpVar,GDriver,GMode:integer;

begin

DetectGraph(GDriver,GMode);GMode:=1;

InitGraph(Gdriver,GMode,'');

SetBkColor(0);SetColor(GetMaxColor);

Col:=GetMaxColor;PutPixel(0,0,Col);

LineTo(GetMaxX,0);LineTo(GetMaxX,GetMaxY);

LineTo(0,GetMaxY);LineTo(0,0);

for SDrawX:=1 to 19 do

for SdrawY:=1 to 19 do

PutPixel(SdrawX*GetMaxX div 20,SdrawY*GetMaxY div 20,col);

SetTextStyle(0,0,1);

if Ymin<0 then Ystep:=(Ymax-Ymin)/10

else

Ystep:=Ymax/10;

for HelpVar:=0 to 10 do

begin

Str(Ymax:9,ScaleGrad);

OutTextXY(0,HelpVar*GetMaxY div 10,ScaleGrad);

Ymax:=Ymax-Ystep;

end;

Tstep:=Tmax/5;t1:=0;

for HelpVar:=0 to 4 do

begin

Str(t1:9,ScaleGrad);

OutTextXY(HelpVar*GetMaxX div 5,GetMaxY-10,ScaleGrad);

t1:=t1+Tstep;

end;

SetColor(round(GetMaxColor/1.25));

OutTextXY(GetMaxX-48,GetMaxY-11,XText);OutTextXY(8,20,YText);

SetColor(GetMaxColor);

end;

Функция геометрического анализа и расчета абсолютного угла вектора

function AbsoluteAngle(AComponent,BComponent:real):integer;

var IntAngle:integer;

begin

if AComponent<>0 then

IntAngle:=round(180/Pi*ArcTan(BComponent/AComponent));

if AComponent=0 then

begin

if BComponent>0 then IntAngle:=90

else IntAngle:=-90;

end

else

if BComponent=0 then

begin

if AComponent>0 then IntAngle:=0

else IntAngle:=180;

end

else

if ((AComponent>0) and (BComponent>0)) or (AComponent>0) and (BComponent<0) then

первый и второй квадранты

IntAngle:=IntAngle

else

IntAngle:=180+IntAngle;{второй и третий квадранты};

if IntAngle<0 then IntAngle:=360+IntAngle;

AbsoluteAngle:=IntAngle;

end;

Процедура вывода вектора по заданным координатам

procedure PutVector(Xb,Yb,MVector,AVector,Col:real;Name:string4);

const LengthPoint=8;

var Xbh,Ybh,Xeh,Yeh,Xp,Yp,AVAngle:integer;

Xk,Yk,Colh:word;

Kx:real;

begin

GetAspectRatio(Xk,Yk);Kx:=Yk/Xk;

Xbh:=round(Xb);Ybh:=Round(Yb);

Xeh:=Round(Xb+Kx*MVector*cos(Pi/180*AVector));

Yeh:=round(Yb-MVector*sin(Pi/180*AVector));

Colh:=round(Col);SetColor(Colh);

Line(Xbh,Ybh,Xeh,Yeh);

AVAngle:=AbsoluteAngle((Xeh-Xbh),(Ybh-Yeh));

Xp:=round(LengthPoint*Kx*Cos(Pi/180*(AVAngle+10)));

Yp:=round(LengthPoint*Sin(Pi/180*(AVAngle+10)));

Xp:=Xeh-Xp;Yp:=Yeh+Yp;

Line(Xeh,Yeh,Xp,Yp);

Xp:=round(LengthPoint*Kx*Cos(Pi/180*(AVAngle-10)));

Yp:=round(LengthPoint*Sin(Pi/180*(AVAngle-10)));

Xp:=Xeh-Xp;Yp:=Yeh+Yp;

Line(Xeh,Yeh,Xp,Yp);

OutTextXY(Xeh+4,Yeh,Name);

end;

Функция ввода числа с клавиатуры в графическом режиме

function NumberInput(What:string):integer;

var InputChar:char;

number:integer;

begin

SetActivePage(1);SetVisualPage(1);

SetColor(round(GetMaxColor*0.8));What:=What+' :';

OutTextXY(0,GetMaxY-80,What);Number:=0;MoveTo(120,GetMaxY-80);

Repeat

InputChar:=ReadKey;

if (InputChar>'/') and (InputChar<':') then

begin

Number:=Number*10-48+ord(InputChar);

OutText(InputChar);

end;

Until ord(InputChar)=13;

SetColor(GetMaxColor);SetBkColor(0);

SetViewPort(0,GetMaxY-80,300,GetMaxY-72,True);

ClearViewPort;NumberInput:=Number;

SetViewPort(0,0,GetMaxX,GetMaxY,True);

SetActivePage(0);

end;

Процедура вывода на экран в заданную позицию (X,Y) заданного текста (TextString) заданным цветом (Col)

procedure TextOut(X,Y:integer;Col:real;TextString:string);

begin

SetColor(round(Col*GetMaxColor));

OutTextXY(X,Y,TextString);

end;

Процедура графической копии экрана

procedure CopyToPRN;

var x1,x2,y1,y2:integer;

Bk1,Bk2,Mode:Byte;

Inverse:Boolean;

procedure SetPoints;

begin

x1:=0;x2:=GetMaxX;

y1:=0;y2:=GetMaxY;

Bk1:=0;Bk2:=0;

Inverse:=False;

Mode:=1;

end;

X1,Y1,X2,Y2 - the size of output screen

Bk1,Bk2 - the colours of the both backgrounds

{ Inverse - normal (false) or invert (true) colour of the printing copy }

{ Mode: 1 - double density 120 points/inch }

{ 2 - high speed 120 points/inch }

{ 3 - high density 240 points/inch }

{ 0, 4, 5 - 80 points/inch }

{ 6 - 90 points/inch }

{ For nonFX EPSON - printers Mode = 1 }

var ScanLine:integer;{ current printing string }

n1,n2 :Byte; { special data for printer }

{ The construction of the byte for the printing graphics }

function ConstructByte(x,y:integer):byte;

const bits:array[0..7] of byte=(128,64,32,16,8,4,2,1);

var p :word; { the colour of the pixel }

CByte,Bit:byte; { byte and the bites number }

YY :integer; { the state of the current pixel }

begin

CByte:=0;

for Bit:=0 to 7 do

begin

YY:=Y+Bit;

P:=GetPixel(X,YY);

if (YY<=Y2) and (P<>bk1) and (P<>bk2) then Inc(CByte,Bits[Bit]);

end;

ConstructByte:=CByte;

end;

{ The graphics string output }