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(tex1);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Магнітне напруження повітряного зазору - А');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex2);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Максимальна магнітна індукція в зубці статора - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex3);
Word.Selection.TypeParagraph;
if bzmax>1.8 then begin
Word.Selection.TypeText('Велечина Bz1 >1.8 Тл - Ведемо розрахунки мінімального та середнього значення магнітної індукції в зубці статора');
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Мінімальна магнітна індукція в зубці статора - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex4);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Середня магнітна індукція в зубці статора - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex5);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Значення напруженості поля в зубці статора - А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex6);
Word.Selection.TypeParagraph;
end else begin
Word.Selection.TypeText('Велечина Bz1< 1.8 Тл - Напруженість поля в зубці статора Hz1 визначаємо по таблиці');
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Значення напруженості поля в зубці статора - А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex6);
Word.Selection.TypeParagraph;
end;
Word.Selection.TypeText('Магнітне напруження зубцевого шару статора - А');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex7);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Максимальна магнітна індукція в зубці ротора - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex8);
Word.Selection.TypeParagraph;
if bzmax>1.8 then begin
Word.Selection.TypeText('Велечина Bz2 >1.8 Тл - Ведемо розрахунки мінімального та середнього значення магнітної індукції в зубці статора');
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Мінімальна магнітна індукція в зубці ротора - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex9);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Середня магнітна індукція в зубці ротора - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex10);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Значення напруженості поля в зубці ротора - А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex11);
Word.Selection.TypeParagraph;
end else begin
Word.Selection.TypeText('Велечина Bz2< 1.8 Тл - Напруженість поля в зубці ротора Hz2 визначаємо по таблиці');
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Значення напруженості поля в зубці ротора - А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex12);
Word.Selection.TypeParagraph;
end;
Word.Selection.TypeText('Магнітне напруження зубцевого шару ротора - А');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex13);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Висота спинки статора - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex14);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Магнітна індукція в спинці статора - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex15);
Word.Selection.TypeParagraph;
if bc1<1.4 then begin
Word.Selection.TypeText('Значення напруженості поля в зубці статора - А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex16);
Word.Selection.TypeParagraph;
end else begin
Word.Selection.TypeText('Значення напруженості поля в зубці статора - А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex16);
Word.Selection.TypeParagraph;
end;
Word.Selection.TypeText('Довжина силової лінії в спинці статора - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex17);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Магнітне напруження спинки статора - А');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex18);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Висота спинки ротора - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex19);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Магнітна індукція в спинці ротора - Тл');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex20);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Значення напруженості поля в зубці ротора - А/см');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex21);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Довжина силової лінії в спинці ротора - мм');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex22);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Магнітне напруження спинки ротора - А');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex23);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Магніто-рушійна сила на пару полюсів - А');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex24);
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Коефіцієнт магнітного накопичення');
Word.Selection.TypeParagraph;
Word.Selection.TypeText(tex25);
form1.Visible:=true;
form9.Visible:=false;
end;
end;
procedure TForm9.N2Click(Sender: TObject);
begin
form9.Visible:=false;
form7.Visible:=true;
end;
procedure TForm9.N5Click(Sender: TObject);
begin
form1.close;
end;
end.