Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Программы для выполнения контрольной работы на персональной ЭВМ
|
|
Программа 1
Программа предназначена для расчета электромеханических w=f(Iя) характеристик двигателя постоянного тока независимого возбуждения. Варьируемые параметры: номинальный ток Iн, номинальное напряжение Uн, номинальная скорость вращения nн, сопротивление якорной цепи Rяц. Графики электромеханических характеристик строятся программно с цифровыми обозначениями. Расчетная область токов от (-Iном) до (+Iном) для конкретного двигателя с фиксированным шагом DI изменения тока Iя, чтобы получить (4¸ 5) значений расчетных точек w=f(Iя). Шаг DI рекомендуется выбирать с таким расчетом, чтобы крайними точками являлись токи от -Iном до +Iном. Программа выполнена на языке BORLAND PASCAL.
Program DPT;
Uses
Crt, Graph;
Type
tArr=array[0..10, 0..1] of real;
Const
p=2; {Число пар полюсов}
Pn=3.2E+3; {Мощность}
Rpar=285;
N=720; {Число активных проводников якоря}
a=1; {Число параллельных ветвей якоря}
Wpar=3600; {Число витков полюса параллельной обмотки}
Var
Riac, w1, kfc, shag, k, Rdob, I1, Ic, w, CeF, I: real;
number, m, Un: integer;
koefx, koefy: real;
ymax, xmax: integer;
x, y: integer;
Gd, Gm: Integer;
OldX, OldY, NewX, NewY: Integer;
Справочные данные двигателей постоянного тока продолжительного режима работы
| N/N | Тип двигателя | PН КВт | UН В | n об/мин | IН A | RЯ+RДП | RПАР Ом | Число активных проводников якоря N | Число параллельных ветвей якоря 2а | Число витков полюса параллельной обмотки WПАР | Магнитный поток F полезный мВб | Ток возбуждения параллельной обмотки IН, А | Максимально допускаемая частота вращения об/мин | Момент инерции якоря J кгм2 | Масса двигателя Q кг |
| 1. | П11 | 0, 7 | 4, 3 | 5, 3 | 2, 72 | 0, 27 | 0, 0125 | 18, 5 | |||||||
| 2. | П21 | 1, 5 | 1, 99 | 3, 2 | 0, 30 | 0, 042 | |||||||||
| 3. | П22 | 2, 2 | 12, 5 | 1, 03 | 4, 7 | 0, 25 | 0, 052 | ||||||||
| 4. | П31 | 3, 2 | 17, 5 | 0, 642 | 5, 7 | 0, 62 | 0, 09 | 54, 5 | |||||||
| 5. | П32 | 4, 5 | 24, 3 | 0, 352 | 8, 2 | 0, 65 | 0, 116 | 67, 5 | |||||||
| 6. | П41 | 0, 36 | 3, 7 | 0, 60 | 0, 15 | ||||||||||
| 7. | П51 | 33, 2 | 0, 472 | 5, 8 | 1, 27 | 0, 35 | |||||||||
| 8. | П52 | 43, 5 | 0, 269 | 8, 2 | 1, 11 | 0, 40 | |||||||||
| 9. | П61 | 59, 5 | 0, 187 | 8, 2 | 1, 25 | 0, 56 | |||||||||
| 10. | П62 | 73, 5 | 0, 128 | 11, 1 | 1, 44 | 0, 65 | |||||||||
| 11. | П71 | 0, 124 | 76, 8 | 10, 1 | 2, 04 | 1, 4 | |||||||||
| 12. | П72 | 0, 083 | 12, 5 | 2, 34 | 1, 6 | ||||||||||
| 13. | П81 | 0, 075 | 95, 5 | 12, 4 | 1, 64 | 2, 7 | |||||||||
| 14. | П82 | 0, 046 | 40, 4 | 17, 4 | 3, 89 | 3, 1 | |||||||||
| 15. | П91 | 0, 0257 | 35, 8 | 19, 8 | 4, 39 | 5, 9 | |||||||||
| 16. | П92 | 0, 0138 | 31, 8 | 20, 1 | 4, 94 | ||||||||||
| 17. | П101 | 0, 0131 | 37, 8 | 13, 7 | 4, 16 | 10, 3 | |||||||||
| 18. | П102 | 0, 079 | 32, 5 | 13, 0 | 4, 84 | 12, 0 | |||||||||
| 19. | П111 | 0, 0638 | 13, 5 | 5, 61 | 20, 4 | ||||||||||
| 20. | П113 | 0, 0495 | 16, 2 | 6, 55 | |||||||||||
| 21. | Д32 | 0, 534 | 4, 3 | ||||||||||||
| 22. | Д41 | 0, 695 | 2, 2 |
Mas: tArr;
{ Процедура создания сетки и осей координат }
Procedure Fon;
Begin
SetColor(Red);
Line(0+Round(GetMaxX/2), 0, 0+Round(GetMaxX/2), GetMaxY);
Line(0, Round(GetMaxY/2), GetMaxX, Round(GetMaxY/2));
SetColor(1);
OutTextXY(GetMaxX-40, Round(GetMaxY/2-20), 'M');
OutTextXY(0+Round(GetMaxX/2), 0+20, 'N')
End;
{ Процедура построения графика }
Procedure Graphic(Mas: tArr);
Var
S: string;
Begin
x: =0;
Gd: = Detect;
InitGraph(Gd, Gm, '');
if GraphResult < > grOk then
Halt(1)
Else
Begin
Fon;
koefy: =GetMaxY/3/ymax;
koefx: =GetMaxX/3/xmax;
SetColor(Blue);
For m: =0 to number do
Begin
y: =round(koefy*Mas[m, 1]);
x: =round(koefx*Mas[m, 0]);
NewX: =x+320{Round(GetMaxX/2)}; NewY: ={Round(GetMaxY/2)}240-y;
If m=0 then
Begin
OldX: =NewX;
OldY: =NewY;
End;
SetLineStyle(0, 1, 3);
Line(OldX, OldY, NewX, NewY);
SetLineStyle(0, 1, 1);
SetColor(Green);
Ellipse(NewX, NewY, 0, 360, 5, 5);
SetLineStyle(1, 1, 1);
Line(NewX, NewY, NewX, Round((GetMaxY+1)/2));
Line(NewX, NewY, Round((GetMaxX+1)/2), NewY);
SetLineStyle(0, 1, 1);
SetColor(Blue);
MoveTo(NewX, (Round((GetMaxY+1)/2)+2));
Str(Mas[m, 0]: 1: 1, s);
OutText(s);
MoveTo((Round((GetMaxX+1)/2)+2), NewY);
Str(Mas[m, 1]: 1: 1, s);
OutText(s);
OldX: =NewX; OldY: =NewY;
End;
End;
Readln;