Электротехника \ Электрические машины

Определение главных размеров машин. Расчёт обмотки, паза и ярма статора. Определение параметров двигателя для рабочего режима, страница 3

qc:=(3.14*(sqr(b1)+sqr(b2))/8)+(((b1+b2)/2)*h1);

kr:=qc/qr;

END;

if vid=4  then

BEGIN

br:=(b2-(((b1-b2)/h1)*((hr*1000)-(b2/2))));

qr:=((3.14*sqr(b2))/8)+(((b2+br)/2)*((hr*1000)-(b2/2)));

qc:=(3.14*(sqr(b1)+sqr(b2))/8)+(((b1+b2)/2)*h1);

kr:=qc/qr;

END;

if vid=44 then

BEGIN

br:=(b2-(((b1-b2)/h1)*((hr*1000)-(b2/2))));

qr:=((3.14*sqr(b2))/8)+(((b2+br)/2)*((hr*1000)-(b2/2)));

qc:=(3.14*(sqr(b1)+sqr(b2))/8)+(((b1+b2)/2)*h1);

kr:=qc/qr;

END;

END;

KaR:=1+((rc/r2)*(kr-1));

ri2ksi:=KaR*ri2;

BEGIN

if vid=1 then

BEGIN

Lyp2ksi:=((hc/(3*b))*kd)+(hh/bh);

END;

if vid=2 then

BEGIN

Lyp2ksi:=(0.785-(bh/(2*b)))*kd+(hh/bh);

END;

if (vid=3) and (vid=33) then

BEGIN

Lyp2ksi:=((h1/(3*b))*sqr(1-((3.14*sqr(b))/(8*qc)))+0.66-(bh/(2*b)))*kd+(hh/bh);

END;

if (vid=4) and (vid=44) then

BEGIN

Lyp2ksi:=((h1/(3*b))*sqr(1-((3.14*sqr(b))/(8*qc)))+0.66-(bh/(2*b)))*kd+(hh/bh);

END;

if vid=11 then

BEGIN

Lyp2ksi:=((hc/(3*b))*kd)+(hh/bh)+(1.12*1000000*(hih/I2));

END;

if vid=22 then

BEGIN

Lyp2ksi:=(0.785-(bh/(2*b)))*kd+0.3+(1.12*1000000*(hih/I2));

END;

END;

Kx:=((Lyp2ksi+Lyl2+Lyd2)/(Lyp2+Lyl2+Lyd2));

xi2ksi:=xi2*Kx;

Ii2:=(U1n/(sqrt(sqr(r1+(ri2ksi/s))+sqr(x1+xi2ksi))));

Fpcp:=0.7*((knas*Ii2*up1)/a)*(kib-(ky1*kob1*Z1/Z2));

CN:=0.64+2.5*(sqrt(d/(t1+t2)));

Bfd:=(Fpcp/(1.6*d*0.001*CN))*0.000001;

if  (Bfd>=0) and (Bfd<2) then

xd:=(-0.065*Bfd)+1;

if  (Bfd>=2) and (Bfd<4) then

xd:=(-0.145*Bfd)+1.16;

if  (Bfd>=4) and (Bfd<7) then

xd:=(-0.063*Bfd)+0.83;

if  Bfd>=7 then

xd:=(-0.045*Bfd)+0.705;

c1:=(t1-bh1)*(1-xd);

BEGIN

if vidd=1 then

delLyp1nas:=(hi/bh)*(c1/(bh+c1));

if vidd=2 then

delLyp1nas:=((hi/bh)*(c1/(bh+c1)))+((hi/(bh+bp))*(c1/(bh+bp+c1)));

if vidd=3 then

delLyp1nas:=(((hi*0.58)+hh)/bh)*(c1/((1.5*bh)+c1));

END;

Lyp1nas:=Lyp1-delLyp1nas;

Lyd1nas:=Lyd1*xd;

x1nas:=x1*((Lyp1nas+Lyd1nas+Lyl1)/(Lyp1+Lyd1+Lyl1));

c2:=(t2-bh)*(1-xd);

delLyp2nas:=(hh/bh)*(c2/(bh+c2));

Lyp2ksinas:=Lyp2-delLyp2nas;

Lyd2nas:=Lyd2*xd;

xi2ksinas:=xi2*((Lyl2+Lyp2ksinas+Lyd2nas)/(Lyp2+Lyd2+Lyl2));

x12p:=x12*(Fc/Fd);

c1pnas:=1+(x1nas/x12);

ap:=r1+(c1pnas*(ri2ksi/s));

bp:=x1nas+(c1pnas*xi2ksinas);

Ii2:=U1n/(sqrt((ap*ap)+(bp*bp)));

I1:=Ii2*((sqrt((ap*ap)+(bp+x12p)*(bp+x12p)))/(c1pnas*x12p));

Ipz:=I1/I1n;

Mpz:=(Ii2/Ii2n)*(Ii2/Ii2n)*KaR*(snn/s);

writeln(sis,'___________________________');

writeln(sis,'!   s    !   Ip*  !   Mp* !');

writeln(sis,'---------------------------');

writeln(sis,'! ',s:7:3,'! ',Ipz:7:3,'! ',Mpz:7:3,'!');

writeln(sis,'---------------------------');

sn:=sn+h;

END;

END;

skrr:=ri2/((x1nas/c1pnas)+xi2ksinas);

writeln('skr= ',skrr:7:3);

{Mpz:=(Ii2/Ii2n)*(Ii2/Ii2n)*KaR*(snn/skrr);

writeln('Mmax*= ',Mpz:7:3);}

Mpz:=(Ii2/Ii2n)*(Ii2/Ii2n)*KaR*(snn);

writeln('Mp*= ',Mpz:7:3);

writeln('Ip*= ',Ipz:7:3);

END;

{***********************************}

BEGIN

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

BEGIN

ZAS;

{write('Enter name file lead-in: ');

readln(filename1);}

write('Enter name file derivation: ');

readln(filename);

assign(sis,filename{'D:\RPHD\sistem.s'});

rewrite(sis);

ClrScr;

while true do

BEGIN

ClrScr;

GoToXY(35,6);write('Menu');

for g:=1 to 2 do

BEGIN

GoToXY(15,7+g);

write(NameRegime[g]);

END;

GoToXY(18,12);write('Enter mode number and pressing <ENTER>  ');

readln(u);

ClrScr;

{**********************************}

case u of

1:BEGIN

E;

ReadKey;

END;

{*********************************}

2:BEGIN

GoToXY(5,24);write('Ot__com 2006@');

GoToXY(70,24);write('End!!!');

ReadKey;

ClrScr;

halt

END

else

BEGIN

GoToXY(20,17);write('No this number, repeat !');

ReadKey

END;

END;

END;

END;

close(sis);

END.

3.  Пример расчёта.

Пример взят с учебника для студентов вузов “Проектирование электрических машин” под редакцией И.П. Копылова (с.240 – 252).

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

Содержание файла ввода (da.s):

0.001

115

0.031

33

0.196

7.8 1.5 0.7 0.0003 2873 3.6 25.3 3.6 7.8

1.02

220 0.402 0.725 36.61 53.92

1.35

2 28 1 -1 0.958 48 38 0.5 12.1 15.2

3.7 1 2 1

3

1.48 1.57 1.45

1.74 2.08 0.61

27.66 1123.2 727.2

28.97 26.58

0.0261

Графики переходных характеристик (Grafik.mcd):

sкр = 0,172

Mp* = 1.365

Ip* = 5.713

Mmax = 2.63

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

                         Список использованной литературы

1.  Романов М.П., Крепак В.Н., Мирошниченко В.П. «Руководство к решению прикладных задач по высшей математике», М.:Из-во ВЗПИ, 1990.

2.  Бахвалов Н.С. и др. «Численные методы», М.: Наука, 1973.

3.  Копылов И.П. «Проектирование электрических машин», М.: Энергия, 1980.

Скачать файл