Створення програми розрахунку параметрів електричних машин за допомогою середовища Delphi
Розробка програми, яка розраховує параметри магнітних ланцюгів генератора постійного струму і асинхронного двигуна, з можливістю імпорту результатів розрахунків в документ Word, а також передбачена можливість збереження результатів в текстовому файлі.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | украинский |
| Дата добавления | 17.04.2009 |
| Размер файла | 1,2 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
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,d1_zovn,cod1);
val(edit2.Text,d1,cod2);
val(edit3.Text,d2_vn,cod3);
val(edit4.Text,d2,cod4);
val(edit5.Text,pov_zaz,cod5);
val(edit6.Text,z1,cod6);
val(edit7.Text,z2,cod7);
val(edit8.Text,l1,cod8);
val(edit9.Text,l2,cod9);
val(edit10.Text,mat_st,cod10);
val(edit11.Text,tov_l,cod11);
val(edit12.Text,hz1,cod12);
val(edit13.Text,bz1,cod13);
val(edit14.Text,bzq1,cod14);
val(edit15.Text,hz2,cod15);
val(edit16.Text,bz2,cod16);
val(edit17.Text,d_d,cod17);
val(edit18.Text,f_potic,cod18);
val(edit19.Text,kc1,cod19);
val(edit20.Text,p2,cod20);
val(edit21.Text,bq,cod21);
val(edit22.Text,ai,cod22);
val(edit23.Text,bp,cod23);
val(edit29.Text,bz_max,cod24);
val(edit30.Text,kz_min,cod25);
val(edit31.Text,hz_max,cod26);
val(edit32.Text,bz_min,cod27);
val(edit33.Text,kz_max,cod28);
val(edit34.Text,hz_min,cod29);
val(edit35.Text,bz_ser,cod30);
val(edit36.Text,kz_ser,cod31);
val(edit37.Text,Hz_ser,cod24);
Form7.show;
form2.Visible:=false;
form7.Memo1.Clear;
t1:=(pi*d1)/z1;
kq:=((10*pov_zaz)+t1)/((10*pov_zaz)+bzq1);
str(kq:8:4,tex1);
form7.Memo1.Lines.Add('Коефіцієнт повітряного зазору');
form7.Memo1.Lines.Add(tex1);
form7.Memo1.Lines.Add(line);
fq:=(0.8*1000)*bq*pov_zaz*kq;
str(fq:8:4,tex2);
form7.Memo1.Lines.Add('Магнітне напруження повітряного зазору - А');
form7.Memo1.Lines.Add(tex2);
form7.Memo1.Lines.Add(line);
Bzmax:=(bq*t1)/(kc1*bz1);
str(bzmax:8:4,tex3);
form7.Memo1.Lines.Add(' Максимальна магнітна індукція в зубці статора - Тл');
form7.Memo1.Lines.Add(tex3);
form7.Memo1.Lines.Add(line);
if bzmax>1.8 then
begin
form7.Memo1.Lines.Add('Велечина Bz1 > 1.8 Тл - Ведемо розрахунки мінімального та');
form7.Memo1.Lines.Add('середнього значення магнітної індукції в зубці статора');
form7.Memo1.Lines.Add(line);
bzmin:=abs((bq*t1)/(kc1*(t1-bp)));
str(bzmin:8:4,tex4);
form7.Memo1.Lines.Add(' Мінімальна магнітна індукція в зубці статора - Тл');
form7.Memo1.Lines.Add(tex4);
form7.Memo1.Lines.Add(line);
bzser:=0.5*(bzmax+bzmin);
str(bzser:8:4,tex5);
form7.Memo1.Lines.Add(' Середня магнітна індукція в зубці статора - Тл');
form7.Memo1.Lines.Add(tex5);
form7.Memo1.Lines.Add(line);
hz_1:=(hz_max+(4*Hz_ser)+Hz_min)/6;
str(hz_1:8:4,tex6);
form7.Memo1.Lines.Add(' Значення напруженості поля в зубці статора - А/см');
form7.Memo1.Lines.Add(tex6);
form7.Memo1.Lines.Add(line);
end
else begin
form7.Memo1.Lines.Add('Велечина Bz1 < 1.8 Тл - Напруженість поля в зубці');
form7.Memo1.Lines.Add('статора Hz1 визначаємо по таблиці');
form7.Memo1.Lines.Add(line);
end;
b2:=2; a1:=4;
f1:=roundto(f_potic,a1);
ba1:=roundto(bzmax,b2);
ind1:=trunc(f1/0.01+1);
ind2:=trunc((ba1-0.3)/0.1);
Hz_1:=aa[ind2,ind1];
str(hz_1:8:4,tex6);
form7.Memo1.Lines.Add(' Значення напруженості поля в зубці статора - А/см');
form7.Memo1.Lines.Add(tex6);
form7.Memo1.Lines.Add(line);
form7.Memo1.Lines.Add(' Продовження розранунків');
form7.Memo1.Lines.Add(line);
fz:=0.1*hz_1*hz1;
str(fz:8:4,tex7);
form7.Memo1.Lines.Add(' Магнітне напруження зубцевого шару статора - А');
form7.Memo1.Lines.Add(tex7);
form7.Memo1.Lines.Add(line);
t2:=(pi*d2)/z2;
bzmax2:=(bq*t2)/(kc1*bz2);
str(bzmax2:8:4,tex8);
form7.Memo1.Lines.Add(' Максимальна магнітна індукція в зубці ротора - Тл');
form7.Memo1.Lines.Add(tex8);
form7.Memo1.Lines.Add(line);
if bzmax2>1.8 then begin
form7.Memo1.Lines.Add('Велечина Bz2 > 1.8 Тл - Ведемо розрахунки мінімального та');
form7.Memo1.Lines.Add('середнього значення магнітної індукції в зубці ротора');
form7.Memo1.Lines.Add(line);
bzmin2:=(bq*t2)/(kc1*(t2-bp));
str(bzmin2:8:4,tex9);
form7.Memo1.Lines.Add(' Мінімальна магнітна індукція в зубці ротора - Тл');
form7.Memo1.Lines.Add(tex9);
form7.Memo1.Lines.Add(line);
bzser2:=0.5*(bzmax2+bzmin2);
str(bzser2:8:4,tex10);
form7.Memo1.Lines.Add(' Середня магнітна індукція в зубці ротора - Тл');
form7.Memo1.Lines.Add(tex10);
form7.Memo1.Lines.Add(line);
hz_2:=(hz_max+(4*hz_ser)+hz_min)/6;
str(hz_2:8:4,tex11);
form7.Memo1.Lines.Add(' Значення напруженості поля в зубці ротора - А/см');
form7.Memo1.Lines.Add(tex11);
form7.Memo1.Lines.Add(line);
end
else begin
form7.Memo1.Lines.Add('Велечина Bz2 < 1.8 Тл - Напруженість поля в зубці');
form7.Memo1.Lines.Add('ротора Hz2 визначаємо по таблиці');
form7.Memo1.Lines.Add(line);
end;
b3:=2; a2:=4;
f2:=roundto(f_potic,a2);
ba2:=roundto(bzmax2,b3);
ind3:=trunc(f2/0.01+1);
ind4:=trunc((ba2-0.3)/0.1);
Hz_2:=aa[ind4,ind3];
str(hz_2:8:4,tex12);
form7.Memo1.Lines.Add(' Значення напруженості поля в зубці ротора - А/см');
form7.Memo1.Lines.Add(tex12);
form7.Memo1.Lines.Add(line);
fz2:=0.1*(hz_2*(hz2-(0.4*d2)));
str(fz2:8:4,tex13);
form7.Memo1.Lines.Add(' Магнітне напруження зубцевого шару ротора - А');
form7.Memo1.Lines.Add(tex13);
form7.Memo1.Lines.Add(line);
hc1:=(d1_zovn-d1-(2*hz1))/2;
str(hc1:8:4,tex14);
form7.Memo1.Lines.Add(' Висота спинки статора - мм');
form7.Memo1.Lines.Add(tex14);
form7.Memo1.Lines.Add(line);
pol_dil:=(pi*d1)/p2;
bc1:=(0.5*ai*pol_dil*bq)/(kc1*hc1);
str(bc1:8:4,tex15);
form7.Memo1.Lines.Add(' Магнітна індукція в спинці статора - Тл');
form7.Memo1.Lines.Add(tex15);
form7.Memo1.Lines.Add(line);
if bc1<1.4 then begin
b4:=2; a3:=4;
f3:=roundto(f_potic,a3);
ba3:=roundto(bc1,b4);
ind5:=trunc(f3/0.01+1);
ind6:=trunc((ba3-0.3)/0.1);
Hc_1:=aa[ind6,ind5];
str(hc_1:8:4,tex16);
form7.Memo1.Lines.Add(' Значення напруженості поля в зубці статора - А/см');
form7.Memo1.Lines.Add(tex16);
form7.Memo1.Lines.Add(line);
end
else begin
bc_1:=bc1*0.4;
b4:=2; a3:=4;
f3:=roundto(f_potic,a3);
ba3:=roundto(bc_1,b4);
ind5:=trunc(f3/0.01+1);
ind6:=trunc((ba3-0.3)/0.1);
Hc_1:=aa[ind6,ind5];
str(hc_1:8:4,tex16);
form7.Memo1.Lines.Add(' Значення напруженості поля в зубці статора - А/см');
form7.Memo1.Lines.Add(tex16);
form7.Memo1.Lines.Add(line);
end;
lc1:=(pi/p2)*(d1_zovn-hc1);
str(lc1:8:4,tex17);
form7.Memo1.Lines.Add(' Довжина силової лінії в спинці статора - мм');
form7.Memo1.Lines.Add(tex17);
form7.Memo1.Lines.Add(line);
fc1:=0.1*hc_1*lc1;
str(fc1:8:4,tex18);
form7.Memo1.Lines.Add(' Магнітне напруження спинки статора - А');
form7.Memo1.Lines.Add(tex18);
form7.Memo1.Lines.Add(line);
hc2:=abs((d2-d2_vn-(2*hz2))/2);
str(hc2:8:4,tex19);
form7.Memo1.Lines.Add(' Висота спинки ротора - мм');
form7.Memo1.Lines.Add(tex19);
form7.Memo1.Lines.Add(line);
bc2:=(0.5*ai*pol_dil*bq)/(kc1*hc2);
str(bc2:8:4,tex20);
form7.Memo1.Lines.Add(' Магнітна індукція в спинці ротора - Тл');
form7.Memo1.Lines.Add(tex20);
form7.Memo1.Lines.Add(line);
b5:=2; a4:=4;
f4:=roundto(f_potic,a4);
ba4:=roundto(bc2,b5);
ind7:=trunc(f4/0.01+1);
ind8:=trunc((ba4-0.3)/0.1);
Hc_2:=aa[ind8,ind7];
str(hc_2:8:4,tex21);
form7.Memo1.Lines.Add(' Значення напруженості поля в спинці ротора - А/см');
form7.Memo1.Lines.Add(tex21);
form7.Memo1.Lines.Add(line);
lc2:=(pi/p2)*(d2_vn-hz2-hc2);
str(lc2:8:4,tex22);
form7.Memo1.Lines.Add(' Довжина силової лінії в спинці ротора ротора - мм');
form7.Memo1.Lines.Add(tex22);
form7.Memo1.Lines.Add(line);
fc2:=0.1*hc_2*lc2;
str(fc2:8:4,tex23);
form7.Memo1.Lines.Add(' Магнітне напруження спинки ротора - А');
form7.Memo1.Lines.Add(tex23);
form7.Memo1.Lines.Add(line);
f_rush:=(2*fq)+(2*fz)+(2*fz2)+fc1+fc2;
str(f_rush:8:4,tex24);
form7.Memo1.Lines.Add(' Магнітно-рушійна сила на пару полюсів - А');
form7.Memo1.Lines.Add(tex24);
form7.Memo1.Lines.Add(line);
ku:=f_rush/(2*fq);
str(ku:8:4,tex25);
form7.Memo1.Lines.Add(' Коефіцієнт магнітного накопичення');
form7.Memo1.Lines.Add(tex25);
form7.Memo1.Lines.Add(line);
form7.Memo1.Lines.Add(' Розрахунок закінчено');
end;
procedure TForm2.Digitkey(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8,'.']) then begin
messagedlg('Помилка - Дозволено вводити тільки додатні цифри',mterror,[mbok],0);
key:=#0;
beep;
end;;
end;
end.
Текст модуля Unit3.pas
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, Buttons;
type
TForm3 = class(TForm)
MainMenu1: TMainMenu;
Timer1: TTimer;
Label1: TLabel;
N3: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
Edit4: TEdit;
Label6: TLabel;
Edit5: TEdit;
Label7: TLabel;
Edit6: TEdit;
Label8: TLabel;
Edit7: TEdit;
Label9: TLabel;
Edit8: TEdit;
Label10: TLabel;
Edit9: TEdit;
Label11: TLabel;
Edit10: TEdit;
Label12: TLabel;
Edit11: TEdit;
Label13: TLabel;
Edit12: TEdit;
Label14: TLabel;
Edit13: TEdit;
GroupBox1: TGroupBox;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Label15: TLabel;
Edit14: TEdit;
Label16: TLabel;
Edit15: TEdit;
Label17: TLabel;
Edit16: TEdit;
Label18: TLabel;
Edit17: TEdit;
Label19: TLabel;
Edit18: TEdit;
Label20: TLabel;
Edit19: TEdit;
Label21: TLabel;
Edit20: TEdit;
Label22: TLabel;
Edit21: TEdit;
Label23: TLabel;
Edit22: TEdit;
Label24: TLabel;
Edit23: TEdit;
Label25: TLabel;
Edit24: TEdit;
Label26: TLabel;
Edit25: TEdit;
Label27: TLabel;
Edit26: TEdit;
Label28: TLabel;
Edit27: TEdit;
Label29: TLabel;
Edit28: TEdit;
BitBtn1: TBitBtn;
GroupBox2: TGroupBox;
Edit29: TEdit;
Label30: TLabel;
Label31: TLabel;
Edit30: TEdit;
Label32: TLabel;
Edit31: TEdit;
Label33: TLabel;
Edit32: TEdit;
Label34: TLabel;
Edit33: TEdit;
Label35: TLabel;
Edit34: TEdit;
Label36: TLabel;
Edit35: TEdit;
Label37: TLabel;
Edit36: TEdit;
Label38: TLabel;
Edit37: TEdit;
procedure N2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Digitkey(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
{-----------------------------------------------}
d_ja_zovn,d_ja_vn,da,dval,lja,n,la,nk,bk,z:real;
bp,hz,S,pov_zaz,Lt,bt,ai,p2,Ea,m_s_ja:real;
t_l,m_s_g_p,bpl,m_s,kc,wc,ht,hja:real;
bzmax1,kzmin1,hzmax1,bzmin2,kzmax2,hzmin2,bzser1,kzser1,hzser1:real;
{-----------------------------------------------}
coder1,coder2,coder3,coder4,coder5,coder6,coder7,coder8,coder9,coder10:integer;
coder11,coder12,coder13,coder14,coder15,coder16,coder17,coder18,coder19,coder20:integer;
coder21,coder22,coder23,coder24,coder25,coder26,coder27,coder28,coder29,coder30:integer;
coder31,coder32,coder33,coder34,coder35,coder36,coder37:integer;
{-----------------------------------------------}
Pol_dil,l,li,f,n_n,bq,ti,bz1,kq,fq:real;
bzmin,bzmax,B_Bzmin,bzser,kzmax,kzmin,kzser:real;
h_z,f_z,ha,sa,ba,h_a, l_a,F_a,q,Ft,st,bm:real;
h_tt,ftt,h_ja,sja,bja,l_ja,fja,fbo,ku:real;
{-----------------------------------------------}
ed1,ed2,ed3,ed4,ed5,ed6,ed7,ed8,ed9,ed10:string;
ed11,ed12,ed13,ed14,ed15,ed16,ed17,ed18,ed19,ed20:string;
ed21,ed22,ed23,ed24,ed25,ed26,ed27,ed28,ed29,ed30:string;
ed31,ed32,ed33,ed34,ed35,ed36,ed37,ed38,ed39,ed40:string;
ed41,ed42,ed43,ed44,ed45,ed46:string;
{-----------------------------------------------}
a,p,ind1,ind2:integer;
{-----------------------------------------------}
file1:textfile;
file2:textfile;
aa:array[1..17,0..9] of real;
f1,ba1:real;
n_n_n,a_a_a:byte;
const line='___________________________________________________';
{-----------------------------------------------}
implementation
uses Unit1, Unit4, Unit5;
{$R *.dfm}
function RoundTo(num:real; r:byte):real;
var
rt:longint;
i:byte;
begin
rt:=1;
for i:=1 to r do rt:=rt*10;
RoundTo:=round(num*rt)/rt;
end;
procedure TForm3.N2Click(Sender: TObject);
begin
form1.Show;
form3.Visible:=false;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
if label1.Visible=true then
label1.Visible:=false
else label1.Visible:=true;
end;
procedure TForm3.N5Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
form1.Show;
form3.visible:=false;
end;
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm3.BitBtn2Click(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);
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);
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.Digitkey(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8,'.']) then begin
messagedlg('Помилка - Дозволено вводити тільки додатні цифри',mterror,[mbok],0);
key:=#0;
beep;
end;
end;
end.
Текст модуля Unit4.pas
unit Unit4;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, jpeg;
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
OKButton: TButton;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Timer1: TTimer;
Label1: TLabel;
GroupBox1: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure OKButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
uses Unit1;
{$R *.dfm}
procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
close;
form1.visible:=true;
end;
procedure TAboutBox.FormCreate(Sender: TObject);
begin
label5.Caption:='';
end;
procedure TAboutBox.Timer1Timer(Sender: TObject);
begin
label5.Caption:=timetostr(time)
end;
end.
Текст модуля Unit5.pas
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, Buttons, ExtCtrls;
type
TForm5 = class(TForm)
Memo1: TMemo;
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
MainMenu1: TMainMenu;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Label1: TLabel;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit4, Unit1, Unit3, Unit6;
{$R *.dfm}
procedure TForm5.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;
procedure TForm5.N6Click(Sender: TObject);
begin
form1.close;
end;
procedure TForm5.N3Click(Sender: TObject);
begin
form3.show;
form5.Visible:=false;
end;
procedure TForm5.Timer1Timer(Sender: TObject);
begin
if label1.Visible=true then
label1.Visible:=false
else label1.Visible:=true;
end;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
form3.show;
form5.Visible:=false;
end;
procedure TForm5.BitBtn3Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm5.BitBtn2Click(Sender: TObject);
begin
form6.show;
form3.Visible:=false;
form5.Visible:=false;
end;
procedure TForm5.N4Click(Sender: TObject);
begin
form6.Show;
form3.Visible:=false;
form5.Visible:=false;
end;
end.
Текст модуля Unit6.pas
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Menus,comobj, Buttons;
type
TForm6 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
GroupBox1: TGroupBox;
Timer1: TTimer;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
procedure Timer1Timer(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit4, Unit1, Unit5, Unit3;
{$R *.dfm}
procedure TForm6.Timer1Timer(Sender: TObject);
begin
if label1.Visible=true then
label1.Visible:=false
else label1.Visible:=true;
end;
procedure TForm6.N5Click(Sender: TObject);
begin
form1.close;
end;
procedure TForm6.N2Click(Sender: TObject);
begin
form6.Visible:=false;
form5.visible:=true;
end;
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
form6.Visible:=false;
form5.Visible:=true;
end;
procedure TForm6.BitBtn3Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm6.BitBtn2Click(Sender: TObject);
var word:olevariant;
begin
if checkbox1.Checked=true then begin
assignfile(file1,'Import files\TXT\Generation.txt');
rewrite(file1);
writeln(File1,'Результати розрахунків основних параметрів генератора постійного струму');
writeln(file1,' ');
writeln(file1,'Полюсне ділення - мм');
writeln(file1,ed1);
writeln(file1,' ');
writeln(file1,'Довжина якоря без вентиляційних каналів - мм');
writeln(file1,ed2);
writeln(file1,' ');
writeln(file1,'Розрахункова довжина якоря - мм');
writeln(file1,ed3);
writeln(file1,' ');
writeln(file1,'Загальний магнітний потік - Вб');
writeln(file1,ed4);
writeln(file1,' ');
writeln(file1,'Магнітна індукція в повітряному зазорі - Тл');
writeln(file1,ed5);
writeln(file1,' ');
writeln(file1,'Зубцеве ділення якоря - мм');
writeln(file1,ed6);
writeln(file1,' ');
writeln(file1,'Ширина коронки зуба - мм');
writeln(file1,ed7);
writeln(file1,' ');
writeln(file1,'Коефіцієнт повітряного зазору');
writeln(file1,ed8);
writeln(file1,' ');
writeln(file1,'Магнітне напруження повітряного зазору - А');
writeln(file1,ed9);
writeln(file1,' ');
writeln(file1,'Ширина зубця в його момінальному перерізі - мм');
writeln(file1,ed10);
writeln(file1,' ');
writeln(file1,'Індукція в найменшому перерізі зубця - Тл');
writeln(file1,ed11);
writeln(file1,' ');
if bzmax>1.8 then begin
writeln(file1,'Велечина Bz max > 1.8 Тл - Беруться дані з графіків та розраховуються додаткові параметри Генератора');
writeln(file1,' ');
writeln(file1,' Результати розрахунку додаткових параметрів');
writeln(file1,' ');
writeln(file1,'Магнітна індукція в максимальному перерізі зубця - Тл');
writeln(file1,ed12);
writeln(file1,' ');
writeln(file1,'Магнітна індукція в середньому перерізі зубця - Тл');
writeln(file1,ed13);
writeln(file1,' ');
writeln(file1,' Зубцеві коефіцієнти');
writeln(file1,' ');
writeln(file1,'Для максимального перерізу зубця');
writeln(file1,ed14);
writeln(file1,' ');
writeln(file1,'Для мінімального перерізу зубця');
writeln(file1,ed15);
writeln(file1,' ');
writeln(file1,'Для середнього перерізу зубця');
writeln(file1,ed16);
writeln(file1,' ');
writeln(file1,' Дані введені з графіка');
writeln(file1,' ');
writeln(file1,'Напруженість поля в найменшому перерізі зубця');
writeln(file1,'Bz max = '+ed17+' Тл ');
writeln(file1,'kz min = '+ed18);
writeln(file1,'Hz max = '+ed19+' А/см');
writeln(file1,' ');
writeln(file1,'Напруженість поля в максимальному перерізі зубця');
writeln(file1,'Bz min = '+ed20+' Тл ');
writeln(file1,'kz max = '+ed21);
writeln(file1,'Hz min = '+ed22+' А/см');
writeln(file1,' ');
writeln(file1,'Напруженість поля в середньому перерізі зубця');
writeln(file1,'Bz ser = '+ed23+' Тл ');
writeln(file1,'kz ser = '+ed24);
writeln(file1,'Hz ser = '+ed25+' А/см');
writeln(file1,' ');
end
else
writeln(file1,'Велечина Bz max < 1.8 Тл - Не розраховуються додаткові параметри Генератора');
writeln(file1,' ');
writeln(file1,'Продовження розрахунку основних параметрів генератора постійного струму');
writeln(file1,' ');
writeln(file1,'Значення напруженості поля в зубці якоря - А/см');
writeln(file1,ed26);
writeln(file1,' ');
writeln(file1,'Магнітне напруження зубцевого шару якоря - А');
writeln(file1,ed27);
writeln(file1,' ');
writeln(file1,'Висота спинки якоря - мм');
writeln(file1,ed28);
writeln(file1,' ');
writeln(file1,'Площа перерізу спинки якоря - мм.квад');
writeln(file1,ed29);
writeln(file1,' ');
writeln(file1,'Магнітна індукція в спинці якоря - Тл');
writeln(file1,ed30);
writeln(file1,' ');
writeln(file1,'Напруженість поля в спинці якоря - А/см');
writeln(file1,ed31);
writeln(file1,' ');
writeln(file1,'Довжина середньої силової лінії в спинці якоря - мм');
writeln(file1,ed32);
writeln(file1,' ');
writeln(file1,'Магнітна напруженість в спинці якоря - А');
writeln(file1,ed33);
writeln(file1,' ');
writeln(file1,'Коефіцієнт розсіювання');
writeln(file1,ed34);
writeln(file1,' ');
writeln(file1,'Магнітний потік полюса - Вб');
writeln(file1,ed35);
writeln(file1,' ');
writeln(file1,'Поперечний переріз сердечника полюса - мм.квад');
writeln(file1,ed36);
writeln(file1,' ');
writeln(file1,'Магнітна індукція в сердечнику полюса - Тл');
writeln(file1,ed37);
writeln(file1,' ');
writeln(file1,'Висота сердечника полюса - мм');
writeln(file1,ed38);
writeln(file1,' ');
writeln(file1,'Магнітне напруження поля - А');
writeln(file1,ed39);
writeln(file1,' ');
writeln(file1,'Висота спинки станини - мм');
writeln(file1,ed40);
writeln(file1,' ');
writeln(file1,'Поперечний переріз спинки станини - мм.квад');
writeln(file1,ed41);
writeln(file1,' ');
writeln(file1,'Магнітна індукція станини - Тл');
writeln(file1,ed42);
writeln(file1,' ');
writeln(file1,'Магнітне напруження станини - мм');
writeln(file1,ed43);
writeln(file1,' ');
writeln(file1,'Магнітна індукція в станині - А');
writeln(file1,ed44);
writeln(file1,' ');
writeln(file1,'МРС обмотки якоря збудження на пару полюсів в режимі холостого ходу - А');
writeln(file1,ed45);
writeln(file1,' ');
writeln(file1,'Коефіціент магнітного накопичення');
writeln(file1,ed46);
writeln(file1,' ');
writeln(file1,' Розрахунки завершено успішно');
closefile(file1);
end;
if checkbox2.Checked=true then
begin
try
Word := CreateOleObject('Word.Application');
except
ShowMessage('Cannot start Word !');
Exit;
end;
// Show Word
Word.Visible := True;
// Add a new Document
Word.Documents.Add;
if Word.ActiveWindow.View.SplitSpecial <> 0 then
Word.ActiveWindow.Panes[2].Close;
if (Word.ActiveWindow.ActivePane.View.type = 1) or
(Word.ActiveWindow.ActivePane.View.type = 2) or
(Word.ActiveWindow.ActivePane.View.type = 5) then
Word.ActiveWindow.ActivePane.View.type := 3;
Word.ActiveWindow.ActivePane.View.SeekView := 9;
Word.Selection.Font.Name := 'Palatino linotype';
Word.Selection.Font.Size := 14;
Word.Selection.Font.Bold := True;
Word.Selection.Font.color := 0111;
Word.Selection.ParagraphFormat.Alignment := 1;
Word.Selection.TypeText('Розрахунок параметрів генератора постійного струму');
if Word.Selection.HeaderFooter.IsHeader = True then
Word.ActiveWindow.ActivePane.View.SeekView := 10
else
Word.ActiveWindow.ActivePane.View.SeekView := 9;
Word.Selection.Font.Name := 'Palatino linotype';
Word.Selection.Font.Size := 10;
Word.Selection.Font.Bold := True;
Word.Selection.Font.color := 0111;
Word.Selection.TypeText('Звіт по розрахунках. ELEКTRA - Програма для розрахунку Двигунів та Генераторів');
Word.ActiveWindow.ActivePane.View.SeekView := 0;
Word.Selection.Font.Name := 'palatino linotype';
Word.Selection.Font.Size := 12;
Word.Selection.Font.Bold := false;
Word.Selection.TypeText('Полюсне ділення мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed1);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Довжина якоря без вентиляційних каналів - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed2);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Розрахункова довжина якоря - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed3);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Загальний потік - Вб');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed4);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Магнітна індукція в повітряному зазорі - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed5);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Зубцеве ділення якоря - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed6);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Ширина коронки зуба - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed7);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Коефіціент повітряного зазору');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed8);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Магнітне напруження повітряного зазору - А');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed9);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Ширина зубця в його номінальному перерізі - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed10);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Індукція в найменшому перерізі зубця - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed11);
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
if bzmax>1.8 then begin
Word.Selection.TypeText('Величина Bz max > 1.8 Тл - Беруться дані з графіка та розраховуються додаткові параметри генератора');
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Результати розрахунку додаткових параметрів');
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Магнітна індукція в максимальному перерізі зубця - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed12);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Магнітна індукція в середньому перерізі зубця - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed13);
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Зубцеві коефіціенти');
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Для максимального перерізу зубця');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed14);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Для мінімального перерізу зубця');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed15);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Для середнього перерізу зубця');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed16);
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Дані введені з графіка');
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Напруженість поля в найменшому перерізі зубця');
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Bz max = '+ed17+' Тл ');
Word.Selection.TypeParagraph;
Word.Selection.TypeText('kz min = '+ed18);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Hz max = '+ed19+' А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Напруженість поля в максимальному перерізі зубця');
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Bz min = '+ed20+' Тл ');
Word.Selection.TypeParagraph;
Word.Selection.TypeText('kz max = '+ed21);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Hz min = '+ed22+' А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Напруженість поля в середньому перерізі зубця');
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Bz ser = '+ed23+' Тл ');
Word.Selection.TypeParagraph;
Word.Selection.TypeText('kz ser = '+ed24);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Hz ser = '+ed25+' А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
end
else
Word.Selection.TypeText('Велечина Bz max < 1.8 Тл - Не розраховуються додаткові параметри Генератора');
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Продовження розрахунку основних параметрів генератора');
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
word.Selection.TypeText('Значення напруженості поля в зубці якоря - А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed26);
Word.Selection.TypeParagraph;
word.Selection.TypeText('Магнітне напруження зубцевого шару якоря - А');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed27);
Word.Selection.TypeParagraph;
word.Selection.TypeText('Висота спинки якоря - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed28);
Word.Selection.TypeParagraph;
word.Selection.TypeText('Площа перерізу спинки якоря - мм.квад');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed29);
Word.Selection.TypeParagraph;
word.Selection.TypeText('Магнітна індукція в спинці якоря - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed30);
Word.Selection.TypeParagraph;
word.Selection.TypeText('Напруженість поля в спинці якоря - А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed31);
Word.Selection.TypeParagraph;
word.Selection.TypeText('Довжина середньої силової лінії в спинці якоря - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed32);
Word.Selection.TypeParagraph;
word.Selection.TypeText('Магнітна напруженість в спинці якоря - А');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(ed33);
Подобные документы
Демонстрація базової функції та функції в загальному вигляді з можливістю зміни параметрів A, B, C, D. Збереження поточних параметрів у файлі з наступним завантаженням. Підписи шкали осей координат і точки центру осей координат; друк отриманого графіка.
курсовая работа [549,8 K], добавлен 18.12.2013Основні можливості створення та редагування документів в текстовому редакторі Microsoft Word. Вставка спеціальних символів, табуляція, створення списків, колонок та буквиці за допомогою програми. Особливості та правила оформлення текстових документів.
курсовая работа [795,8 K], добавлен 06.07.2011Поняття та класифікація комп’ютерних ігор. Відтворення гри "Морський бій" у вигляді комп’ютерної програми. Компоненти програмного середовища Delphi, що були використані під час її створення. Алгоритм реалізації ігрового процесу та скріншоти з програми.
дипломная работа [418,2 K], добавлен 12.07.2013Елементарні властивості, які утворюють прийнятну для користувача якість ПЗ. Забезпечення стійкості програмних засобів за допомогою захисного програмування. Установка пакета Delphi. Розробка програми для автоматичного розрахунку значень складної функції.
контрольная работа [32,8 K], добавлен 22.09.2009Розробка та схема алгоритму проектованої гри. Особливості мови програмування та середовища "Microsoft Visual Studio C++ 2008 Express Edition". Лістинг програми та загальний опис її роботи, аналіз отриманих результатів та оцінка практичної ефективності.
курсовая работа [762,8 K], добавлен 03.05.2015Розробка таблиці для збереження даних у текстовому файлі про фільми в середовищі програмування Visual Studio C++ та їх сортування за країною виробництва. Реалізація таблиці за допомогою компонента dataGridView. Опис і контрольний приклад роботи програми.
курсовая работа [1,4 M], добавлен 02.11.2016Огляд існуючих методів розробки компіляторів, детальний опис мови. Характеристика та специфіка процесу розробки програми компілятора на рівні блок-схем і тексту програми. Подання тексту компілятора, а також результатів тестування розробленої програми.
курсовая работа [510,2 K], добавлен 03.06.2011Створення програми "Аналізатор злочинності в регіоні". Структура зберігаючих даних. Неформальна постановка задачі. Алгоритм основної програми. Введення і збереження інформації. Можливість перегляду всіх існуючих документів. Вихідний код програми.
курсовая работа [19,4 K], добавлен 07.10.2010Дослідження середовища візуального програмування Delphi. Вивчення процесу створення навчальної програми "Електронний словник". Опис графічного інтерфейсу. Характеристика структури та основних процедур даної програми. Аналіз роботи з програмним кодом.
курсовая работа [831,2 K], добавлен 01.03.2014Принципи роботи команд мікросхеми 24LC08: читання, запису даних. Опис і блок-схеми програми і підпрограм, що обслуговує пристрій. Вибір середовища програмування і розробка програми, яка забезпечує можливість демонстрації команд. Проведення тестування.
курсовая работа [114,2 K], добавлен 08.12.2011
