Створення програми розрахунку параметрів електричних машин за допомогою середовища Delphi (стр. 7 из 13)

aa[6,0]:=1.52;aa[6,1]:=1.55;aa[6,2]:=1.58;aa[6,3]:=1.61;aa[6,4]:=1.64;

aa[6,5]:=1.68;aa[6,6]:=1.71;aa[6,7]:=1.74;aa[6,8]:=1.77;aa[6,9]:=1.81;

aa[7,0]:=1.85;aa[7,1]:=1.88;aa[7,2]:=1.91;aa[7,3]:=1.95;aa[7,4]:=1.99;

aa[7,5]:=2.03;aa[7,6]:=2.06;aa[7,7]:=2.09;aa[7,8]:=2.13;aa[7,9]:=2.17;

aa[8,0]:=2.21;aa[8,1]:=2.25;aa[8,2]:=2.29;aa[8,3]:=2.33;aa[8,4]:=2.37;

aa[8,5]:=2.41;aa[8,6]:=2.45;aa[8,7]:=2.49;aa[8,8]:=2.53;aa[8,9]:=2.57;

aa[9,0]:=2.62;aa[9,1]:=2.67;aa[9,2]:=2.72;aa[9,3]:=2.77;aa[9,4]:=2.83;

aa[9,5]:=2.89;aa[9,6]:=2.95;aa[9,7]:=2.99;aa[9,8]:=3.06;aa[9,9]:=3.13;

aa[10,0]:=3.20;aa[10,1]:=3.27;aa[10,2]:=3.34;aa[10,3]:=3.41;aa[10,4]:=3.49;

aa[10,5]:=3.57;aa[10,6]:=3.65;aa[10,7]:=3.73;aa[10,8]:=3.82;aa[10,9]:=3.91;

aa[11,0]:=4.00;aa[11,1]:=4.10;aa[11,2]:=4.20;aa[11,3]:=4.30;aa[11,4]:=4.40;

aa[11,5]:=4.50;aa[11,6]:=4.63;aa[11,7]:=4.78;aa[11,8]:=4.92;aa[11,9]:=5.06;

aa[12,0]:=5.20;aa[12,1]:=5.42;aa[12,2]:=5.64;aa[12,3]:=5.86;aa[12,4]:=6.08;

aa[12,5]:=6.30;aa[12,6]:=6.54;aa[12,7]:=6.78;aa[12,8]:=7.02;aa[12,9]:=7.26;

aa[13,0]:=7.50;aa[13,1]:=7.88;aa[13,2]:=8.26;aa[13,3]:=8.64;aa[13,4]:=9.02;

aa[13,5]:=9.40;aa[13,6]:=9.82;aa[13,7]:=10.2;aa[13,8]:=10.7;aa[13,9]:=11.1;

aa[14,0]:=11.5;aa[14,1]:=12.2;aa[14,2]:=12.9;aa[14,3]:=13.6;aa[14,4]:=14.3;

aa[14,5]:=15.0;aa[14,6]:=16.0;aa[14,7]:=17.0;aa[14,8]:=18.0;aa[14,9]:=19.0;

aa[15,0]:=20.0;aa[15,1]:=21.6;aa[15,2]:=23.2;aa[15,3]:=24.9;aa[15,4]:=26.5;

aa[15,5]:=28.1;aa[15,6]:=29.6;aa[15,7]:=31.1;aa[15,8]:=32.7;aa[15,9]:=34.2;

aa[16,0]:=35.7;aa[16,1]:=38.0;aa[16,2]:=40.3;aa[16,3]:=42.6;aa[16,4]:=44.9;

aa[16,5]:=47.2;aa[16,6]:=49.3;aa[16,7]:=51.4;aa[16,8]:=53.5;aa[16,9]:=55.6;

aa[17,0]:=57.7;aa[17,1]:=60.0;aa[17,2]:=63.0;aa[17,3]:=66.0;aa[17,4]:=70.0;

aa[17,5]:=74.0;aa[17,6]:=79.0;aa[17,7]:=84.0;aa[17,8]:=90.0;aa[17,9]:=97.0;

val(edit1.Text,d_ja_zovn,coder1);

val(edit2.Text,d_ja_vn,coder2);

val(edit3.Text,da,coder3);

val(edit4.Text,dval,coder4);

val(edit5.Text,lja,coder5);

val(edit6.Text,n,coder6);

val(edit7.Text,la,coder7);

val(edit8.Text,nk,coder8);

val(edit9.Text,bk,coder9);

val(edit10.Text,z,coder10);

val(edit11.Text,bp,coder11);

val(edit12.Text,hz,coder12);

val(edit13.Text,S,coder13);

val(edit14.Text,pov_zaz,coder14);

val(edit15.Text,lt,coder15);

val(edit16.Text,bt,coder16);

val(edit17.Text,ai,coder17);

val(edit18.Text,p2,coder18);

val(edit19.Text,ea,coder19);

val(edit20.Text,m_s_ja,coder20);

val(edit21.Text,t_l,coder21);

val(edit22.Text,m_s_g_p,coder22);

val(edit23.Text,bpl,coder23);

val(edit24.Text,m_s,coder24);

val(edit25.Text,kc,coder25);

val(edit26.Text,wc,coder26);

val(edit27.Text,ht,coder27);

val(edit28.Text,hja,coder28);

val(edit29.Text,bzmax1,coder29);

val(edit30.Text,kzmin1,coder30);

val(edit31.Text,hzmax1,coder31);

val(edit32.Text,bzmin2,coder32);

val(edit33.Text,kzmax2,coder33);

val(edit34.Text,hzmin2,coder34);

val(edit35.Text,bzser1,coder35);

val(edit36.Text,kzser1,coder36);

val(edit37.Text,hzser1,coder37);

form5.show;

form3.Visible:=false;

form5.Memo1.Clear;

pol_dil:=pi*da/p2;

str(pol_dil:8:4,ed1);

form5.Memo1.Lines.Add('Полюсне ділення - мм ');

form5.Memo1.Lines.Add(ed1);

form5.Memo1.Lines.Add(line);

l:=la-nk*bk;

str(l:8:4,ed2);

form5.Memo1.Lines.Add('Довжина якоря без вентиляційних каналів - мм');

form5.Memo1.Lines.Add(ed2);

form5.Memo1.Lines.Add(line);

li:=0.5*(lt+l);

str(li:8:4,ed3);

form5.Memo1.Lines.Add('Розрахункова довжина якоря - мм');

form5.Memo1.Lines.Add(ed3);

form5.Memo1.Lines.Add(line);

a:=1; p:=2;

n_n:=2*wc*s;

f:=(60*a*Ea)/(p*N_n*n);

str(f:8:4,ed4);

form5.Memo1.Lines.Add('Загальний магнітний потік - Вб ');

form5.Memo1.Lines.Add(ed4);

form5.Memo1.Lines.Add(line);

bq:=f/(ai*li*pol_dil*0.000001);

str(bq:8:4,ed5);

form5.Memo1.Lines.Add('Магнітна індукція в повітряному зазорі - Тл ');

form5.Memo1.Lines.Add(ed5);

form5.Memo1.Lines.Add(line);

ti:=(pi*da)/z;

str(ti:8:4,ed6);

form5.Memo1.Lines.Add('Зубцеве ділення якоря - мм ');

form5.Memo1.Lines.Add(ed6);

form5.Memo1.Lines.Add(line);

bz1:=ti-bp;

str(bz1:8:4,ed7);

form5.Memo1.Lines.Add('Ширина коронки зуба - мм ');

form5.Memo1.Lines.Add(ed7);

form5.Memo1.Lines.Add(line);

kq:=((10*pov_zaz)+ti)/(10*pov_zaz+bz1);

str(kq:8:4,ed8);

form5.Memo1.Lines.Add('Коефіцієнт повітряного зазору ');

form5.Memo1.Lines.Add(ed8);

form5.Memo1.Lines.Add(line);

fq:=(0.8*1000)*bq*pov_zaz*kq;

str(fq:8:4,ed9);

form5.Memo1.Lines.Add('Магнітне напруження повітряного зазору - А ');

form5.Memo1.Lines.Add(ed9);

form5.Memo1.Lines.Add(line);

bzmin:=((pi*(da-2*hz))/z)-bp;

str(bzmin:8:4,ed10);

form5.Memo1.Lines.Add('Ширина зубця в номінальному перерізі - мм ');

form5.Memo1.Lines.Add(ed10);

form5.Memo1.Lines.Add(line);

bzmax:=(bq*ti)/(kc*bzmin);

str(bzmax:8:4,ed11);

form5.Memo1.Lines.Add('Індукція в найменшому пеперізі зубця - Тл ');

form5.Memo1.Lines.Add(ed11);

form5.Memo1.Lines.Add(line);

if bzmax>1.8 then begin

MessageDlg('Велечина Bz max > 1.8 Тл - Беруться дані з графіків та розраховуються додаткові параметри Генератора.',

mtInformation,[mbOk], 0);

form5.Memo1.Lines.Add(' Результати розрахунку додаткових параметрів');

form5.Memo1.Lines.Add(line);

B_Bzmin:=(bq*ti)/(kc*(ti-bp));

str(B_Bzmin:8:4,ed12);

form5.Memo1.Lines.Add('Магнітна індукція в максимальному перерізі зубця - Тл');

form5.Memo1.Lines.Add(ed12);

form5.Memo1.Lines.Add(line);

bzser:=0.5*(bzmax+b_bzmin);

str(bzser:8:4,ed13);

form5.Memo1.Lines.Add('Магнітна індукція в середньому перерізі зубця - Тл');

form5.Memo1.Lines.Add(ed13);

form5.Memo1.Lines.Add(line);

form5.Memo1.Lines.Add(' Зубцеві коефіціенти');

form5.Memo1.Lines.Add(line);

kzmax:=ti/(bzmin*kc);

str(kzmax:8:4,ed14);

form5.Memo1.Lines.Add('Для максимального перерізу зубця');

form5.Memo1.Lines.Add(ed14);

form5.Memo1.Lines.Add(line);

kzmin:=(pi*(da-2*hz))/(bzmin*kc*z);

str(kzmin:8:4,ed15);

form5.Memo1.Lines.Add('Для мінімального перерізу зубця');

form5.Memo1.Lines.Add(ed15);

form5.Memo1.Lines.Add(line);

kzser:=0.5*(kzmax+kzmin);

str(kzser:8:4,ed16);

form5.Memo1.Lines.Add('Для середнього перерізу зубця');

form5.Memo1.Lines.Add(ed16);

form5.Memo1.Lines.Add(line);

form5.Memo1.Lines.Add(' Дані введені з графіка');

form5.Memo1.Lines.Add(line);

str(bzmax1:8:1,ed17);

str(kzmin1:8:1,ed18);

str(hzmax1:8:0,ed19);

str(bzmin2:8:1,ed20);

str(kzmax2:8:1,ed21);

str(hzmin2:8:0,ed22);

str(bzser1:8:1,ed23);

str(kzser1:8:1,ed24);

str(hzser1:8:0,ed25);

form5.Memo1.Lines.Add(' Напруженість поля в найменшому перерізі зубця');

form5.Memo1.Lines.Add('Bz max = '+ed17+' Тл ');

form5.Memo1.Lines.Add('kz min = '+ed18);

form5.Memo1.Lines.Add('Hz max = '+ed19+' А/см ');

form5.Memo1.Lines.Add(line);

form5.Memo1.Lines.Add(' Напруженість поля в максимальному перерізі зубця');

form5.Memo1.Lines.Add('Bz min = '+ed20+' Тл ');

form5.Memo1.Lines.Add('kz max = '+ed21);

form5.Memo1.Lines.Add('Hz min = '+ed22);

form5.Memo1.Lines.Add(line);

form5.Memo1.Lines.Add(' Напруженість поля в середньому перерізі зубця');

form5.Memo1.Lines.Add('Bz ser = '+ed23+' Тл ');

form5.Memo1.Lines.Add('kz ser = '+ed24);

form5.Memo1.Lines.Add('Hz ser = '+ed25+' А/см ');

form5.Memo1.Lines.Add(line);

end

else MessageDlg('Велечина Bz max < 1.8 Тл - Не розраховуються додаткові параметри Генератора.',

mtInformation,[mbOk], 0);

form5.Memo1.Lines.Add(' Продовження розрахунку основних параметрів');

form5.Memo1.Lines.Add(line);

h_z:=(hzmax1+4*ht+hzmin2)/6;

str(h_z:8:4,ed26);

form5.Memo1.Lines.Add('Значення напруженості поля в зубці якоря - А/см');

form5.Memo1.Lines.Add(ed26);

form5.Memo1.Lines.Add(line);

f_z:=0.1*h_z*hz;

str(f_z:8:4,ed27);

form5.Memo1.Lines.Add('Магнітне напруження зубцевого шару якоря - А');

form5.Memo1.Lines.Add(ed27);

form5.Memo1.Lines.Add(line);

ha:=(da/2)-(dval/2)-hz;

str(ha:8:4,ed28);

form5.Memo1.Lines.Add('Висота спинки якоря - мм');

form5.Memo1.Lines.Add(ed28);

form5.Memo1.Lines.Add(line);

sa:=((la-nk*bk)*ha*kc);

str(sa:8:4,ed29);

form5.Memo1.Lines.Add('Площа перерізу спинки якоря - мм.квад');

form5.Memo1.Lines.Add(ed29);

form5.Memo1.Lines.Add(line);

ba:=F/(2*(sa*0.000001));

str(ba:8:4,ed30);

form5.Memo1.Lines.Add('Магнітна індукція в спинці якоря - Тл');

form5.Memo1.Lines.Add(ed30);

form5.Memo1.Lines.Add(line);

n_n_n:=2; a_a_a:=4;

f1:=roundto(f,a_a_a);

ba1:=roundto(ba,n_n_n);

ind1:=trunc(f1/0.01+1);

ind2:=trunc((ba1-0.3)/0.1);

H_a:=aa[ind2,ind1];

str(h_a:8:4,ed31);

form5.Memo1.Lines.Add('Напруженість поля в спинці якоря - А/см');

form5.Memo1.Lines.Add(ed31);

form5.Memo1.Lines.Add(line);

l_a:=((pi)*(da-(2*hz)-ha))/p2;

str(l_a:8:4,ed32);

form5.Memo1.Lines.Add('Довжина середньої силової лінії в спинці якоря - мм');

form5.Memo1.Lines.Add(ed32);

form5.Memo1.Lines.Add(line);

f_a:=0.1*H_a*l_a;

str(f_a:8:4,ed33);

form5.Memo1.Lines.Add('Магнітна напруженість в спинці якоря - А');

form5.Memo1.Lines.Add(ed33);

form5.Memo1.Lines.Add(line);

q:=(10*pov_zaz)/pol_dil;

str(q:8:4,ed34);

form5.Memo1.Lines.Add('Коефіцієнт розсіювання');

form5.Memo1.Lines.Add(ed34);

form5.Memo1.Lines.Add(line);

ft:=f*(1+q);

str(ft:8:4,ed35);

form5.Memo1.Lines.Add('Магнітний потік полюса - Вб');

form5.Memo1.Lines.Add(ed35);

form5.Memo1.Lines.Add(line);

st:=(bt*lt*kc);

str(st:8:4,ed36);

form5.Memo1.Lines.Add('Поперечний переріз сердечника полюса - мм.квад');

form5.Memo1.Lines.Add(ed36);

form5.Memo1.Lines.Add(line);

bm:=ft/(st*0.000001);

str(bm:8:4,ed37);

form5.Memo1.Lines.Add('Магнітна індукція в сердечнику полюса - Тл');

form5.Memo1.Lines.Add(ed37);

form5.Memo1.Lines.Add(line);

h_tt:=(0.5*(d_ja_vn-da))-pov_zaz;

str(h_tt:8:4,ed38);

form5.Memo1.Lines.Add('Висота сердечника полюса - мм');

form5.Memo1.Lines.Add(ed38);

form5.Memo1.Lines.Add(line);

ftt:=0.1*ht*h_tt;

str(ftt:8:4,ed39);

form5.Memo1.Lines.Add('Магнітне напруження поля - А');

form5.Memo1.Lines.Add(ed39);

form5.Memo1.Lines.Add(line);

h_ja:=0.5*(d_ja_zovn-d_ja_vn);

str(h_ja:8:4,ed40);

form5.Memo1.Lines.Add('Висота спинки станини - мм');

form5.Memo1.Lines.Add(ed40);

form5.Memo1.Lines.Add(line);

sja:=(h_ja*lja);

str(sja:8:4,ed41);

form5.Memo1.Lines.Add('Поперечний переріз спинки станини - мм.квад');

form5.Memo1.Lines.Add(ed41);

form5.Memo1.Lines.Add(line);

bja:=ft/(2*(sja*0.000001));

str(bja:8:4,ed42);

form5.Memo1.Lines.Add('Магнітна індукція станини - Тл');

form5.Memo1.Lines.Add(ed42);

form5.Memo1.Lines.Add(line);

l_ja:=((pi*(d_ja_zovn-d_ja_vn))/(4*p))+h_ja;

str(l_ja:8:4,ed43);

form5.Memo1.Lines.Add('Магнітне напруження станини - мм');

form5.Memo1.Lines.Add(ed43);

form5.Memo1.Lines.Add(line);

fja:=hja*l_ja;

str(fja:8:4,ed44);

form5.Memo1.Lines.Add('Магнітна індукція станини - А');

form5.Memo1.Lines.Add(ed44);

form5.Memo1.Lines.Add(line);

fbo:=(2*fq)+(2*f_z)+(2*ft)+f_a+fja;

str(fbo:8:4,ed45);

form5.Memo1.Lines.Add('МРС обмотки якоря збудження на пару полюсів в режимі');

form5.Memo1.Lines.Add('холостого ходу - А');

form5.Memo1.Lines.Add(ed45);

form5.Memo1.Lines.Add(line);

ku:=fbo/(2*fq);

str(ku:8:4,ed46);

form5.Memo1.Lines.Add('Коефіцієнт магнітного накопичення');

form5.Memo1.Lines.Add(ed46);

form5.Memo1.Lines.Add(line);

form5.Memo1.Lines.Add(' Розрахунок закінчено');

end;

procedure TForm3.N4Click(Sender: TObject);

begin

aa[1,0]:=0.52;aa[1,1]:=0.53;aa[1,2]:=0.54;aa[1,3]:=0.55;aa[1,4]:=0.56;

aa[1,5]:=0.58;aa[1,6]:=0.59;aa[1,7]:=0.60;aa[1,8]:=0.61;aa[1,9]:=0.62;

aa[2,0]:=0.64;aa[2,1]:=0.65;aa[2,2]:=0.66;aa[2,3]:=0.67;aa[2,4]:=0.69;

aa[2,5]:=0.70;aa[2,6]:=0.71;aa[2,7]:=0.72;aa[2,8]:=0.74;aa[2,9]:=0.77;

aa[3,0]:=0.80;aa[3,1]:=0.81;aa[3,2]:=0.83;aa[3,3]:=0.85;aa[3,4]:=0.87;

aa[3,5]:=0.89;aa[3,6]:=0.91;aa[3,7]:=0.93;aa[3,8]:=0.95;aa[3,9]:=0.97;

aa[4,0]:=1.00;aa[4,1]:=1.02;aa[4,2]:=1.04;aa[4,3]:=1.06;aa[4,4]:=1.08;

aa[4,5]:=1.11;aa[4,6]:=1.13;aa[4,7]:=1.15;aa[4,8]:=1.18;aa[4,9]:=1.21;

aa[5,0]:=1.24;aa[5,1]:=1.26;aa[5,2]:=1.29;aa[5,3]:=1.32;aa[5,4]:=1.35;

aa[5,5]:=1.38;aa[5,6]:=1.40;aa[5,7]:=1.43;aa[5,8]:=1.46;aa[5,9]:=1.49;

aa[6,0]:=1.52;aa[6,1]:=1.55;aa[6,2]:=1.58;aa[6,3]:=1.61;aa[6,4]:=1.64;

aa[6,5]:=1.68;aa[6,6]:=1.71;aa[6,7]:=1.74;aa[6,8]:=1.77;aa[6,9]:=1.81;

aa[7,0]:=1.85;aa[7,1]:=1.88;aa[7,2]:=1.91;aa[7,3]:=1.95;aa[7,4]:=1.99;

aa[7,5]:=2.03;aa[7,6]:=2.06;aa[7,7]:=2.09;aa[7,8]:=2.13;aa[7,9]:=2.17;

aa[8,0]:=2.21;aa[8,1]:=2.25;aa[8,2]:=2.29;aa[8,3]:=2.33;aa[8,4]:=2.37;

aa[8,5]:=2.41;aa[8,6]:=2.45;aa[8,7]:=2.49;aa[8,8]:=2.53;aa[8,9]:=2.57;

aa[9,0]:=2.62;aa[9,1]:=2.67;aa[9,2]:=2.72;aa[9,3]:=2.77;aa[9,4]:=2.83;

aa[9,5]:=2.89;aa[9,6]:=2.95;aa[9,7]:=2.99;aa[9,8]:=3.06;aa[9,9]:=3.13;

aa[10,0]:=3.20;aa[10,1]:=3.27;aa[10,2]:=3.34;aa[10,3]:=3.41;aa[10,4]:=3.49;

aa[10,5]:=3.57;aa[10,6]:=3.65;aa[10,7]:=3.73;aa[10,8]:=3.82;aa[10,9]:=3.91;

aa[11,0]:=4.00;aa[11,1]:=4.10;aa[11,2]:=4.20;aa[11,3]:=4.30;aa[11,4]:=4.40;

aa[11,5]:=4.50;aa[11,6]:=4.63;aa[11,7]:=4.78;aa[11,8]:=4.92;aa[11,9]:=5.06;

aa[12,0]:=5.20;aa[12,1]:=5.42;aa[12,2]:=5.64;aa[12,3]:=5.86;aa[12,4]:=6.08;

aa[12,5]:=6.30;aa[12,6]:=6.54;aa[12,7]:=6.78;aa[12,8]:=7.02;aa[12,9]:=7.26;

aa[13,0]:=7.50;aa[13,1]:=7.88;aa[13,2]:=8.26;aa[13,3]:=8.64;aa[13,4]:=9.02;

aa[13,5]:=9.40;aa[13,6]:=9.82;aa[13,7]:=10.2;aa[13,8]:=10.7;aa[13,9]:=11.1;

aa[14,0]:=11.5;aa[14,1]:=12.2;aa[14,2]:=12.9;aa[14,3]:=13.6;aa[14,4]:=14.3;

aa[14,5]:=15.0;aa[14,6]:=16.0;aa[14,7]:=17.0;aa[14,8]:=18.0;aa[14,9]:=19.0;

aa[15,0]:=20.0;aa[15,1]:=21.6;aa[15,2]:=23.2;aa[15,3]:=24.9;aa[15,4]:=26.5;

aa[15,5]:=28.1;aa[15,6]:=29.6;aa[15,7]:=31.1;aa[15,8]:=32.7;aa[15,9]:=34.2;

aa[16,0]:=35.7;aa[16,1]:=38.0;aa[16,2]:=40.3;aa[16,3]:=42.6;aa[16,4]:=44.9;

aa[16,5]:=47.2;aa[16,6]:=49.3;aa[16,7]:=51.4;aa[16,8]:=53.5;aa[16,9]:=55.6;

aa[17,0]:=57.7;aa[17,1]:=60.0;aa[17,2]:=63.0;aa[17,3]:=66.0;aa[17,4]:=70.0;

aa[17,5]:=74.0;aa[17,6]:=79.0;aa[17,7]:=84.0;aa[17,8]:=90.0;aa[17,9]:=97.0;

val(edit1.Text,d_ja_zovn,coder1);

val(edit2.Text,d_ja_vn,coder2);

val(edit3.Text,da,coder3);

val(edit4.Text,dval,coder4);

val(edit5.Text,lja,coder5);

val(edit6.Text,n,coder6);