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

hc,b1,b2,h1,rc,r2,ri2,b,bh,hh,bi,hih,Lyl2,Lyd2,Lyp2,

xi2,U1n,r1,x1,knas,a,up1,kib,ky1,kob1,d,t1,t2,xd,hi,bp,bh1,hh1,

Lyl1,Lyd1,Lyp1,Fc,Fd,I2,Z1,Z2,x12,skrr,x1nas,c1pnas,xi2ksinas:real;

W:boolean;

u,g:byte;

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

PROCEDURE ZAS;

VAR

ch:char;

BEGIN

ClrScr;

GoTOXY(5,2);write('');

GoToXY(5,3);write('        _____                                                         ');

GoToXY(5,4);write('    ___(_____)___                             G.P.T.U.                ');

GoToXY(5,5);write('   /I __________ I\     ____                                          ');

GoToXY(5,6);write('   II/__________\I I   I ## I FACULTY AUTOMATIC AND INFORMATIONAL SYSTEM');

GoToXY(5,7);write('  _II____________I I___I ## I                                         ');

GoToXY(5,8);write(' I II____________I I   I ## I)        ROSTRUM ALECTRICAL  POWER       ');

GoToXY(5,9);write(' I_II____________I I___I ## I)                                        ');

GoToXY(5,10);write('   II____________I I   I ## I                                         ');

GoToXY(5,11);write('   II\__________/I I   I_##_I                                         ');

GoToXY(5,12);write('   \I____________I/      ##                                           ');

GoToXY(5,13);write('  ___/_________\___      ##                        Program calculating');

GoToXY(5,14);write(' //////////////////      ##                        start-up property  ');

GoToXY(5,15);write('________________________ ##_                       asynchronous       ');

GoToXY(5,16);write('                         ## I                      alectrical power.  ');

GoToXY(5,17);write('    ALECTRICAL  POWER    ## I                                         ');

GoToXY(5,18);write('_________________________##_I                                         ');

GoToXY(5,22);write('                                                   <pressing any key> ');

ch:=readkey;

ClrScr

END;

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

PROCEDURE E;

Var

vid,vidd:integer;

h,sn,sk,s,ksi,t,fi,fii,kd,hr,qr,br,kr,qc,KaR,ri2ksi,Lyp2ksi,Kx,

xi2ksi,Ii2,Fpcp,Bfd,CN,c1,delLyp1nas,Lyp1nas,Lyd1nas,x1nas,

delLyp2nas,c2,Lyp2ksinas,Lyd2nas,xi2ksinas,x12p,c1pnas,ap,bp,

Ipz,Mpz,skr,I1n,Ii2n,snn,I1:real;

BEGIN

writeln('Enter facts realiz in terms of I.P.Kopilov, "Projection alectrical power"');

writeln('Enter step sliding h  ');

readln({da,}h);

write('Enter temperature ');

readln({da,}t);

write('Enter hc= ');

readln({da,}hc);

write('Enter sort stick, (pic.6-48), (exampie:1,11 and t.d.)  ');

readln({da,}vid);

write('Enter r"2, (p.45),r"2= ');

readln({da,}ri2);

writeln('Enter b,bh,hh,h"h,I2,b",h1,b1,b2, ');

readln({da,}b,bh,hh,hih,I2,bi,h1,b1,b2);

write('Enter x"2 ');

readln({da,}xi2);

writeln('Enter U1n,r1,x1,rc,r2 ');

readln({da,}U1n,r1,x1,rc,r2);

write('Enter knas ,(desired 1.35)  ');

readln({da,}knas);

writeln('Enter a,up1,k"b,ky1,kob1,Z1,Z2,d,t1,t2 ');

readln({da,}a,up1,kib,ky1,kob1,Z1,Z2,d,t1,t2);

writeln('Enter bh1,hh1,h",bp ');

readln({da,}bh1,hh1,hi,bp);

write('Enter sort slot stator, (pic.6-51), (exampie:otkr(1), poluotkr(2), poluzakr(3))  ');

readln({da,}vidd);

writeln('Enter Lyp1,Lyd1,Lyl1  ');

readln({da,}Lyp1,Lyd1,Lyl1);

writeln('Enter Lyp2,Lyd2,Lyl2  ');

readln({da,}Lyp2,Lyd2,Lyl2);

writeln('Enter x12,Fc,Fd  ');

readln({da,}x12,Fc,Fd);

writeln('Enter I1n,I"2n  ');

readln({da,}I1n,Ii2n);

write('Enter snom  ');

readln({da,}snn); ClrScr;

BEGIN

sn:=0;

sk:=1;

While sn<=sk do

BEGIN

s:=sn+0.00001;

BEGIN

if t=75 then

ksi:=63.15*hc*sqrt(s)

else

ksi:=63.61*hc*sqrt(s);

END;

if (ksi>=1) and (ksi<1.3) then

fi:=(0.305*ksi)-0.2;

if  (ksi>=1.3) and (ksi<1.5) then

fi:=(0.91*ksi)-1;

if  (ksi>=1.5) and (ksi<1.7) then

fi:=(0.7*ksi)-0.7;

if  (ksi>=1.7) and (ksi<1.9) then

fi:=(0.96*ksi)-1.07;

if  (ksi>=1.9) and (ksi<2.5) then

fi:=(1.166*ksi)-1.466;

if ksi>=2.5 then

fi:=(1.033*ksi)-1.133;

if (ksi>=0) and (ksi<0.8) then

fii:=(-0.0375*ksi)+1;

if  (ksi>=0.8) and (ksi<1.6) then

fii:=(-0.0375*ksi)+0.92;

if  (ksi>=1.6) and (ksi<2.6) then

fii:=(-0.29*ksi)+1.324;

if  (ksi>=2.6) and (ksi<3.2) then

fii:=(-0.183*ksi)+1.046;

if  ksi>=3.2 then

fii:=(-0.1*ksi)+0.78;

kd:=fii;

hr:=(hc/(1+fi));

BEGIN

if vid=1 then

kr:=hc/hr;

if vid=11 then

kr:=hc/hr;

if vid=22 then

kr:=1+fii;

if vid=2 then

kr:=1+fii;

if vid=3 then

BEGIN

br:=(b2-(((b2-b1)/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=33 then

BEGIN

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

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