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 }

procedure DoLine;

var XPixel :integer; { the current X - position }

PrintByte:byte; { the byte, which code 8 pixels }

begin

if Mode=1 then Write(Lst,#27'L')

else Write(Lst,#27'*',chr(mode));

Write(Lst,chr(n1),chr(n2));

for XPixel:=X1 to X2 do

begin

PrintByte:=ConstructByte(XPixel,ScanLine);

if Inverse then PrintByte:=not PrintByte;

Write(Lst,chr(PrintByte));

end;

Write(Lst,#10);

end;


label quit;


begin

SetPoints;

mode:=mode mod 7;

if mode in [0,5] then mode:=4;

Write(Lst,#27'3'#24);

n1:=Lo(succ(X2-X1));n2:=Hi(succ(X2-X1));

ScanLine:=Y1;

while ScanLine

begin

if KeyPressed and (ReadKey=#27) then Goto Quit;

DoLine;

Inc(ScanLine,8);

end;

quit:Write(Lst,#27#2);

end;


{ Определение знака выражения }

function Sgn(v:real):integer;

begin

if v<0 then Sgn:=-1

else

Sgn:=1;

if v=0 then Sgn:=0;

end;


{ Функция расчета времени счета }

function DefTime:string;

var cw,mw,sw,sdw:word;

cs,ms,ss,sds:string;

begin

GetTime(cw,mw,sw,sdw);

str(cw,cs);str(mw,ms);str(sw,ss);str(sdw,sds);

DefTime:=cs+':'+ms+':'+ss+'.'+sds;

end;


{ Процедура вывода на экран времени счета }

procedure TimeOut;

var ST:string;

begin

ST:=' Время счета : '+DefTime;

GoToXY(10,10);

Write(ST);

end;


procedure PrintPausa;

var c:char;

begin

Repeat c:=ReadKey

Until ((c='P') or (c='p') or (c<>''));

Case c of

'P','p':CopyToPRN

else

end

end;

end.

АННОТАЦИЯ


Данный документ "РАЗРАБОТКА ПРОГРАММЫ" представляет собой описание программного обеспечения моделирования работы асинхронного двигателя.

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


СОДЕРЖАНИЕ


Стр.

1. ОБЩИЕ СВЕДЕНИЯ

2. ФУНКЦИОНАЛЬНОЕ НАЗНАЧЕНИЕ

3. ОПИСАНИЕ УПРАВЛЯЮЩЕГО АЛГОРИТМА

4. ИСПОЛЬЗУЕМЫЕ ТЕХНИЧЕСКИЕ СРЕДСТВА

5. ВЫЗОВ И ЗАГРУЗКА

6. ВХОДНЫЕ ДАННЫЕ

7. ВЫХОДНЫЕ ДАННЫЕ

1. ОБЩИЕ СВЕДЕНИЯ


Программное обеспечение поставляется в виде пакета программ “AD”, состоящего из четырех файлов:


IM_MAIN.EXE

GRAPH.TPU

IM_TPU_.TPU

EGAVGA.BGI


Для функционирования программы необходимо наличие IBM-совместимого компьютера с ОЗУ экрана 512кБ. Программа управления разработана на языке Паскаль и скомпилирована в исполняемый файл с помощью встроенного компилятора.


2. ФУНКЦИОНАЛЬНОЕ НАЗНАЧЕНИЕ


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


3. ОПИСАНИЕ УПРАВЛЯЮЩЕГО АЛГОРИТМА


Описание управляющего алгоритма производится в порядке, соответствующем нумерации блоков в управляющей программе.

Схема алгоритма управляющей моделирования в приведена на листе графической части.


4. ИСПОЛЬЗУЕМЫЕ ТЕХНИЧЕСКИЕ СРЕДСТВА


Для функционирования программы необходимо наличие IBM-совместимого компьютера с видеопамятью не менее 512кБ. Так как программа предполагает вывод данных о моделировании на печать необходимо наличие принтера типа EPSON.


5. ВЫЗОВ И ЗАГРУЗКА


Исполняемым файлом в пакете программ “АД” является файл IM-MAIN.EXE.

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

Затем начинается процесс моделирования. На экране появляются оси координат: по оси абсцисс - время (t,c), по оси ординат - угловая скорость (w, рад/c). Во время своей работы программа выводит график зависимости w(t). Моделирование ведется в реальном масштабе времени.

В процессе моделирования работы двигателя у пользователя имеется возможность изменять некоторые его параметры, для этого зарезервированы “горячие” клавиши:


U - изменить напряжение;

М - изменить момент на валу.


При нажатии “M” программа предложит ввести значение момента на валу двигателя.

При нажатии “U” программа предложит ввести значение напряжения двигателя.

При ошибочном вводе любых значений пользователь в любой момент может отменить введенные числа путем нажатия клавиши “ESC”.

Также в процессе моделирования пользователю доступны следующие клавиши:


W - запись результатов в файл;

P - печать результатов моделирования;

Q - немедленный выход из программы.


При нажатии на клавишу “W” программа сохраняет результаты моделирования в файле TW.RES.

При нажатии на клавишу “P” программа инициализирует принтер и начинает выводить графический образ экрана и результаты на бумагу.

При помощи клавиши “Q” можно немедленно покинуть программу, при этом результаты работы не будут сохранены.

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

При возникновении затруднений в процессе работы с программой пользователь в любой момент может нажать клавишу “F1” для получения справки.


6. ВХОДНЫЕ ДАННЫЕ


Входными данными для программы являются:

  • рабочая частота;

  • время моделирования его работы (в секундах).

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


7. ВЫХОДНЫЕ ДАННЫЕ


Выходными данными программы являются:

  • график зависимости w(t);

  • частота вращения вала двигателя;

  • момент на валу двигателя;

  • КПД;

  • коэффициент мощности;

  • питающее напряжение;

  • сообщения об ошибках программы.

Протокол работы программы IM-MAIN.EXE


Параметры АД:

Время моделирования: 1 с

Частота питающей сети: 50 Гц

As = 4.5E+0001 Ar = 2.1E+0001

Ks = 9.9E-0001 Kr = 9.8E-0001

Ls`= 1.3E-0003 Lr`= 1.3E-0003


Рис.1(а)


Рис. 1(б)


Рис. 1(в)


Рис.2(а)


Рис. 2(б)


Рис. 3(а)


Рис. 3(б)

АННОТАЦИЯ


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

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

СОДЕРЖАНИЕ


Стр.

1. НАЗНАЧЕНИЕ ПРОГРАММЫ

2. УСЛОВИЯ ВЫПОЛНЕНИЯ ПРОГРАММЫ

3. ВЫПОЛНЕНИЕ ПРОГРАММЫ

4. СООБЩЕНИЯ ОПЕРАТОРУ

1. НАЗНАЧЕНИЕ ПРОГРАММЫ


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


2. УСЛОВИЯ ВЫПОЛНЕНИЯ ПРОГРАММЫ


Для функционирования программы необходимо наличие IBM-совместимого компьютера не хуже PC AT 286 с видеопамятью не менее 512кБ. Так как программа предполагает вывод данных о моделировании на печать необходимо наличие принтера типа EPSON.


3. ВЫПОЛНЕНИЕ ПРОГРАММЫ


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

Затем начинается процесс моделирования. На экране появляются оси координат: по оси абсцисс - время (t,c), по оси ординат - угловая скорость (w, рад/c). Во время своей работы программа выводит график зависимости w(t). Моделирование ведется в реальном масштабе времени.

В процессе моделирования работы двигателя у пользователя имеется возможность изменять некоторые его параметры, для этого зарезервированы “горячие” клавиши:


U - изменить напряжение;

М - изменить момент на валу.


При нажатии “M” программа предложит ввести значение момента на валу двигателя.

При нажатии “U” программа предложит ввести значение напряжения двигателя.

При ошибочном вводе любых значений пользователь в любой момент может отменить введенные числа путем нажатия клавиши “ESC”.

Также в процессе моделирования пользователю доступны следующие клавиши:


W - запись результатов в файл;

P - печать результатов моделирования;

Q - немедленный выход из программы.


При нажатии на клавишу “W” программа сохраняет результаты моделирования в файле TW.RES.

При нажатии на клавишу “P” программа инициализирует принтер и начинает выводить графический образ экрана и результаты на бумагу.

При помощи клавиши “Q” можно немедленно покинуть программу, при этом результаты работы не будут сохранены.

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

При возникновении затруднений в процессе работы с программой пользователь в любой момент может нажать клавишу “F1” для получения справки.


4. СООБЩЕНИЯ ОПЕРАТОРУ


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

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

Синхронные машины. Машины постоянного тока
Синхронные машины. Машины постоянного тока Учебное пособие 1. Синхронные машины 1.1 Принцип действия синхронной машины Статор 1 синхронной машины (рис ...
При ѭ > 0 (генераторный режим) ось потока возбуждения Фв (полюсов ротора) опережает ось суммарного потока =Ф на угол ѭ (рис. 1.36, б), вследствие чего электромагнитные силы f ...
Следовательно, оно вращается синхронно с полем статора; образуемый этим полем с током статора электромагнитный момент Мпр изменяется в зависимости от скольжения так же, как и в ...
Раздел: Рефераты по физике
Тип: учебное пособие
Испытательная станция турбовинтовых двигателей ТВ3-117 ВМА-СБМ1 ...
Міністерство освіти і науки України Запорізький національний технічний університет ПОЯСНЮВАЛЬНА ЗАПИСКА ДО ДИПЛОМНОГО ПРОЕКТУ ВИПРОБУВАЛЬНА СТАНЦІЯ ...
Состоит из статора, регулируемого входного направляющего аппарата (РВНА), ротора, передней и задней опор.
Согласно нормам авиационной промышленности, осколки могут разлетаться от любой вращающейся части двигателя под углом не более 300 к плоскости перпендикулярной оси вращения роторов ...
Раздел: Промышленность, производство
Тип: дипломная работа
Обслуживание и ремонт электрических двигателей (ремонт синхронного ...
... Специальность: электромонтер ДИПЛОМНАЯ РАБОТА На тему: "Обслуживание и ремонт электрических двигателей (ремонт синхронного двигателя)" Выполнил: ...
При питании ротора переменным током асинхронный двигатель может вращаться с частотой большей, чем частота поля статора.
Во многих мощных электроприводах применяют синхронные двигатели электрические.
Раздел: Рефераты по физике
Тип: дипломная работа
Электродвигатель асинхронный с короткозамкнутым ротором мощностью 200 ...
Электродвигатель асинхронный с короткозамкнутым ротором мощностью 200 КВт Содержание Введение 1. Расчет и конструирование двигателя 1.1 Выбор главных ...
Масштаб чертежа 1:2. На поперечном виде двигателя, на местном разрезе показаны паз и зубец статора и ротора.
Основанием для построения этой диаграммы является уравнения токов и уравнений напряжений обмоток статора и ротора также расположенными на Листе 2.
Раздел: Промышленность, производство
Тип: курсовая работа
Схема автоматического регулирования продолжительности выпечки с ...
СОДЕРЖАНИЕ 1. Технологическая часть 1.1 Анализ работы технологического процесса и описание производственной установки 1.2 Анализ работы оператора 1.3 ...
Однако такие уравнения непосредственно нельзя решать совместно, поскольку переменные статора записаны в статорной системе координат, а переменные ротора (помечены верхним индексом ...
При исследовании асинхронных машин обычно используют одну из трех координатных систем: с привязкой осей к элементам конструкции статора (неподвижные оси); с привязкой осей к ...
Раздел: Промышленность, производство
Тип: дипломная работа