ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 13.06.2020
Просмотров: 63
Скачиваний: 1
УПРАВЛЯЮЩАЯ ПРОГРАММА СИСТЕМЫ АВТОМАТИЧЕСКОЙ КОРРЕКЦИИ СКОРОСТИ
Режим единичного
расчета
Временная диаграмма
Расчет управляющего
напряжения U
на языке Delphi
7
function
TForm1.Napryajenie(p:real):real;
var p1, p2, Qz: integer; begin
p1:=StrToInt(edit3.Text);
p2:=StrToInt(edit4.Text);
Qz:=StrToInt(edit2.Text);
if (p2<=p1) then
begin
ShowMessage('Неверно
указан диапазон');
napryajenie:=0;
end
else
if
(p>p2) or (p<p1) then
begin
ShowMessage('Значение
не в диапазоне');
napryajenie:=0;
end
else
Napryajenie:=(Qz-p*Kqp/1000000)*Kuq;
// Уровнение end;
